VB程序设计11-b.ppt

1、第五章 数组(3),学习目标,数组的综合练习 控件数组应用,习题选讲,P93-7：产生50个互不相同的1099的随机整数，统计各数值段（1019, 2029, 9099）有多少个数？ 程序界面：,习题选讲,复习： Rnd函数：产生一个a,b之间整数的公式是 Int(rnd*(b-a+1)+a 在使用前要用Randomize函数播种，如 Randomize timer 分析： 难点：如何生成各不相同的随机整数？ 思路：模仿“洗牌”的过程,习题选讲,思路：,初始：将1099所有数放入某一数组中； 洗牌：任取两个数进行交换，重复多次； 取牌：从该数组中取50个数放入另一数组；,习题选讲,Option

2、 Base 1 Private Sub Command1_Click() Dim a%(50), b%(9), c%(90), i%, m%, n%, t% Randomize Timer For i = 1 To 90 : c(i) = i + 9 : Next i For i = 1 To 5000 m = Int(Rnd * 90) + 1 n = Int(Rnd * 90) + 1 t = c(m): c(m) = c(n): c(n) = t Next i For i = 1 To 50 a(i) = c(i) Text1 = Text1 & a(i) & Space(2) b(a(

3、i) 10) = b(a(i) 10) + 1 Next i For i = 1 To 9 Text2 = Text2 & b(i) & Space(2) Next i End Sub,Private Sub Command2_Click() Text1 = : Text2 = End Sub,ActiveX控件,ActiveX控件 工具箱的20个标准控件 VB自带的其它扩展控件 第三方控件 控件文件 *.ocx c:windowssystem32,例：通用对话框控件对应的文件名Comdlg32.ocx,Activex控件,添加ActiveX控件到工具箱的方法 工程部件（或右击工具箱部件；或C

4、trl+T） 在选定控件左侧复选框中打勾，确定。,示例：第三方控件的使用,ARButton 由Alvaro Redondo开发的控件； 效果： 比较：Command按钮设置Style属性为1-Graphical（图形方式）时，可以设置BackColor，但不能设置前景色与鼠标划过时的颜色。,第三方控件,下载： ，文件ARButton.zip，解压得ARButton.ocx。 安装：工程部件浏览ARButton.ocx打开出现AR Button Control选中工具箱出现控件。 使用：在窗体上画出该控件设置：BackColor蓝色，BackColorOnMouse红色，ForeColor白色。

5、 演示：第三方控件Arbutton的使用,应用示例,计算器：可进行多种运算，并能连续计算。,应用示例,演示：我的计算器,应用示例,属性设置 窗体form1,应用示例,属性设置 数字按钮 09：利用ArButton控件生成。 控件数组，命名为sz（数字），即sz(0)sz(9)。 注意：一定要保持下标与标题一致 属性：适当设置BackColor、BackColorOnMouse及ForeColor，以下其它按钮同。,应用示例,属性设置 运算按钮、-、 构成另一组控件数组ys(0)ys(3)，ys表示“运算”。,应用示例,属性设置 文本框text1 5.标签 Label1：Caption“？”，B

6、ackStyle=0 ToolTipText=“程序设计：某某”,将名称改为t可以简化程序,应用示例,属性设置 其它按钮：,设计思路,分析1：程序运行的过程。以8971.2为例,设计思路,分析2：程序需要的全局变量。 t，即文本框，表示框中的数值； a，代表保存的前一个数； op，整型，取值03，分别代表加、减、乘、除 Pointed，逻辑型，初值为假，当小数点按下后为真，而遇到运算或时恢复初值。作用：避免小数点的连续出现。 NewInput，逻辑型，初值为真，代表新的输入开始，当有数字按下时为假，表示现在未完成一个数的完整输入，而遇到运算或时恢复初值，标志新的数据开始。,Dim a#, OP

7、%, NewInput As Boolean, Pointed As Boolean Private Sub Form_Load() 在窗体加载时完成变量的初始化 t = 0: a = 0: OP = 0 Pointed = False: NewInput = True End Sub Private Sub ce_Click() 清除 Call Form_Load 加载窗体即重新初始化各变量 End Sub,代码（1）,代码（2）,Private Sub ds_Click() 求倒数 On Error GoTo over 错误陷井 t = 1 / t NewInput = True Poin

8、ted = False Exit Sub 退出该过程 over: t = “E“ 当出错时的处理：显示E End Sub,错误陷井格式： On Error GoTo 标号 （正常情况） 标号： 错误处理,Private Sub sqrt_Click() 开平方 On Error GoTo err t = Sqr(t) NewInput = True：Pointed = False Exit Sub err: t = E End Sub Private Sub zf_Click() 正负转换 t = -t NewInput = True：Pointed = False End Sub,代码（3）

9、,Private Sub xsd_Click() 小数点 If Not Pointed And Not NewInput Then 若无小数点 t = t & “.“ : Pointed = True 则加小数点 End If End Sub Private Sub sz_Click(Index As Integer) 数字0-9控件数组 If t = “0” Or t = “E” Or NewInput Then t = “” 置空串 t = t & trim(str(Index) 连接成数字 NewInput = False End Sub,代码（4）,Private Sub ys_Cli

10、ck(Index As Integer) 四个运算按钮 On Error GoTo err 出错处理 Select Case OP Case 0: t = a + t Case 1: t = a - t Case 2: t = a * t Case 3: t = a / t End Select a = t: OP = Index 保存当前部分结果 NewInput = True: Pointed = False Exit Sub err: t = E End Sub,连续计算：1+35=，在减法前应有结果4。,代码（5）,Private Sub dy_Click() 按下 On Error GoTo err Select Case OP Case 0: t = a + t Case 1: t = a - t Case 2: t = a * t Case 3: t = a / t End Se