VB上机实验九.docVIP

《Visual Basic语言》上机实验九 实验名称：常用标准控件的使用2（2学时） 一、实验目的 1. 掌握列表框控件的主要属性、方法和事件，并在具体的程序设计中灵活应用它们。 2. 初步掌握基于图形用户界面的应用程序开发方法。 二、背景知识 1．列表框控件 列表框控件显示一个项目列表，让用户从其中选择一项或多项。列表框最主要的特点是只能从其中选择，而不能直接写入或修改其中的内容，因此，它是从现有选项中快速选择的好工具。 三、实验举例 注：实验举例的内容不需要再上交作业。 实例1 编写一个小学生做两位数加减法的算术练习程序。要计算的数学表达式由程序随机生成，程序可以评判用户计算的正误，并统计计算的准确率。程序运行情况如图9.1所示。 在窗体上画一个名称为Label1的标签，用于显示程序生成的数学表达式；画一个名称为Text1的文本框，提供给用户输入题目答案；画一个名称为List1的列表框，用来存放用户已经完成运算的数学表达式和正误结果；画一个名称为Frame1的框架，在框架中添加两个名称分别为Label2和Label3的标签，用来显示评判结果；画一个名称为Command1的命令按钮，将其Default属性设置为True，当用户单击该命令按钮或按Enter键时，则将当前数学表达式、用户计算结果和正误标志作为一个项目添加到列表框中，同时在框架控件中显示出用户已解答题目数和正确率。 程序代码如下： 在窗体的“通用/声明”部分定义如下变量： Dim answer As Integer 用于存放题目正确答案 Dim total As Integer 用于统计答题数目 Dim right As Integer 用于统计答对题目数目 在窗体的Load事件中编写如下代码： Private Sub Form_Load() Label2.Caption = : Label3.Caption = End Sub 在窗体的Activate事件中编写如下代码： Private Sub Form_Activate() ‘ 该事件过程负责随机生成一个数学表达式 Dim a As Integer, b As Integer, p As Integer, t As Integer Randomize a = Int(10 + 90 * Rnd) ‘ 随机生成两位正整数 b = Int(10 + 90 * Rnd) p = Int(2 * Rnd) ‘ 随机生成运算符（+ 或 -） Select Case p Case 0 Label1.Caption = a + b = answer = a + b 将本题正确答案放入answer中 Case 1 If a b Then t = a: a = b: b = t 做减法运算时保证a b Label1.Caption = a - b = answer = a - b End Select total = total + 1 ‘ 答题数目增加1 Text1.Text = Text1.SetFocus End Sub 在命令按钮Command1的Click事件中编写如下代码： Private Sub Command1_Click() Dim Item As String If Val(Text1.Text) = answer Then ‘ 比较用户输入的答案是否与正确答案一致 Item = Label1.Caption Text1.Text √ right = right + 1 ‘ 答对题目数增加1 Else Item = Label1.Caption Text1.Text × End If List1.AddItem Item, 0 将题目、回答和正误结果插入到列表框中的第1项 List1.ListIndex = 0 自动选中列表框的第1项 Label2.Caption = 共 total 题， Chr(13) 正确率为: Label3.Caption = Format(right / total, #0.0#%) 计算正确率 Call Form_Activate 调用事件过程，生成下一道题目 End Sub