VB课程设计小学生数学四则运算.doc

摘 要 本次课程设计通过VB技术制作了较为简易的随机出题并判断正误的程序，功能是用计算机来当小学生的老师。适用的工具软件为Visual basic。 对待该问题，我们运用了2个窗体（Form）控件14个（5个Command按钮控件，6个Label标签控件，3个文本控件） 我们通过编写程序代码随机生成数学计算式子，可以让使用者在文本框里输入答案，点击“判断正误”可以显示共几道题，答对几道题。  目 录 摘 要 1 1.功能描述 3 2.概述设计 3 3.详细设计 4 4.存在问题 11 5.心得体会 12 6.参考文献 13 1.功能描述 本程序是简易计算机教学程序，具有随机出题并判断正误的功能，适用就读小学的儿童。程序结构及使用方法简单易懂，可作为小学生计算机老师辅助小学生学习。 2.概述设计 本程序的核心是随机出题并判断正误，因而应该确定所需使用的控件及程序，由分析可得，本程序编译需要产生在范围（0～10）2个的随机数字，并且用连字符把2个数字和运算方式表示出来，使用者可以在文本框内输入数字。第二个重要程序是“判断正误”这个按钮，要求判断正误并表示出总共几道题，答对几道 步骤： (1) 运行Microsoft visual basic 6.0。 (2) 打开新的“标准EXE工程”，建立工程。 (3) 在窗体1上添加3个标签（Label控件）、2个按钮（Command 控件）2个文本（text控件）。 (4) 单击各个控件对控件的主要属性进行设置如下表： 表 1 Form1对象的属性设置值 控件 属性 属性值 Command 1 Caption 登陆 Command 2 Caption 取消 Label1 Caption 用户名 Label2 Caption 密码 Text1 Text2 表 2 Form2对象的属性设置值 控件 属性 属性值 Command 1 Caption 重新输入 Command 3 Caption 确定 Command 4 Caption 下一题 Label1 Caption Text1 (5) 编写代码实现代码的功能。 (6) 运行并保存程序。 3.详细设计 3.1.程序代码 Private Sub Command1_Click() Dim a, b As Integer If Text1.Text = Or Text2.Text = Then a = MsgBox(您输入的用户名或密码不能为空, vbCritical, 错误信息) Text1.SetFocus Else If Text1.Text = 陆裕鹏 And Text2.Text =Then Form2.Show Else Text1.Text = Text2.Text = Text1.SetFocus b = MsgBox(您输入的密码或用户名错误！请重新输入, vbCritical, 错误信息！) End If End If End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text1.SetFocus End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If Not IsNumeric(Chr(KeyAscii)) And KeyAscii 8 Then KeyAscii是可能获知用户按下了哪一个键的参数表达式，此语句表示文本框只允许输入0-9的数字字符，否则KeyAscii=0（KeyAscii接收到的是空字符，不返回任何按键） KeyAscii = 0 i = MsgBox(您输入的只能是数字！, vbCritical) vbExclamation是图标样式语句 End If End Sub Option Explicit 强制变量先定义再使用 Dim a%, b%, c$, d%, g%, h%, tmp%, i%, arr Private Sub Command1_Click() Text1.SetFocus Text1.Text = End Sub Private Sub Command3_Click() If Text1.Text = Then MsgBox 你的输入为空，请重新输入！ Text1.SetFocus Else If Val(Text1.Text) = d Then g = MsgBox(恭喜你答对了！