Simone用vb做猜谜语小游戏
的有关信息介绍如下：
'以一个二维数组存题目与答案,第一个维是题目,第二个维是答案Dim A(2, 1) As StringDim Timu As IntegerPrivate Sub C1_Click()If T1.Text = A(Timu, 1) Then MsgBox "√ 很聪明呦"Else MsgBox "× 再接再厉", vbCriticalEnd IfEnd SubPrivate Sub C2_Click()Label2.Caption = A(Timu, 1)End SubPrivate Sub C3_Click()Dim n As IntegerRandomizeDon = Int(Rnd * (UBound(A, 1) + 1))If n <> Timu Then Timu = n: Exit DoLoopLabel1.Caption = A(Timu, 0)End SubPrivate Sub C4_Click()EndEnd SubPrivate Sub Form_Load()'背景载入Dim Imagepath As StringImagepath = "图片路径"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_ClickEnd Sub
