- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
北京电大VisualBasic程序设计第四章VB高级语言技巧
Visual Basic程序设计;4.1 多功能计算器任务
4.1.1 任务描述
在第三章简单计算器的基础,增加以下功能:
1. 将计算结果转换为十六进制。
2. 就数字键设置为命令按钮组,使“0”~“9”数字按键的Index属性分别为0、1、2、3、4、5、6、7、8、9。
3.禁止键盘在文本框中输入数据。
4.使计算器总是悬浮在其它窗体上。
界面如下页所示。;;4.1.2 界面设计;4.1.3 代码设计;(1)API函数调用的一般方法;;第1步:启动“API文本浏览器”;;第2步:选择“文件-加载文本文件”菜单项;加载WinAPI.txt文件。;第3步:选择API类型:声明;第4步:选择立刻用项SetWindowPos,将声明范围设置为“私有”。;按添加按钮。;第5步:就选定项下的VB代码复制;第5步:将复制的VB代码粘贴到窗体代码编辑器中的“通用-声明”部分。;习题 P115 一、单项选择题;2. 数字区命令按钮的Click事件;3. 禁止用户在文本框中输入数字;习题 P116 二、填空题;4. 修改“计算结果”按钮的Click事件代码;4. 修改“计算结果”按钮的Click事件代码;5. 编写ChangeMe函数代码;5. 编写ChangeMe函数代码;习题 P116 三、问答题;4.2 数组的使用;2. 声明静态数组;(2)方法2;3. 动态数组;习题 P115 一、单项选择题;习题 P116 二、填空题;习题 P116 三、问答题;4.2.2 控件数组;数字区命令按钮的Click事件;数字区命令按钮的Click事件也可编写如下:; ……
Case 9
If txtLabel.Text = Then
txtFirst.Text = txtFirst.Text + “9”
Else
txtSecond.Text = txtSecond.Text + “9”
End If
End Select
End Sub
利用Select或If选择结构,通过对Index属性值的判断,响应不同按钮元素的单击事件。;习题 P116 一、单项选择题;习题 P116 二、填空题;4.2.3 枚举及自定义数据类型;4.2.3 枚举及自定义数据类型;2. 自定义类型
自定义类型与枚举类型一样,也是一种构造型数据,称为记录类型。使用方法如下:
(1)定义
Public Type Student
学号 As String*10
姓名 As String*10
年龄 As Integer
籍贯 As String
End Type
该语句定义了一个名为Student的数据类型。
(2)声明变量
Dim x As Student
(3)使用
x. 学号 = “2004001”
x. 姓名 = “张红”; 枚举和自定义类型是一种有效的数据组织方式。尽管不使用它们也照样可以开发出功能强大的应用程序,但有效地应用这两种方式,可以使程序代码更清晰、简洁。如果要使用这两种方式,最好能在模块中用Public定义,以便整个应用程序使用。;4.3 过程和函数的定义和调用;4.3.1 为什么要编写自定义过程;习题 P116 三、问答题;4.3.2 Sub 过程;如果希望定义整个应用程序均可以使用的公有过程,则最好在标准模块(Module)进行。;2. 调用;习题 P116 一、单项选择题;4.3.3 Fucttion函数; 4.3.4 参数传递机制简介;1. 引用传递参数;Private Sub Change(x As Integer,y As Integer)
’本程序将参数x,y的值互换
Dim t As Integer
t=x
x=y
y=t
’在窗体是输出结果
Print “x=”;x,”y=”;y
End Sub
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
a=3:b=4
Change a,b
Print “a=”;a,”b=”;b
End Sub
(演示);2. 按值传递参数;4.4 键盘和鼠标使用技巧;习题 P116 三、问答题;4.4.1 响应键盘事件; 1. 焦点处理;实现控件焦点的两种方法;实现控件焦点的两种方法;
您可能关注的文档
- 办公自动化设备的使用和维护第三章复印机.ppt
- 办公自动化实用教程_电子教案.ppt
- 办公自动化第十四章.ppt
- 功能过程和方法总结.pptx
- 办公室里的健康生活-宗倩老师讲座课件.ppt
- 功函数及接触电势差.ppt
- 办公软件Word的使用和技巧.ppt
- 加强青少年学生心理健康教育几点思考[贵州台江][2013.7.26]2.ppt
- 办公软件培训[word].ppt
- 加氢装置动设备常常见故障和处理.ppt
- 2026年新疆师范大学辅导员招聘备考题库最新.docx
- 2026年上海立达学院辅导员招聘备考题库最新.docx
- 2025年长城铝业公司职工工学院辅导员招聘备考题库附答案.docx
- 2025年重庆应用技术职业学院辅导员考试笔试真题汇编附答案.docx
- 2025年香港中文大学(深圳)辅导员招聘考试真题汇编最新.docx
- 2025年闽南科技学院辅导员考试笔试真题汇编附答案.docx
- 2025年青岛大学辅导员招聘考试真题汇编附答案.docx
- 2025年长春早期教育职业学院辅导员考试笔试真题汇编最新.docx
- 2026年东北农业大学辅导员招聘备考题库最新.docx
- 2025年陕西学前师范学院辅导员考试笔试题库最新.docx
最近下载
- 整本书阅读《红岩》课件(共2课时)(共59张PPT).pptx
- 潍坊科技学院《财务管理》2025 - 2026学年第一学期期末试卷.docx VIP
- 学堂在线 雨课堂 学堂云 兵棋 章节测试答案.docx VIP
- 2025广西公需科目培训考试答案(90分)一区两地一园一通道建设人工智能时代的机遇与挑战.docx VIP
- 2025年继续教育公需课考试题.docx VIP
- 开尔文电桥法测量电阻的电阻率.doc VIP
- 经导管主动脉瓣植入术患者的麻醉管理 - 华西医学.pdf
- 2025广东教师公需课《人工智能赋能制造业高质量发展》习题答案.pdf
- 32-5t双梁桥式起重机设计(含全套CAD图纸).pdf VIP
- 工程建设标准体系.docx VIP
原创力文档


文档评论(0)