vb看图猜成语

Command1=确定Command2=停止Command3=提示一Command4=确定Command5=提示二Command6=提示三Command7=再来一题label2=答案在桌面建立一个叫vb的文件夹,并在里面加入图片,图片名用1,2,3,4,5,…….等代替.(我只加入了八图片)代码如下:PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer2.Enabled=TrueLabel7.Caption=30EndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseLabel3.Visible=TrueEndSubPrivateSubCommand3_Click()IfLabel6.Caption=C:\Users\acer\Desktop\vb\1.jpgThenLabel1.Caption=女Label1.Visible=TrueLabel4.Caption=谐音Label5.Caption=形容般配EndIfIfLabel6.Caption=C:\Users\acer\Desktop\vb\2.jpgThenLabel1.Caption=头Label1.Visible=TrueLabel4.Caption=面具Label5.Caption=形容改变EndIfIfLabel6.Caption=C:\Users\acer\Desktop\vb\3.jpgThenLabel1.Caption=头Label1.Visible=TrueLabel4.Caption=耳朵Label5.Caption=谐音EndIfIfLabel6.Caption=C:\Users\acer\Desktop\vb\4.jpgThenLabel1.Caption=谐音Label1.Visible=TrueLabel4.Caption=虾（下）Label5.Caption=花钱EndIfIfLabel6.Caption=C:\Users\acer\Desktop\vb\5.jpgThenLabel1.Caption=谐音Label1.Visible=TrueLabel4.Caption=夹（价）Label5.Caption=形容很贵EndIfIfLabel6.Caption=C:\Users\acer\Desktop\vb\6.jpgThenLabel1.Caption=作家Label1.Visible=TrueLabel4.Caption=身高Label5.Caption=著作EndIfIfLabel6.Caption=C:\Users\acer\Desktop\vb\7.jpgThenLabel1.Caption=谐音Label1.Visible=TrueLabel4.Caption=数量Label5.Caption=盐（言）EndIfIfLabel6.Caption=C:\Users\acer\Desktop\vb\8.jpgThenLabel1.Caption=朋友Label1.Visible=TrueLabel4.Caption=坐满Label5.Caption=高EndIfEndSubPrivateSubCommand4_Click()IfLabel6.Caption=C:\Users\acer\Desktop\vb\1.jpgAndText1.Text=男才女貌ThenMsgBox(回答正确)ElseIfLabel6.Caption=C:\Users\acer\Desktop\vb\2.jpgAndText1.Text=改头换面ThenMsgBox(回答正确)ElseIfLabel6.Caption=C:\Users\acer\Desktop\vb\3.jpgAndText1.Text=交头接耳ThenMsgBox(回答正确)ElseIfLabel6.Caption=C:\Users\acer\Desktop\vb\4.jpgAndText1.Text=花前月下ThenMsgBox(回答正确)ElseIfLabel6.Caption=C:\Users\acer\Desktop\vb\5.jpgAndText1.Text=身价百倍ThenMsgBox(回答正确)ElseIfLabel6.Caption=C:\Users\acer\Desktop\vb\6.jpgAndText1.Text=著作等身ThenMsgBox(回答正确)ElseIfLabel6.Caption=C:\Users\acer\Desktop\vb\7.jpgAndText1.Text=一言九鼎ThenMsgBox(回答正确)ElseIfLabel6.Caption=C:\Users\acer\Desktop\vb\8.jpgAndText1.Text=高朋满座ThenMsgBox(回答正确)ElseMsgBox(回答错误)EndIfEndSubPrivateSubCommand5_Click()Label4.Visible=TrueEndSubPrivateSubCommand6_Click()Label5.Visible=TrueEndSubPrivateSubCommand7_Click()Label1.Visible=FalseLabel3.Visible=FalseLabel4.Visible=FalseLabel5.Visible=FalseTimer2.Enabled=FalseLabel7.Caption=30EndSubPrivateSubForm_Load()Command1.Caption=开始EndSubPrivateSubTimer1_Timer()DimxAsIntegerx=Int(Rnd()*8+1)y=C:\Users\acer\Desktop\vb\&CStr(x)&.jpgImage1.Picture=LoadPicture(C:\Users\acer\Desktop\vb\&CStr(x)&.jpg)Label6.Caption=yEndSubPrivateSubTimer2_Timer()IfVal(Label7.Caption)0ThenLabel7.Caption=Val(Label7.Caption)-1Label3.Caption=剩余时间：&Label7.Caption&秒ElseTimer2.Enabled=FalseMsgBox抱歉你没有回答成功EndIfEndSub