程序的设计基础(VB)综合性实验1
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
实验一小学生四则运算测试器
一、实验目的
1.掌握面向对象程序设计语言的开发思想;
2.掌握结构化程序设计方法;
3.掌握标签、文本框、按钮的属性、事件和方法;
4.掌握常用的运算符、函数和表达式。
二、实验环境
Windows XP 操作系统
Visual Basic 6.0 编程环境
三、实验容
参考如下图所示,编制一个适合小学生练习的四则运算测试题程序。
具体要求如下:
(1)窗体的标题为“小学生四则运算测试器”。
(3)窗体的从上到下,从左到右分别为标签1,文本框1,按钮1,按钮2,标签2。其中标签1,标签2默认标题容为空,文本框文本容为空,按钮1,按钮2默认标题容分别为“统计”和“结束”。
(4)标签2设置有边框线,背景颜色为白色。
(5)程序运行时,标签1自动产生小学生四则运算题目,其中操作数为1~9之间的随机整数,运算符为+、-、*、/四种符号之一。
(6)文本框1接受用户输入答案,输完答案后按键盘中的回车键,系统将题目和用户回答答案显示在标签2中,并在后面给出对或错的评判标志(注意:评判标志对齐在同一列输出)。同时产生新的题目,清空文本框1,以便用户继续回答新题目。
(7)单击按钮1,结束回答,标签1和文本框1变为灰色不可用状态,同时标签2显示“一共做了几题,作对几题,得分为多少”的提示;单击按钮2,结束程序。
(8)提高与拓展:每次运行程序,让产生的题目是真正的随机数据;为适合小学生练习,避免产生两数相减结果为负数的题目。
(9)运行效果如下图所示:
提示:
1.产生题目的算法思路:
Private Sub Form_Load()
Randomize
n1 = Int(Rnd * 10 + 1)‘产生操作数1,为1~10之间的随机整数
n2 =…‘产生操作数2,为1~10之间的随机整数
fhn = Int(Rnd * 4 + 1)‘产生一个1~4之间的随机整数,分别表示4种运
算符号
…‘多分支选择结构,根据fhn变量为1~4的值不同,分别表示四种运算符
Select Case fh
Case "+"
zq = n1 + n2
…‘根据运算符的不同,计算出正确答案,放在zq变量中
End Select
✓Label1.Caption = n1 & fh & n2 & "="‘产生题目
End sub×
2.文本框输入答案后按回车键
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then‘当用户按了回车键是触发该事件
…‘当用户回答正确,显示题目和正确标注,回答错误,显示题目和错误标注,并给正
确或错误个数分别加1
Form_Load‘调用产生题目的事件代码,产生新的题目
…
End If
四、实验过程
编写程序代码,进行上机验证和调试,得出正确结果。
五、知识点梳理:
1.运算符
算术运算符:+、-、*、/
字符串连接运算符:&
2.函数
Int(N):产生一个不大于N的最大整数
Rnd:产生一个[0,1)之间的随机小数
String(N,X):产生N个X串的首字母组成的新字符串
Choose(N,x1,x2,x3…):根据N的值,返回对应数据给变量。
3.选择结构语句
If 语句
a. If...Then语句(单分支结构)
(1)If < 表达式> Then <语句>
(2)If < 表达式> Then
<语句块>
End If
b. If...Then...Else语句(双分支结构)
(1) If <条件> Then
<语句1>
[ Else
<语句2>]
End If
(2)If <表达式> Then <语句1> Else <语句2> c.If…Then…ElseIf语句(多分支结构)
多分支结构可以处理两个或两个以上分支。其语句形式为:If <表达式1> Then
<语句块1>
ElseIf <表达式2> Then
<语句块2>
…
Else
<语句块n+1>]
End If
Select Case 语句
Select Case <变量或表达式>
Case 表达式列表1
<语句块1>
Case 表达式列表2
<语句块2>
…
[Case Else
<语句块n+1>]
End Select
执行流程:
①自上而下顺序地判断测试表达式的值与表达式列表中的哪一个匹配,如有匹配则执行相
应语句块,然后转到End Select的下一语句。
②若所有的值都不匹配,执行Case Else所对应的语句块,如省略Case Else,则直接转移
到End Select的下一语句。
4. *文本框的属性和事件*
该容需同学们先行阅读书本P111~P113或查阅相关资料,并简单的归纳整理该知识点,写在实验报告中。
附录 VB实验报告模板:
学院计算机实验报告
一、实验容
……(题目及功能简述)
二、实验过程及结果
(1)界面设计
写出对象及相应属性设置:(可列表,如下)
……
相关属性设置:
最后得到界面图如下所示: