VB程序习题集附问题详解

1、标准文档简介1、在以下有关对象属性的表达中,不正确的选项是 .A、一个对象的属性可分为外观、行为假设干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最根本的对象是 ,它是应用程序的基石,也是其他控件的容 器.A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic",其中的 Textl、Text 和“Visual Basic分别代 表 oA、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象

2、、值4、用窗体的 属性来设置窗体的标题.A、CaptionB、StyleC、TextD、 Name5、窗体上有一个文本框控件Text1,假设已存在三个整型变量a、b、c,且变量a的值为5,变量b的值为7,变量c的值为12.以下的 语句可以使文本框内显示的内容为：5+7=12.A、Text1.Text = a + b + cB、Text1.Text = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+&q

3、uot; & "b" & "=" & "c"6、如果在窗体上有命令按钮OK,在代码编辑窗口有与之对应的Cmd_Click ()事件,那么命令按钮的名称属性和 Caption属性分别为.A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm ,它的Load事件过程名为 .A、Form_LoadB、Form1_LoadC、frm_Load实用大全标准文档D、Me_Load8、以下有关对象属性的说法正确的选项是 .A、对象所有的属性都罗列在属性窗口列表中B、不同对

4、象不可能有同名属性C、不同对象的同名属性取值一定相同D、对象的某些属性既可以在属性窗口中设置,也可以在程序代码中设置9、一个对象可以执行的动作与可被对象识别的动作分别被称为A、事件、方法B、方法、事件C、属性、方法D、过程、事件10、以下有关算法的表达中, 是不正确的.A、算法中执行的步骤可以无休止的执行下去B、算法中的每一步操作必须含义明确C、算法中的每一步操作都必须是可执行的D、算法必须有输出 11、对象可以识别和响应的某些行为称为C、属性D、事件属性设置为False,那么运行时按钮从窗C、DisabledPicture D、DefaultTrue时,文本框可以输入或显示多行文本.C、Te

5、xtD、EnabledA、方法B、继承A、VisibleB、Enabled13、将文本框的属性设置为A、MultiLineB、ScrollBars12、如果设计时在属性窗口将命令按钮的 体上消失.14、下面 对象无 Caption属性.A、FormB、CommandButtonC、TextBox D、Label15、决定控件上文字的字体、字形、大小、效果的属性是A、TextB、CaptionC、名称OD、Font16、结构化程序设计有三种根本结构,不包括A、顺序结构B、模块结构C、选择结构D、循环结构17、一个对象所能做的事情称为对象的A、方法B、继承OC、属性18、如果设计时在属性窗口将命令

6、按钮的 响应用户的鼠标事件.D、封装,属性设置为False,那么运行时按钮不能A、VisibleB、EnabledC、DisabledPicture D、Default19、当标签的标题内容太长,需要根据标题自动调整标签的大小时,应设置标签的属性设置为True.A、AutoSize20、下面控件中,没有 A、复选框21、任何控件都具有, A、TextB、WordWrap Caption属性的是B、单项选择按钮属性.B、CaptionC、VisibleD、EnabledC、组合框D、框架22、窗体上有多个控件,在 Form_Activate保每次运行程序时,都将光标定位在文本框C、名称事件过程中

7、添加Text1 中D、ForeColor语句,就可以确A、Text1.Text=""实用大全标准文档B、Textl.SetFocusC、Textl.GetFocusD、Text1.Visible=True23、假设已把一个命令按钮的Default属性设置为True,那么下面可导致按钮的Click事件过程被调用的操作是.A、用鼠标右键单击此按钮B、按键盘上的 Esc键C、按键盘上的回车键D、用鼠标右键双击此按钮24、如下选项中, 不是VB提供的程序限制结构.A、顺序结构B、选择结构C、重复结构D、树型结构实用大全标准文档程序代码根底2-b . b - 4ac1、数学表达式2a

