第三章 11 B计算机类基础课试题模.docVIP

河南省20年普通高等学校对口招收中等职业学校毕业生考试 选择题（1-30；Visual Basic 6.0程序设计31-55。每小题2分，共110分．．．．If D．a+b 35．．Mod 3的值是 A．2 B．-2 C． 1 D．-1 37．”abcdefghij”，则表达式Right（a,3）Mid（a,3,3）的值是 A．”abc” B．”hij” C．”cde” D．”hijcde” 38．．Mod 10语句以后，t的值是 A．1 B．2 C．3 D．4 40．If ab Then min=a Else min=b B．If ab Then min=a Else min=b End if C．min=IIf(ab,b,a) D．min=IIf(ab,a,b) 41．For i=1 To 10 Step 2 s=s+i Next i Print i 中的Print i 输出的结果是 A．11 B．10 C．9 D．25 42．Do While i5 Do Until i=5 s=s*i s=s*i i=i+1 i=i+1 Loop Loop C．s=1:i=1 D．s=1:i=1 Do Do s=s*i s=s*i i=i+1 i=i+1 Loop While i=5 Loop Until i=5 43．．．．．．．．Line B．Circle C．Scale D．PSet 52．Dim C．ReDim D．Declare 53．Load File B．Find C．SaveFile D．SelPrint 54．．31.D 32.C 33.D 34.A 35.C 36.A 37.D 38.C 39.C 40.C 41.D 42.C 43.D 44.B 45.A 46.D 47.B 48.D 49.A 50.C 51.B 52.D 53.A 54.B 55.B Visual Basic 6.0程序设计（分） 、判断题（每小题分，共分。）．．．．．．．．ReadLine方法可以读取一个文本文件的所有内容。 83．SELECT语句的WHERE子句用于指定对记录的过滤条件。 84． 75.√ 76. × 77. √ 78. √ 79. × 80. × 81. × 82. × 83. √ 84. √ 七、名词解释题（每分，共分）．．．．、题（小题，共分）．．．．、（分）．从1到10，～100Visual Basic语言写一个程序，把它们按照从小到大的次序排列起来输出。 答： Option Base 1 Private Sub Form_click() Dim A(10) as Integer Dim temp as Integer For I=1 TO 10 A(I)=Int(Rnd()*99)+1 Print A(I); Next I Print For I=1 TO 9 For J=I+1 to 10 If A(I)A(J) Then Temp=A(I) A(I)=A(J) A(J)=Temp EndIf Next J Next I For I=1 to 10 Print A(I); Next I End Sub 计算机类基础课试卷 第 5 页（共 5 页） : （1）声明部分2分； （2）数组生成部分3分； （3）排序部分4分（可用不同算法）； （4）输出部分2分； （5）输出部分1分。