河北省对口计算机期末考试VisualBasic试卷.doc

河北省对口计算机期末考试Visual Basic试卷 班级 姓名 准考证号 注意事项：1.本试卷共有六道大题。总分120分。2.第I卷（选择题）、第二卷（非选择题）的答案写在答题卡上，答在试卷上不得分。用蓝黑钢笔、碳素笔答题。3.答题前将密封线内项目填写清楚。第I卷（选择题 共60分）一、 单项选择题1在Visual Basic中，UCASE(12ABcd34)的值是 ( )AabcdB1234 C12ABCD34 D12abcd34 2Visual Basic窗体模块文件的扩展名是 ( )A.FRM B.WIN C.VBG D.BAS3在Visual Basic中，产生15到35之间（含15和35）的随机整数，哪个公式正确 ( )AInt(21*Rnd)+35 B15+Int(21*Rnd)CInt(15+21)*Rnd D40-15*Int(Rnd)4下面不是Visual Basic合法数据的是 ( )A2E2.1 B2% CA+A DTrue5执行Visual Basic语句PRINT 100+45的显示结果是 ( )A145 B10045 C100+45 D语句有语法错误6读下面Visual Basic程序，最后一行输出结果是（ ）a = -22: b = 5c = Len(Str(a) + Str(b)Print cA 4 B5 C6 D77设a = 3: b = 4: c = 5: d = 6，下面Visual Basic表达式的值是（ ）表达式：Not a b Or c = 9 And d 9A1 B0 CTrue DFalse8下面Visual Basic中数据中，表示1978年10月20日正确的格式是( )A10-20-1978 B10/20/1978 C#1978.10.20# D#10-20-1978#9在Visual Basic中，Print LenB(ABab河北)的值是（ ） A4 B. 6 C. 8 D.1210 Visual Basic中声明数组 Dim A(-3 to 100,1 to 4),则Lbound(A,1)的值是（ ）A. 1 B. 100 C. -3 D411在Visual Basic中，语句Print Mid(ABCDEFG, 2, 3) = bcd的输出结果 是（ ） A. False B. True CA123EFG D. 12312.下面Visual Basic表达式不合法的是（ ） A. 12+12 B. ab+12 C.ab+12 D.Now+113Visual Basic中,表达式 13.5 Mod 3.2 * 4的值是（ ）A. 0 B. 1 C. 2 D314执行下面Visual Basic程序，数组a中元素值是w的数据经过一系列位置变化后，其最终位置的下标是哪个选项（ ）Option Base 0Private Sub Command1_Click()Dim w As Integerw = 20a = Array(10, 15, 6, 8, 93, 84, w)Dim i As IntegerDim j As IntegerDim t As IntegerFor i = 0 To 5For j = i + 1 To 6 If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next jNext iEnd SubA. 2 B. 4 C. 6 D. 815在Visual Basic中，语句Print InStr(2, abcdeabfg, ab)的输出结果是( ) A. 0 B. 1 C5 D. 616执行下面Visual Basic程序，最后输出s的值是（ ）Dim a As IntegerDim s As Integera = 2s = 0For i = 1 To 10 s = s + i*aNext iPrint sA. 55 B. 20 C. 110 D. 10017在BASIC中，以下不正确的实型常数是（ ）A9876.432D-2 B8975.98E100 C12.5# D12.3E+2518计算MOD(-8，-6)的结果为（ ）A2 B1 C-2 D-119在BASIC中，运行PRINT X=3*5 输出结果是（ ）AX=15 B15 Cfalse Dture20执行以下程序段,输出的结果为( )a$=abbacddcbaFor i=6 To 2 Step -2x=Mid(a,i,i): y=Left(a,i)z=Right(a,i): z=UCase(X & Y & z)Next iPrint zAABA B BBABBA C ABBABA D AABAAB21下面表达式的值为True的是_。 AMid(Visual Basic，1，12)=Right(Programming language Visual Basic，12) BABCRGabcde CInt(134.69)=Cint(134.69) D78.932.77-4.9822代数表达式对应的Visual Basic表达式是_。 ALog(Abs(Exp(x)+Sin(x)3)(x+Y) BLn(Abs(Exp(x)+Sin(x)3)(X+Y) CLog(Abs(Exp(x)+Sin(x)3)(X+Y)DLog|(Exp(x)+Sin(x)3)x+y|23若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用_关键字在该过程中定义局部变量。 ADim BPrivate CPublic DStatic24下列程序段的运行结果为（ ）For i=3 To 1 Step -1 Print Space(5-i); For j=1 To 2*i-1 Print *; Next j PrintNext iA. * B. * C. * D. * * * * * * * * *25. 在Visual basic 中赋值语句：a=123 & MID(123456,3,2)执行后，a变量的值是（）A. 12334 B.123 C.12334 D. 15726. 窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，变量c的值为12。以下语句中可以使文本框内显示的内容为：5+ 7=12的是（） AText1Text=a+b=c BText1Text=a+b=cCText1Text =a & + & b & = & c DText1Text =a & + & b & = & c27. 窗体上画一个名称为Command1命令按钮，然后编写如下程序：Private Sub Command1_Click（）Dim i As Integer，j As IntegerDim a（10，10）As IntegerFor i=1 To 3For j=1 To 3a（i，j）=（i-1）*3+jPrint a（i，j）;NextPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是_。A1 2 3 B2 3 4 2 4 6 3 4 5 3 6 9 4 5 6C1 4 7 D1 2 32 5 8 4 5 63 6 9 7 8 928.在Visual Basic中，设A$=AbCdEf,下列返回值与函数MID(A$,2)相同的是（）ALeft(A,2) B.Right(A,5) C.Left(Lcase(A),5) D.Instr(2,A，AbCdEf)29.在Visual Basic中，若x是一个正实数，对其第3位小数四舍五入并保留2位小数的正确表达式是( )A0.01*Int(x+0.005) B.0.01*Int(100*(x+0.005)C. 0.01*Int(100*(x+0.05) D.0.01*Int(x+0.05)30.在Visual Basic中，X=5,执行语句print XX*10后窗体上显示的结果是（）A.X50B. 50 C.Ture D.False第卷（非选择题 共60分）二、判断题（本大题5小题，每小题1分，共5分。将答案涂在答题卡上，正确的填涂“”格，错误的填涂“”格）1. 已知A$=87654321，则表达式Val(Left$(A$，4)+Mid$(A$,4,2)的值是：876554。( )2. Public Pi=3.1415 可以将Pi定义为符号常量。( )3.表示x是5的倍数或是9的倍数的逻辑表达式为:x Mod 5=0 OR x Mod 9=0。( )4.在同一行内，续行符后面可以再加注释符号。（）5.使用Option Base语句可以对变量进行显示声明。（）三、填空题（本大题共5小题，每小题2分，共10分。）1. 代数式在Visual Basic中的算术表达式是 。2.表示x是5的倍数或9的倍数的逻辑表达式是。3.在变量名后加上尾符可表示变量的类型，货币型和双精度实型分别加。4.字符串比较函数的函数值为，函数值的数据类型为。5. 设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为 。四、程序分析（本大题共2大题，每小题5分，共10分，读程序并分析结果）1.阅读下面的Basic程序：语句B$=mid(A$,i,1)执行的次数是，变量n= 。A$=职2教6jsj9VB3 L=len(A$): n=0 For i = 1 to L B$=mid(A$,i,1) If B$=0 and B$ 5 Then k = k + 4: Exit Fork = k + 1Next jPrint i, kNext iEnd Sub五、写出下列程序的运行结果（本大题共2大题，每小题5分，共10分, 请填写在答题纸上）1. 运行下面的程序，单击窗体后在窗体上显示的结果是Private Sub Form_Click() Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1=e For I=1 To 2 Str2=UCase(Str1) Str1=Str2 & Str1 Str3=Str3 & Str1 Str1=Chr(Asc(Str1)+I) Next I Print Str3End Sub2. 分析下面Visual Basic程序段 Option base 1Dim i As IntegerDim j As IntegerDim s As IntegerDim a(5, 3 To 7) As Integers = 0For i = 1 To 2 For j = 1 To 2 If (i + j) Mod 2 = 0 Then s = s + LBound(a, j)s = s + UBound(a, j)End IfNext jNext iPrint s上面程序运行后，s的值是 。六、程序改错（本大题共2小题，每题5分，共10分。每个程序有两处错误，请在答题纸上写出错误行代码和改正后的代码。改错不扣分）1. 下列公式用于计算公式：1！+2！+3！+n!Private Sub Form_Click()10Dim x As Integer, n As Integer, y As Integer20n = InputBox(请输入变量的值)30For i = 1 To n40p = 050For j = 1 To i60p = p * j70Next j80s = s + p90Next i100Print sEnd Sub2. 下面程序的功能是：统计字符串中“I”的个数Private Sub Form_Click()10Dim a As String, b As String, m As Integer, j As Integer20a = BEIJING UNION UNIVERSITY30m =a40For j = 1 To m50b = Mid(a, j, j)60If b = I Then x = x + 170Next j80Print x=; xEnd Sub七、程序填空（本大题共3个空，每空5分，共15分，按程序要求在答题卡上填入相应的内容，使程序完整正确）题目：以下程序功能是输入三个数，由大到小排序。Option ExplicitDim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click() Dim nTemp As Integer A = Val(InputBox(Please inpu