1.利用数组抽奖
Private Sub Command1_Click(Index As Integer)
Dim t As Integer      %首先定义变量
If Index = 0 Then    %如果选中第一个按钮command(0)，开始抽奖
Timer1.Enabled = True        %计时器可用
t = Int(Rnd() * 10) + 20          %产生一个20—30的随机数
ElseIf Index = 1 Then  %如果选中第2个按钮command(1)开始抽奖
For i = 0 To 4
Label1(i).Caption = ""          %循环语句：清空标签
Next i
Else                  %如果选中第三个按钮
End                    %结束程序
End If
End Sub
Private Sub Timer1_Timer()
For i = 0 To 4
Label1(i).Caption = Int(Rnd() * 10)  %循环语句：产生一个1位数的随机数
Next i
k = k + 1
If k > t Then
k = 0
Timer1.Enabled = False                          %计时器不可用
End If
End Sub
2.实训1抽奖
要求：4个标签组成控件数组。2个按钮。
      单击输入时，弹出请输入姓名
单击抽奖时，在四个标签中显示抽奖结果。
Dim m_name(0 To 3) As String    %定义4个变量用来存储4个姓名
Private Sub Command1_Click()vb开始按钮代码
For i = 0 To 3
m_name(i) = InputBox("请输入姓名") %输入4个姓名分别存放在变%m_name里面
Next i    %循环结束
End Sub
Private Sub Command2_Click()
For i = 0 To 3
Label1(i).Caption = m_name(i) & ",谢谢参与"  %在标签上显示谢谢%参与
Next i
t = Int(Rnd * 3)              %产生一个0到3的随机数
Label1(t).Caption = "恭喜你" & m_name(t)  %第t个人 中奖
End Sub
3.实训2 赌运气
要求：界面上三个标签、1个文本框、1个命令按钮。
      单击开始按钮时，产生3个一位随机数，分别显示在3个标签里面，如果3个标签中有1个或者多个7时，文本框中显示“你真幸运”否则显示“you are unlucky”
Private Sub Command1_Click()
Dim a(2) As Integer  %定义一个数组 包含3个元素
For i = 0 To 2
a(i) = Int(Rnd * 10)    %产生3个一位随机数
Label1(i).Caption = a(i)   
Next i
If Label1(0).Caption = 7 Then
text1.Text = "你真幸运"
ElseIf Label1(1).Caption = 7 Then
Text1.Text = "你真幸运"
ElseIf Label1(2).Caption = 7 Then
Text1.Text = "你真幸运"
Else
Text1.Text = "you are unluky"
End If
End Sub
4.简单的循环：
For循环：

Private Sub Form_Click()

Print 1
Print 2
Print 3
Print 4
Print 5
End Sub
Private Sub Form_Click()
For i = 1 To 5
Print i
Next i
End Sub
2. Private Sub Form_Click()
Dim a(2) As String
For i = 0 To 2
a(i) = InputBox("请输入姓名")
Print a(i)
Next i
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。