vb设计知识重点.pptVIP

第四讲　VB高级语言技巧 ;[内容简介];[学习目标] ;4.1“多功能计算器”程序任务 ;4.1.1 任务概述 ;;;采用控件数组重新设计 ;4.1.2 界面设计 ;4.1.3 代码设计 ;2．数字区的命令按钮的Click事件 ;;3．禁止用户在文本框中输入数字 ;;4．修改“计算结果”按钮的Click事件代码 ;5．编写ChangeMe函数代码 ;Private Function ChangeMe(First As Double) As String 声明变量 Dim strFirst As String Dim strBig(9) As String 声明一个字符串数组 Dim strTemp As String Dim i, j As Integer ?设置数组变量的值 strBig(0) = “零”:strBig(1) = “壹”: strBig(2) = “贰” strBig(3) = 叁: strBig(4) = 肆 strBig(5) = “伍”:strBig(6) = “陆”: strBig(7) = “柒”: strBig(8) = “捌” strBig(9) = 玖将Double型的参数First转换为字符串型 strFirst = Trim(str(First)) strTemp = “ 开始数字转换 For i = 1 To Len(strFirst) j = Val(Mid(strFirst, i, 1)) 取第i位置的字符数字，并将它转换为数值型 strTemp = strTemp + strBig(j) 通过数组完成大写转换 Next I 将转换结果返回 ChangeMe = strTemp End Function ;4.2数组的使用 ;4.2.1数组 ;2．声明静态数组 ;3．动态数组 ;4.2.2控件数组 ;4.2.3枚举及自定义数据类型 ;;;;;4.3过程和函数的定义和调用 ;4.3.1为什么要编写自定义过程 ;;4.3.2 Sub过程 ;;;4.3.3 Function过程 ;4.3.4 参数传递机制简介 ;1．按引用传递参数 ;;;2．按值传递参数 ;;;4.4键盘和鼠标使用技巧 ;4.4.1响应键盘事件 ;;1．焦点处理 ;2. SendKeys过程 ;焦点移动演示;;4.4.2响应鼠标事件 ;1．改变鼠标的形状 ;;2．使用自定义鼠标形状 ;3．MouseDown和MouseUp事件 ;;总之;本章习题;;作业;;;;4．随机序列排序程序。使用第3章学过的Rnd函数生成10个0~99之间的随机整数，并按从小到大的顺序排序，最后在列表框控件中输出。本程序主要练习数组、自定义过程、引用传递参数等知识。程序运行结果如图3所示。 ;