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

专业课程实验报告三 专 业：10通信工程 姓 名：罗斌 学号：座机电话号码93 实验名称 函数、过程、方法的使用 实验目的 1． 掌握函数及过程的定义方法。 2． 理解和掌握常用的内部函数和方法的功能、使用。 3． 掌握函数及过程的实参与形参的对应关系，理解“值传递”、 “地址传递”的概念。 4. 掌握递归的概念和使用方法 5. 熟悉程序设计中的常用方法。 实验原理 采用面向对象、事件驱动编程机制。 实验内容 步骤、方法 题目: 设计一个小学生做算术练习程序。计算机连续地随机给出两位数的加、减、乘、除算术题,要求学生回答,答对的打“√”，答错的打“×”。将做过的题目存放在组合框 下拉列表框 中备查,并随时给出答案的正确率。 说明： 为了让小学生在愉快中学习和玩耍，故乘法、除法均是两位数与个位数相乘或相除,对于除不尽的保留1位小数。 密码最多只能输3次。 建立用户界面如图 1 、图 2 所示。 2．窗体上设置主要对象属性值设置如下表1: 其他控件属性设置如上图1、图2所示: 2011-11-17 实验类型： 设计 演示、验证、综合、设计 实验内容 步骤、方法 表1 属性设置 控件类型 属性名 属性值 说明 标签1 Name Label1 显示题目 caption 清空 文本框 Name Text1 输入答案 caption 清空 标签3 Name Label3 显示答题 caption 欢迎使用简易计算器 总数正确率 组合框 Name Combo1 Style 2 下拉列表框 Tag 0.0 存放答对题数 计时器 Enabled False Interval 1000 3. 编写程序代码 ‘在窗体Form1的窗体模块中,设计密码代码。 Private Sub Form_Load Text1 End Sub Private Sub Text1_KeyPress KeyAscii As Integer Static n As Integer If KeyAscii 13 Then If LCase Text1.Text 805098 Then Label1.Caption 系统正在进入请稍后.... 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 End If End If End Sub Private Sub Timer1_Timer Static i% Timer1.Enabled True If i 5 Then Unload Me Load Form10 ‘在窗体Form2的窗体模块中: 设出题部分由窗体的激活 Activate 事件完成，代码为： Private Sub Form_Activate Dim a, b As Integer Dim p, t Randomize 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.Tag a + b Case 1 If a b Then t a: a b: b t Label1.Caption a - b Text1.Tag a - b Case 2 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 b Then t a: a b: b t If b 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 Form10.Tag Form10.Tag + 1 Text