vb自定义函数问题

Dim a(1 To 9, 1 To 9) As Single
Public Function di(a1 As Integer, a2 As Integer, a3 As Integer, a4 As Integer, a5 As Integer, a6 As Integer, a7 As Integer, a8 As Integer)
flag: a = Int(9 * Rnd) + 1
If (a1 - a) * (a2 - a) * (a3 - a) * (a4 - a) * (a5 - a) * (a6 - a) * (a7 - a) * (a8 - a) = 0 Then GoTo flag
di = a
End Function
Private Sub Command1_Click()
a(1, 1) = Int(9 * Rnd) + 1
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
For j = 2 To 9
a(1, j) = Int(9 * Rnd) + 1
Next j
Text11.Text = a(1, 1)
Text12.Text = a(1, 2)
Text13.Text = a(1, 3)
Text14.Text = a(1, 4)
Text15.Text = a(1, 5)
Text16.Text = a(1, 6)
Text17.Text = a(1, 7)
Text18.Text = a(1, 8)
Text19.Text = a(1, 9)
If 10 ^ a(1, 1) + 10 ^ a(1, 2) + 10 ^ a(1, 3) + 10 ^ a(1, 4) + 10 ^ a(1, 5) + 10 ^ a(1, 6) + 10 ^ a(1, 7) + 10 ^ a(1, 8) + 10 ^ a(1, 9) = 1111111110 Then
Timer1.Enabled = False
Timer2.Enab

VB自定义函数问题! 在VB自定义函数问题 VB中关于自定义函数问题 关于VB自定义函数的问题 vb 调用ACCESS自定义函数问题 vb中自定义函数 VB自定义函数 VB中引用自定义函数 mssql 自定义函数问题 自定义函数问题