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

合集下载
相关主题
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 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)界面设计

写出对象及相应属性设置:(可列表,如下)

……

相关属性设置:

最后得到界面图如下所示:

相关文档
最新文档