用vb做猜谜语小游戏

Question

大体如下图
C1 为提交（答案） C2 为答案 C3 为换一个 C4 为退出
T1 是输入答案的地方 L1为谜语 L2为显示答案的地方
要求：要写出每个标签的代码，不必写谜语，不必做程序。 让L1显示问题 当答对时，要显示“很聪明呦”并有对号图标和确定 答错时显示“再接再厉”并有错号图标和确定 单击换一个时要更改谜语 要写出背景放入的方法 要没有错误！
重赏！
最好有插图

Answer 1

'以一个二维数组存题目与答案,第一个维是题目,第二个维是答案

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

Answer 2

我有，采纳后准发

Answer 3

Dim q(2) As String, a(2) As String '问题库和答案库
Dim n As Integer '当前问题序号

Private Sub Command1_Click()
If Text1.Text = a(n) Then
MsgBox "很聪明呦", vbInformation + vbOKOnly, "你答对了"
Else
MsgBox "再接再厉", vbCritical + vbOKOnly, "你答错了"
End If
Command3_Click
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Label2.Caption = "答案:" & a(n)
End Sub

Private Sub Command3_Click()
Randomize
n = Int(Rnd * (UBound(q) + 1))
Label1.Caption = q(n)
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()
Command1.Caption = "提交"
Command2.Caption = "答案"
Command3.Caption = "换一个"
Command4.Caption = "退出"
Label2.Caption = "答案:"
Me.Picture = LoadPicture("c:\20100315111550.jpg") '自己改路径
q(0) = "问题1": a(0) = "答案1"
q(1) = "问题2": a(1) = "答案2"
q(2) = "问题3": a(2) = "答案3"
Command3_Click
Text1.Text = ""
End Sub追问

Dim q(2) As String, a(2) As String
Dim n As Integer
这放在哪？

追答

最开头啊，所有代码复制到窗体里

追问

 



追答

Dim q(2) As String, a(2) As String

Dim n As Integer

这两句要放在窗体代码的最开头！

本回答被提问者采纳