vb看图猜成语.doc

Command1=确定 Command2=停止 Command3=提示一Command4=确定 Command5=提示二 Command6=提示三Command7=再来一题 label2=答案在桌面建立一个叫vb的文件夹,并在里面加入图片,图片名用1,2,3,4,5,.等代替.(我只加入了八图片)代码如下:Private Sub Command1_Click()Timer1.Enabled = TrueTimer2.Enabled = True Label7.Caption = 30End SubPrivate Sub Command2_Click() Timer1.Enabled = False Label3.Visible = TrueEnd SubPrivate Sub Command3_Click() If Label6.Caption = C:UsersacerDesktopvb1.jpg Then Label1.Caption = 女 Label1.Visible = True Label4.Caption = 谐音 Label5.Caption = 形容般配 End If If Label6.Caption = C:UsersacerDesktopvb2.jpg Then Label1.Caption = 头 Label1.Visible = True Label4.Caption = 面具 Label5.Caption = 形容改变 End If If Label6.Caption = C:UsersacerDesktopvb3.jpg Then Label1.Caption = 头 Label1.Visible = True Label4.Caption = 耳朵 Label5.Caption = 谐音 End If If Label6.Caption = C:UsersacerDesktopvb4.jpg Then Label1.Caption = 谐音 Label1.Visible = True Label4.Caption = 虾（下） Label5.Caption = 花钱 End If If Label6.Caption = C:UsersacerDesktopvb5.jpg Then Label1.Caption = 谐音 Label1.Visible = True Label4.Caption = 夹（价） Label5.Caption = 形容很贵 End If If Label6.Caption = C:UsersacerDesktopvb6.jpg Then Label1.Caption = 作家 Label1.Visible = True Label4.Caption = 身高 Label5.Caption = 著作 End If If Label6.Caption = C:UsersacerDesktopvb7.jpg Then Label1.Caption = 谐音 Label1.Visible = True Label4.Caption = 数量 Label5.Caption = 盐（言） End If If Label6.Caption = C:UsersacerDesktopvb8.jpg Then Label1.Caption = 朋友 Label1.Visible = True Label4.Caption = 坐满 Label5.Caption = 高 End IfEnd SubPrivate Sub Command4_Click()If Label6.Caption = C:UsersacerDesktopvb1.jpg And Text1.Text = 男才女貌 Then MsgBox (回答正确) ElseIf Label6.Caption = C:UsersacerDesktopvb2.jpg And Text1.Text = 改头换面 Then MsgBox (回答正确)ElseIf Label6.Caption = C:UsersacerDesktopvb3.jpg And Text1.Text = 交头接耳 Then MsgBox (回答正确) ElseIf Label6.Caption = C:UsersacerDesktopvb4.jpg And Text1.Text = 花前月下 Then MsgBox (回答正确) ElseIf Label6.Caption = C:UsersacerDesktopvb5.jpg And Text1.Text = 身价百倍 Then MsgBox (回答正确) ElseIf Label6.Caption = C:UsersacerDesktopvb6.jpg And Text1.Text = 著作等身 Then MsgBox (回答正确) ElseIf Label6.Caption = C:UsersacerDesktopvb7.jpg And Text1.Text = 一言九鼎 Then MsgBox (回答正确) ElseIf Label6.Caption = C:UsersacerDesktopvb8.jpg And Text1.Text = 高朋满座 Then MsgBox (回答正确) ElseMsgBox (回答错误)End IfEnd SubPrivate Sub Command5_Click() Label4.Visible = True End SubPrivate Sub Command6_Click() Label5.Visible = TrueEnd SubPrivate Sub Command7_Click()Label1.Visible = FalseLabel3.Visible = FalseLabel4.Visible = FalseLabel5.Visible = FalseTimer2.Enabled = FalseLabel7.Caption = 30End SubPrivate Sub Form_Load()Command1.Caption = 开始End SubPrivate Sub Timer1_Timer()Dim x As Integerx = Int(Rnd() * 8 + 1)y = C:UsersacerDesktopvb & CStr(x) & .jpg Image1.Picture = LoadPicture(C:UsersacerDesktopvb & CStr(x) & .jpg)Label6.Caption = y End Sub Private Sub Timer2_Timer() If Val(Label7.Caption) 0