专业课程实验报告三(样本)new

1、专业课程实验报告三专 业：10通信工程 姓 名：罗斌 学号：7020806093 实验名称函数、过程、方法的使用实验目的1 掌握函数及过程的定义方法。2 理解和掌握常用的内部函数和方法的功能、使用。3 掌握函数及过程的实参与形参的对应关系，理解“值传递”、 “地址传递”的概念。4. 掌握递归的概念和使用方法5. 熟悉程序设计中的常用方法。实验原理采用面向对象、事件驱动编程机制。实验内容(步骤、方法)题目: 设计一个小学生做算术练习程序。计算机连续地随机给出两位数的加、减、乘、除算术题,要求学生回答,答对的打“”，答错的打“”。将做过的题目存放在组合框(下拉列表框)中备查,并随时给出答案的正确率

2、。说明： j 为了让小学生在愉快中学习和玩耍，故乘法、除法均是两位数与个位数相乘或相除,对于除不尽的保留1位小数。k 密码最多只能输3次。1 建立用户界面如图(1)、图(2)所示。图2图(1) 2窗体上设置主要对象属性值设置如下表1: 其他控件属性设置如上图1、图2所示。实验日期: 2011-11-17 实验类型： 设计 (演示、验证、综合、设计)实验内容(步骤、方法)表1 属性设置控件类型 属性名 属性值 说明标签1 Name Label1 显示题目 caption 清空文本框 Name Text1 输入答案 caption 清空标签3 Name Label3 显示答题 caption 欢迎

3、使用简易计算器 总数正确率组合框 Name Combo1 Style 2 下拉列表框 Tag 0.0 存放答对题数计时器 Enabled FalseInterval 1000 3. 编写程序代码 在窗体Form1的窗体模块中,设计密码代码。Private Sub Form_Load()Text1 = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Static n As IntegerIf KeyAscii = 13 Then If LCase(Text1.Text) = 805098 Then Label1.Caption = 系统

4、正在进入请稍后. Timer1_Timer Else n = n + 1 If n = 3 Then MsgBox 对不起，你无权使用本系统。, 0, 密码错误！ Text1.Enabled = False Else MsgBox 你还有 & Str(3 - n) & 次机会, 0, 对不起，密码错误 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If Form10.Show Else i = i + 1 End IfEnd Sub End IfEnd IfEnd SubPrivate Sub Timer1_Timer()St

5、atic i%Timer1.Enabled = True If i = 5 Then Unload Me Load Form10 在窗体Form2的窗体模块中:设出题部分由窗体的激活(Activate)事件完成，代码为：Private Sub Form_Activate()Dim a, b As IntegerDim p, tRandomize (Time)a = Int(10 + 90 * Rnd)b = Int(10 + 90 * Rnd)p = Int(4 * Rnd)Select Case p Case 0 Label1.Caption = a & + & b & = Text1.Ta

6、g = a + b Case 1 If a = 10 And b = 10 Then b = b 10 If b 10 Then Label1.Caption = a & & b & = Text1.Tag = a * b End If Case 3 If a = 10 Then b = b 10 If a Mod b Then Label1.Caption = a & & b & = Text1.Tag = Format(a / b, .#) Else Label1.Caption = a & & b & = Text1.Tag = a / b End If End Select Form1

7、0.Tag = Form10.Tag + 1 Text1.SelStart = 0 Text1.Text = End Sub答题部分由文本框的按键(KeyPress)事件完成，代码为：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim fm, itemIf KeyAscii = 13 Then fm = !If Val(Text1.Text) = Text1.Tag Then item = Format(Label1.Caption & Text1.Text, fm) & Combo1.Tag = Combo1.Tag + 1Else item

8、 = Format(Label1.Caption & Text1.Text, fm) & End IfCombo1.AddItem item, 0Combo1.ListIndex = 0Label2.Caption = 共 & Form10.Tag & 题，正确率为：Label3.Caption = Format(Combo1.Tag / Form10.Tag, #0.0#%)Form_ActivateEnd IfEnd Sub“关闭” 按钮的Click事件代码为:Private Sub Command2_Click()Unload MeEnd Sub “重置” 按钮的Click事件代码为:Private Sub Command1_Click()Form10.Tag = 0#Combo1.Tag = 0#Combo1.ClearLabel2.Caption = 欢迎重新开始！Label3.Caption = Form_ActivateText1.SetFocusEnd Sub4.调试直至得出正确的结果，并保存该结果。