用vb做猜谜语小游戏
'以一个二维数组存题目与答案,第一个维是题目,第二个维是答案
Dim A(2, 1) As String
Dim Timu As Integer
Private Sub C1_Click()
If T1.Text = A(Timu, 1) Then
MsgBox "√ 很聪明呦"
Else
MsgBox "× 再接再厉", vbCritical
End If
End Sub
Private Sub C2_Click()
Label2.Caption = A(Timu, 1)
End Sub
Private Sub C3_Click()
Dim n As Integer
Randomize
Do
n = Int(Rnd * (UBound(A, 1) + 1))
If n <> Timu Then Timu = n: Exit Do
Loop
Label1.Caption = A(Timu, 0)
End Sub
Private Sub C4_Click()
End
End Sub
Private Sub Form_Load()
'背景载入
Dim Imagepath As String
Imagepath = "图片路径"
If Len(Dir(Imagepath)) > 0 Then Me.Picture = LoadPicture(Imagepath)
'示例载入三个谜语与答案,
A(0, 0) = "什么东西和左耳最像"
A(0, 1) = "右耳"
A(1, 0) = "什么字母最多人听"
A(1, 1) = "CD"
A(2, 0) = "我帅不"
A(2, 1) = "帅"
Call C3_Click
End Sub...
7574
