文件名称:VB
介绍说明－－下载内容均来自于网络，请自行研究使用
点击command1，label1随机显示1.2.3-Function a() As String
Dim b(2) As String
b(0) = 1
b(1) = 2
b(2) = 3
Randomize
a = b(Rnd* 2)
End Function
Private Sub Command1_Click()
Label1.Caption = a
End Sub
Dim b(2) As String
b(0) = 1
b(1) = 2
b(2) = 3
Randomize
a = b(Rnd* 2)
End Function
Private Sub Command1_Click()
Label1.Caption = a
End Sub
(系统自动生成,下载前可以参看下载内容)
下载文件列表
VB代码大全.docx