301 "已知在“通用”代码有以下语句：
Dim A( ) As Integer
则，在某一事件代码中使用（ ）是正确的。" "ReDim A(30,4) " "ReDim A(4) As String " "ReDim A(100) " ReDim A( ) C 3
302 "已知在“通用”代码有以下语句：
Dim stu( ) As String
则，在某一事件代码中使用（ ）是正确的。" "ReDim stu(120) " "ReDim stu(4,120) " "ReDim stu( ) " ReDim stu( ) As Integer A 3
303 "已知在“通用”代码有以下语句：
Dim tt( ) As Integer
则，在某一事件代码中使用（ ）是正确的。" "ReDim tt(3,4) As boolean" ReDim tt(4) As String ReDim tt(10) ReDim tt( ) C 3
304 "有以下数组声明语句：Option Base 1: Dim A(3,2 to 4)，则数组A有（ ）个元素。" 3 4 12 9 D 3
305 "有以下数组声明语句：Option Base 1: Dim A(3,4)，则数组A有（ ）个元素。" 3 4 12 20 C 3
306 2*Sqr(4)的值是（ ）。 4 8 32 16 A 3
307 "A$=""25.25.2868""，则Val（A$）的值为（ ）。" 25.2868 25.25 25.252868 2525.2868 B 3
308 Abs( -3.14)的值是（ ）。 3 -3 "-3.14 " 3.14 D 3
309 Int（23.512）的值为（ ）。 -23 -24 24 23 D 3
310 Sgn(-6)的值是（ ）。 6 -6 1 -1 D 3
311 表达式1＋((2＋3)*2)*2的值是（ ）。 26 22 21 24 C 3
312 表达式3*2^2的值是（ ）。 12 81 3 18 A 3
313 函数过程是以（ ）保留字开始的。 Function Sub Property Event A 3
314 计算绝对值的函数是（ ）。 Int Exp Sqr Abs D 3
315 计算平方根的函数是（ ）。 Sgn Exp Sqr Sqrt C 3
316 将ASCII码转换成字符串的函数是（ ）。 Chr$ Str$ Asc Val A 3
317 将数值型数据转换成字符串型数据的函数是（ ）。 Chr$ Str$ Asc Val B 3
318 将数字字符串转换成数值型常数的函数是（ ）。 Chr$ Str$ Asc Val D 3
319 可获得字符ASCII码值的函数是（ ）。 Chr$ Str$ Asc Val C 3
320 求字符串长度的函数是（ ）。 Len long Length Val A 3
321 提取计算机系统的当前日期的函数是（ ）。 Date$ Time$ DateValue Now A 3
322 提取系统的当前时间的函数是（ ）。 Date$ Time$ DateValue Now B 3
323 下列表达式值为False的是（ ）。 True Or 8<3 5>2 Xor 8<3 5>2 Or 8<3 5>2 And 8<3 D 3
324 在函数过程中的任意位置要退出当前函数过程，应用（ ）命令。 End Function Exit Exit Function Exit Sub C 3
325 " 设a=2,b=3,c=4,d=5,下列表达式的值是（ ）。
A>b AND c<d OR 2*a>c" True False -1 1 B 3
326 "s$=""abcdefghijk""，Right$(s$,4)的值是（ ）。" “efghijk” “hijk” "“abcd” " abcdefg B 3
327 “X是小于100的非负数”，用VB表达式表示正确的是（ ）。 0≤X<100 0<=X<100 0<=X And X<100 0<=X or X<100 C 3
328 "A$=""+3.14+2""，则Val（A$）的值为（ ）。" +3.14+2 +5.14 3.14 5.14 C 3
329 Cint（-23.512）的值为（ ）。 -23 -24 24 23 B 3
330 Fix（-23.512）的值为（ ）。 －23 －24 24 23 A 3
331 "LCase$(""Abc"")的值为（ ）。" Abc abc ABC aBC B 3
332 Len（“ab湖南长沙”）的值是（ ）。 5 6 10 12 B 3
333 "s$=""abcdefghijk""，left$(s$,4)的值是（ ）。" “efghijk” “hijk” "“abcd” " "abcdefg " C 3
334 "s$=""abcdefghijk""，Mid$(s$,1,4)的值是（ ）。" "“efghijk” " “hijk” “abcd” abcdefg C 3
335 "UCase$(""Abc"")的值为（ ）。" Abc abc "ABC " aBC C 3
336 表达式11 Mod 4/2的值是（ ）。 1.5 2 3 1 D 3
337 表达式14/5*2的值是（ ）。 1.4 4 5.6 1 C 3
338 表达式14/5*2的值是（ ）。 1.4 4 5.6 1 D 3
339 计算以e为底的幂的函数是（ ）。 Log Exp Ln Abs B 3
340 计算自然对数值的函数是（ ）。 Log Exp Ln Sqr A 3
341 将浮点数或货币型数转换为小于等于该数的最大整型量的函数是（ ）。 Cint Fix Int Ccur C 3
342 将数值的小数部分进行四舍五入，返回一个整型量的函数是（ ）。 Cint Fix Int Ccur A 3
343 截去浮点数或货币型数的小数部分，返回一个整型量的函数是（ ）。 Cint Fix Int Ccur B 3
344 可实现从字符串任意位置截取字符的函数是（ ）。 Instr Mid$ Left$ Right$ B 3
345 去掉字符串右边空格的函数是（ ）。 Ltrim$ Rtrim$ Left$ Right$ B 3
346 去掉字符串左边空格的函数是（ ）。 Ltrim$ Rtrim$ Left$ Right$ A 3
347 "设a=2,b=3,c=4,d=5,下列表达式的值是（ ）。
3>2*b OR a=c AND b<>c OR c<d" True False 0 1 A 3
348 "设a=2,b=3,c=4,d=5,下列表达式的值是（ ）。
A>b AND c<d OR 2*a>c" "True " False -1 1 B 3
349 实现将大写字母转换成小写字母的函数是（ ）。 Lower$ Upper$ UCase$ LCase$ D 3
350 实现将小写字母转换成大写字母的函数是（ ）。 Lower$ Upper$ UCase$ LCase$ C 3
351 数学式子sin25。 写成VB表达式是（ ）。 sin25 "sin(25) " sin(25。) sin(25*3.14/180) D 3
352 提取系统的日期和时间的函数是（ ）。 Date$ Time$ DateValue Now D 3
353 下列表达式值为True的是（ ）。 "5>2 And 8<3 " 4<9 And 1+1=2 "'b'>""a"" And ""C"">""c""" Not(5>2) B 3
354 用于从字符串右边截取字符的函数是（ ）。 Ltrim$ Rtrim$ Left$ Right$ D 3
355 用于从字符串左边截取字符的函数是（ ）。 Ltrim$ Rtrim$ Left$ Right$ C 3
356 "Month(""2002,5,16"")+Day(""2002,5,16"") 的值为（ ）。" 516 21 2007 2018 B 3
357 "s=""ab""+Space(2)+""cd"",则s的值为（ ）(□表示空格)。" abcd ab□□cd abcd□□ □□abcd B 3
358 "s＝Left$(""abcd"",2)+Mid$(""efgh"",2,2)，则s的值为（ ）。" abgh abfg cdgh cdfg B 3
359 "s＝Left$(""abcd"",2)+Right$(""efgh"",2)，则s的值为（ ）。" abef cdef abgh cdgh C 3
360 "s＝left$(“abcd”,2)+Mid$(“efgh”,2,2)，则s的值为（ ）。" abgh abfg cdgh cdfg B 3
361 "s＝left$(“abcd”,2)+right$(“efgh”,2)，则s的值为（ ）。" "abef " "cdef " "abgh " cdgh C 3
362 "StrReverse（""abcD""）的值为（ ）。" dCBA dcba "Dcba " DABC C 3
363 变量x的值为3，y的值为4，执行下列哪个语句后，可输出表达式：3＋4＝7（ ）。 "Print ""x+y="";x+y" "Print x;""+"";y;""="";x+y" "Print x;""+"";""y"";""=x+y""" "Print x;""+"";""y="";x+y" B 3
364 表达式25^(0.5*-1)的值是（ ）。 -12.5 0.2 -5 5 B 3
365 "表达式Hour(""12:03:06"")-Minute(""12:03:06"")-Second(""12:03:06"")的值为（ ）。" "12-03-06 " "12-3-6 " 1236 3 D 3
366 表达式中包含下述多种运算时，计算机会最后进行（ ）运算。 函数运算 算术运算 关系运算 逻辑运算 D 3
367 表达式中包含下述多种运算时，计算机会最先进行（ ）运算。 函数运算 算术运算 关系运算 逻辑运算 A 3
368 产生N个空格组成的字符串的函数是（ ）。 Space$ "Spc$ " Rtrim$ Ltrim$ A 3
369 产生大于10且小于等于20的随机整数的表达式为（ ）。 "Int(Rnd(10)＋10) " "Int(Rnd*10+10) " Int(Rnd*10+11) Int(Rnd*20-10) C 3
370 产生大于等于10且小于20的随机整数的表达式为（ ）。 Int(Rnd(10)＋10) Int(Rnd*10+10) Int(Rnd*10+11) Int(Rnd*20-10) B 3
371 求25度的正弦值，写成VB表达式是（ ）。 sin25 sin(25) sin[25] sin(25*3.14/180 D 3
372 求字符串存储时所占的字节数的函数是（ ）。 Len LenB Length Val B 3
373 闰年的条件是年号(year)能被4整除，但不能被100整除，或者能被400整除。则闰年的布尔表达式为（ ）。 (year mod 4=0 and year mod 100<>0) and (year mod 400=0) (year mod 4=0 and year mod 100<>0) or (year mod 400=0) (year mod 4=0 or year mod 100<>0) and (year mod 400=0) (year mod 4=0 or year mod 100<>0) or (year mod 400=0) B 3
374 "设a=5，则执行x＝IIf(a>6,-1,0)后，x的值为（ ）。" 5 6 0 -1 C 3
375 "设a=6，则执行x＝IIf(a>5,-1,0)后，x的值为（ ）。" 5 6 0 -1 D 3
376 随机函数Rnd（10）的功能为（ ）。 产生一个大于或等于0小于1的单精度随机数 产生一个大于或等于0小于10的单精度随机数 产生一个大于0小于10的单精度随机数 产生一个大于0小于1的单精度随机数 A 3
377 下列表达式值为True的是（ ）。 """ABC"">""abc""" """abc""=""ABC""" """abc"">""ABC"" " """ABC"">""Ab""" C 3
378 下列表示命题|x|≥|y|或x<y的布尔表达式是（ ）。 "Abs( x) ≥Abs( y) or x<y " Abs( x)>=Abs( y) or x<y "Abs( x) ≥Abs( y) and x<y " "Abs( x)>=Abs( y) or x<y " B 3
379 下列不能打开代码窗口的操作是（ ）。 "双击窗体上的某个控件 " 双击窗体 "单击查看代码按钮 " 单击窗体或控件 D 3
380 下列哪个函数（ ）可实现将十进制数值转换为八进制数。 "Hex " "Oct " Bin Dec B 3
381 下列哪个函数（ ）可实现将十进制数值转换为十六进制数。 Hex Oct Bin Dec A 3
382 VB对二进制随机文件访问时，应用（ ）模式。 OutPut Input Binary Append C 3
383 VB提供的三种访问文件的模式中，不包括（ ）。 "顺序文件 " "数据库文件 " 随机文件 二进制文件 B 3
384 默认情况下，VB中的图形坐标的y轴方向是（ ）。 "向下 " "向上 " "向左 " 向右 A 3
385 默认情况下，VB中的图形坐标的原点在图形控件的（ ）。 左下角 右上角 左上角 右下角 C 3
386 若要在图片框中绘制一个椭圆，可使用（ ）方法来实现。 Circle Line Point Pset A 3
387 以下有关VB的绘图方法中，（ ）表示画圆或椭圆。 Circle Line Pset Point A 3
388 以下有关VB的绘图方法中，（ ）表示画直线。 Circle Line Pset Point B 3
389 在VB的图形属性中，（ ）表示绘图的前景颜色。 BackColor ForeColor FillColor PenColor B 3
390 （ ）可以在窗体上绘制一个半径为1000的圆。 "Form1.Circle (1000, 1000), 1000" "Line (1000, 1000)-(2000, 2000)" "Point 1000,1000" "Pset 1000,1000" A 3
391 VB对顺序文件访问的三个步骤中，不包括（ ）。 "建立索引 " 打开文件 读/写文件 关闭文件 A 3
392 VB对顺序文件访问的三种形式中，不包括（ ）。 OutPut Input Append Write D 3
393 下列关于调色板说法错误的是（ ）。 从“视图”菜单中选取“调色板”，可打开调色板 调色板可设置对象的前景色 调色板可设置对象的背景色 调色板不能进行细致的颜色调整 D 3
394 想要加载图片文件，并设定给 Picture 属性，应使用的函数是（ ）。 LoadGraph ic LoadPicture LoadBitmap LoadPhoto B 3
395 以下关于VB中的图形坐标的度量单位的说法正确的是（ ）。 只有一种单位：Twip 只有一种单位：Cm 只有一种单位：Point 可以有多种单位 D 3
396 在程序运行过程中可使用RGB函数指定颜色参数值，它的格式是（ ）。 "RGB(红色值,黄色值,蓝色值)" "RGB(红色值,绿色值,蓝色值)" "RGB(红色值,黄色值,黑色值)" "RGB(红色值,绿色值,黑色值)" B 3
397 在图片框(PictureBox)中显示的图形，由对象的（ ）属性决定。 Picture Image Icon LoadPic A 3
398 在图像框（Image）中显示的图形，由对象的（ ）属性决定。 Picture Pic Icon LoadPic A 3
399 VB对随机文件访问时，应用（ ）模式。 "OutPut " Input Random Append C 3
400 以下有关VB颜色的表示中，（ ）是错误的。 vbRed QbColor(4) "RGB(255,0,0)" "RGB(-255,0,0)" D 3
401 在程序运行中，可直接输入颜色值来指定颜色参数值，通常用（ ）进制数表示颜色值。 二进制 八进制 十进制 十六进制 D 3
402 假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为（ ）。 "Form1=”VB Test” " Caption=”VB Test” "Form1.Text=”VB Test” " Form1.Name=”VB Test” B 3
403 "设a，b，c为整型变量，其值分别为1，2，3，以下程序段的输出结果是（ ）。
a=b:b=c:c=a
Print a;b;c" 1 2 3 "2 3 1 " "3 2 1 " 2 3 2 D 3
404 "下列For－Next循环的循环体的执行次数为（ ）。
For I=1 to 11
I=I+1
Next I" 5 11 6 有语法错误 C 3
405 "下列程序的输出结果是（ ）。
P＝0
For I=1 to 4
p=p*I
Next I
Print p" 24 4 0 10 C 3
406 "下列程序段的输出为（ ）。
S=0
For I=1 to 10
I=I+1:s=s+I
Next I
Print s" 55 66 30 60 C 3
407 下列语句错误的是（ ）。 FontName=宋体 FontSize＝20 FontBold＝True FontItalic＝False A 3
408 下列语句有语法错误的是（ ）。 a＝5 "b＝a " b=“a” 5=a D 3
409 以下VB语句中，（ ）的功能是创建一个新的目录（文件夹）。 Kill FileCopy Name MkDir D 3
410 "以下程序段的输出结果是（ ）。
A=1：b=2：t=0
if a<b then t=a:a=b:b=t
Print a;b" 1 1 1 2 2 2 2 1 D 3
411 "以下程序段的输出结果是（ ）。
A=1：b=2：t=0
if a<b then t=a:a=b:b=t
Print a;b" 1 1 1 2 2 2 2 1 D 3
412 "以下程序段的输出结果是（ ）。
While n<=100
n=n+1 : s=s+n
wend
Print s" 4949 5050 4950 5151 D 3
413 "以下程序段的输出结果是（ ）。
X=1:y=4
do until y>4
x=x*y：y=y+1
loop
Print x" 1 4 8 20 B 3
414 "以下程序段的输出结果是（ ）。
N=4：k=1：I=0
For I=1 to n
k=k*I
Next I
Print I" 2 3 4 5 D 3
415 "以下程序段的输出结果是（ ）。
N=4：k=1：I=0
For I=1 to n
k=k*I
Next I
Print k" 21 22 23 24 D 3
416 "以下程序段的输出结果是（ ）。
N=4：k=1：I=0
For I=1 to n
k=k*I
Next I
Print k" 21 22 23 24 D 3
417 "以下程序段的输出结果是（ ）。
Num=0
While num<=2
num=num+1
Print num;
Wend" 1 2 3 1 1 1 3 2 1 2 1 3 A 3
418 "以下程序段运行的结果为（ ）。
Dim m(10)
For I=1 to 5
m(I)=I*I
Next I
Print m(I-1)" 5 25 16 9 B 3
419 "以下程序段运行的结果为（ ）。
Dim m(10)
For I=1 to 5
m(I)=I*I
Next I
Print m(I-1)" 5 25 16 9 B 3
420 "以下程序段运行的结果为（ ）。
Dim m(10)
For I=1 to 5
m(I)=I*I
Next I
Print m(I-2)" 5 25 16 0 C 3
421 "以下程序段运行的结果为（ ）。
Dim m(10)，s ：s=0
For I=1 to 5
m(I)=I
s=s+m(I)
Next I
Print s" 5 10 15 20 C 3
422 在子过程中的任意位置要退出当前子过程，应用（ ）命令。 End Function Exit Exit Function Exit Sub D 3
423 "对于下列语句，其输出是（ ）。
A=2:b=1:c=0
if a then if b then if c then Print “1” else Print “2” else Print “3” else Print “4”" 1 2 3 4 B 3
424 "假定有以下程序段
For I=1 to 3
For j=5 to 1 step –1
Print I*j
Next j,I
则语句Print I*j的执行次数是（ ）。" 15 16 17 18 A 3
425 "假定有以下循环结构 ，则正确的描述是（ ）。
Do Until 条件
循环体
Loop" 如果“条件”是一个为0的常数，则一次循环体也不执行 如果“条件”是一个为0的常数，则无限次执行循环体 如果“条件”是一个不为0的常数，则至少执行一次循环体 不论“条件”是否为“真”，至少要执行一次循环体 B 3
426 "假定有以下循环结构 ，则正确的描述是（ ）。
Do While 条件
循环体
Loop" 如果“条件”是一个为1的常数，则一次循环体也不执行 如果“条件”是一个为1的常数，则无限次执行循环体 如果“条件”是一个不为1的常数，则至少执行一次循环体 不论“条件”是否为“真”，至少要执行一次循环体 B 3
427 "假定有以下循环结构 ，则正确的描述是（ ）。
Do Until <条件>
循环体
Loop" 如果“条件”是一个为0的常数，则一次循环体也不执行 如果“条件”是一个为0的常数，则无限次执行循环体 如果“条件”是一个不为0的常数，则至少执行一次循环体 不论“条件”是否为“真”，至少要执行一次循环体 B 3
428 "假定有以下循环结构 ，则正确的描述是（ ）。
Do While <条件>
循环体
Loop" 如果“条件”是一个为1的常数，则一次循环体也不执行 如果“条件”是一个为1的常数，则无限次执行循环体 如果“条件”是一个不为1的常数，则至少执行一次循环体 不论“条件”是否为“真”，至少要执行一次循环体 B 3
429 "下列程序段执行的结果为（ ）。
Dim m(10 to 20)
For I=10 to 20
m(I)=2*I
Next I
Print m(20)" 40 20 10 2 A 3
430 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=0 to 10
m(I)=2*I
Next I
Print m(3)" 12 6 3 9 B 3
431 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=0 to 10
m(I)=I*I
Next I
Print m(5) mod 10" 25 10 5 2.5 C 3
432 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=1 to 10
m(I)=2*I
Next I
Print m(1)" 2 6 3 9 A 3
433 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=1 to 10
m(I)=2*I
Next I
Print m(3)" 0 6 3 9 B 3
434 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=9 to 10
For j=1 to 2
m(I)=j
Next j
Next I
Print m(9);m(10)" 1 1 1 2 2 1 2 2 D 3
435 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=0 to 10
m(I)=2*I
Next I
Print m(m(3))" 12 6 3 9 A 3
436 "下面程序运行时内层循环的循环总次数是（ ）。
For m=1 to 3
For n=0 TO m-1
Next n
Next m" 6 5 3 4 A 3
437 "已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Sum(1,2,3)，则单击Command1时，输出结果为（ ）。
Private Function Sum( a,b,c)
a=a+1:b=b+1:c=c+1
Sum=a+b+c
End Function" 6 7 8 9 D 3
438 "已知一窗体中有如下子过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print_Number，则程序运行中第三次单击Command1时，输出结果为（ ）。
Private Sub Print_Number( )
Private x
x = x + 10
Print x
End Sub" 0 10 20 30 B 3
439 "已知一窗体中有如下子过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print_Number，则程序运行中第三次单击Command1时，输出结果为（ ）。
Private Sub Print_number( )
Static x
x = x + 10
Print x
End Sub" 0 10 20 3 D 3
440 以下VB语句中，（ ）的功能是复制指定文件。 Kill "FileCopy " "Name " MkDir B 3
441 以下VB语句中，（ ）的功能是删除指定文件。 "Kill " FileCopy Name MkDir A 3
442 以下VB语句中，（ ）的功能是文件改名。 Kill FileCopy Name MkDir C 3
443 "以下程序段的输出结果是
x=13:y=15
a=x-y
if x>=y then a=y else a=a-y
Print a" -2 2 13 -17 D 3
444 "以下程序段的输出结果是（ ）。
N=1:s=0
do
s=s+n : n=n+1
loop until n>100
Print s" 4949 5050 4950 5151 B 3
445 "以下程序段的输出结果是（ ）。
N=1:s=0
do
s=s+n : n=n+1
loop while n<=100
Print s" 4949 5050 4950 5049 B 3
446 "以下程序段的输出结果是（ ）。
N=1:s=0
do until n>=100
s=s+n : n=n+1
loop
Print s" 4949 5050 4950 5049 C 3
447 "以下程序段的输出结果是（ ）。
N=1:s=0
do while n<100
s=s+n: n=n+1
loop
Print s" 4949 5050 4950 5049 C 3
448 "以下程序段的输出结果是（ ）。
For x=5 to 2.5 step –7
Next x
Print x" 2.2 2.5 2.9 -2 D 3
449 "以下程序段的输出结果是（ ）。
For x=5 to 2.5 step –7
Next x
Print x" 2.2 2.5 2.9 -2 D 3
450 "以下程序段的输出结果是（ ）。
A=0
For j=1 TO 15
a=a+(j MOD 3)
Next j
Print a" 0 15 90 120 B 3
451 "以下程序段的输出结果是（ ）。
A=0
For j=1 TO 15
a=a+(j Mod 3)
Next j
Print a" 0 15 90 120 B 3
452 "以下程序段的输出结果是（ ）。
A=23
while a*2<>a+46
a=a+1
wend
a=a-23
Print a" 21 22 23 24 C 3
453 "以下程序段的输出结果是（ ）。
L$=“X”：M$=“Y”：N$=“Z”
For J=1 TO 3
L$=M$：M$=N$：N$=L$
Next J
Print L$;M$;N$" ZXY XYZ YZY ZYZ C 3
454 "以下程序段的输出结果是（ ）。
L$=“X”：M$=“Y”：N$=“Z”
For J=1 TO 2
L$=M$：M$=N$：N$=L$
Next J
Print L$;M$;N$" ZXY "YZX " "YZY " ZYZ D 3
455 "以下程序段的输出结果是（ ）。
L$=“X”：M$=“Y”：N$=“Z”
For J=1 TO 2
L$=M$：M$=N$：N$=L$
Next J
Print L$;M$;N$" "ZXY " YZX YZY ZYZ D 3
456 "以下程序段的输出结果是（ ）。
X=13:y=15
a=x-y
if x>=y then a=y else a=a-y
Print a" -2 2 13 -17 D 3
457 "以下程序段的输出结果是（ ）。
Print Format(#2/14/1998#,""m/d/yy"")" 2-14-98 02-14-98 2/14/98 02/14/98 A 3
458 "以下程序段的输出结果是（ ）。
Print Format(#2/14/1998#,""mmmm-yy"")" February/98 February-98 Febr/98 Febr-98 B 3
459 "以下程序段的输出结果是（ ）。
Print Format(#9:21:30PM#,""h-m-s AM/PM"")" 9-21-30 PM 09-21-30 PM 9-21-30 P 09-21-30 P A 3
460 "以下程序段的输出结果是（ ）。
Sum=0
For j=1 to 10
if j=10 then
sum=sum+j
endif
Next j
Print sum" 10 55 100 0 A 3
461 "以下程序段的输出结果是（ ）。
X=0:n=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop" 0 72 50 168 B 3
462 "以下程序段的输出结果是（ ）。
X=0:n=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Print n" 1 2 3 4 B 3
463 "以下程序段的输出结果是（ ）。
X=0:n=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Print x" 0 72 50 168 B 3
464 "以下程序段的输出结果是（ ）：
a=3:b=2:c=1: n=a
if b>n then max=b
if c>n then max=c
Print n" 0 1 2 3 D 3
465 以下可以在For-Next循环体中跳出循环，执行Next下一句的语句（ ）。 Exit For "Exit While " Exit Do Exit A 3
466 以下可以在For-Next循环体中跳出循环，执行Next下一句的语句（ ）。 Exit For Exit While Exit Do Exit A 3
467 "以下是Command1的单击事件，单击Command1后，在当前目录下创建了一个名为a.txt的文件，该文件内容为（ ）。
Private Sub Command1_Click()
Open ""a.txt"" For Output As #1
Print #1, ""计算机""；""等级考试""
Close #1
End Sub" "等级考试 " 计算机等级考试 计算机 计算机；等级考试 B 3
468 "执行Text1.Move 200,300,1500,1000语句后，控件Text1的高度是（ ）twip。" 200 300 1500 1000 D 3
469 "执行Text1.Move 200,300,1500,1000语句后，控件Text1的宽度是（ ）twip。" 200 300 1500 1000 C 3
470 "执行Text1.Move 200,300,1500,1000语句后，控件Text1上边距窗体（ ）twip。" 200 300 1500 1000 D 3
471 "执行Text1.Move 200,300,1500,1000语句后，控件Text1左边距窗体（ ）twip。" 200 300 1500 1000 A 3
472 "执行如下程序段后，c的值为（ ）。
Dim c As Integer,f As Integer
f=98
c=5/9*(f-32)" 36.6667 37 0 36 B 3
473 "执行如下程序段后，s的值为（ ）。
Dim I%,j%,s As string
I=2:j=3:s=""I"" & ""j""" ij i3 2j 23 A 3
474 "执行如下程序段后，s的值为（ ）。
Dim I%,j%,s As string
I=2:j=3:s=I & j" ij i3 2j 23 D 3
475 "执行下列语句：
int1%=28
if int1<30 then Print “int1<30”
Print “int1>=30”
其输出结果为（ ）。" int1<30 int1>=30 "int1<30 int1>=30" 无任何输出显示 C 3
476 "执行下面的程序段后，a的值为 （ ）。
For I=1 To 3
For j=1 To I
For k=j To 3
a=a+1
Next k, j, I" 3 9 14 21 C 3
477 "执行下面的程序段后，I 的值为 （ ）。
X=5
For I=1 To 10 Step 2
x=x+( I /3)
Next I" 9 10 11 12 D 3
478 "执行下面的程序段后，I的值为（ ）。
S = 5
For I = 2.5 To 4.6 Step 0.5
s = s+1
Next I" 3 4 5 6 C 3
479 "执行下面的程序段后，s的值为（ ）。
S = 5
For I = 2.5 To 4.6 Step 0.5
s = s+1
Next I" 7 8 9 10 D 3
480 "执行下面的程序段后，x 的值为 （ ）：
x=5
For I=1 To 10 Step 2
x=x+( I Mod 3)
Next I" 9 10 11 12 A 3
481 "以下程序段运行的结果为（ ）。
Dim m(10),s : s=0
For I=1 to 5
m(I)=I
s=s+m(I)
Next I
Print s" 5 10 15 20 C 3
482 "单击Command1后，在当前目录下创建了一个名为（ ）的文件。
Private Sub Command1_Click()
Open ""a.txt"" For Output As #1
Print #1, ""计算机""
Close #1
End Sub" "close " output a.txt open C 3
483 某一变量要求在程序各模块中均可使用，应在（ ）中用Public声明该变量。 子过程 窗体模块 标准模块 事件过程 C 3
484 "情况语句的一般格式如下，其中表达式表列的形式通常有三种，下列选项中不属于这三种形式之一的是（ ）。
Select Case <测试表达式>
Case <表达式表列1>
[<语句块1>]
…
[Case Else]
[<语句块n>]
End select" "<表达式1>[,<表达式2>]……" <表达式1> to <表达式2> Like <关系表达式> Is <关系表达式> C 3
485 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=9 to 10
For j=1 to 2
m(I)=j
Next j
Next I
Print m(9);m(10)" "1 1 " "1 2 " "2 1 " 2 2 D 3
486 "下列程序段执行的结果为（ ）。
Dim m(10),n(10)
For j=0 to 10
m(j)=j
n(j)=m(j)+10
Next j
Print n(3)" 13 3 10 30 A 3
487 "下列程序运行时，会产生（ ）错误。
Dim Stu(2, 3)
For I = 1 To 4
For j = 1 To 5
Stu(I, j) = I * j
Next j
Next I" 下标越界 大小写不匹配 数组定义错误 循环嵌套错 A 3
488 下列哪组语句可以将变量A，B的值互换（ ）。 A=B:B=A C=A:A=B:B=C A=C:C=B;B=A A=(A+B)/2:B=(A-B)/2 B 3
489 下列语句中，不能将变量x，y均定义为单精度型的是（ ）。 "Dim x,y As single" "Dim x!,y!" "Dim x!,y As single" "Dim x As single, y As single" A 3
490 下面的数组定义语句正确的是（ ）。 "Dim a[3,4]" Dim a[3;4] "Dim a(3,4)" Dim a(3;4) C 3
491 下面的数组定义语句正确的是（ ）。 Dim a[3] Dim a[3 to 4] Dim a(10 4) Dim a(3 to 6) D 3
492 "已知""student.txt""文件内容为： This is a VB Program.
一程序段如下：
Private Sub Command1_Click()
Open ""student.txt"" For Append As #1
Print #1, ""We are all love VB.""
Close #1
End Sub
则该程序段执行后，""student.txt""文件内容为（ ）。" This is a VB Program. We are all love VB. （无内容） "This is a VB Program. We are all love VB." D 3
493 "已知""student.txt""文件内容为： This is a VB Program.
一程序段如下：
Private Sub Command1_Click()
Open ""student.txt"" For Input As #1
Line Input #1, S
Print S;
Close #1
End Sub
则该程序段执行的结果为（ ）。" "his " is VB This is a VB Program. D 3
494 "已知""student.txt""文件内容为： This is a VB Program.
一程序段如下：
Private Sub Command1_Click()
Open ""student.txt"" For Output As #1
Print #1, ""We are all love VB.""
Close #1
End Sub
则该程序段执行后，""student.txt""文件内容为（ ）。" This is a VB Program. We are all love VB. （无内容） "This is a VB Program. We are all love VB." B 3
495 "已知一程序段如下：
Private Sub Command1_Click()
S = 0
Open ""student.txt"" For Output As #1
For I = 1 To 10
S = S + I
Next I
Print #1, ""S=""; S
Close #1
End Sub
则该程序执行后，“Student.txt”文件的内容为（ ）。" "S=；S " S=S S= 10 S= 55 D 3
496 "已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（ ）。
Private Sub Command1_Click()
Text1.Text =""湖南省"" & ""计算机"" + ""等级考试""
Text1.ForeColor = vbRed
Text1.BackColor = vbGreen
Text1.FontBold = True
End Sub" 湖南省计算机等级考试 计算机 等级考试 计算机等级考试 A 3
497 "已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（ ）。
Private Sub Command1_Click()
Text1.Text =""湖南省"" & ""计算机"" + ""等级考试""
Text1.ForeColor = vbRed
Text1.BackColor = vbGreen
Text1.FontBold = True
End Sub" 21 22 23 24 C 3
498 "已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本中的背景颜色为（ ）色。
Private Sub Command1_Click()
Text1.Text =""湖南省"" & ""计算机"" + ""等级考试""
Text1.ForeColor = vbRed
Text1.BackColor = vbGreen
Text1.FontBold = True
End Sub" 红 绿 白 黄 D 3
499 "已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本中的文字颜色为（ ）色。
Private Sub Command1_Click()
Text1.Text =""湖南省"" & ""计算机"" + ""等级考试""
Text1.ForeColor = vbRed
Text1.BackColor = vbGreen
Text1.FontBold = True
End Sub" 红 绿 黑 黄 A 3
500 "已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Max(1,2,3)，则单击Command1时，输出结果为（ ）。
Private Function Max( a,b,c)
m=a
if b>m then m=b
if c>m then m=c
Max=m
End Function" 1 2 3 6 C 3
501 "已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Min(10,20,30)，则单击Command1时，输出结果为（ ）。
Private Function Min( a,b,c)
m=a
if b<m then m=b
if c<m then m=c
Min=m
End Function" 10 20 30 60 A 3
502 "已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Sum(1,2,3)，则单击Command1时，输出结果为（ ）。
Private Function Sum( a,b,c)
Sum=a+b+c End Function" 1 2 3 6 D 3
503 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Private Function Sum( a,b,c)
a=a+1:b=b+1:c=c+1
Sum=a+b+c
End Function
Private Sub Command1_Click( )
a=1:b=2:c=3
Call Sum(a,b,c)
Print a;b;c
End Sub" 1 2 3 2 3 4 3 4 5 4 5 6 B 3
504 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Private Function Sum( ByVal a, ByVal b,ByVal c)
a=a+1:b=b+1:c=c+1
Sum=a+b+c
End Function
Private Sub Command1_Click( )
a=1:b=2:c=3
Call Sum(a,b,c)
Print a;b;c
End Sub" 1 2 3 2 3 4 1 3 4 "1 2 4 *A" A 3
505 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Private Function Sum( ByVal a, ByVal b,c)
a=a+1:b=b+1:c=c+1
Sum=a+b+c
End Function
Private Sub Command1_Click( )
a=1:b=2:c=3
Call Sum(a,b,c)
Print a;b;c
End Sub" 1 2 3 2 3 4 1 3 4 1 2 4 D 3
506 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Private Function Sum( ByVal a,b,c)
a=a+1:b=b+1:c=c+1
Sum=a+b+c
End Function
Private Sub Command1_Click( )
a=1:b=2:c=3
Call Sum(a,b,c)
Print a;b;c
End Sub" 1 2 3 2 3 4 1 3 4 2 2 3 C 3
507 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Function even(x)
If x Mod 2 = 0 Then
even = 1
else
even = 0
End If
End Function
Private Sub Command1_Click()
n = 20
If even(n) = 1 Then
Print n; ""is a even number.""
Else
Print n; ""is not a even number.""
End If
End Sub" 20 is a even number. 20 is not a even number. n is a even number. n is not a even number. A 3
508 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Function even(x)
If x Mod 2 = 0 Then
even = 1
else
even = 0
End If
End Function
Private Sub Command1_Click()
n = 39
If even(n) = 1 Then
Print n; ""is a even number.""
Else
Print n; ""is not a even number.""
End If
End Sub" 39 is a even number. "39 is not a even number. " n is a even number. n is not a even number. B 3
509 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Function Fn(n)
If n = 0 Then Fn = 1 Else Fn = Fn(n - 1) * n
End Function
Private Sub Command1_Click()
Print Fn(1)
End Sub" 1 2 4 24 A 3
510 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Function Fn(n)
If n = 0 Then Fn = 1 Else Fn = Fn(n - 1) * n
End Function
Private Sub Command1_Click()
Print Fn(6)
End Sub" 0 1 720 6 C 3
511 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Function Fun(x, y)
Fun = 1
For I = 1 To y
Fun = Fun * x
Next I
End Function
Private Sub Command1_Click()
Print Fun(3, 4)
End Sub" 3 4 81 256 C 3
512 "已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Sub change(ByVal x, ByVal y)
t = x
x = y
y = t
End Sub
Private Sub Command1_Click()
a = 12
b = 34
Call change(a, b)
Print a; b
End Sub" 12 34 34 12 21 43 43 21 A 3
513 "已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Sub change(ByVal x, ByVal y)
x = y
End Sub
Private Sub Command1_Click()
a = 12
b = 34
Call change(a, b)
Print a; b
End Sub" 12 34 34 34 12 12 34 12 A 3
514 "已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Sub change(x, y)
x = y
End Sub
Private Sub Command1_Click()
a = 12
b = 34
Call change(a, b)
Print a; b
End Sub" 12 34 34 34 34 12 12 12 B 3
515 "已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Sub change(x, y)
t = x
x = y
y = t
End Sub
Private Sub Command1_Click()
a = 12
b = 34
Call change(a, b)
Print a; b
End Sub" 12 34 34 12 21 43 43 21 B 3
516 "已知一名为“Student.txt”的文件，其内容如下：
张小三,98,87,99
李四明,77,88,93
陈大光,89,56,65
则以下程序段执行的结果为（ ）。
Private Sub Command1_Click()
Open ""student.txt"" For Input As #1
While (Not EOF(1))
Sum=0
Input #1, Nam, Chn, Eng, Cmp
Sum = Chn + Eng + Cmp
Print Sum;
Wend
Close #1
End Sub" 284 258 210 98 87 99 77 88 93 89 56 65 A 3
517 "已知一命令按钮的单击事件的代码如下，第一次单击该按钮输出的值为2，第三次单击该按钮输出的值为（ ）。
Private Sub Command1_Click()
Static Stu(3) As Integer
For I = 2 To 3
Stu(I) = Stu(I) + I
Next I
Print Stu(2);
End Sub" 2 4 6 8 C 3
518 "已知一命令按钮的单击事件的代码如下，第一次单击该按钮输出的值为2，第三次单击该按钮输出的值为（ ）。
Private Sub Command1_Click()
Static Stu(3) As Integer
For I = 2 To 3
Stu(I) = Stu(I) + I
Next I
Print Stu(2);
End Sub" 2 4 6 8 C 3
519 以下不能实现符号函数y＝sgn(x)的程序段是（ ）。 if x>0 then y=1 else if x=0 then y=0 else y= -1 if x>0 then y=1 else if x<0 then y= -1 else y=0 if x>=0 then if x=0 then y=0 else y= -1 else y=1 if x<>0 then if x<0 then y= -1 else y= 1 else y=0 C 3
520 "以下程序段的输出结果是（ ）
Print Format(0.123,""0.00%"")" 12.3% 1.23% 12.30% 01.23% C 3
521 "以下程序段的输出结果是（ ）
Print Format(12345.6,""0.00E+00"")" 1.23E+04 1.23E+4 1.23456E+04 1.23456E+4 A 3
522 "以下程序段的输出结果是（ ）(□表示空格)
Print ""a""; Spc(3);""b""" －19330 □□□－19330 □□－19330 □－19330 A 3
523 "以下程序段的输出结果是（ ）(□表示空格)
Print ""a""; Spc(3);""b""" a□b □a□□□□b a□□□b a□□b C 3
524 "以下程序段的输出结果是（ ）(□表示空格)
Print ""a"";Tab(3);""b""" "a□b " □a□□□□b a□□□b a□□b A 3
525 "以下程序段的输出结果是（ ）(□表示空格)
Print Format(－19.456,""####.##"")" □－19.46 □－19.45 －19.46 －19.45 C 3
526 "以下程序段的输出结果是（ ）(□表示空格)
Print Format(19.456,""0000.00"")" □□19.46 □□19.45 0019.46 0019.45 C 3
527 "以下程序段的输出结果是（ ）(□表示空格)
Print Format(19330,""00000000"")" 19330000 00019330 □□□19330 □19330 D 3
528 "以下程序段的输出结果是（ ）(□表示空格)
Print Tab(3);1" □□□1 □□1 □1 □□□□1 A 3
529 "以下程序段的输出结果是（ ）。
Score=int(rnd*5)+80
Select Case score
Case 60 to 69： a$=“D”
Case 70 to 79： a$=“C”
Case 80 to 89: a$=“B”
Case else: a$=“A”
End select
Print a$" A B C D B 3
530 "以下程序段的输出结果是（ ）。
Score=int(rnd*5)+80
Select Case score
Case is<60： a$=“F”
Case 60 to 69： a$=“D”
Case 70 to 79： a$=“C”
Case 80 to 89: a$=“B”
Case Else: a$=“A”" A B C D B 3
531 "以下程序段的输出结果是（ ）。 N=13: a=2 m=n mod 10 Select Case m Case is<0: a= -1 Case is=0: a=0 Case is>0: a=1 End select Print a" -1 0 1 2 C 3
532 "以下程序段的输出结果是（ ）。 For k=1 to 3 if k <=1 then a=3 if k <=2 then a=2 if k <=3 then a=1 Print a; Next k" 1 1 1 3 2 1 3 3 3 1 2 3 A 3
533 "以下程序段的输出结果是（ ）。
Print Format(#9:21:30PM#,""hh:mm:ss A/P"")" 9:21:30 PM 09:21:30 PM 9:21:30 P 09:21:30 P D 3
534 "以下程序段的输出结果是（ ）。
Print ""1"";""2"";
Print ""3""" 1 2 3 "1 2 3" 123 "12 3" C 3
535 "以下程序段的输出结果是（ ）。 Print ""1"";""2"" Print ""3""" 1 2 3 "1 2 3" 123 "12 3" D 3
536 "以下程序段的输出结果是（ ）。 Print 1;2 Print 3" 1 2 3 "1 2 3" 123 "12 3" B 3
537 "以下程序段的输出结果是（ ）。
Print 1;2,3" 1 2 3 1 2 3 3 2 1 1 2 3 B 3
538 "以下程序段的输出结果是（ ）。 Print 1;2; Print 3" 1 2 3 "1 2 3" 123 "12 3" A 3
539 以下递归函数中，正确的是（ ）。 "Public Function Fn(n As Integer)
If n=0 Then Fn=1 Else Fn=Fn*n
End Function" "Public Function Fn(n As Integer)
If n=0 Then Fn=1 Else Fn=Fn(n)*n
End Functio" "Public Function Fn(n As Integer)
If n=0 Then Fn=1 Else Fn=Fn(n-1)*n
End Function" "Public Function Fn(n As Integer)
If n=0 Then Fn=1 Else Fn=Fn(n+1)*n
End Function" C 3
540 用于遍历对象集合所有元素的语句是（ ）。 Do while…Loop For Each…Next While… Wend For… Next B 3
541 "在窗体上画一个命令按钮，编写如下事件过程： Private Sub Command1_Click() a=InputBox (""Enter the First Integer"")
b=InputBox (""Enter the Second Integer"") Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，输出结果为（）。" 579 "123 " "456 " 123456 D 3
542 "在以下事件过程中，Private表示（ ）。 Private Sub txtName_Change() …… End Sub" 此过程可以被任何其它过程调用 此过程只可以被本窗体模块中的其它过程调用 此过程不可以被任何其它过程调用 此过程是一个不可用过程 B 3
543 "在以下事件过程中，Public表示（ ）。
Public Sub txtName_Change()
……
End Sub" 此过程不可以被本模块中的过程调用 此过程只可以被本窗体模块中的其它过程调用 此过程不可以被任何其它过程调用 "此过程可以被本工程中的所有模块调用 " D 3
544 "在以下事件过程中，Public表示（ ）。 Public Sub txtName_Change() …… End Sub" 此过程不可以被本模块中的过程调用 此过程只可以被本窗体模块中的其它过程调用 此过程不可以被任何其它过程调用 此过程可以被本工程中的所有模块调用 D 3
Dim A( ) As Integer
则，在某一事件代码中使用（ ）是正确的。" "ReDim A(30,4) " "ReDim A(4) As String " "ReDim A(100) " ReDim A( ) C 3
302 "已知在“通用”代码有以下语句：
Dim stu( ) As String
则，在某一事件代码中使用（ ）是正确的。" "ReDim stu(120) " "ReDim stu(4,120) " "ReDim stu( ) " ReDim stu( ) As Integer A 3
303 "已知在“通用”代码有以下语句：
Dim tt( ) As Integer
则，在某一事件代码中使用（ ）是正确的。" "ReDim tt(3,4) As boolean" ReDim tt(4) As String ReDim tt(10) ReDim tt( ) C 3
304 "有以下数组声明语句：Option Base 1: Dim A(3,2 to 4)，则数组A有（ ）个元素。" 3 4 12 9 D 3
305 "有以下数组声明语句：Option Base 1: Dim A(3,4)，则数组A有（ ）个元素。" 3 4 12 20 C 3
306 2*Sqr(4)的值是（ ）。 4 8 32 16 A 3
307 "A$=""25.25.2868""，则Val（A$）的值为（ ）。" 25.2868 25.25 25.252868 2525.2868 B 3
308 Abs( -3.14)的值是（ ）。 3 -3 "-3.14 " 3.14 D 3
309 Int（23.512）的值为（ ）。 -23 -24 24 23 D 3
310 Sgn(-6)的值是（ ）。 6 -6 1 -1 D 3
311 表达式1＋((2＋3)*2)*2的值是（ ）。 26 22 21 24 C 3
312 表达式3*2^2的值是（ ）。 12 81 3 18 A 3
313 函数过程是以（ ）保留字开始的。 Function Sub Property Event A 3
314 计算绝对值的函数是（ ）。 Int Exp Sqr Abs D 3
315 计算平方根的函数是（ ）。 Sgn Exp Sqr Sqrt C 3
316 将ASCII码转换成字符串的函数是（ ）。 Chr$ Str$ Asc Val A 3
317 将数值型数据转换成字符串型数据的函数是（ ）。 Chr$ Str$ Asc Val B 3
318 将数字字符串转换成数值型常数的函数是（ ）。 Chr$ Str$ Asc Val D 3
319 可获得字符ASCII码值的函数是（ ）。 Chr$ Str$ Asc Val C 3
320 求字符串长度的函数是（ ）。 Len long Length Val A 3
321 提取计算机系统的当前日期的函数是（ ）。 Date$ Time$ DateValue Now A 3
322 提取系统的当前时间的函数是（ ）。 Date$ Time$ DateValue Now B 3
323 下列表达式值为False的是（ ）。 True Or 8<3 5>2 Xor 8<3 5>2 Or 8<3 5>2 And 8<3 D 3
324 在函数过程中的任意位置要退出当前函数过程，应用（ ）命令。 End Function Exit Exit Function Exit Sub C 3
325 " 设a=2,b=3,c=4,d=5,下列表达式的值是（ ）。
A>b AND c<d OR 2*a>c" True False -1 1 B 3
326 "s$=""abcdefghijk""，Right$(s$,4)的值是（ ）。" “efghijk” “hijk” "“abcd” " abcdefg B 3
327 “X是小于100的非负数”，用VB表达式表示正确的是（ ）。 0≤X<100 0<=X<100 0<=X And X<100 0<=X or X<100 C 3
328 "A$=""+3.14+2""，则Val（A$）的值为（ ）。" +3.14+2 +5.14 3.14 5.14 C 3
329 Cint（-23.512）的值为（ ）。 -23 -24 24 23 B 3
330 Fix（-23.512）的值为（ ）。 －23 －24 24 23 A 3
331 "LCase$(""Abc"")的值为（ ）。" Abc abc ABC aBC B 3
332 Len（“ab湖南长沙”）的值是（ ）。 5 6 10 12 B 3
333 "s$=""abcdefghijk""，left$(s$,4)的值是（ ）。" “efghijk” “hijk” "“abcd” " "abcdefg " C 3
334 "s$=""abcdefghijk""，Mid$(s$,1,4)的值是（ ）。" "“efghijk” " “hijk” “abcd” abcdefg C 3
335 "UCase$(""Abc"")的值为（ ）。" Abc abc "ABC " aBC C 3
336 表达式11 Mod 4/2的值是（ ）。 1.5 2 3 1 D 3
337 表达式14/5*2的值是（ ）。 1.4 4 5.6 1 C 3
338 表达式14/5*2的值是（ ）。 1.4 4 5.6 1 D 3
339 计算以e为底的幂的函数是（ ）。 Log Exp Ln Abs B 3
340 计算自然对数值的函数是（ ）。 Log Exp Ln Sqr A 3
341 将浮点数或货币型数转换为小于等于该数的最大整型量的函数是（ ）。 Cint Fix Int Ccur C 3
342 将数值的小数部分进行四舍五入，返回一个整型量的函数是（ ）。 Cint Fix Int Ccur A 3
343 截去浮点数或货币型数的小数部分，返回一个整型量的函数是（ ）。 Cint Fix Int Ccur B 3
344 可实现从字符串任意位置截取字符的函数是（ ）。 Instr Mid$ Left$ Right$ B 3
345 去掉字符串右边空格的函数是（ ）。 Ltrim$ Rtrim$ Left$ Right$ B 3
346 去掉字符串左边空格的函数是（ ）。 Ltrim$ Rtrim$ Left$ Right$ A 3
347 "设a=2,b=3,c=4,d=5,下列表达式的值是（ ）。
3>2*b OR a=c AND b<>c OR c<d" True False 0 1 A 3
348 "设a=2,b=3,c=4,d=5,下列表达式的值是（ ）。
A>b AND c<d OR 2*a>c" "True " False -1 1 B 3
349 实现将大写字母转换成小写字母的函数是（ ）。 Lower$ Upper$ UCase$ LCase$ D 3
350 实现将小写字母转换成大写字母的函数是（ ）。 Lower$ Upper$ UCase$ LCase$ C 3
351 数学式子sin25。 写成VB表达式是（ ）。 sin25 "sin(25) " sin(25。) sin(25*3.14/180) D 3
352 提取系统的日期和时间的函数是（ ）。 Date$ Time$ DateValue Now D 3
353 下列表达式值为True的是（ ）。 "5>2 And 8<3 " 4<9 And 1+1=2 "'b'>""a"" And ""C"">""c""" Not(5>2) B 3
354 用于从字符串右边截取字符的函数是（ ）。 Ltrim$ Rtrim$ Left$ Right$ D 3
355 用于从字符串左边截取字符的函数是（ ）。 Ltrim$ Rtrim$ Left$ Right$ C 3
356 "Month(""2002,5,16"")+Day(""2002,5,16"") 的值为（ ）。" 516 21 2007 2018 B 3
357 "s=""ab""+Space(2)+""cd"",则s的值为（ ）(□表示空格)。" abcd ab□□cd abcd□□ □□abcd B 3
358 "s＝Left$(""abcd"",2)+Mid$(""efgh"",2,2)，则s的值为（ ）。" abgh abfg cdgh cdfg B 3
359 "s＝Left$(""abcd"",2)+Right$(""efgh"",2)，则s的值为（ ）。" abef cdef abgh cdgh C 3
360 "s＝left$(“abcd”,2)+Mid$(“efgh”,2,2)，则s的值为（ ）。" abgh abfg cdgh cdfg B 3
361 "s＝left$(“abcd”,2)+right$(“efgh”,2)，则s的值为（ ）。" "abef " "cdef " "abgh " cdgh C 3
362 "StrReverse（""abcD""）的值为（ ）。" dCBA dcba "Dcba " DABC C 3
363 变量x的值为3，y的值为4，执行下列哪个语句后，可输出表达式：3＋4＝7（ ）。 "Print ""x+y="";x+y" "Print x;""+"";y;""="";x+y" "Print x;""+"";""y"";""=x+y""" "Print x;""+"";""y="";x+y" B 3
364 表达式25^(0.5*-1)的值是（ ）。 -12.5 0.2 -5 5 B 3
365 "表达式Hour(""12:03:06"")-Minute(""12:03:06"")-Second(""12:03:06"")的值为（ ）。" "12-03-06 " "12-3-6 " 1236 3 D 3
366 表达式中包含下述多种运算时，计算机会最后进行（ ）运算。 函数运算 算术运算 关系运算 逻辑运算 D 3
367 表达式中包含下述多种运算时，计算机会最先进行（ ）运算。 函数运算 算术运算 关系运算 逻辑运算 A 3
368 产生N个空格组成的字符串的函数是（ ）。 Space$ "Spc$ " Rtrim$ Ltrim$ A 3
369 产生大于10且小于等于20的随机整数的表达式为（ ）。 "Int(Rnd(10)＋10) " "Int(Rnd*10+10) " Int(Rnd*10+11) Int(Rnd*20-10) C 3
370 产生大于等于10且小于20的随机整数的表达式为（ ）。 Int(Rnd(10)＋10) Int(Rnd*10+10) Int(Rnd*10+11) Int(Rnd*20-10) B 3
371 求25度的正弦值，写成VB表达式是（ ）。 sin25 sin(25) sin[25] sin(25*3.14/180 D 3
372 求字符串存储时所占的字节数的函数是（ ）。 Len LenB Length Val B 3
373 闰年的条件是年号(year)能被4整除，但不能被100整除，或者能被400整除。则闰年的布尔表达式为（ ）。 (year mod 4=0 and year mod 100<>0) and (year mod 400=0) (year mod 4=0 and year mod 100<>0) or (year mod 400=0) (year mod 4=0 or year mod 100<>0) and (year mod 400=0) (year mod 4=0 or year mod 100<>0) or (year mod 400=0) B 3
374 "设a=5，则执行x＝IIf(a>6,-1,0)后，x的值为（ ）。" 5 6 0 -1 C 3
375 "设a=6，则执行x＝IIf(a>5,-1,0)后，x的值为（ ）。" 5 6 0 -1 D 3
376 随机函数Rnd（10）的功能为（ ）。 产生一个大于或等于0小于1的单精度随机数 产生一个大于或等于0小于10的单精度随机数 产生一个大于0小于10的单精度随机数 产生一个大于0小于1的单精度随机数 A 3
377 下列表达式值为True的是（ ）。 """ABC"">""abc""" """abc""=""ABC""" """abc"">""ABC"" " """ABC"">""Ab""" C 3
378 下列表示命题|x|≥|y|或x<y的布尔表达式是（ ）。 "Abs( x) ≥Abs( y) or x<y " Abs( x)>=Abs( y) or x<y "Abs( x) ≥Abs( y) and x<y " "Abs( x)>=Abs( y) or x<y " B 3
379 下列不能打开代码窗口的操作是（ ）。 "双击窗体上的某个控件 " 双击窗体 "单击查看代码按钮 " 单击窗体或控件 D 3
380 下列哪个函数（ ）可实现将十进制数值转换为八进制数。 "Hex " "Oct " Bin Dec B 3
381 下列哪个函数（ ）可实现将十进制数值转换为十六进制数。 Hex Oct Bin Dec A 3
382 VB对二进制随机文件访问时，应用（ ）模式。 OutPut Input Binary Append C 3
383 VB提供的三种访问文件的模式中，不包括（ ）。 "顺序文件 " "数据库文件 " 随机文件 二进制文件 B 3
384 默认情况下，VB中的图形坐标的y轴方向是（ ）。 "向下 " "向上 " "向左 " 向右 A 3
385 默认情况下，VB中的图形坐标的原点在图形控件的（ ）。 左下角 右上角 左上角 右下角 C 3
386 若要在图片框中绘制一个椭圆，可使用（ ）方法来实现。 Circle Line Point Pset A 3
387 以下有关VB的绘图方法中，（ ）表示画圆或椭圆。 Circle Line Pset Point A 3
388 以下有关VB的绘图方法中，（ ）表示画直线。 Circle Line Pset Point B 3
389 在VB的图形属性中，（ ）表示绘图的前景颜色。 BackColor ForeColor FillColor PenColor B 3
390 （ ）可以在窗体上绘制一个半径为1000的圆。 "Form1.Circle (1000, 1000), 1000" "Line (1000, 1000)-(2000, 2000)" "Point 1000,1000" "Pset 1000,1000" A 3
391 VB对顺序文件访问的三个步骤中，不包括（ ）。 "建立索引 " 打开文件 读/写文件 关闭文件 A 3
392 VB对顺序文件访问的三种形式中，不包括（ ）。 OutPut Input Append Write D 3
393 下列关于调色板说法错误的是（ ）。 从“视图”菜单中选取“调色板”，可打开调色板 调色板可设置对象的前景色 调色板可设置对象的背景色 调色板不能进行细致的颜色调整 D 3
394 想要加载图片文件，并设定给 Picture 属性，应使用的函数是（ ）。 LoadGraph ic LoadPicture LoadBitmap LoadPhoto B 3
395 以下关于VB中的图形坐标的度量单位的说法正确的是（ ）。 只有一种单位：Twip 只有一种单位：Cm 只有一种单位：Point 可以有多种单位 D 3
396 在程序运行过程中可使用RGB函数指定颜色参数值，它的格式是（ ）。 "RGB(红色值,黄色值,蓝色值)" "RGB(红色值,绿色值,蓝色值)" "RGB(红色值,黄色值,黑色值)" "RGB(红色值,绿色值,黑色值)" B 3
397 在图片框(PictureBox)中显示的图形，由对象的（ ）属性决定。 Picture Image Icon LoadPic A 3
398 在图像框（Image）中显示的图形，由对象的（ ）属性决定。 Picture Pic Icon LoadPic A 3
399 VB对随机文件访问时，应用（ ）模式。 "OutPut " Input Random Append C 3
400 以下有关VB颜色的表示中，（ ）是错误的。 vbRed QbColor(4) "RGB(255,0,0)" "RGB(-255,0,0)" D 3
401 在程序运行中，可直接输入颜色值来指定颜色参数值，通常用（ ）进制数表示颜色值。 二进制 八进制 十进制 十六进制 D 3
402 假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为（ ）。 "Form1=”VB Test” " Caption=”VB Test” "Form1.Text=”VB Test” " Form1.Name=”VB Test” B 3
403 "设a，b，c为整型变量，其值分别为1，2，3，以下程序段的输出结果是（ ）。
a=b:b=c:c=a
Print a;b;c" 1 2 3 "2 3 1 " "3 2 1 " 2 3 2 D 3
404 "下列For－Next循环的循环体的执行次数为（ ）。
For I=1 to 11
I=I+1
Next I" 5 11 6 有语法错误 C 3
405 "下列程序的输出结果是（ ）。
P＝0
For I=1 to 4
p=p*I
Next I
Print p" 24 4 0 10 C 3
406 "下列程序段的输出为（ ）。
S=0
For I=1 to 10
I=I+1:s=s+I
Next I
Print s" 55 66 30 60 C 3
407 下列语句错误的是（ ）。 FontName=宋体 FontSize＝20 FontBold＝True FontItalic＝False A 3
408 下列语句有语法错误的是（ ）。 a＝5 "b＝a " b=“a” 5=a D 3
409 以下VB语句中，（ ）的功能是创建一个新的目录（文件夹）。 Kill FileCopy Name MkDir D 3
410 "以下程序段的输出结果是（ ）。
A=1：b=2：t=0
if a<b then t=a:a=b:b=t
Print a;b" 1 1 1 2 2 2 2 1 D 3
411 "以下程序段的输出结果是（ ）。
A=1：b=2：t=0
if a<b then t=a:a=b:b=t
Print a;b" 1 1 1 2 2 2 2 1 D 3
412 "以下程序段的输出结果是（ ）。
While n<=100
n=n+1 : s=s+n
wend
Print s" 4949 5050 4950 5151 D 3
413 "以下程序段的输出结果是（ ）。
X=1:y=4
do until y>4
x=x*y：y=y+1
loop
Print x" 1 4 8 20 B 3
414 "以下程序段的输出结果是（ ）。
N=4：k=1：I=0
For I=1 to n
k=k*I
Next I
Print I" 2 3 4 5 D 3
415 "以下程序段的输出结果是（ ）。
N=4：k=1：I=0
For I=1 to n
k=k*I
Next I
Print k" 21 22 23 24 D 3
416 "以下程序段的输出结果是（ ）。
N=4：k=1：I=0
For I=1 to n
k=k*I
Next I
Print k" 21 22 23 24 D 3
417 "以下程序段的输出结果是（ ）。
Num=0
While num<=2
num=num+1
Print num;
Wend" 1 2 3 1 1 1 3 2 1 2 1 3 A 3
418 "以下程序段运行的结果为（ ）。
Dim m(10)
For I=1 to 5
m(I)=I*I
Next I
Print m(I-1)" 5 25 16 9 B 3
419 "以下程序段运行的结果为（ ）。
Dim m(10)
For I=1 to 5
m(I)=I*I
Next I
Print m(I-1)" 5 25 16 9 B 3
420 "以下程序段运行的结果为（ ）。
Dim m(10)
For I=1 to 5
m(I)=I*I
Next I
Print m(I-2)" 5 25 16 0 C 3
421 "以下程序段运行的结果为（ ）。
Dim m(10)，s ：s=0
For I=1 to 5
m(I)=I
s=s+m(I)
Next I
Print s" 5 10 15 20 C 3
422 在子过程中的任意位置要退出当前子过程，应用（ ）命令。 End Function Exit Exit Function Exit Sub D 3
423 "对于下列语句，其输出是（ ）。
A=2:b=1:c=0
if a then if b then if c then Print “1” else Print “2” else Print “3” else Print “4”" 1 2 3 4 B 3
424 "假定有以下程序段
For I=1 to 3
For j=5 to 1 step –1
Print I*j
Next j,I
则语句Print I*j的执行次数是（ ）。" 15 16 17 18 A 3
425 "假定有以下循环结构 ，则正确的描述是（ ）。
Do Until 条件
循环体
Loop" 如果“条件”是一个为0的常数，则一次循环体也不执行 如果“条件”是一个为0的常数，则无限次执行循环体 如果“条件”是一个不为0的常数，则至少执行一次循环体 不论“条件”是否为“真”，至少要执行一次循环体 B 3
426 "假定有以下循环结构 ，则正确的描述是（ ）。
Do While 条件
循环体
Loop" 如果“条件”是一个为1的常数，则一次循环体也不执行 如果“条件”是一个为1的常数，则无限次执行循环体 如果“条件”是一个不为1的常数，则至少执行一次循环体 不论“条件”是否为“真”，至少要执行一次循环体 B 3
427 "假定有以下循环结构 ，则正确的描述是（ ）。
Do Until <条件>
循环体
Loop" 如果“条件”是一个为0的常数，则一次循环体也不执行 如果“条件”是一个为0的常数，则无限次执行循环体 如果“条件”是一个不为0的常数，则至少执行一次循环体 不论“条件”是否为“真”，至少要执行一次循环体 B 3
428 "假定有以下循环结构 ，则正确的描述是（ ）。
Do While <条件>
循环体
Loop" 如果“条件”是一个为1的常数，则一次循环体也不执行 如果“条件”是一个为1的常数，则无限次执行循环体 如果“条件”是一个不为1的常数，则至少执行一次循环体 不论“条件”是否为“真”，至少要执行一次循环体 B 3
429 "下列程序段执行的结果为（ ）。
Dim m(10 to 20)
For I=10 to 20
m(I)=2*I
Next I
Print m(20)" 40 20 10 2 A 3
430 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=0 to 10
m(I)=2*I
Next I
Print m(3)" 12 6 3 9 B 3
431 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=0 to 10
m(I)=I*I
Next I
Print m(5) mod 10" 25 10 5 2.5 C 3
432 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=1 to 10
m(I)=2*I
Next I
Print m(1)" 2 6 3 9 A 3
433 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=1 to 10
m(I)=2*I
Next I
Print m(3)" 0 6 3 9 B 3
434 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=9 to 10
For j=1 to 2
m(I)=j
Next j
Next I
Print m(9);m(10)" 1 1 1 2 2 1 2 2 D 3
435 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=0 to 10
m(I)=2*I
Next I
Print m(m(3))" 12 6 3 9 A 3
436 "下面程序运行时内层循环的循环总次数是（ ）。
For m=1 to 3
For n=0 TO m-1
Next n
Next m" 6 5 3 4 A 3
437 "已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Sum(1,2,3)，则单击Command1时，输出结果为（ ）。
Private Function Sum( a,b,c)
a=a+1:b=b+1:c=c+1
Sum=a+b+c
End Function" 6 7 8 9 D 3
438 "已知一窗体中有如下子过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print_Number，则程序运行中第三次单击Command1时，输出结果为（ ）。
Private Sub Print_Number( )
Private x
x = x + 10
Print x
End Sub" 0 10 20 30 B 3
439 "已知一窗体中有如下子过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print_Number，则程序运行中第三次单击Command1时，输出结果为（ ）。
Private Sub Print_number( )
Static x
x = x + 10
Print x
End Sub" 0 10 20 3 D 3
440 以下VB语句中，（ ）的功能是复制指定文件。 Kill "FileCopy " "Name " MkDir B 3
441 以下VB语句中，（ ）的功能是删除指定文件。 "Kill " FileCopy Name MkDir A 3
442 以下VB语句中，（ ）的功能是文件改名。 Kill FileCopy Name MkDir C 3
443 "以下程序段的输出结果是
x=13:y=15
a=x-y
if x>=y then a=y else a=a-y
Print a" -2 2 13 -17 D 3
444 "以下程序段的输出结果是（ ）。
N=1:s=0
do
s=s+n : n=n+1
loop until n>100
Print s" 4949 5050 4950 5151 B 3
445 "以下程序段的输出结果是（ ）。
N=1:s=0
do
s=s+n : n=n+1
loop while n<=100
Print s" 4949 5050 4950 5049 B 3
446 "以下程序段的输出结果是（ ）。
N=1:s=0
do until n>=100
s=s+n : n=n+1
loop
Print s" 4949 5050 4950 5049 C 3
447 "以下程序段的输出结果是（ ）。
N=1:s=0
do while n<100
s=s+n: n=n+1
loop
Print s" 4949 5050 4950 5049 C 3
448 "以下程序段的输出结果是（ ）。
For x=5 to 2.5 step –7
Next x
Print x" 2.2 2.5 2.9 -2 D 3
449 "以下程序段的输出结果是（ ）。
For x=5 to 2.5 step –7
Next x
Print x" 2.2 2.5 2.9 -2 D 3
450 "以下程序段的输出结果是（ ）。
A=0
For j=1 TO 15
a=a+(j MOD 3)
Next j
Print a" 0 15 90 120 B 3
451 "以下程序段的输出结果是（ ）。
A=0
For j=1 TO 15
a=a+(j Mod 3)
Next j
Print a" 0 15 90 120 B 3
452 "以下程序段的输出结果是（ ）。
A=23
while a*2<>a+46
a=a+1
wend
a=a-23
Print a" 21 22 23 24 C 3
453 "以下程序段的输出结果是（ ）。
L$=“X”：M$=“Y”：N$=“Z”
For J=1 TO 3
L$=M$：M$=N$：N$=L$
Next J
Print L$;M$;N$" ZXY XYZ YZY ZYZ C 3
454 "以下程序段的输出结果是（ ）。
L$=“X”：M$=“Y”：N$=“Z”
For J=1 TO 2
L$=M$：M$=N$：N$=L$
Next J
Print L$;M$;N$" ZXY "YZX " "YZY " ZYZ D 3
455 "以下程序段的输出结果是（ ）。
L$=“X”：M$=“Y”：N$=“Z”
For J=1 TO 2
L$=M$：M$=N$：N$=L$
Next J
Print L$;M$;N$" "ZXY " YZX YZY ZYZ D 3
456 "以下程序段的输出结果是（ ）。
X=13:y=15
a=x-y
if x>=y then a=y else a=a-y
Print a" -2 2 13 -17 D 3
457 "以下程序段的输出结果是（ ）。
Print Format(#2/14/1998#,""m/d/yy"")" 2-14-98 02-14-98 2/14/98 02/14/98 A 3
458 "以下程序段的输出结果是（ ）。
Print Format(#2/14/1998#,""mmmm-yy"")" February/98 February-98 Febr/98 Febr-98 B 3
459 "以下程序段的输出结果是（ ）。
Print Format(#9:21:30PM#,""h-m-s AM/PM"")" 9-21-30 PM 09-21-30 PM 9-21-30 P 09-21-30 P A 3
460 "以下程序段的输出结果是（ ）。
Sum=0
For j=1 to 10
if j=10 then
sum=sum+j
endif
Next j
Print sum" 10 55 100 0 A 3
461 "以下程序段的输出结果是（ ）。
X=0:n=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop" 0 72 50 168 B 3
462 "以下程序段的输出结果是（ ）。
X=0:n=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Print n" 1 2 3 4 B 3
463 "以下程序段的输出结果是（ ）。
X=0:n=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Print x" 0 72 50 168 B 3
464 "以下程序段的输出结果是（ ）：
a=3:b=2:c=1: n=a
if b>n then max=b
if c>n then max=c
Print n" 0 1 2 3 D 3
465 以下可以在For-Next循环体中跳出循环，执行Next下一句的语句（ ）。 Exit For "Exit While " Exit Do Exit A 3
466 以下可以在For-Next循环体中跳出循环，执行Next下一句的语句（ ）。 Exit For Exit While Exit Do Exit A 3
467 "以下是Command1的单击事件，单击Command1后，在当前目录下创建了一个名为a.txt的文件，该文件内容为（ ）。
Private Sub Command1_Click()
Open ""a.txt"" For Output As #1
Print #1, ""计算机""；""等级考试""
Close #1
End Sub" "等级考试 " 计算机等级考试 计算机 计算机；等级考试 B 3
468 "执行Text1.Move 200,300,1500,1000语句后，控件Text1的高度是（ ）twip。" 200 300 1500 1000 D 3
469 "执行Text1.Move 200,300,1500,1000语句后，控件Text1的宽度是（ ）twip。" 200 300 1500 1000 C 3
470 "执行Text1.Move 200,300,1500,1000语句后，控件Text1上边距窗体（ ）twip。" 200 300 1500 1000 D 3
471 "执行Text1.Move 200,300,1500,1000语句后，控件Text1左边距窗体（ ）twip。" 200 300 1500 1000 A 3
472 "执行如下程序段后，c的值为（ ）。
Dim c As Integer,f As Integer
f=98
c=5/9*(f-32)" 36.6667 37 0 36 B 3
473 "执行如下程序段后，s的值为（ ）。
Dim I%,j%,s As string
I=2:j=3:s=""I"" & ""j""" ij i3 2j 23 A 3
474 "执行如下程序段后，s的值为（ ）。
Dim I%,j%,s As string
I=2:j=3:s=I & j" ij i3 2j 23 D 3
475 "执行下列语句：
int1%=28
if int1<30 then Print “int1<30”
Print “int1>=30”
其输出结果为（ ）。" int1<30 int1>=30 "int1<30 int1>=30" 无任何输出显示 C 3
476 "执行下面的程序段后，a的值为 （ ）。
For I=1 To 3
For j=1 To I
For k=j To 3
a=a+1
Next k, j, I" 3 9 14 21 C 3
477 "执行下面的程序段后，I 的值为 （ ）。
X=5
For I=1 To 10 Step 2
x=x+( I /3)
Next I" 9 10 11 12 D 3
478 "执行下面的程序段后，I的值为（ ）。
S = 5
For I = 2.5 To 4.6 Step 0.5
s = s+1
Next I" 3 4 5 6 C 3
479 "执行下面的程序段后，s的值为（ ）。
S = 5
For I = 2.5 To 4.6 Step 0.5
s = s+1
Next I" 7 8 9 10 D 3
480 "执行下面的程序段后，x 的值为 （ ）：
x=5
For I=1 To 10 Step 2
x=x+( I Mod 3)
Next I" 9 10 11 12 A 3
481 "以下程序段运行的结果为（ ）。
Dim m(10),s : s=0
For I=1 to 5
m(I)=I
s=s+m(I)
Next I
Print s" 5 10 15 20 C 3
482 "单击Command1后，在当前目录下创建了一个名为（ ）的文件。
Private Sub Command1_Click()
Open ""a.txt"" For Output As #1
Print #1, ""计算机""
Close #1
End Sub" "close " output a.txt open C 3
483 某一变量要求在程序各模块中均可使用，应在（ ）中用Public声明该变量。 子过程 窗体模块 标准模块 事件过程 C 3
484 "情况语句的一般格式如下，其中表达式表列的形式通常有三种，下列选项中不属于这三种形式之一的是（ ）。
Select Case <测试表达式>
Case <表达式表列1>
[<语句块1>]
…
[Case Else]
[<语句块n>]
End select" "<表达式1>[,<表达式2>]……" <表达式1> to <表达式2> Like <关系表达式> Is <关系表达式> C 3
485 "下列程序段执行的结果为（ ）。
Dim m(10)
For I=9 to 10
For j=1 to 2
m(I)=j
Next j
Next I
Print m(9);m(10)" "1 1 " "1 2 " "2 1 " 2 2 D 3
486 "下列程序段执行的结果为（ ）。
Dim m(10),n(10)
For j=0 to 10
m(j)=j
n(j)=m(j)+10
Next j
Print n(3)" 13 3 10 30 A 3
487 "下列程序运行时，会产生（ ）错误。
Dim Stu(2, 3)
For I = 1 To 4
For j = 1 To 5
Stu(I, j) = I * j
Next j
Next I" 下标越界 大小写不匹配 数组定义错误 循环嵌套错 A 3
488 下列哪组语句可以将变量A，B的值互换（ ）。 A=B:B=A C=A:A=B:B=C A=C:C=B;B=A A=(A+B)/2:B=(A-B)/2 B 3
489 下列语句中，不能将变量x，y均定义为单精度型的是（ ）。 "Dim x,y As single" "Dim x!,y!" "Dim x!,y As single" "Dim x As single, y As single" A 3
490 下面的数组定义语句正确的是（ ）。 "Dim a[3,4]" Dim a[3;4] "Dim a(3,4)" Dim a(3;4) C 3
491 下面的数组定义语句正确的是（ ）。 Dim a[3] Dim a[3 to 4] Dim a(10 4) Dim a(3 to 6) D 3
492 "已知""student.txt""文件内容为： This is a VB Program.
一程序段如下：
Private Sub Command1_Click()
Open ""student.txt"" For Append As #1
Print #1, ""We are all love VB.""
Close #1
End Sub
则该程序段执行后，""student.txt""文件内容为（ ）。" This is a VB Program. We are all love VB. （无内容） "This is a VB Program. We are all love VB." D 3
493 "已知""student.txt""文件内容为： This is a VB Program.
一程序段如下：
Private Sub Command1_Click()
Open ""student.txt"" For Input As #1
Line Input #1, S
Print S;
Close #1
End Sub
则该程序段执行的结果为（ ）。" "his " is VB This is a VB Program. D 3
494 "已知""student.txt""文件内容为： This is a VB Program.
一程序段如下：
Private Sub Command1_Click()
Open ""student.txt"" For Output As #1
Print #1, ""We are all love VB.""
Close #1
End Sub
则该程序段执行后，""student.txt""文件内容为（ ）。" This is a VB Program. We are all love VB. （无内容） "This is a VB Program. We are all love VB." B 3
495 "已知一程序段如下：
Private Sub Command1_Click()
S = 0
Open ""student.txt"" For Output As #1
For I = 1 To 10
S = S + I
Next I
Print #1, ""S=""; S
Close #1
End Sub
则该程序执行后，“Student.txt”文件的内容为（ ）。" "S=；S " S=S S= 10 S= 55 D 3
496 "已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（ ）。
Private Sub Command1_Click()
Text1.Text =""湖南省"" & ""计算机"" + ""等级考试""
Text1.ForeColor = vbRed
Text1.BackColor = vbGreen
Text1.FontBold = True
End Sub" 湖南省计算机等级考试 计算机 等级考试 计算机等级考试 A 3
497 "已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（ ）。
Private Sub Command1_Click()
Text1.Text =""湖南省"" & ""计算机"" + ""等级考试""
Text1.ForeColor = vbRed
Text1.BackColor = vbGreen
Text1.FontBold = True
End Sub" 21 22 23 24 C 3
498 "已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本中的背景颜色为（ ）色。
Private Sub Command1_Click()
Text1.Text =""湖南省"" & ""计算机"" + ""等级考试""
Text1.ForeColor = vbRed
Text1.BackColor = vbGreen
Text1.FontBold = True
End Sub" 红 绿 白 黄 D 3
499 "已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本中的文字颜色为（ ）色。
Private Sub Command1_Click()
Text1.Text =""湖南省"" & ""计算机"" + ""等级考试""
Text1.ForeColor = vbRed
Text1.BackColor = vbGreen
Text1.FontBold = True
End Sub" 红 绿 黑 黄 A 3
500 "已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Max(1,2,3)，则单击Command1时，输出结果为（ ）。
Private Function Max( a,b,c)
m=a
if b>m then m=b
if c>m then m=c
Max=m
End Function" 1 2 3 6 C 3
501 "已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Min(10,20,30)，则单击Command1时，输出结果为（ ）。
Private Function Min( a,b,c)
m=a
if b<m then m=b
if c<m then m=c
Min=m
End Function" 10 20 30 60 A 3
502 "已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Sum(1,2,3)，则单击Command1时，输出结果为（ ）。
Private Function Sum( a,b,c)
Sum=a+b+c End Function" 1 2 3 6 D 3
503 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Private Function Sum( a,b,c)
a=a+1:b=b+1:c=c+1
Sum=a+b+c
End Function
Private Sub Command1_Click( )
a=1:b=2:c=3
Call Sum(a,b,c)
Print a;b;c
End Sub" 1 2 3 2 3 4 3 4 5 4 5 6 B 3
504 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Private Function Sum( ByVal a, ByVal b,ByVal c)
a=a+1:b=b+1:c=c+1
Sum=a+b+c
End Function
Private Sub Command1_Click( )
a=1:b=2:c=3
Call Sum(a,b,c)
Print a;b;c
End Sub" 1 2 3 2 3 4 1 3 4 "1 2 4 *A" A 3
505 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Private Function Sum( ByVal a, ByVal b,c)
a=a+1:b=b+1:c=c+1
Sum=a+b+c
End Function
Private Sub Command1_Click( )
a=1:b=2:c=3
Call Sum(a,b,c)
Print a;b;c
End Sub" 1 2 3 2 3 4 1 3 4 1 2 4 D 3
506 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Private Function Sum( ByVal a,b,c)
a=a+1:b=b+1:c=c+1
Sum=a+b+c
End Function
Private Sub Command1_Click( )
a=1:b=2:c=3
Call Sum(a,b,c)
Print a;b;c
End Sub" 1 2 3 2 3 4 1 3 4 2 2 3 C 3
507 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Function even(x)
If x Mod 2 = 0 Then
even = 1
else
even = 0
End If
End Function
Private Sub Command1_Click()
n = 20
If even(n) = 1 Then
Print n; ""is a even number.""
Else
Print n; ""is not a even number.""
End If
End Sub" 20 is a even number. 20 is not a even number. n is a even number. n is not a even number. A 3
508 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Function even(x)
If x Mod 2 = 0 Then
even = 1
else
even = 0
End If
End Function
Private Sub Command1_Click()
n = 39
If even(n) = 1 Then
Print n; ""is a even number.""
Else
Print n; ""is not a even number.""
End If
End Sub" 39 is a even number. "39 is not a even number. " n is a even number. n is not a even number. B 3
509 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Function Fn(n)
If n = 0 Then Fn = 1 Else Fn = Fn(n - 1) * n
End Function
Private Sub Command1_Click()
Print Fn(1)
End Sub" 1 2 4 24 A 3
510 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Function Fn(n)
If n = 0 Then Fn = 1 Else Fn = Fn(n - 1) * n
End Function
Private Sub Command1_Click()
Print Fn(6)
End Sub" 0 1 720 6 C 3
511 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Function Fun(x, y)
Fun = 1
For I = 1 To y
Fun = Fun * x
Next I
End Function
Private Sub Command1_Click()
Print Fun(3, 4)
End Sub" 3 4 81 256 C 3
512 "已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Sub change(ByVal x, ByVal y)
t = x
x = y
y = t
End Sub
Private Sub Command1_Click()
a = 12
b = 34
Call change(a, b)
Print a; b
End Sub" 12 34 34 12 21 43 43 21 A 3
513 "已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Sub change(ByVal x, ByVal y)
x = y
End Sub
Private Sub Command1_Click()
a = 12
b = 34
Call change(a, b)
Print a; b
End Sub" 12 34 34 34 12 12 34 12 A 3
514 "已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Sub change(x, y)
x = y
End Sub
Private Sub Command1_Click()
a = 12
b = 34
Call change(a, b)
Print a; b
End Sub" 12 34 34 34 34 12 12 12 B 3
515 "已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。
Public Sub change(x, y)
t = x
x = y
y = t
End Sub
Private Sub Command1_Click()
a = 12
b = 34
Call change(a, b)
Print a; b
End Sub" 12 34 34 12 21 43 43 21 B 3
516 "已知一名为“Student.txt”的文件，其内容如下：
张小三,98,87,99
李四明,77,88,93
陈大光,89,56,65
则以下程序段执行的结果为（ ）。
Private Sub Command1_Click()
Open ""student.txt"" For Input As #1
While (Not EOF(1))
Sum=0
Input #1, Nam, Chn, Eng, Cmp
Sum = Chn + Eng + Cmp
Print Sum;
Wend
Close #1
End Sub" 284 258 210 98 87 99 77 88 93 89 56 65 A 3
517 "已知一命令按钮的单击事件的代码如下，第一次单击该按钮输出的值为2，第三次单击该按钮输出的值为（ ）。
Private Sub Command1_Click()
Static Stu(3) As Integer
For I = 2 To 3
Stu(I) = Stu(I) + I
Next I
Print Stu(2);
End Sub" 2 4 6 8 C 3
518 "已知一命令按钮的单击事件的代码如下，第一次单击该按钮输出的值为2，第三次单击该按钮输出的值为（ ）。
Private Sub Command1_Click()
Static Stu(3) As Integer
For I = 2 To 3
Stu(I) = Stu(I) + I
Next I
Print Stu(2);
End Sub" 2 4 6 8 C 3
519 以下不能实现符号函数y＝sgn(x)的程序段是（ ）。 if x>0 then y=1 else if x=0 then y=0 else y= -1 if x>0 then y=1 else if x<0 then y= -1 else y=0 if x>=0 then if x=0 then y=0 else y= -1 else y=1 if x<>0 then if x<0 then y= -1 else y= 1 else y=0 C 3
520 "以下程序段的输出结果是（ ）
Print Format(0.123,""0.00%"")" 12.3% 1.23% 12.30% 01.23% C 3
521 "以下程序段的输出结果是（ ）
Print Format(12345.6,""0.00E+00"")" 1.23E+04 1.23E+4 1.23456E+04 1.23456E+4 A 3
522 "以下程序段的输出结果是（ ）(□表示空格)
Print ""a""; Spc(3);""b""" －19330 □□□－19330 □□－19330 □－19330 A 3
523 "以下程序段的输出结果是（ ）(□表示空格)
Print ""a""; Spc(3);""b""" a□b □a□□□□b a□□□b a□□b C 3
524 "以下程序段的输出结果是（ ）(□表示空格)
Print ""a"";Tab(3);""b""" "a□b " □a□□□□b a□□□b a□□b A 3
525 "以下程序段的输出结果是（ ）(□表示空格)
Print Format(－19.456,""####.##"")" □－19.46 □－19.45 －19.46 －19.45 C 3
526 "以下程序段的输出结果是（ ）(□表示空格)
Print Format(19.456,""0000.00"")" □□19.46 □□19.45 0019.46 0019.45 C 3
527 "以下程序段的输出结果是（ ）(□表示空格)
Print Format(19330,""00000000"")" 19330000 00019330 □□□19330 □19330 D 3
528 "以下程序段的输出结果是（ ）(□表示空格)
Print Tab(3);1" □□□1 □□1 □1 □□□□1 A 3
529 "以下程序段的输出结果是（ ）。
Score=int(rnd*5)+80
Select Case score
Case 60 to 69： a$=“D”
Case 70 to 79： a$=“C”
Case 80 to 89: a$=“B”
Case else: a$=“A”
End select
Print a$" A B C D B 3
530 "以下程序段的输出结果是（ ）。
Score=int(rnd*5)+80
Select Case score
Case is<60： a$=“F”
Case 60 to 69： a$=“D”
Case 70 to 79： a$=“C”
Case 80 to 89: a$=“B”
Case Else: a$=“A”" A B C D B 3
531 "以下程序段的输出结果是（ ）。 N=13: a=2 m=n mod 10 Select Case m Case is<0: a= -1 Case is=0: a=0 Case is>0: a=1 End select Print a" -1 0 1 2 C 3
532 "以下程序段的输出结果是（ ）。 For k=1 to 3 if k <=1 then a=3 if k <=2 then a=2 if k <=3 then a=1 Print a; Next k" 1 1 1 3 2 1 3 3 3 1 2 3 A 3
533 "以下程序段的输出结果是（ ）。
Print Format(#9:21:30PM#,""hh:mm:ss A/P"")" 9:21:30 PM 09:21:30 PM 9:21:30 P 09:21:30 P D 3
534 "以下程序段的输出结果是（ ）。
Print ""1"";""2"";
Print ""3""" 1 2 3 "1 2 3" 123 "12 3" C 3
535 "以下程序段的输出结果是（ ）。 Print ""1"";""2"" Print ""3""" 1 2 3 "1 2 3" 123 "12 3" D 3
536 "以下程序段的输出结果是（ ）。 Print 1;2 Print 3" 1 2 3 "1 2 3" 123 "12 3" B 3
537 "以下程序段的输出结果是（ ）。
Print 1;2,3" 1 2 3 1 2 3 3 2 1 1 2 3 B 3
538 "以下程序段的输出结果是（ ）。 Print 1;2; Print 3" 1 2 3 "1 2 3" 123 "12 3" A 3
539 以下递归函数中，正确的是（ ）。 "Public Function Fn(n As Integer)
If n=0 Then Fn=1 Else Fn=Fn*n
End Function" "Public Function Fn(n As Integer)
If n=0 Then Fn=1 Else Fn=Fn(n)*n
End Functio" "Public Function Fn(n As Integer)
If n=0 Then Fn=1 Else Fn=Fn(n-1)*n
End Function" "Public Function Fn(n As Integer)
If n=0 Then Fn=1 Else Fn=Fn(n+1)*n
End Function" C 3
540 用于遍历对象集合所有元素的语句是（ ）。 Do while…Loop For Each…Next While… Wend For… Next B 3
541 "在窗体上画一个命令按钮，编写如下事件过程： Private Sub Command1_Click() a=InputBox (""Enter the First Integer"")
b=InputBox (""Enter the Second Integer"") Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，输出结果为（）。" 579 "123 " "456 " 123456 D 3
542 "在以下事件过程中，Private表示（ ）。 Private Sub txtName_Change() …… End Sub" 此过程可以被任何其它过程调用 此过程只可以被本窗体模块中的其它过程调用 此过程不可以被任何其它过程调用 此过程是一个不可用过程 B 3
543 "在以下事件过程中，Public表示（ ）。
Public Sub txtName_Change()
……
End Sub" 此过程不可以被本模块中的过程调用 此过程只可以被本窗体模块中的其它过程调用 此过程不可以被任何其它过程调用 "此过程可以被本工程中的所有模块调用 " D 3
544 "在以下事件过程中，Public表示（ ）。 Public Sub txtName_Change() …… End Sub" 此过程不可以被本模块中的过程调用 此过程只可以被本窗体模块中的其它过程调用 此过程不可以被任何其它过程调用 此过程可以被本工程中的所有模块调用 D 3
1015
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
