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,下列表达式的值是（ ）。 3>2*b OR a=c AND b<>c OR c<d" True False 0 1 A 3 348 "设a=2,下列表达式的值是（ ）。 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,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)，则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,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(红色值,黑色值)" 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)" "RGB(-255,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,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,1000语句后，控件Text1的宽度是（ ）twip。" 200 300 1500 1000 C 3 470 "执行Text1.Move 200,1000语句后，控件Text1上边距窗体（ ）twip。" 200 300 1500 1000 D 3 471 "执行Text1.Move 200,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%,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,3)，则单击Command1时，输出结果为（ ）。 Private Function Max( a,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,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,c) Sum=a+b+c End Function" 1 2 3 6 D 3 503 "已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。 Private Function Sum( a,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,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,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,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,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