Dim m As StringPrivate Sub Command1_Click()
Form1.ClsIf m = 1 Then
m = 2
Print "谜语一"
Text1 = "答案一"ElseIf m = 2 Then
m = 3
Print "谜语二"
Text1 = "答案二"ElseIf m = 3 Then
m = 4
Print "谜语三"
Text1 = "答案三"ElseIf m = 4 Then
m = 1
Print "谜语四"
Text1 = "答案四"End If...