1.
Dim x1 As Single, x2 As Single
Dim m As Integer, n As Integer
Dim s1 As String, s2 As String
Dim y As Boolean
2.
Form_Click
3.
Private Sub Form_click()
Dim a As Integer, s As String, b As Integer
Randomize
a = Rnd * 1000
b = Mid(a, 3, 1) & Mid(a, 2, 1) & Mid(a, 1, 1)
Print a, b
End Sub
第三个我发现只要a,b两个变量就可以解决了,不知道题目是不是有问题