1、Vb 专题复习专题复习 03 1 （导 （导 P90-16） “找出一个正整数的所有因子”的 VB 程序如下： Private Sub Command1_Click() Dim x As Long, c As Integer, i As Integer x = Val(text1.Text)：c = 0 For i = 1 To x If x Mod i = 0 Then c = c + 1 list1.AddItem Str(i) End If Next i text2.Text = Str(c) End Sub 阅读分析上述程序，填写下表 1，2 处的内容 变量名 变量的作用 x 用于存储
2、输入的待查找因子的正整数 c （1） (2) 输入的正整数 x 的每一个可能的因子 2.小施想编写一个 VB 程序帮助弟弟练习最大公约数的计算，程序运行界面如图所示。单击“生成题目”按钮 Command1 生成两个两位随机正整数，分别显示在文本框 Text1 和文本框 Text2 中。在文本框 Text3 中输入结果并按 回车键后，如果结果正确，将在该文本框右边的标签 Label 中显示“” “X” 。请在画线处填入合适代码。 Private Sub Command1_Click() Dim i As Integer， m As Integer， n As Integer Randomize
3、m = Int(Rnd * 90) + 10 n = Int(Rnd * 90) + 10 Text1.Text = Str(m)：text2.Text = Str(n)：text3.Text = “: label3.Caption = “ If m n Then r = n Else r = m For i = r To 1 Step -1 If m Mod i = 0 （1） n Mod i = 0 Then r = i Exit For End If Next i End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If Key
4、Ascii = 13 Then If r =（2）Then label3.Caption = “ Else label3.Caption = “ X “ End If End Sub 3.（导（导 P2-例例 2）某 Visual Basic 程序如下： Private Sub Command1_Click() Dim i As Integer, sum As Integer：sum = 0 For i = 10 To 2 Step -2 sum = sum + i Next i text1.Text = Str(sum) End Sub 运行程序，单击命令按钮 Command1 后弹出如图所
5、示的出错信息，此时程序正执行的语句是： A sum=0 B For i = 10 To 2 Step -2 C sum = sum + i D text1.Text = Str(sum) 2 （导 P6-例 14）有如下 Visual Basic 程序段： s = 0 For i = 1 To 5 s = s + i Next i 该程序段运行后，变量 i 的值为： A 1 B 5 C 6 D 15 4 （导 （导 P8-例例 19）在 Visual Basic 中，某对象的属性窗口如图所示，该对象名是： A CommandButton B Command1 C Command_1 D App
6、earance 5. （导（导 P9-例例 22）下列能作为 VB 变量名的是： A IF B 2t C My Var D Book 1 6 （导 （导 P19-例例 8）寻找数组元素 a(1)到 a(10)中最小值(min)的 Visual Basic 程序段如下,方框中最合适的语句是： For i = 2 To 10 If a(i) Min Then Min = a(i) Next i A a(1)=min B a(1)=0 C min=a(1) D min=0 7. （导（导 P31-例例 3）下列能计算 Sum=1+2/3+3/5+50/99 的 Visual Basic 程序段是： A Sum=1 For i=1 to 49 Sum=Sum+i/(2*i-1) Next i B Sum=0 For i=1 to 99 Sum=i/(2*i-1) Next i C Sum=0 i=1 Do while i=50 Sum=Sum+i/(2*i-1) D Sum=0 i=1 Do while i1） ，那么 2 处的处理框内 容被执行的次数为 A 1 B i-1 C i D i+1
