1、Vb 专题复习专题复习 04 01.（导 P814）计算 s=2+4+6+50 的部分算法流程图如图所示。图中判断框 1 处和处理框 2 处应分别填入的 是 A i51? ii+1 B i50? ii+1 C i a(i - 1) Then Else k = 0 End If If k = 1 Then s = s + 1 Next i text1.Text = Str(s) 方框中的正确语句是 A k=k-1 B k=1 C k=-1 D k=k+1 12. （导 P8811）判断某年是否为闰年的 VB 程序如下： Private Sub Command1_Click() Dim x As
2、Integer x = Val(text1.Text) label1.caption= End Sub Function leapyear(year As Integer) As String If year Mod 4 = 0 And year Mod 100 0 Or year Mod 400 = 0 Then leapyear = “是闰年“ Else leapyear = “不是闰年“ End If End Function 程序中画线处应填入的是 A year B year(x) C leapyear(x) D leapyear 13. （导 P8812）有如下 VB 程序段 Dim
3、 a(1 To 100) As Integer Sum = 0 Randomize For k = 1 To 100 a(k) = Int(Rnd * 50) If a(k) Mod 2 = 0 Then Sum = Sum + a(k) Next k 该程序段运行后，变量 sum 中存储的是 A 100 个随机整数中偶数的个数 B 100 个随机整数中奇数的个数 C 100 个随机整数中偶数的和 D 100 个随机整数中奇数的和 14. （导 P8813）有如下 VB 程序： Private Sub Command1_Click() Dim x As String, y As Long Di
4、m i As Integer, s As String x = text1.Text y = Len(x) s = “ For i = 1 To y s = s & Mid(x, y - i + 1, 1) Next i text2.Text = s End Sub 运行该程序，在文本框 Text1 中输入“a1b2c3” ，单击命令按钮 Command1，在文本框 Text2 中显示的内容是 A 3 B 6 C a1b2c3 D 3c2b1a 15. （导 P89-14）某 VB 程序的一个事件过程如下 Private Sub Command1_Click() Dim i As Intege
5、r Dim a(1 To 10) As Integer list1.Clear For i = 1 To 100 a(i) = i + 1 Next i For i = 1 To 10 list1 AddItem Str(a(i) Next i End Sub 程序运行时，单击命令按钮 Command1 后，将会出现的提示信息是 A 溢出 B 下标越界 C 类型不匹配 D 无效的过程调用或参数 16.某 Visual Basic 程序如下： Private Sub Command1_Click() Dim a As Single, b As Single Dim c As Single a =
6、 1 b = 5 c = Sqr(a - b) Text1.Text = Str(c) End Sub 运行程序，单击命令按钮 Command1 后弹出如图所示的出错信息提示，此时程序正执行的语句是 （A）a = 1 （B）b = 5 （C）c = Sqr(a - b) （D）Text1.Text = Str(c) 17.有如下的 Visual Basic 程序： Private Sub Command1_Click() Const pi = 3.14 Dim s As Single, r As Single r = Val(text1.Text) pi = 3.1415 s = pi * r
7、 2 Label1.Caption = “面积为“ + Str(s) End Sub 程序运行后，单击命令按钮 Command1，出现如图所示的错误提示，下列原因分析正确的是 （A）常量不能用小数 （B）pi 是常量，不允许赋值 （C）文本框 Text1 中输入的数据不是常量 （D）表达式结果超过了变量类型的范围 18.运行下面的 Visual Basic 程序，单击命令按钮 Command1，出现如下图所示的提示信息： Private Sub Command1_Click() Dim a As Single, b As Single a = Val(Text1.Text) b = 10 If
8、 a = b b = a * a + 2 * b End If Label1.Caption = Str(b) End Sub 出现该错误的原因是 AIf 语句缺少 Then BIf 语句缺少 Else C变量 a 的数据类型说明错误 D变量 b 的数据类型说明错误 19.某 Visual Basic 程序段如下： Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2 To 10 a(i) = a(i - 1) * i Next i 运行该程序段，会出现的错误提示为 （A）下标越界 （B）子程序或函数未定义 （C）要求对象 （D）溢出
