vb看图猜成语

《vb看图猜成语》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Command1=确定Command2=停止Command3=提示一Command4=确定Command5=提示二Command6=提示三Command7=再来一题label2=答案在桌面建立一个叫vb的文件夹,并在里面加入图片,图片名用1,2,3,4,5,…….等代替.(我只加入了八图片)代码如下:PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer2.Enabled=TrueLabel7.Caption="30"EndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseLabel

2、3.Visible=TrueEndSubPrivateSubCommand3_Click()IfLabel6.Caption="C:UsersacerDesktopvb1.jpg"ThenLabel1.Caption="女"Label1.Visible=TrueLabel4.Caption="谐音"Label5.Caption="形容般配"EndIfIfLabel6.Caption="C:UsersacerDesktopvb2.jpg"ThenLabel1.Caption="头"Label1.Visible=TrueLabel4.Caption="面具"L

3、abel5.Caption="形容改变"EndIfIfLabel6.Caption="C:UsersacerDesktopvb3.jpg"ThenLabel1.Caption="头"Label1.Visible=TrueLabel4.Caption="耳朵"Label5.Caption="谐音"EndIfIfLabel6.Caption="C:UsersacerDesktopvb4.jpg"ThenLabel1.Caption="谐音"Label1.Visible=TrueLabel4.Caption="虾（下）"Label5.Caption="花钱"En

4、dIfIfLabel6.Caption="C:UsersacerDesktopvb5.jpg"ThenLabel1.Caption="谐音"Label1.Visible=TrueLabel4.Caption="夹（价）"Label5.Caption="形容很贵"EndIfIfLabel6.Caption="C:UsersacerDesktopvb6.jpg"ThenLabel1.Caption="作家"Label1.Visible=TrueLabel4.Caption="身高"Label5.Caption="著作"EndIfIfLabel6.Caption

5、="C:UsersacerDesktopvb7.jpg"ThenLabel1.Caption="谐音"Label1.Visible=TrueLabel4.Caption="数量"Label5.Caption="盐（言）"EndIfIfLabel6.Caption="C:UsersacerDesktopvb8.jpg"ThenLabel1.Caption="朋友"Label1.Visible=TrueLabel4.Caption="坐满"Label5.Caption="高"EndIfEndSubPrivateSubCommand4_Click()IfLabe

6、l6.Caption="C:UsersacerDesktopvb1.jpg"AndText1.Text="男才女貌"ThenMsgBox("回答正确")ElseIfLabel6.Caption="C:UsersacerDesktopvb2.jpg"AndText1.Text="改头换面"ThenMsgBox("回答正确")ElseIfLabel6.Caption="C:UsersacerDesktopvb3.jpg"AndText1.Text="交头接耳"ThenMsgBox("回答正确")ElseIfLabel6.Caption="C:Use

7、rsacerDesktopvb4.jpg"AndText1.Text="花前月下"ThenMsgBox("回答正确")ElseIfLabel6.Caption="C:UsersacerDesktopvb5.jpg"AndText1.Text="身价百倍"ThenMsgBox("回答正确")ElseIfLabel6.Caption="C:UsersacerDesktopvb6.jpg"AndText1.Text="著作等身"ThenMsgBox("回答正确")ElseIfLab