vb的课程设计，帮忙注释一下语句吧。

Private Sub Command3_Click()

Form1Show ‘ 显示窗口：Form1

Unload Me ‘卸载Form1窗口

End Sub

Private Sub Timer1_Timer() ‘时间控件

Static Index As Integer '定义一个名称为index的静态整形变量

Dim i As Integer '定义i为整型变量

If Index <> 11 Then '如果index不等于11

Label3(Index)Visible = True ‘显示：Label3(i)

Index = Index + 1 'index的值加1

Else '如果index等于11

For i = 0 To 10

Label3(i)Visible = False ‘隐藏Label3(i)

Next i

Index = 0

End If

End Sub

Private Sub Command1_Click()

Dim i As Integer

For i = 1 To rec_total ‘i由1 到rec_total执行循环

Get #1, i, stu ‘读文件（#1）第i条记录的数据存入结构变量stu中

If Trim(Text1Text) = Trim(stuxingming) Then ‘如果读取的xingming与Text1的文本一样，Trim是去掉字符串首尾的空格。

rec_no = i

Get #1, rec_no, stu ‘这句可以不用，因为已用Get #1, i, stu读过了，且rec_no = i，所以两次的stu结构数据相同。

Text2Text = stushoujihaoma ‘Text2中显示shoujihaoma。

End If

Next i

Dim j As Integer

For j = 0 To 10

Label3(j) = Mid(Text2Text, j + 1, 1) ‘取Text2Text中第j + 1个字符开始的1个字符，用Label3(j)显示，一般写成：Label3(j)Caption = Mid(Text2Text, j + 1, 1)。但下面一句Label3(j)Visible = False又让Label3(j)隐藏，因此看不到，这就不明白作者的意图了，呵呵。

Label3(j)Visible = False ‘应该是：Label3(j)Visible = True

Label3(j)ForeColor = vbRed ‘设置Label3(j)字体颜色为红色。

Next j

Timer1Interval = 500 ‘时钟每500ms(即05秒)激发一次

End Sub

Public Sub display() '定义了这个子程序，却没用到。其作用是：

Get #1, rec_no, stu ' 读取数据，结构stu的xingming与shoujihaoma

With stu ' 分别放到Text1、Text2中显示

Text1 = xingming: Text2 = shoujihaoma

End With

End Sub

Private Sub Command2_Click()

Timer1Enabled = True ‘时钟可用，这样就会按时循环执行：“Private Sub Timer1_Timer()”子程序

End Sub

1 用VB新建一个标准EXE程序

2 用 Lable 、TextBox 和 CommandButton 控件在窗体中设计界面如下：

3 双击“抽取”按钮，并在代码窗口中修改代码如下：

Private Sub Command1_Click()

  Dim v1 As Long, v2 As Long, v3 As Long

  v1 = Val(Text1)

  v2 = Val(Text2)

  v3 = Int(Rnd(1) (v2 - v1 + 1)) + v1

  Text3Text = v3

End Sub

4按F5运行，并进行测试即可

以上就是关于vb的课程设计，帮忙注释一下语句吧。全部的内容，包括:vb的课程设计，帮忙注释一下语句吧。、用VB怎样制作简单程序、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！