- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vb课程设计小学生数学四则运算wjtoe7ak
PAGE
摘 要
本次课程设计通过VB技术制作了较为简易的随机出题并判断正误的程序,功能是用计算机来当小学生的老师。适用的工具软件为Visual basic。
对待该问题,我们运用了2个窗体(Form)控件14个(5个Command按钮控件,6个Label标签控件,3个文本控件)
我们通过编写程序代码随机生成数学计算式子,可以让使用者在文本框里输入答案,点击“判断正误”可以显示共几道题,答对几道题。
目 录
HYPERLINK \l _Toc260384453 摘 要 PAGEREF _Toc260384453 \h 1 TOC \o 1-3 \h \z \u
HYPERLINK \l _Toc260384454 1.功能描述 3
HYPERLINK \l _Toc260384455 2.概述设计 PAGEREF _Toc260384455 \h 3
HYPERLINK \l _Toc260384456 3.详细设计 PAGEREF _Toc260384456 \h 4
HYPERLINK \l _Toc260384457 4.存在问题 PAGEREF _Toc260384457 \h 11
HYPERLINK \l _Toc260384458 5.心得体会 PAGEREF _Toc260384458 \h 12
HYPERLINK \l _Toc260384459 6.参考文献 PAGEREF _Toc260384459 \h 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
您可能关注的文档
- ss4g型电力机车控制电路分析毕业设计2nd2awyw.doc
- spss软件进行t检验方法cgw_tqja.ppt
- sp平台建设方案1rx5azn6.doc
- spss数据分析实例详解hhgzy7fz.ppt
- staad结构建模及分析_x_5pi8n.doc
- sp咨询1月恒大地产集团绩效管理体系设计方案nax5dwga.ppt
- stg 核心数据库联机事务处理erp系统工作负载支撑系统 方案建议书v10100312yqj0qlol.doc
- st段抬高心肌梗死并发心律失常治疗指南ypenpujp.ppt
- svti 704规范高压开关的压力容器输送管路6s3_tabd.doc
- swot分析最好的swot模板ai5ygyjz.ppt
文档评论(0)