1、VBVB 专题复习专题复习 0202 2. （导（导 P3-例例 7）设计一个“偶数迁移”的 Visual Basic 程序，具体要求如下： （1）程序界面如图所示 （2）程序功能为：单击“产生”按钮（Command1）产生 10 个两位正整数放入左边列表框 List1 中，同时清空右边 列表框 List2 中的 单击“偶数迁移”按钮（Command2） ，将列表框 List1 中所有偶数迁移到列表框 List2 中。 在以下 Visual Basic 程序的划线 1 和 2 处填入合适的语句表达式， 完善按钮 Command1 、 Command2 的单击事件。 Dim a(1 To 10)
2、 As Integer Private Sub Command1_Click() Randomize For i = 1 To 10 a(i) = Int(Rnd() * 90 + 10) List1.AddItem (Str(a(i) Next i End Sub Private Sub Command2_Click() List1.Clear For i = 1 To 10 if then List2.AddItem (Str(a(i) Else List1.AddItem (Str(a(i) End If Next i End Sub 程序段中空格 1 与 2 处应填入的内容是 3. （
3、导（导 P10-例例 27）求完数（完美数） 。一个数恰好等于除它本身外的因子之和，这个数就称为完数。例如，28 除 本身之外的因子是 1，2，4，7，14，且 1+2+4+7+14=28，则 28 是完数。下列 Visual Basic 程序用于查找 210000 中 的所有完数，并将结果显示在列表框 List1 中，程序运行界面如图所示。函数 f 用于求一个数除了本身之外各因子的 各，流程图如图所示，程序代码如下： Private Sub Command1_Click() Dim i As Integer, t As Integer For i = 2 To 10000 t = f(i)
4、If t = i Then List1.AddItem End If Next i End Sub Private Function f(x As Integer) As Integer Dim i As Integer, s As Integer s = 0 For i = 1 To x 2 If x Mod i = 0 Then s= End If Next i f = s End Function （1）程序中加框部分的算法是： （选填“解析算法”或“枚举算法” ） （2）在程序 1 和 2 划线处，填入适当的语句或表达式，把程序补充完整 4 （导 （导 P19-例例 9）在一行数据（1
5、，23，6，2，4，5，6，18，5，19）中，存在连续递增的数据序列（1，23） 、 （6） 、 （2，4，5，6，18） 、 （5，19） ，其序列长度分别为 2、1、5、2，则连续递增的数据序列长度最大值 max=5。寻找 max 的方法如下：从第二个数据开始，将该数与它的前一个数比较，如果该数大于它的前一个数，则 kk+1,否则 k 1，直到最后一个数据处理完成为止。在此过程中将 k 的最大值保存在变量 max 中，依据上述算法描述编 写的 VB 程序如下，但加框处代码有错，请改正 Const n = 10 Dim a(1 To n) As Integer Text1 KeyPress
6、 过程用于输入数据并将数据依次存放到数组 a 中 Private Sub Text1_KeyPress(KeyAscii As Integer) 该过程代码略 End Sub Private Sub Command1_Click() Dim i As Integer 连续递增的数据序列长度 Dim k As Integer 连续递增的数据序列长度最大值 Dim max As Integer max = 1：k = 1 For i = 2 To n If a(i) a(i + 1) Then k = k + 1 Else k = 1 1 If k max Then k = max 2 Next
7、i text2.Text = Str(max) End Sub (1) (2) 5. （导（导 P33-例例 5）下面 Visual Basic 程序的功能是人民币兑换美元的换算。在文本框 Text1 和 Text2 中输入人民币值 和当前汇率值，单击“换算”按钮，在文本框 Text3 中显示美元值，结果保留两位小数，对第三位小数四舍五入。 程序运行界面如图所示 完成下列填空： （1） 设计算法。人民币兑换美元的算法流程图如图所示，在流程图 1 处填入相应的语句或表达式，完善上述流 程图 （2） 编写程序。根据流程图的算法描述，完成下列程序： Private Sub Command1_Clic
8、k() Dim usd As Double, rmb As Double, fx As Double rmb = Val(text1.Text) fx = Val(text2.Text) usd= text3.Text = Str(omt(usd * 100 + 0.5) / 100) End Sub 6. （导（导 P41-25） 用辗转相除法求两个小于 1000 的正整数 m,n 的最大公约数， 其算法及相应的 VB 程序代码分别如下： 算法 分别输入两个小于 1000 的正整数 m,n,且 mn； M 除以 n，得余数 r; 若 r0，则 n 为求得的最大公约数，输出 n,算法结束；否则
9、 执行 将 n 赋值给 m，将 r 赋给 n，再重复执行 VB 程序代码 Private Sub Command1_Click() Dim m As Single, n As Single Dim r As Single m = Val(Text1.Text) n = Val(text2.Text) r = m Mod n Do While m = n n = r r = m Mod n text3.Text = Str(n) End Sub 则 VB 程序代码中处应该填入的语句或表达式是 ，处应该填入的语句表达式是 7.(导导 P80例例 2)巧妙填数：将 19 这 9 个数字分别填入 3X
10、3 的九宫格中，第一行的三个数字组成一个三位数。要使 第二行的三位数是第一行的 2 倍，第三行的三位数是第一行的 3 倍，如图所示，如果用计算机程序解决此问题，合 适的算法是： 1 9 2 3 8 4 5 7 6 8. （导 P85例 3）一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为 A 类数。如十进制整数 26 的二进制表示为 11010，26 是一个 A 类数。下列 VB 程序的功能是：统计前 1000 个自然 数中 A 类数的个数，并在文本框中输出。请在划线处填入合适代码。 Private Sub Command1_Click() Dim i As
11、 Integer, n As Integer Dim s As Integer Dim t As Integer Dim k As Integer s = 0 For i = 1 To 1000 n = i t = 0 k = 0 Do While n 0 If n Mod 2 = 1 Then t = t + 1 Else 1 n = n 2 Loop If 2 Then s = s + 1 text1.Text = Str(s) Next i End Sub （1） （2） 9 （导 （导 P89-15）在运行下列 VB 程序时，单击命令按钮 Command1 后，文本框 Text1 中显示的内容是 （1） ，文本框 Text2 中显示的内容是（2） Private Sub Command1_Click() Dim a(1 To 10) As Integer, i As Integer, s As Integer For i = 1 To 10 a(i) = i * 2 Next i text1.Text = Str(a(10) s = 0 For i = 1 To 5 s = s + a(i) Next i text2.Text = Str(s) End Sub （1） （2）
