东华理工大学。
vb课程设计。
题目：猜数字游戏班级：10410111学号：1041011112姓名：石头指导老师：吴强。
一、课程设计的目的。
课程设计为学生提供了一个既能动手又能动脑，独立实践的机会，将课本上的vb课理论知识和实践有机的结合起来，锻炼学生的分析解决实际问题的能力、提高运用vb应用的能力。
二、课程设计题目和简介。
猜数字游戏；游戏开始时系统将随机产生一个数字不同的四位数，玩家根据游戏提示纠正答案（1a0b：表示猜中一个数字且位置正确；2a2b：有两个数字正确且位置正确有两个数字正确当位置不正确）输入的数字不能相同也不能为空而且只有十次机会。
三、设计说明。
开始游戏randomize产生随机数。
用户输入值确定。
比较随机值与输入值给出提示。退出游戏。
四、源**进入界面form1
privatesubcommand1_click()loadform2
privatesubcommand2_click()endendsub
privatesubform_load()准备界面form2
privatesubcommand1_click()loadform3
privatesubcommand2_click()
使运行时窗体最大化。
privatesubform_load()
系统将随机产生一个数字不同的四位数，你可以根据提示纠正自己的错误但你只有十次机会！准备好了吗？"endsub
开始游戏界面form3
dima1asinteger,a2asinteger,a3asinteger,a4asintegerprivatesubcommand1_click()randomize发生器。
a"&0&"b"a1=int(10*rnd)
doa2=int(10*rnd)loopwhilea2=a1do
a3=int(10*rnd)
loopwhilea3=a1ora3=a2do
a4=int(10*rnd)
loopwhilea4=a1ora4=a2ora4=a3
初始化随机数。
产生随机数。
已经随机产生了一个数字（0~9）不同的四位数！猜猜是什么数吧！"
字的大小。能输入的长度。
privatesubcommand3_click()endendsub
privatesubform_load()
设置text文本框内。
定义text文本框内4
使窗体最大。
privatesubtext1_change()'设置textchange事。
件，当前一个文本框输入一个数时则下一个文本框获得焦点。
iflen(
privatesubtext2_change()iflen(
privatesubtext3_change()iflen(
privatesubcommand2_click()staticcishu
dimtmp1asinteger,tmp2asinteger,t***asinteger,tmp4asinteger
dimaasinteger,basintegera=0b=0
ifcishu=9then
msgbox"很遗憾！你已经猜了10次答案是"&a1&a2&a3&a4,,"猜数字"
exitsubendif
tmp1=val(
iftmp1=tmp2ortmp1=t***ortmp1=tmp4then'使输入的值不能相同，如果相同则给出提示。
msgbox"输入的数字不能相同，请重新输入",48,"猜数字游戏"endif
iftmp2=t***ortmp2=tmp4ortmp2=tmp1thenmsgbox"输入的数字不能相同，请重新输入",16,"猜数字游戏"endif
ift***=tmp4ort***=tmp2ort***=tmp1thenmsgbox"输入的数字不能相同，请重新输入",64,"猜数字游戏"
读取玩家输入的数。
endififtmp4=tmp1ortmp4=tmp2ortmp4=t***thenmsgbox"输入的数不能相同，请重新输入",48,"猜数字游戏"endif
cishu=cishu+1iftmp1=a1then的随机数进行比较。
a=a+1elseiftmp1=a2ortmp1=a3ortmp1=a4thenb=b+1endif
iftmp2=a2thena=a+1
elseiftmp2=a1ortmp2=a3orrmp2=a4thenb=b+1endif
ift***=a3thena=a+1
elseift***=a1ort***=a2ort***=a4thenb=b+1endif
iftmp4=a4then
对玩家输入的数与产生。
a=a+1elseiftmp4=a1ortmp4=a2ortmp4=a3thenb=b+1endif
a"&b&"b"较出的结果做出提示。
ifa=4then
msgbox"恭喜你，你猜对了！"&你一共猜了"&cishu&"次","猜数字游戏"
endifendsub
privatesubtext1_click()清空文本框内的数据。
"endsub
privatesubtext2_click()"endsub
privatesubtext3_click()"endsub
privatesubtext4_click()
把比。textclick单击事件，"endsub五、运行结果进入界面form1
准备界面form2
开始游戏界面form4
六、课程设计体会。
实践能够检验是否收获。通过本次课程设计我不仅对课本知识加深了印象和了解，也明白了如何把理论知识运用到现实中实践，同时也学到了许多有关vb的课外的知识比如在查阅资料过程中我学会了产生随机数的多种方法：一次性随机产生四位数；每次随机产生一个数组合成四位数，可定义动态数组也可定义几个变量去实现。
在定义计数变量时把它设为静态变量以及如何使指定的对象什么时候获得焦点等。在完成课程设计过程中锻炼了我分析解决实际问题的能力。开始时并不是很顺利对课本内的知识掌握的不太好，很多知识点被遗忘、不清楚，也暴露出了对vb操作环境的不熟悉，和对一些控件的不熟以及对一些事件属性不了解但通过这次课程设计大半部分出现的问题都得到了解决。。
程序设计的。
《打冰雹》游戏vb课程设计报告
2.显示所用时间。使用一个timer控件和文本框显示所用时间，timer的interval值为一千，即每隔一秒发送一次timer事件，定义整形变量int1,int2,int3保存秒，分和小时，用format函数使其显示成时间的样式。3.控制箭头随鼠标指针位置变化。通过mousemove事件确定鼠标指...
《打冰雹》游戏vb课程设计报告
课程设计报告 打冰雹游戏。1 功能 打冰雹游戏 是指从窗口顶部落下多个圆球表示的 冰雹 用户使用鼠标来指引箭头表示的 枪 瞄准其中一个圆球，单击鼠标射击。如果打中圆球加分，没打中减分。若累计有五个圆球一直未被击中而落到地面 用水平黑线表示 则失败。用户玩游戏的目标是在尽量短的时间内得尽量多的分数，同...
vb课程设计 打字游戏
东华理工大学。vb课程设计报告。目录。一 课程设计的目的与要求。二 界面组成。三 流程图。四 工程 五 主函数分析。六 实验心得。一 课程设计的目的与要求。1 教学目的。运用所学vb语言知识，对vb语言中基本数据类型 语法 数组 函数 结构 文件以及数据库等的操作，使学生全面掌握面向对象的可视化程序...