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

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

摘 要

本次课程设计通过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 1Caption登陆Command 2Caption取消Label1Caption用户名Label2Caption密码Text1Text2

表 2 Form2对象的属性设置值

控件属性 属性值Command 1Caption重新输入Command 3Caption 确定Command 4Caption下一题 Label1Caption 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.T