- 1、本文档共13页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
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 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(恭喜你答对了!
文档评论(0)