程序设计基础(VB)综合性实验

合集下载

相关主题

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>

…

［Case Else

<语句块n+1>］

End Select

执行流程：

①自上而下顺序地判断测试表达式的值与表达式列表中的哪一个匹配，如有匹配则执行相应语句块，然后转到End Select的下一语句。

②若所有的值都不匹配，执行Case Else所对应的语句块，如省略Case Else，则直接转移到End Select的下一语句。

4. *文本框的属性和事件*

该内容需同学们先行阅读书本P111~P113或查阅相关资料，并简单的归纳整理该知识点，写在实验报告中。

附录VB实验报告模板：

丽水学院计算机实验报告

一、实验内容

……（题目及功能简述）

二、实验过程及结果

（1）界面设计

写出对象及相应属性设置：（可列表，如下）

……