《基本知识及选择、循环结构考试题(共10页).doc》由会员分享，可在线阅读，更多相关《基本知识及选择、循环结构考试题(共10页).doc（10页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、精选优质文档-倾情为你奉上基本知识及选择、循环结构考试题一、 选择题（每小题2分，共40分）（1）可以同时删除字符串前导和尾部空格的函数是 。 A. Ltrim B. Rtrim C. Trim D. Mid（2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数 。 A. (0,1) B. (0,9) C. (1,10) D. (1,9)（3）数学式子sin25写成Visual Basic表达式是 。 A.Sin25 B. Sin(25) C. Sin(25) D. Sin(25*3.14/180)（4）表达式16/4 23 * 8/4 Mod 52的值是 。A. 14 B. 4
2、C. 20 D. 2（5）数学关系式表示成正确的VB表达为 。 A. 3= x = 3 And x=3 Or x10 D. 3= x And “ABC” B. “THAT” “THE” C. 9 “H” D. “A” “a”（16）表达式a+b=c是 。 A. 赋值表达式 B. 字符表达式 C. 算术表达式 D. 关系表达式（17）在下列表达式中，非法的是 。 A. a=b+c B. ab+c C. abc D. ab+c（18）语句Print Format (“HELLO”, “”) 的输出结果是。 A. HELLO B. hello C. He D. he（19）MsgBox函数的返回值的
3、类型是。 A. 整数B. 字符串C. 逻辑值D. 日期（20）用语句Dim A(-3 to 5) As Long定义的数组元素个数是 。 A. 7 B. 8 C. 9 D.10二、判断题（每小题1分，共15分）(1) VB6.0中&H12是8进制的数值常数。(2) 设A=123,B=123,则A+B的结果为246，A-B的结果为0。(3) 已知A$=，则表达式Val(Left$(A$，4)+Mid$(A$,4,2)的值是：。(4) Rnd函数产生的是（0,1)之间不包括0、1的随机小数。(5) 表示x是5的倍数或是9的倍数的逻辑表达式为:x Mod 5=0 OR x Mod 9=0。(6) L
4、en(等级考试)和LenB(等级考试)的结果相同。(7) VB6.0中字符串常量是用双引号或单引号括起来的字符串。(8) Print InStr(Visual Basic, I)的结果为0。(9)在ForNext循环中，其中Step步长可以是正数,也可以是负数。(10)在DoLoopWhileUntil循环中，While关键字或Until关键字必须选择其中之一。三、 程序阅读题（每小题2分，共30分）（1）Private Sub Form_Click()Dim k, n, m As Integer n = 10： m = 1： k = 1 Do While k = nm = m + 2： k
5、= k + 1 Loop Print m End Sub 单击窗体，程序的执行结果是_（2）执行下面程序段后，变量的值为。Dim x As Integerx = 5For i = 1 To 20 Step 3 x = x + i 5Next i（3）执行下面程序后，输出的结果是。Private Sub Form_Click()Dim x As IntegerFor i = 1 To 3 For j = 1 To i For k = j To 3 x = x + 1 Next k Next jNext iPrint xEnd Sub（4）执行下面程序后，输出的结果是。Private Sub Fo
6、rm_Click()Dim x As Integerx = 0Do While x 50 x = (x + 2) * (x + 3) n = n + 1LoopPrint x=; x; n=; nEnd Sub5）执行下面程序后，输出的结果是。Private Sub Form_Click()Dim x As Integer, a As Integerx = 0For j = 1 To 5 a = a + j Next j x = j Print x, aEnd Sub6）以下程序的循环次数是。For j = 8 To 35 Step 3 Print j;Next j （7）执行下面程序输入后，
7、程序输出的结果是。Private Sub Form_Click()x = InputBox(x)If x 2 15 Then y = x 2 + 1Print yEnd Sub （8）执行下面程序后，输出的结果是。Private Sub Form_Click()Dim sum As Integersum% = 19sum = 2.23Print sum%; sumEnd Sub （9）执行下面程序后，输出的结果是。Private Sub Form_Click()a = 100Do s = s + a a = a + 1Loop Until a 100Print aEnd Sub (10) 执行
8、下面程序后，输出的结果是。Private Sub Form_Click()a = ABCDb = efghc = LCase(a)d = UCase(b)Print c + dEnd Sub（11） 执行下面程序后，输出的结果是。 Private Sub Form_Click()x = 2: y = 4: z = 6x = y: y = z: z = xPrint x; y; zEnd Sub （12）执行下面程序后，输出的结果是。Private Sub Form_Click()Dim count As Integercount = 0While count 20 count = count
9、+ 1WendPrint countEnd Sub（13）执行下面程序后，输出的结果是。 Private Sub Form_Click()a = *: b = $For k = 1 To 3x = Str(Len(a) + k) & bPrint x;Next kEnd Sub（14）执行下面程序后，输出的结果是。Private Sub Form_Click()k = 0: a = 0Do While k n i=i-n Loop Print iEnd Sub四、 填空题（前10小题每小题1分，共10分，后10个空，每空3分，共30分）(1) 在VB中声明符号常量的关键字是_。(2) 设a=1
10、,b=2,c=3,则VB6.0表达式：ab or bc and ca 的值是_。(3) a,T,Z,9，这四个字符中，_的ASCII码值最大。(4) 执行语句 B = MsgBox(XXX,YYY)后,在消息框中的标题信息是_。(5)函数Len(Hello!+Space(2)+Mid(Shanghai,5,3)的值是_。(6)表达式 Ucase(Mid(abcdefgh,3,4) 的值是_。(7)表达式 Int(1234.555*100+0.5)/100 的结果是_。 (8)使用数组声明语句Dim a(3, -2 TO 2, 5)，则数组a包含元素的个数有_。(9) For-Next循环的子句
11、缺省时，循环变量每次改变的值是_。（10）如果A为整数且A100。则打印“OK”，否则打印“Error”，表示这个条件的单行格式If 语句是_。(11)填空，使得程序运行后，能在窗体上打印如图所示的图案。 Private Sub Form_Click()PrintFor i = _ Print Tab(8 - i); For j = 1 To 8 Print *; ( ) Print Next iEnd Sub(12)下面程序的功能是利用随机函数产生10个（1100）之间的随机整数，打印其中能被5整除的数并求其和，请用正确的内容填空。 Private Sub Form_Click()Dim s
12、um As Integer, x As IntegerFor i = 1 To 10x = _ If _ = 0 Then sum = sum + x Print x=; x End IfNext iIf sum 0 Then Print sum=; sumEnd IfEnd Sub(13)用正确的内容填空，使得以下程序能够找出50以内所有能构成直角三角形的整数。 Private Sub Form_Click()Dim a As Integer, b As IntegerDim c As SingleFor a = 1 To 50 For b = a To 50 c = Sqr(a 2 + b
13、 2) If Then Print a, b, cNext bNext aEnd Sub(14)用正确的内容填空，使得以下程序能够计算1+1/3+1/5+1/(2N+1)，直到1/(2N+1)小于10-5。 Private Sub Form_Click()sum = 1: n = 1Don = n + 2temp = _sum = sum + tempIf temp 0.00001 Then LoopPrint N=; nPrint sum=; sumEnd Sub(15)某大奖赛，有7位评委给参赛选手打分。以下程序是输入7位评委对某选手的打分后，去掉最高分和最低分后计算其平均值作为该选手的成绩。请填空使得程序能正确运行。 Private Sub Form_Click()sum = 0For i = 1 To 7 cj = Val(InputBox(请输入第 & i & 位评委的打分, 录入) If i = 1 Then Max = cj Min = cj Else If _ Then Min = cjElseIf _ Then Max = cj End If End If sum = sum + cj Next i aver = Print 该选手的成绩为：, averEnd Sub专心-专注-专业