VB总复习2010.ppt

复 习 72页【例7.34】Private Sub Form_Load() List1.AddItem aa List1.AddItem bb List1.AddItem cc List1.AddItem dd List1.AddItem ee End Sub Private Sub Form_Click() List1.RemoveItem 1 List1.RemoveItem 3 List1.RemoveItem 2 List1.RemoveItem 0 End Sub程序运行，当单击窗体后列表框中剩余的数据为____。 90页8.3 将一维数组的首尾元素互换 矩阵 【例8-11】阅读下面的过程： Private Sub Form_Click() Dim a As Long, b As Long a = InputBox() Call P(a, b) Print b End Sub 【例6-17】阅读下面的过程： 第 6 章 复 习 Vb 语法结构 --- 选择 Vb 语法结构 --- 循环 计数器循环 Vb 语法结构 --- 循环 例：多重循环 VB程序调用与数据传递 数组作为参数传递(教材例) 阅读下面的程序： Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5 a(2) = 6 a(3) = 7 a(4) = 8 Call P( a() ) For i = 1 To 4 Print a(i); Next i End Sub 程序运行时，单击命令按钮，输出结果为______。 【实验例8-8】 Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 Call pl(a, b) Print a=; a; b=; b End Sub Private Sub pl(ByVal x As Integer, y As Integer) x = 5 y = x + y End Sub Private Sub Form_Click() Dim a As Integer, b As Integer a = 8 b = 3 Call test(6, a, b + 1) Print 主程序, 6, a, b End Sub Sub test(x As Integer, y As Integer, z As Integer) Print 子程序, x, y, z x = 2: y = 4: z = 9 End Sub 同一般变量一样，需要先定义，后赋值。 数组的最小下标从０开始，option Base 1 改为从１开始。 程序设计算法: 1、求累加,阶乘,统计个数。 2、求最大、最小、平均值。 3、矩阵运算：求行、列或对角线的和。 4、字符串逆向输出 5、求菲波拉切数列第20项。 6、求阶乘累加和。例：求 S= 1!+2!+……10!的值 算法： 实验109页(5)调用FindMin求数组的最小值 实验109页(6) Z=(x-2)!+ (x-3)!+ (x-4)!+……+(x-N)! Function xn(m%) As Long Dim i%, tmp tmp = ? For i = 1 To m tmp =? Next ? = tmp End Function 退出 * 退出 0 0 0 0 1 2 1 1 1 0 3 2 2 4 3 Private Sub List1_DblClick() M = List1.Text Print Text1.Text + M End Sub 添加文本框并输入“c”，然后双击列表框中listindex=3的列表项，则输出结果为____。 Cdd 【例】 产生1~100之间的随机整数 Randomize print Int(Rnd*100+1) Int([0,100)+1) int[1,101) [1,100] 功能：Rnd[(x)]产生一个[0~1)之间的随机数。 随机函数Rnd 54页【6-27】生成 20 个 200