VB程序设计11-b.ppt

学习目标 数组的综合练习 控件数组应用 习题选讲 P93-7：产生50个互不相同的10～99的随机整数，统计各数值段（10～19, 20～29…, 90~99）有多少个数？ 程序界面： 习题选讲 复习： Rnd函数：产生一个[a,b]之间整数的公式是 Int(rnd*(b-a+1))+a 在使用前要用Randomize函数播种，如 Randomize timer 分析： 难点：如何生成各不相同的随机整数？ 思路：模仿“洗牌”的过程 习题选讲 思路： 习题选讲 Option 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(i) \ 10) = b(a(i) \ 10) + 1 Next i For i = 1 To 9 Text2 = Text2 b(i) Space(2) Next i End Sub ActiveX控件 ActiveX控件 工具箱的20个标准控件 VB自带的其它扩展控件 第三方控件 控件文件 *.ocx c:\windows\system32 Activex控件 添加ActiveX控件到工具箱的方法 工程→部件（或右击工具箱→部件；或Ctrl+T） 在选定控件左侧复选框中打勾，确定。 示例：第三方控件的使用 ARButton 由Alvaro Redondo开发的控件； 效果： 比较：Command按钮设置Style属性为1-Graphical（图形方式）时，可以设置BackColor，但不能设置前景色与鼠标划过时的颜色。 第三方控件 下载：/ActiveX/ ，文件ARButton.zip，解压得ARButton.ocx。 安装：工程→部件→浏览→ARButton.ocx→打开→出现AR Button Control→选中→工具箱出现控件。 使用：在窗体上画出该控件→设置：BackColor蓝色，BackColorOnMouse红色，ForeColor白色。 演示：第三方控件Arbutton的使用 应用示例 计算器：可进行多种运算，并能连续计算。 应用示例 演示：我的计算器 应用示例 属性设置 ⒈ 窗体form1 应用示例 属性设置 ⒉ 数字按钮 0～9：利用ArButton控件生成。 控件数组，命名为sz（数字），即sz(0)～sz(9)。 注意：一定要保持下标与标题一致 属性：适当设置BackColor、BackColorOnMouse及ForeColor，以下其它按钮同。 应用示例 属性设置 ⒊ 运算按钮＋、-、×、÷ 构成另一组控件数组ys(0)～ys(3)，ys表示“运算”。 应用示例 属性设置 ⒋ 文本框text1 5.标签 Label1：Caption＝“？”，BackStyle=0 ToolTipText=“程序设计：某某” 应用示例 属性设置 ⒍ 其它按钮： 设计思路 分析1：程序运行的过程。以89÷71.2＝为例 设计思路 分析2：程序需要的全局变量。 t，即文本框，表示框中的数值； a，代表保存的前一个数； op，整型，取值0～3，分别代表加、减、乘、除 Pointed，逻辑型，初值为假，当小数点按下后为真，而遇到运算或＝时恢复初值。作用：避免小数点的连续出现。 NewInput，逻辑型，初值为真，代表新的输入开始，当有数字按下时为假，表示现在未完成一个数的完整输入，而遇到运算或＝时恢复初值，标志新的数据开始。 代码（1） Dim a#, OP%, 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(