河北省对口计算机期末考试Visual Basic试卷.docVIP

河北省对口计算机期末考试Visual Basic试卷 注意事项： 1.本试卷共有六道大题。总分120分。 2.第I卷（选择题）、第二卷（非选择题）的答案写在答题卡上，答在试卷上不得分。用蓝黑钢笔、碳素笔答题。 3.答题前将密封线内项目填写清楚。 第卷（选择题 共分） 3．．A+A D．True 5．a = -22: b = 5 c = Len(Str(a) + Str(b)) Print c A． 4 　　　　 B．5 　　　　 C．6 　　　　 D．7 7．设a = 3: b = 4: c = 5: d = 6，下面Visual Basic表达式的值是（　 　） 表达式：Not a b Or c = 9 And d 9 A．1 B．0 C．True D．False 8．下面Visual Basic中数据中，表示1978年10月20日正确的格式是( ) A．10-20-1978 　 B．10/20/1978 　 C．#1978.10.20# 　 D．#10-20-1978# 9．在Visual Basic中，Print LenB(ABab河北)的值是（　 　） A．4 　B. 6 C. 8 D.12 10． Visual Basic中声明数组 Dim A(-3 to 100,1 to 4),则Lbound(A,1)的值是（　 ） A. 1 B. 100 C. -3 D．4 11．在Visual Basic中，语句Print Mid(ABCDEFG, 2, 3) = bcd的输出结果 是（　 　） A. False B. True C．A123EFG D. 123 12.下面Visual Basic表达式不合法的是（　 　） A. 12+12 B. ab+12 C.ab+12 D.Now+1 13．Visual Basic中,表达式 13.5 Mod 3.2 * 4的值是（　 　） A. 0 　　B. 1 C. 2 D．3 14．执行下面Visual Basic程序，数组a中元素值是w的数据经过一系列位置变化后，其最终位置的下标是哪个选项（　 　） Option Base 0 Private Sub Command1_Click() Dim w As Integer w = 20 a = Array(10, 15, 6, 8, 93, 84, w) Dim i As Integer Dim j As Integer Dim t As Integer For i = 0 To 5 For j = i + 1 To 6 If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i End Sub A. 2 B. 4 C. 6 D. 8 15．在Visual Basic中，语句Print InStr(2, abcdeabfg, ab)的输出结果是( ) A. 0 B. 1 C．5 D. 6 16．执行下面Visual Basic程序，最后输出s的值是（　 　） Dim a As Integer Dim s As Integer a = 2 s = 0 For i = 1 To 10 s = s + i*a Next i Print s A. 55 B. 20 C. 110 D. 100 17．在BASIC中，以下不正确的实型常数是（ ） A．9876.432D-2 B．8975.98E100 C．12.5# D．12.3E+25 18．计算MOD(-8，-6)的结果为（ ） A．2 B．1 C．-2 D．-1 19．在BASIC中，运行PRINT X=3*5 输出结果是（ ） A．X=15 B．15 C．false D．ture 20．执行以下程序段输