Question

VB猜字游戏程序代码

猜数字游戏要求：游戏开始电脑随机产生一个数字不重复的四位数；将猜的数填在框内按回车或者确定按钮提交；电脑会将提交的数与它自动产生的数进行比较，结果显示成"*A*B"。A代表位置正确数字也正确，B代表数字正确但位置不正确，比如："2A2B"表示有2个数字的位置正确且数值也正确，除此以外，还猜对了2个数字，但位置不对；共有10次机会，在10次内，如果结果为“4A0B”，游戏成功。如果10次里都没有猜对游戏失败。
问题补充：可以的话发到我的邮箱“wangm0329@163.com”非常感谢！
如果有图更好了！谢谢!

Answer 1

option explicit
dim intN as integer
dim intNum as integer
private sub command1_click()
randomize
intNum=rnd*100
label1.caption="请输入0-100之间的整数"& chr(13) & "然后单击猜按钮"
intN=0
text1.text=""
end sub
private sub command2_click()
dim intEnter=int(text1.text)
intN=intN+1
if intEnter>intNum then
label1.caption="大了"
else
if intEnter<intNum then
label1.caption="小了"
else
label1.caption="猜对了，共用了" &CStr（intN）&"次。" & Chr(13) & "按开始再来一次！"
end if
end if
end sub