- 1、本文档共98页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、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. 焦点处理;实现控件焦点的两种方法;实现控件焦点的两种方法;
您可能关注的文档
最近下载
- 教育、科技、人才一体化与新质生产力发展.pptx VIP
- 2024年湖南水利水电职业技术学院单招职业技能测试题库含答案(研优卷).docx VIP
- 教育、科技、人才一体化视域下发展新质生产力的四重逻辑和实践路径.docx VIP
- 教育、科技、人才一体化视域下发展新质生产力的四重逻辑和实践路径.docx VIP
- 《大棚番茄基质槽式栽培技术规程》.docx
- 立体车库 毕业论文外文翻译.docx VIP
- 教育、科技、人才一体推进新质生产力发展.docx VIP
- 2024年湖南水利水电职业技术学院单招职业技能测试题库含答案(考试直接用).docx VIP
- 社交礼仪教程(第7版 微课版)课件 第五章 餐饮礼仪.pptx
- 2025清华:DeepSeek从入门到精通.pdf
文档评论(0)