大家好,我是影迹 今天又和大家见面咯~
上次VB第一课入门教程吧!不知道大家学会了没有?
今天呢!又来给大家做一个VB简单程序制作教程,今天我们来做一个简单的投票程序!
未看过第一课的可以到/soft/201109/29586.html进行下载观看。
(插入个题外话哈~我做VB教程吧,也是根据我在学校学到了来教大家的,当然每个人吸收能力不一样,学校里老师讲的我吸收后在描述给大家或许会有很多不足之处还望大家见谅!我也会尽可能做出新手朋友们容易吸收的了得教程,描述我也会尽可能的详细些!)
好,废话不多说,下面开始吧~
首先,我们可视化编程要记住三大编程步骤:先设计界面、再编写代码、最后编译出程序
现在,我们完成第一个步骤:设计界面
主要用到的组件有:分组框(Frame)、单选框(Option)、文本框(text)、按钮(Command)
OK,大致就是这样摆设下~
下面,我们完成第二个步骤:写代码
编写代码前,我先提醒个关键代码语句:& vbCrLf & (换行符) 、 Value(选中) 、 Static(静态变量)
制作投票程序主要是一个判断命令,我们这节课重点用 IF 语句:IF(如果)
OK,了解了下大致,下面我们开始编写代码吧,大家应该期待很久了吧?嘿嘿~
代码编辑:
首先我们先要赋值些数据给a和b,这样我们可以更方便的累加投票数。
给a、b定义静态变量,代码如下:
static a,b
(如果定义动态变量的话,代码是(dim a,b),倘若我们定义的是动态变量,那么投票次数将不会累积,被点击一次按钮,数据都将被初始化一次!得到的结果为0或空;反之定义静态变量可累计每次投票次数。)
定义a、b后,下一步我们要开始判断了,判断单选框1选中为真时,那么就给张三加一票;如果单选框2选中为真,那么就给李四加一票。代码如下:
If Option1.Value = True Then ‘如果单选框1.选中=真 那么
a = a + 1
ElseIf Option2.Value = True Then ‘如果单选框2.选中=真 那么
b = b + 1
End If 'If语句结束
以上代码配上注释,大家应该明白意思了吧?当单选框被选中成真后,数值a就会加1并且赋值给新数值a。
好,现在代码基本完成,最后我们要将投票结果,显示在文本框内。代码如下:
Text1.Text = "张三 " & a + 0 & "票" & vbCrLf & "李四 " & b + 0 & "票" '文本框1.内容="张三" 0 “票“ &换行& "李四" 0 "票"
OK,代码到这里就结束了!下面来测试下,我们的成果吧!
成功咯~O(∩_∩)O~