为什么我的VB提示缺少End Sub?

Private Sub Label1_Click()
Function a() As String
Dim b(2) As String
b(0) = 1
b(1) = 2
b(2) = 3
b(3) = 4
Randomize
a = b(Rnd * 2)
End Function

点击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
懂了不？？？？？？？？？？？？？？？？？？？？

Private Sub Label1_Click()
'Function a() As String'这里错了。
Dim a() As String
Dim b(2) As String
b(0) = 1
b(1) = 2
b(2) = 3
b(3) = 4
Randomize
a = b(Rnd * 2)
END SUB
'End Function '这里错了。
唉，即使这样改后，还是有问题的.
你的代码可以说是乱。

Private Sub Label1_Click() call a() end sub Function a() As String Dim b(2) As String b(0) = 1 b(1) = 2 b(2) = 3 b(3) = 4 Randomize a = b(Rnd * 2) End Function

你开始的代码错误较多，改成下面的样子，运行时点击标签就行了。 Private Sub Label1_Click() Label1 = a End Sub Function a() As String Dim b(2) As String b(0) = 1 b(1) = 2 b(2) = 3 'b(3) = 4 Randomize a = b(Rnd * 2) End Function 问题补充下面的代码没有问题，可以运行。

Function a() As String Dim b(3) 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 数组定义少了，不是2是3

vb不能在一个sub子程序里在加一个子程序。 你的代码可以改为： sub 按钮1_click() call commandbutton1_click end sub private sub commandbutton1_click() [b2] = [b2] + 1 end sub call commandbutton1_click ’这句话的意思是调用commandbutton1的click事件，我想你原来代码的意思也是这样。

Function a() Randomize a = Int((3 - 1 + 1) * Rnd + 1) End Function Private Sub Command1_Click() Label1.Caption =a End Sub