8、 对应的Visual Basic表达式为.A、-b + Sqr(b * b - 4 * a * c) / 2 * aB、-b + Sqr(b * b - 4 * a * c) / (2 * a)C、(-b + Sqr(b * b - 4 * a * c) )/ 2 * aD、(-b + Sqr(b * b - 4 * a * c) )/ (2 * a)2、Visual Basic中可以同时删除字符串前导和尾部空格的函数是 .A、LtrimB、RtrimC、TrimD、Mid3、设 A=7, B=4, C=6,那么表达式 A Mod 3 + B A 3 / C 5 的值为.A、出错B、3C、2D

9、、14、在Form_Click事件中执行如下语句的结果是 .Print Format(1236.54, "+#,#0.0%)A、123456B、+123,654.0%C、+123,6.54%D、+123,6545、语句Print "5*20"的输出结果是.A、"5*20"B、出现错误信息C、5*20D、1006、窗体上放置了三个文本框,假设在Text1中输入123,在Text2中输入78,在程序中执行了语句 Text3 = Text1 + Text2 后,那么在 Text3 中显示.A、434B、12378 C、溢出 D、语法错误7、表达式 V

10、al( abcdfg123e1234")的值为.A、 789B、1234C、0D、表达式错8、假设变量BOOL是一个布尔型变量,那么以下赋值语句中,正确的选项是 .A、BOOL ='TRUE'B、BOOL =.TRUE.C、BOOL =#TRUE#D、BOOL = True9、函数Cint、Int、 Fix都返回整数值,以下能正确地描述它们返回整数值大小关系的是实用大全标准文档A、CInt(-5.59)=Int(-5.59)< Fix(-5.59)B、Int(-5.59)<CInt(-5.59)< Fix(-5.59)C、CInt(-5.59)<

11、; Fix(-5.59)<Int(-5.59)D、Int(-5.59)<Fix(-5.59)=CInt(-5.59)10、表达式Int(91*Rnd+20)的最大值是 .D、110D、Len(Val(N)oD、 N1D、3VB逻辑表达式是A、10B、90C、 9911、能正确返回正整数N的数据位数的语句是A、Len(N) B、Len(Str(N)C、Len(CStr(N)12、如下四个符号,可以作为 VB合法变量名的是 A、5_fB、_5flgC、User%s13、以下表达式中运算结果为True的是.A、"ABCRG" >= "abcdeB、In

12、t(134.69) < CInt(134.69)C、78.9 / 35.77 <= 97.5 / 43、87 And -45.4 > -4.98D、Str(32.345) = CStr(32.345)14、表达式 6.5 * 5 Mod 28 8的值是.A、0B、1C、215、能正确描述条件“ A、B之一为零但不得同时为零的A、A = 0 Or B = 0B、A * B = 0 And A + B <> 0C、A * B = 0 Or A + B <> 0D、A = 0 And B = 016、如下语句中,不能正常执行的是 .A、Print 5 + 7

13、=100B、Print 3245343 + 23233C、Print 3423/89D、Print 32765 +317、假设变量Lng为长整形变量,下面不能正常执行的语句是A、Lng=16384*2B、Lng=4*0.5*16384C、 Lng=190A2D、Lng=32768*218、设a= "Visual Basic下面使b的值为"BasicM语句是A、b=Left(a,8,12)B、b=Mid(a,8,5)C、b= Right(a,5,5)D、b=Left(a,8,5)19、下面所列四组数据中,全部是正确的VB常数是A、32768 1、34D2 "ABCD

14、E" &O1767B、3276 123.561、2E-2 #True#C、&HABCE 02-03-2002 False D-3D、ABCDE #02-02-2002#E-2 #True#20、表达式Int(5*Rnd+10)的最小值是 .实用大全标准文档A、9B、10C、11D、1221、将数学表达式 cos2(a+b)+5e2是写成Vb表达式的正确形式是 .A、Cos(a+b)A2+5*Exp(2)B、Cos A2(a+b) +5*Exp(2)C、Cos (a+b) A2 +5*eA2D、Cos A2(a+b) +5*Ln(2)22、假设变量myd为日期时间型变量

15、,下面不能正常执行的语句是 A、myd = 12:23:30B、myd =#10/22/2021 3:30:32 PM#-1C、myd = #10/22/2021 3:30:32 PM#D、myd =#10/22/2021 3:30:32 PM#+1 a - b .23、数学表达式对应的正确 Visual Basic表达式为.a bA、a-b/a+bB、a-b/(a+b)C、(a-b)/a+bD、(a-b)/(a+b)24、设Mys1,Mys2均为字符串型变量,Mys1="Visual Basic", Mys2="b",那么下面关系表达式中结果为True

16、的是.A、 Len(Mys1) <>2*InStr(Mys1, i")B、Mid(Mys1,8,1)>Mys2C、Chr(98) & Right(Mys1,4)= " Basic D、InStr(Left(Mys1,6), " a" )+60>Asc(Ucase(Mys2)25、设 A=7,B=4,C=6,那么表达式 A Mod3+BA3/C5 的值为.A、1B、2C、3D、出错26、语句 Print Format(12345.6, "+#,#0.00")执行结果是 .A、12,345.6 B、+12,

17、345.60 C、 +#12,345.60 D、+12,345.627、函数 ASC( A")的值65,那么函数ASC( b")的值是.A、65B、98C、78D、10028、以下 是字符串常量.A、FalseB、"abc"C、'def 'D、# True #29、以下不能作为 Visual Basic变量名的是.A、2FaB、F2aC、Fa2D、Fa_230、设有以下定义语句：Dim m, n as Single, d1 as Double, d2 as string那么变量m的类型是A、单精度型B、双精度型C、字符串型D、可变类型31

18、、表达式 5 * 2 Mod 25 2人2 的值是.A、1B、0C、6D、432、显示如下图输入框的Inputbox语句是.应用例如实用大全标准文档A、a = InputBox("应用例如","请输入"& "正整数", "1")B、a = InputBox("应用例如","请输入"& vbCrLf & "正整数", "1")C、a = InputBox("请输入"& "正整数

19、","应用例如", "1")D、a = InputBox("请输入"& vbCrLf & "正整数","应用例如","1")33、以下 是布尔型常量.A、TrueB、" True "C、' True 'D、# True #34、如果将布尔常量值True赋值给一个整型变量,那么整型变量的值为 A、0B、-1C、TrueD、False35、以下表达正确的选项是 .A、注释语句是执行语句,仅对程序的有关内容起注释作用B、

20、代码中参加注释语句的目的是提升程序的可读性C、注释语句不可以放在续行符的后面D、只能使用Rem关键字书写注释语句36、下面 不是字符串常量.A、"你好"B、""C、"True"D、#False#37、以下符号常量的声明中, 是不合法的.A、Const a as Single=1.1B、Const a as Integer="12"C、Const a as Double=Sin(1)D、Const a="OK"38、以下表达中不正确的选项是 .A、变量名的第一个字符必须是字母B、变量名的长度不超过

21、255个字符C、变量名可以包含小数点或者内嵌的类型声明字符D、变量名不能使用关键字39、Int(100 * Rnd()产生的随机整数区间是 .A、0,99B、1,100C、0,100D、1,9940、函数 Right("Beijing", 4)的值是.A、BeijB、jingC、eijiD、ijin41、表达式 Abs(-5) + Len("ABCDE")的值是.A、5ABCDE B、-5ABCDEC、10D、042、设A、B、C表小二角形的二条边,表不条件“任意两边之和大于第二边的布尔表达 式可以用 表示.A、A + B > C Or A + C

22、 > B Or B + C > AB、A + B < C Or A + C < B Or B + C < AC、A + B > C And A + C > B And B + C > AD、A + B < C And A + C < B And B + C < A43、在一个语句行内写多条语句时,语句之间应该用 分隔.A、逗号B、分号C、顿号D、冒号44、下面 是字符串常量.A、mB、#01/01/99#C、"m"D、True45、要强制显式声明变量,可在窗体模块或标准模块的通用声明段中参加语句 A、Opti

23、on Base 0B、Option Explicit实用大全标准文档C、Option Base 1D、Option compare46、产生10,37之间的随机整数的 VB表达式是A、Int(Rnd * 27) + 10B、Int(Rnd * 28) + 10C、Int(Rnd * 27) + 11D、IntRnd * 28 + 1147、有以下定义语句：Dim max, min As IntegerD、长整型D、how are youD、hai0的表达式是那么变量 max的类型是 .A、可变类型B、单精度型C、整型48、函数 Left("how are you", 3)的

24、值是.A、howB、areC、you49、函数 Mid("shanghai", 6, 3)的值是.A、 shanghB、 shaC、 angh50、可表示“两个变量 A和B之一为0,但不能同时为A、A = 0 And B <> 0B、A * B = 0 And A <> BC、A <> 0 And B = 0D、A <> 0 And B = 0 And A = 0 And B <> 051、在VB代码编辑器中,用来表示续行的是 .A、一个空格加一个下划字符_ B、一个下划字符_C、直接回车D、一个空格加一个连字符

25、-52、如果将布尔常量值 False赋值给一个整型变量,那么整型变量的值为 A、0B、 1C、TrueD、False实用大全标准文档选择结构程序设计1、以下语句正确的选项是 .4A、If x < 4 * y And x > y Then y = xB、If x < 4 * y And x > y Then y = x A 4C、If x < 4 * y : x > y Then y = x a 4D、If x < 4 * y And x > y Then y = x * 42、分析以下语句,给出执行结果Private Sub Form_Click

26、()Const pi As Single = 3.14a% = 7If a Mod 4 > pi Then Print "努力" Else Print "学习"End Sub执行结果为,其判决条件的值为.A、努力 TRUEB、学习 FalseC、努力 FalseD、学习 TRUE3、针对语句If I = 1 Then J = 1 ,以下说法正确是 .A、I = 1和J = 1均为赋值语句B、I = 1、J = 1均为关系表达式C、I = 1为关系表达式,J = 1为赋值语句D、I = 1为赋值语句,J = 1为关系表达式If语句是4、如果X的值大于

27、或等于 Y的平方,那么打印“ OK,表示这个功能的单行格式A、If x >= y a 2 Then Print OKB、If x >= y 2 Then Print "OK"C、If x >= y a 2 Then Print "OK"D、If x >= y a 2 Then Print "OK" End If5、语句X = X + 1的正确含义是.A、变量X的值与X + 1的值相等B、将变量X的值存到 X + 1中去C、将变量X的值加1后赋给变量XD、变量X的值为16、以下 程序段可以实现 X、Y变量值的交换

28、.A、Y = X: X = YB、Z = X: Y = Z: X = YC、Z = X: X = Y: Y = ZD、Z = X: W = Y: Y = Z: X = Y7、以下语句正确的选项是 .A、If A >B Then T=A A=B B=T实用大全标准文档B、If A >B Then T=A ;A=B; B=TC、If A>=B Then T=A A=B B=TD、If A>=B Then T=A : A=B : B=T8、关于语句If x = 1 Then y = 1 ,以下说法正确的选项是 .A、x = 1和y = 1均为赋值语句B、x = 1和y = 1

29、均为关系表达式C、x = 1为关系表达式,y = 1为赋值语句D、x = 1为赋值语句, y = 1为关系表达式9、以下说法中正确的选项是 .A、语句Text1.Text = x的含义是将变量 x的值显示于文本框 Text1中B、语句Text1.Text = x的含义是将文本框 Text1中的内容赋值给变量 xC、语句Text1.Text = x的含义是将文本框 Text1中的内容转换为数值型后赋值给变量D、以上说法都是错误的10、以下语句正确的选项是 .A、If x < 3 * y And x > y Then y = x A 3B、If x < 3 * y And x &

30、gt; y Then y = x 3C、If x < 3 * y : x > y Then y = x a 3D、If x < 3 * y And x > y Then y = x * * 3语句是11、如果X的值小于或等于Y的平方,那么打印“ OK,表示这个功能的单行 IfA、If x <= y 2 Then Print "OK"B、If x <= y a 2 Then Print "OK"C、If x <= y a 2 Then "OK"D、If x <= y a 2 Print &

31、quot;OK"实用大全标准文档循环结构程序设计1、在程序中有语句 For i = n1 To n2 Step n3 ,那么在循环体中有以下 语句会影响循 环执行的次数.A、n1 = n1 + 1B、n2 = n2 + n3C、n3 = 2 * n3D、i=i+n32、循环结构For I = 1 to 15 step 2的执行次数是 .A、6B、7C、8D、93、以下循环结构中,窗体上打印出来的循环变量 i的值为.sum = 0For i = 1 To 100sum= sum + iNext iPrint i ; sumA、1B、2C、100D、1014、以下循环结构中,循环体 x

32、= x + k的执行次数为 .x = 0For k = 1 To 10 Step 2x = x + kNext kprint k ; xA、0B、1C、5D、105、以下循环语句中在任何情况下都至少执行一次循环体的是A、Do While < 条件 >循环体B、While条件循环体LoopC、Do循环体Loop Until < 条件 >6、在窗体上画一个名称为WendD、Do Until < 条件 >循环体LoopCommand1的命令按钮,并编写以下程序:Private Sub Command1_Click() Dim n% ,b ,tDob = b * n

33、t = t + bn = n +1Loop Until n>9 Print t实用大全标准文档End Sub此程序计算并输出一个表达式的值,该表达式是 A、9!B、10!C、1 ! +2! +9!D、 1! +2! +-+10!实用大全标准文档数组1、某过程的说明语句中,正确的数组说明语句是 .Const n As Integer = 3Dim L As Integer Dim x(L) As Integer Dim a(k) As IntegerConst k As Integer = 3 Dim b(n) As Integer Dim y(2000 to 2021) as Integ

34、erA、B、C、D、2、以下有关数组的说法中,错误的选项是 .A、数组必须先定义后使用B、数组形参可以是定长字符串类型C、Erase语句的作用是对已定义数组的值重新初始化D、定义数组时,数组维界值可以不是整数3、在窗体的通用声明处有语句“ Dim a() As Single ",以下在某事件过程中重定义此数组的 一组正确语句是 .A、ReDim a(3, 3)ReDim a(4, 4) As IntegerB、ReDim a(3, 3)ReDim preserve a(4, 4)C、ReDim a(3)ReDim a(3, 3) as IntegerD、ReDim a(3, 3)Re

35、Dim preserve a(3, 4)4、以下 是Visual Basic合法的数组元素表示法.A、x_9B、x9C、x9D、x(9)5、下面的数组声明语句中 是正确的.A、Dim a3,4 As IntegerB、Dim a(3, 4) As IntegerC、Dim a(3;4) As IntegerD、Dim a(3:4) As Integer6、设有数组声明语句：Option Base 1Dim b(-1 To 1,2 ) As Integer那么数组b中共有 个元素.A、2B、4C、6D、97、使用语句 Dim a(1 To 15) As String声明数组a之后,以下说法正确的

36、选项是 A、A数组中的所有元素值为 0实用大全标准文档B、A数组中的所有元素值不确定C、A数组中的所有元素值为空串D、A数组中的所有元素值为True8、关于ReDim语句,以下说法错误的选项是 .A、ReDim语句可以改变数组的维数B、ReDim语句既可以在过程中使用,也可以在模块的通用声明处使用C、ReDim语句可保存动态数组中原有的内容D、在ReDim语句中,可使用变量说明动态数组的大小9、设有数组声明语句：Option Base 1Dim a(-1 To 2, 8) As Long那么,函数 LBound(a , 2)的值为.A、0B、一 1C、1D、210、以下关于控件数组的说法错误的

37、选项是 .A、控件数组由一组具有共同名称和相同类型的控件组成B、控件数组中的每一个控件共享同样的事件过程C、控件数组中的每个元素的下标由控件的Index属性指定D、同一控件数组中的元素只能有相同的属性值11、设有命令按钮 Command1单击事件过程,代码如下：Private Sub Command1_Click()Dim a(30 ) As IntegerFor i=1 To 30a(i) =Int(Rnd*100 )NextFor Each arrItem In aIf arrItem Mod 7=0 Then Print arrItem ;If arrItem>90 Then Ex

38、it ForNextEnd Sub对于该事件过程,以下表达中错误的选项是 .A、a数组中的数据是 30个100以内的整数B、语句For Each arrItem In a有语法错误C、If arrItem Mod 7=0语句的功能是输出数组中能够被7整除的数D、If arrItem>90 语句的作用是当数组元素的值大于90时退出For循环12、有以下程序：Option Base 1Dim a() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim a(3, 2 )Fori = 1 To 3Forj =

39、 1 To 2a(i, j) = i * 2 + jNext j实用大全标准文档Next iReDim Preserve a(3, 4)Forj = 3 To 4a(3,j) =j + 9Next jPrint a(3, 2) ; a(3, 4)End Sub程序运行后,单击窗体,输出结果是 .A、 8 13B、 0 13C、 7 12D、 0 013、下面的数组声明语句中 是正确的.A、Dim a3,4 as IntegerB、Dim a(3, 4) As IntegerC、Dim a3;4 as IntegerD、Dim a(3:4) as Integer14、设有数组声明语句：Optio

40、n Base 1Dim A(2) As Integer那么数组A的下界为 .A、0B、1C、2D、不能确定15、以下说法不正确的选项是 .A、使用ReDim语句可以改变动态数组的维数B、假设用Dim语句定义了动态数组的类型,可以用 ReDim更改为其它类型C、使用ReDim语句可以改变动态数组每一维的大小D、使用ReDim语句可以对动态数组中的所有元素进行初始化16、用Array函数给某X赋值时,X必须是.A、已经声明的静态数组B、已经声明的动态数组C、Variant类型的变量D、整型变量17、设有数组声明语句：Option Base 1Dim A(-1 To 2) As Long那么函数UB

41、ound(A)的值为.A、0B、一 1C、1D、218、设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法中错误的是.A、命令按钮的Caption属性都是Command1B、在代码中访问任意一个命令按钮只需使用名称Command1C、命令按钮的大小都相同D、命令按钮共享相同的事件过程19、在窗体上画1个命令按钮,并编写如下事件过程：Private Sub Commandl Click()Dim a(3,3)For m=1 To 3实用大全标准文档For n=1 To 3If n=m Or n=4-m Then a(m,n)=m+nElsea(m,n)=0End If

42、Print a(m,n);Next nPrintNext mEnd Sub运行程序,单击命令按钮,窗体上显示的内容为 200040A、0062 0 40 4 0B、4 0 62 3 03 4 0C、0 0 62 0 00 4 5D、0 5 620、以下程序段的执行结果为 .Dim A(3)Fori = 1 To 3A(i) = i * iNext iD、1Print A(i - 1)A、16B、9C、421、以下 是VB中合法的数组元素表示法.A、X9B、X9C、X9D、X(9)22、设有数组声明语句：Option Base 1Dim A(-1 to 2) As Integer那么数组A中共有

43、 个元素.A、2B、3C、4D、不能确定 23、使用语句Dim A(1 To 15) As Integer声明数组 A之后,下面说法中正确的选项是 A、数组中所有元素的值为0B、数组中所有元素的值不确定C、数组中所有元素的值为空串D、以上说法均不对24、在以下语句中,a只能是.Dim X(15)For Each a In XPrint a;Next aA、已经声明的静态数组B、已经声明的动态数组C、Variant类型的变量D、整型变量25、设有数组声明语句：Option Base 1实用大全标准文档Dim A(2) As Long 那么函数LBound(A)的值为.A、0B、一 1C、1D、2

44、26、在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为M1.设窗体Forml标题为“ myform1",双击控件数组中的第三个按钮,翻开代码编辑器,写如下代码：Private Sub M1_Click(Index As Integer)Form1.Caption = "myform2"End Sub运行时单击按钮数组中的第一个按钮,那么窗体显示标题为 .A、Form1 B、M1C、myform1 D、myform227、在窗体上画一个名为Command1的命令按钮,然后编写如下代码：Option Base 1Private Sub Command1_Cl

45、ick()Dim a, s As Integer a = Array(1,2, 3, 4) j = 1For i = 4 To 1 Step -1 s = s + a(i) * j j =j* 10Next iPrint sEnd Sub运行上面的程序,其输出结果是 .A、1234 B、12C、34D、432128、窗体上有 Command1、Command2两个命令按钮.现编写以下程序：Option Base 0Dim a( ) As Integer, m As IntegerPrivate Sub Command1_Click() m=InputBox("请输入一个正整数 &qu

46、ot;) ReDim a(m)End SubPrivate Sub Command2_Click() m=InputBox("请输入一个正整数 ") ReDim a(m)End Sub运行程序时,单击 Command1后输入整数10,再单击Command2后输入整数 5,那么数组 a中元素的个数是.A、5B、6C、10D、1129、下面有关数组的说法中,错误的选项是 .A、一般而言,数组必须先定义后使用B、数组的下界必须从0开始C、Erase语句的作用是对已定义固定大小数组的值重新初始化D、定义数组时,数组维界值可以不是整数30、下面有关数组处理的表达中,不正确的选项是 .

47、实用大全标准文档A、过程中用ReDim语句重定义动态数组时,其下标的上下界可为赋了值的变量B、在过程中,可以使用Dim、Private和Static语句定义数组C、用ReDim语句重新定义动态数组时,不得改变该数组的数据类型D、在ReDim语句中使用Preserve语句时,只能改变数组最后一维的维上界实用大全标准文档过程1、以下说法中正确的选项是 .A、在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名,但其作用域只限于该过程B、在窗体的Form_Load事件过程中定义的变量是全局变量C、局部变量的作用域可以超出所定义的过程D、在调用过程时,所有局部变量被系统初始化为0或空

48、字符串2、下有关参数的说法中,错误的选项是 .A、过程的形参不可以是定长字符串类型的变量B、按地址传递参数,形参和实参的类型可以不同C、按值传递参数,形参和实参的类型可以不同,只要相容即可D、按地址传递参数,形参和实参也能以按值传递方式进行形实结合3、Visual Basic中系统默认的参数传递方式是 .A、按值B、按地址C、byvalD、按形参4、在Visual Basic中,以下关于过程的定义说法正确的选项是 .A、过程可以嵌套定义也可以嵌套调用B、过程可以嵌套定义但不可以嵌套调用C、过程不可以嵌套定义但可以嵌套调用D、过程不可以嵌套定义也不可以嵌套调用5、假设在应用程序中用“Privat

49、e Sub sub1(x As Integer, y As Single)定义了子程序 subl,调用程序中的变量i,j均为Integer型,那么正确调用子程序subl的是. Call sub1(i, j) Call sub1(3.1415, i) Call sub1(3.14, 234) Call sub1("245", "231.5")A、B、C、D、无6、调用由语句 Private Sub convert(y As Integer)定义的Sub过程时,以下不是按值传递的语 句是.A、Call convert(x)B、Call convert(x *

50、 1)C、convert (x)D、convert x7、在 Visual Basic中,全局变量的定义方式是 .A、DimB、StaticC、Private实用大全标准文档D、Public8、在过程中定义的变量,假设希望在离开过程后,还能保存过程中该变量的值,那么应该使用 关键字在过程中定义该局部变量.A、DimB、StaticC、PrivateD、Public 9、可以在 中,使用 Public pubstr as String*20定义一个定长字符串.A、窗体模块B、标准模块C、类模块D、三者均可10、假设在应用程序的标准模块、窗体模块和过程Sub1的说明局部,分别用“ Public G

51、 AsInteger"、aPrivate G As Integer "和"Dim G As Integer 语句说明了三个同名变量G.如果在过程Sub1中使用赋值语句“ G=3596,那么该语句是给在 说明局部定义的变量 G赋值.A、标准模块B、过程Sub1C、窗体模块D、标准模块、窗体模块和过程Sub111、多窗体程序由多个窗体组成.在缺省情况下,Visual Basic在执行应用程序时,总是把指定为启动窗体.A、不包含任何控件的窗体B、设计时的第一个窗体C、命名为Frm1的窗体D、包含控件最多的窗体12、在窗体模块的通用声明段中声明变量时,不能使用 关键字.A

52、、DimB、Static13、下面的过程定义语句中合法的是A、Sub proc1(Byval n()C、Function proc1(proc1)C、PrivateD、PublicB、Sub proc1(n) As IntegerD、Function proc1(Byval n)14、Sub过程与Function过程最根本的区别是 A、两种过程参数的传递方式不同B、Sub过程可以使用 Call语句或直接使用过程名调用,而 Function不可以C、Sub过程的过程名不能返回值,而 Function过程能通过过程名返回值D、Function过程可以有参数,Sub过程不可以15、在过程调用中,参数

53、的传递可以分为 两种方式.A、按值传递和按地址传递B、按值传递和按参数传递C、按地址传递和按参数传递D、按参数传递和按位置传递16、要想在过程调用后返回两个结果,下面的过程定义语句中正确的选项是 B、Sub proc1(ByVal n, m)D、Sub proc1(n, m)命令来建立.C、添加窗体D、添加模块A、Sub proc1(ByVal n, ByVal m)C、Sub proc1(n, ByVal m)17、通用过程可以通过执行“工具菜单中的A、添加过程B、通用过程实用大全标准文档18、假设已定义了一个私有通用过程Private Sub Sub1(a As Single, b As

54、Single),那么以下调用语句中错误的选项是.A、Sub1 12, 12B、Call Sub1 x, yC、Call Sub1(2*x , sin(1)D、sub1 12, x19、在过程调用中,参数的传递可以分为按值传递和 两种方式.A、按数组传递B、按参数传递C、按地址传递D、按索引传递20、在参数传递过程中,使用关键字 来修饰参数,可以使之按值传递.A、ByValB、ByRefC、ValueD、Reference21、下面有关标准模块的表达中,错误的选项是 .A、标准模块不完全由代码组成,还可以有窗体B、标准模块中的Private过程不能被工程中的其他模块调用C、标准模块的文件扩展名为

55、.basD、标准模块中的全局变量可以被工程中的任何模块引用22、下面的过程定义语句合法的是 .A、Sub proc1(ByVal n()B、Sub proc1(n) As IntegerC、Function proc1(proc1)D、Function proc1(ByVal n)23、在过程调用中,参数的传递可以分为按地址传递和 两种方式.A、按数组传递B、按参数传递C、按值传递D、按位置传递24、在参数传递过程中,使用关键字 来修饰参数,可以使之按地址传递.A、ByValB、ByRefC、ValueD、Reference25、Sub过程与Function过程最根本的区别是.A、Sub过程可

56、以使用 Call语句调用,而 Function过程不可以B、Function过程可以有参数,而 Sub过程不可以C、两种过程的参数传递方式不同D、Sub过程的过程名不能返回值,而 Function过程能通过过程名返回值26、标准模块中有如下程序代码：Public x As Integer , Y As IntegerSub var_pub()x=10 : y=20End Sub在窗体上有1个命令按钮,并有如下事件过程：Private Sub Commandl_Click()Dim x As IntegerCall var_pubx=x+100y=y+100Print x; yEnd Sub运行程序后单击命令按钮,窗体上显示的是 .A、100 100B、100 120C、110 100D、110 12027、在窗体上有1个命令按钮,并有如下事件过程