VB试题库(全国)

1、一、选择题1以下叙述中错误的是_。A.vbp文件是工程文件，一个工程可以包含.bas文件B.frm文件是窗体文件，一个窗体可以包含.bas文件C.vbp文件是工程文件，一个工程可以由多个.frm文件组成D.vbg文件是工程组文件，一个工程组可以由多个工程组成2以下合法的VB变量名是_。ACase Bt-name Cname10 Dx*y3以下描述中错误的是_。A窗体的标题通过其Caption属性设置B窗体的名称(Name属性)可以在运行期间修改C窗体的背景图形通过其Picture属性设置D窗体最小化时的图标通过其Icon属性设置4在Visual Basic集成环境中，可以列出工程中所有模块名称

2、的窗口是_。A工程资源管理器窗口 B窗体设计窗口C属性窗口 D代码窗口5在Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是_。A B C D6在Visual Basic集成环境中，要结束一个正在运行的工程,可单击工具栏上的一个按钮,这个按钮是_。A B C D7以下变量名中合法的是_。Ax2-1 Bprint Cstr_n D2x8执行语句Dim X，Y As Integer后，_。AX和Y均被定义为整型变量BX和Y均被定义为变体类型变量CX被定义为整型变量，Y被定义为变体类型变量DX被定义为变体类型变量，Y被定义为整型变量9在设计窗体时双击窗体的任何

3、地方，可以打开的窗口是_。A代码窗口 B属性窗口C工程资源管理器窗口 D工具箱窗口10以下叙述中错误的是_。A标准模块文件的扩展名是.basB标准模块文件是纯代码文件C在标准模块中声明的全局变量可以在整个工程中使用D在标准模块中不能定义过程11以下叙述中错误的是_。A在Visual Basic的窗体中，一个命令按钮是一个对象B事件是能够被对象识别的状态变化或动作C事件都是由用户的键盘操作或鼠标操作触发的D不同的对象可以具有相同的方法12设x是小于10的非负数。对此陈述，以下正确的VB表达式是_。A0x<10 B0<=x<10Cx>=0 And x<10 Dx>

4、;=0Orx<=1013在设计阶段，当按CtrlR键时，所打开的窗口是_。A代码窗口 B工程资源管理器窗口C工具箱窗口 D属性窗口14在设计阶段，当按下F4键时，所打开的窗口是_。A代码窗口 B工具箱窗口C工程资源管理器窗口 D属性窗口15在Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是_。A工程资源管理器窗口 B属性窗口C工具箱窗口 D代码窗口16设x是整型变量,与函数IIf(x>0,-x,x)有相同结果的代数式是_。A|x| B-|x| Cx D-x17把数学表达式5x+32y-6表示为正确的VB表达式应该是_。A(5x3)/(2y6) B

5、x*53/2*y-6C(5*x3)(2*y-6) D(x*53)/(y*26)18以下关系表达式中，其值为True的是_。A"XYZ">"XYz" B"VisualBasic"<>"visualbasic"C"the"="there" D"Integer"<"Int"19若变量a未事先定义而直接使用(例如：a=0)，则变量a的类型是_。AInteger BString CBoolean DVariant20在Vi

6、sual Basic中，表达式3*25 Mod 3的值是_。A1 B0 C3 D出现错误提示21设x=3.3,y=4.5，表达式x-Int(x)+Fix(y)的值是_。A3.5 B4.8 C4.3 D4.722以下关于窗体的叙述中，错误的是_。A窗体的Name属性用于标识一个窗体B运行程序时改变窗体大小，能够触发窗体的Resize事件C窗体的Enabled属性为False时，不能响应单击窗体的事件D程序运行期间，可以改变Name属性值23设有如下变量声明语句：Dim a,b As Boolean则下面叙述中正确的是_。Aa和b都是布尔型变量Ba是变体型变量，b是布尔型变量Ca是整型变量，b是布

7、尔型变量Da和b都是变体型变量24为了使标签具“透明”的显示效果，需要设置的属性是_。ACaption BAlignmentCBackStyle DAutoSize25下列叙述中错误的是_。A列表框与组合框都有List属性B列表框有Selected属性，而组合框没有C列表框和组合框都有Style属性D组合框有Text属性，而列表框没有26设窗体文件中有下面的事件过程：Private Sub Commandl_Click()Dim sa%=100Print aEnd Sub其中变量a和s的数据类型分别是_。A整型,整型 B变体型,变体型C整型,变体型 D变体型,整型27下面有关标准模块的叙述中，

8、错误的是_。A标准模块不完全由代码组成，还可以有窗体B标准模块中的Private过程不能被工程中的其他模块调用C标准模块的文件扩展名为.basD标准模块中的全局变量可以被工程中的任何模块引用28执行以下程序段a$="Visual Basic Programming"b$="C+"c$=UCase(Left$(a$,7)& b$&Right$(a$,12)后，变量c$的值为_。AVisual BASIC ProgrammingBVISUAL C+ProgrammingCVisual C+ProgrammingDVISUAL BASIC Pr

9、ogramming29为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为_。ADim pi As Integer BDim pi(7)As IntegerCDim pi As Single DDim pi As Long30以下选项中，不合法的Visual Basic的变量名是_。Aa5b B_xyz Ca_b Dandif31窗体上有一个名称为Command1的命令按钮，其中部分代码如下：Private Sub Command1_Click()Dim a(10)As IntegerDim n As IntegerCall calc(a,n)End Subcalc过程的首行

10、应该是_。ASub calc(x() As Integer, n As Integer)BPublic Sub calc(x() As Integer)CPrivate Sub calc(a(n) As Integer, n As Integer)DPublic Sub calc(a As Integer, n As Integer)32下面定义窗体级变量a的语句中错误的是_。ADim a% BPrivate a%CPrivate a As Integer DStatic a%33下列可作为Visual Basic变量名的是_。AA#A B4ABCC?xy DPrint_Text34下面可以产

11、生2030(含20和30)的随机整数的表达式是_。AInt(Rnd*10+20) BInt(Rnd*11+20)CInt(Rnd*20+30) DInt(Rnd*30+20)35设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是_。AName BIndex CCaption DLeft36下面哪个属性肯定不是框架控件的属性_。AText BCaption CLeft DEnabled37下面控件中，没有Caption属性的是_。A复选框 B单选按钮 C组合框 D框架38下列叙述中正确的是_。AMsgBox语句的返回值是一个整数B执行MsgBox语句并出现信息框后，不用关闭信息框即可执行

12、其他操作CMsgBox语句的第一个参数不能省略D如果省略MsgBox语句的第三个参数(Title)，则信息框的标题为空39表达式2*32 +4*2/2 + 32的值是_。A30 B31 C49 D4840以下数组定义语句中，错误的是_。AStatic a(10)As IntegerBDim c(3,1 To 4)CDim d(-10)DDim b(0 To 5,1 To 3)As Integer41设有如下程序：Sub f(x As Integer, ByVal y As Integer)x=2*xy=y+xEnd SubPrivate Sub Command1_Click()Dim a As

13、 Integer, b As Integera=6:b=35Call f(a, b)Print a, bEnd Sub程序运行后，单击命令按钮Command1，输出结果为_。A647 B1247C635 D123542表达式Int(Rnd(0)*50)所产生的随机数范围是_。A(0,50) B(1,50) C(0,49) D(1,49)43假定一个滚动条的LargeChange属性值为100，则100表示_。A单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量B滚动框位置的最大值C拖动滚动框时滚动框位置的变化量D单击滚动条箭头时滚动框位置的变化量44设窗体上有一个名称为HS1的水平滚动条，如

14、果执行了语句：HS1.Value=(HS1.Max-HS1.Min)/2+HS1.Min则_。A滚动块处于最左端B滚动块处于最右端C滚动块处于中间位置D滚动块可能处于任何位置，具体位置取决于Max、Min属性的值45滚动条可以响应的事件是_。ALoad BScrollCClick DMouseDown46下面不能在信息框中输出"VB"的是_。AMsgBox"VB" Bx=MsgBox("VB")CMsgBox("VB") DCall MsgBox"VB"47用来设置文字字体是否斜体的属性是_。A

15、FontUnderline BFontBoldCFontSlope DFontItalic48在窗体上画一个文本框(名称为Textl)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是_。APrivate Sub Textl_Change()Label1.Caption=Str(Len(Text1.Text)End SubBPrivate Sub Text1_Click()Label1.Caption=Str(Len(Text1.Text)End SubCPrivate Sub Text1_Chang

16、e()Label1.Caption=Text1.TextEnd SubDPrivate Sub Label1_Change()Label1.Caption=Str(Len(Text1.Text)End Sub49以下不能输出"Program"的语句是_。APrint Mid("VBProgram",3,7)BPrint Right("VBProgram",7)CPrint Mid("VBProgram",3)DPrint Left("VBProgram",7)50现有语句：y=IIf(x>

17、0,x Mod 3,0)设x=10，则y的值是_。A0 B1 C3 D语句有错51以下叙述中正确的是_。A窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B在工程中只有启动窗体可以建立菜单C窗体名称必须与窗体文件的名称相同D程序一定是从某个窗体开始执行的52设x=5，执行语句Print x=x+10，窗体上显示的是_。A15 B5 CTrue DFalse53在窗体上面一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()MsgBox Str(123+321)End Sub程序运行后，单击命令按钮，则在信息框中显示的提示信息为_。A字符串"1

18、23321" B字符串"444"C数值"444" D空白54窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是_。APrint Cb1.SelectedBPrint Cb1.List(Cb1.ListIndex)CPrint Cb1.Selected.TextDPrint Cb1.List(ListIndex)55设a=5，b=6，c=7，d=8，执行语句xIIf(a>b)And(c>d),10,20)后，x的值是_。A10 B20 C30 D20056窗体上有一个名称为Option1的单选按钮数组,

19、程序运行时,当单击某个单选按钮时,会调用下面的事件过程Private Sub Optionl_Click(Index As Integer)End Sub下面关于此过程的参数Index的叙述中正确的是_。AIndex为1表示单选按钮被选中,为0表示未选中BIndex的值可正可负CIndex的值用来区分哪个单选按钮被选中DIndex表示数组中单选按钮的数量57若看到程序中有以下事件过程，则可以肯定的是，当程序运行时_。Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single)Pr

20、int "VB Program"End SubA用鼠标左键单击名称为"Commandl"的命令按钮时，执行此过程B用鼠标左键单击名称为"MouseDown"的命令按钮时，执行此过程C用鼠标右键单击名称为"MouseDown"的控件时，执行此过程D用鼠标左键或右键单击名称为"Click"的控件时，执行此过程58在窗体上画两个单选按钮(名称分别为Option1、Option2，标题分别为“宋体”和“黑体”)、 1个复选框(名称为Check1，标题为“粗体”)和1个文本框(名称为Textl，Text属

21、性为“改变文字字体”)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是_。AOption1.Value=FalseCheck1.Value=TrueBOption1.Value=TrueCheck1.Value=0COption2.Value=FalseCheck1.Value=2DOption1.Value=TrueCheck1.Value=l59窗体上有一个名称为Frame1的框架(如下图)，若要把框架上显示的“Frame1”修改为汉字“框架”，下面正确的语句是_。AFrame1.Name="框架" BFra

22、me1.Caption="框架"CFrame1.Text="框架" DFrame1.Value="框架"60为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后把ScrollBars属性设置为_。A0 B1 C2 D361窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：Private Sub Command1_Click()Static x As Variantn=0x=Array(1,2,3,4,5,6,7,8,9,10)While n<=4x(n)=x(n+5)Prin

23、t x(n);n=n+1WendEnd Sub运行程序，单击命令按钮Command1，窗体上显示的是_。A1 2 3 4 5 B6 7 8 9 10 C2 3 4 5 6 D6 2 3 4 562设有如下数组声明语句：Dim arr(-2 To 2,0 To 3)As Integer该数组所包含的数组元素个数是_。A20 B16 C15 D1263假定有以下程序：Private Sub Form_Click()a=1:b=aDo Until a>=5x=a*bPrint b;xa=a+bb=b+aLoopEnd Sub程序运行后，单击窗体，输出结果是_。A1 1 B1 1 C1 1 D1

24、 12 3 2 4 3 8 3 664为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是_。A把这2组单选按钮设置为名称不同的2个控件数组B使2组单选按钮的Index属性分别相同C使2组单选按钮的名称分别相同D把2组单选按钮分别画到2个不同的框架中65语句Print Sgn(-62)+Abs(-62)+Int(-62)的输出结果是_。A-36 B1 C-1 D-7266设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发_。AText1的SetFocus事件 BText1的GotFocus事件CText1的Los

25、tFocus事件 D窗体的GotFocus事件67可以产生3050(含30和50)之间的随机整数的表达式是_。AInt(Rnd*2130) BInt(Rnd*2030)CInt(Rnd*50Rnd*30) DInt(Rnd*3050)68在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=1234c1=Trim(Str(c)For i=1 To 4Print_NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为_。ARight(c1,i) BLeft(

26、c1,i)CMid(c1,i,1) DMid(c1,i,i)69以下叙述中错误的是_。A在通用过程中，多个形式参数之间可以用逗号作为分隔符B在Print方法中，多个输出项之间可以用逗号作为分隔符C在Dim语句中，所定义的多个变量可以用逗号作为分隔符D当一行中有多个语句时，可以用逗号作为分隔符70文本框 Text1 的 KeyDown 事件过程如下：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)End Sub其中参数KeyCode的值表示的是发生此事件时_。A是否按下了Alt键或Ctrl键 B按下的是哪个数字键C所按的

27、键盘键的键码 D按下的是哪个鼠标键71窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：Private Sub Command1_Click()x=InputBox("输入x:",0)y=InputBox("输入y:",0)Label1.Caption=x+yEnd Sub运行程序，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是_。A程序运行有错误，数据类型不匹配B程序运行有错误，InputBox函数的格式不对C在Label1中显示5D在Label1中显示2372现有由多个单选按钮构成的控件

28、数组，用于区别该控件数组中各控件的属性是_。ANameBIndex CCaption DValue73在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是_。AListl.RemoveItem Listl.Text BListl.RemoveItem List1.ClearCListl.RemoveItem List1.ListCount DListl.RemoveItem List1.ListIndex74如果一个直线控件在窗体上呈现为一条垂直线,则可以确定的是_。A它

29、的Y1、Y2属性的值相等B它的X1、X2属性的值相等C它的X1、Y1属性的值分别与X2、Y2属性的值相等D它的X1、X2属性的值分别与Y1、Y2属性的值相等75如果一个直线控件在窗体上呈现为一条水平线,则可以确定的是_。A它的Y1、Y2属性的值相等B它的X1、X2属性的值相等C它的X1、Y1属性的值分别与X2、Y2属性的值相等D它的X1、X2属性的值分别与Y1、Y2属性的值相等76VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母_。A这3个事件都会触发 B只触发KeyPress事件C只触发KeyDown、KeyUp事件 D不触发其

30、中任何一个事件77在程序运行时，下面的叙述中正确的是_。A用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_Load事件过程B用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程C只装入而不显示窗体，也会执行窗体的Form_Load事件过程D装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程78假定有以下程序段：For i=1 To 3For j=5 To 1 Step -1Print i*jNext jNext i则语句Print i*j的执行次数是_。A15 B16 C17 D1879设窗体上有一个列表框控件List1，含有若干列表项。以下能表示

31、当前被选中的列表项内容的是_。AList1.List BList1.ListIndexCList1.Text DList1.Index80窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是_。APrivate Sub HScroll1_Change()Print HScroll1.ValueEnd SubBPrivate Sub HScroll1_Change()Print HScroll1.SmallChangeEnd SubCPrivate Sub HScroll1_Scroll()P

32、rint HScroll1.ValueEnd SubDPrivate Sub HScroll1_Scroll()Print HScroll1.Sma11ChangeEnd Sub81窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称为cmdDraw的控件数组。窗体外观如图所示(从上到下的3个命令按钮的下标值分别为0、1、2)。有事件过程如下：Private Sub cmdDraw_Click(Index As Integer)Select Case IndexCase 0Shape1.Shape=0Case 1Shape1.Shape=1Case 2Shape1.Shape=3

33、End SelectEnd Sub当单击“画圆”命令按钮时，会执行cmdDraw_Click事件过程。以下叙述中正确的是_。ACase 2分支有错，此Case后面表达式的值应该与赋给Shape1.Shape的值一致B程序运行有错，控件数组的下标应该从1开始CIndex是形状控件的参数D程序正常运行，形状控件被显示为圆形82设有分段函数：5x<0y= x20x5xx+1x>5以下表示上述分段函数的语句序列中错误的是_。ASelect Case xCase Is<0y=5Case Is<=5,Is>0y=2*xCase Elsey=x*x+1BIf x<0 Th

34、eny=5ElseIf x<=5 Theny=2*xElsey=x*x+1End IfCy=IIf(x<0,5,IIf(x<=5,2*x,x*x+1)DIf x<0 Then y=5If x<=5 And x>=0 Then y=2*xIf x>5Then y=x*x+183列表框中的项目保存在一个数组中，这个数组的名字是_。AColumn BStyle CList DMultiSeleet84设a=2，b=3，c=4，d=5，则下面语句的输出是_。Print 3>2*b Or a=c And b<>c Or c>dAFalse

35、 B1 CTrue D-185在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：Private Sub Command1_Click()a$="software and hardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBox a$,b$,c$,1End Sub则在弹出的信息框标题栏中显示的标题是_。Asoftware and hardware BhardwareCsoftware D186下面关于标准模块的叙述中错误的是_。A标准模块中可以声明全局变量B标准模块中可以包含一个Sub Main过程,但此过程不能被设

36、置为启动过程C标准模块中可以包含一些Public过程D一个工程中可以含有多个标准模块87窗体上有名称为Command1的命令按钮和名称为Text1的文本框Private Sub Command1_Click()Text1.Text="程序设计"Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus()Text1.Text="等级考试"End Sub运行以上程序，单击命令按钮后_。A文本框中显示的是"程序设计"，且焦点在文本框中B文本框中显示的是"等级考试"，且焦点在文本框中C

37、文本框中显示的是"程序设计"，且焦点在命令按钮上D文本框中显示的是"等级考试"，且焦点在命令按钮上88在窗体上画两个文本框(名称分别为Textl和Text2)和一个命令按钮(名称为Command1)，然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为_。A1和0 B2和72 C3和50 D4和16889设a=4，

38、b=5，c=26，执行语句Print a<b And b<c后，窗体上显示的是_。ATrue BFalse C出错信息 D090若已把一个命令按钮的 Default 属性设置为 True，则下面可导致按钮的Click事件过程被调用的操作是_。A用鼠标右键单击此按钮 B按键盘上的Esc键C按键盘上的回车键 D用鼠标右键双击此按钮91如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。Private Sub Command1_Click()Dim n As LongDim flag A

39、s Booleann=InputBox("输入一个正整数")s=Trim(Str(n)For i=2 To Len(s)If Mid(s,i-1,1)<Mid(s,i,1) Then Exit ForNext iIf i=Len(s)Then flag=True Else flag=FalseIf flag ThenPrint n;"是降序数"ElsePrint n;"不是降序数"End IfEnd Sub运行以上程序，发现有错误,需要对给flag变量赋值的If语句进行修改。以下正确的修改是_。AIf i=Len(s) + 1

40、Then flag=False Else flag=TrueBIf i=Len(s) + l Then flag=True Else flag=FalseCIf i=Len(s) -1 Then flag=False Else flag=TrueDIf i=Len(s) - 1 Then flag=True Else flag=False92设程序中有如下语句：x=InputBox("输入","数据",100)Print x运行程序，执行上述语句，输入5并单击输入对话框上的“取消”按钮，则窗体上输出_。A0 B5 C100 D空白93有人编写了如下程序：

41、Private Sub Form_Click()Dim s As Integer,x As Integers=0x=0Do While s=10000x=x1s=sx 2LoopPrint sEnd Sub222上述程序的功能是：计算s123n，直到s>10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是_。A把x=0改为x=1B把Do While s=10000改为Do While s<=10000C把Do While s=10000改为Do While s>10000D交换x=x+1和s=s+x 2的位置94窗体Form1上有一个名称为Com

42、mand1的命令按钮，以下对应窗体单击事件的事件过程是_。APrivate Sub Form1_Click().End SubBPrivate Sub Form_Click().End SubCPrivate Sub Command1_Click().End SubDPrivate Sub Command_Click().End Sub95在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是_。APrivate Sub Text1_Change()Label1.Caption=

43、Text1.TextEnd SubBPrivate Sub Label1_Change()Label1.Caption=Text1.TextEnd SubCPrivate Sub Text1_Click()Label1.Caption=Text1.TextEnd SubDPrivate Sub Label1_Click()Label1.Caption=Text1.TextEnd Sub96设窗体的名称为Form1,标题为Win,则窗体的MouseDown事件过程的过程名是_。AForml_MouseDown BWin_MouseDownCForm_MouseDown DMouseDown_Fo

44、rm197设窗体上有名称为Option1的单选按钮，且程序中有语句：If Option1.Value=True Then下面语句中与该语句不等价的是_。AIf Option1.Value Then BIf Option1=True ThenCIf Value=True Then DIf Option1 Then98阅读程序：Private Sub Form_Click()a=0For j=1 To 15a=aj Mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是_。A105 B1 C120 D1599执行下列语句：strInput=InputBox("

45、请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击“确定”按钮，则变量strInput的内容是_。A"请输入字符串" B"字符串对话框"C"字符串" D空字符串100能够存放组合框的所有项目内容的属性是_。ACaption BText CList DSelected101现有以下程序：Private Sub Command1_Click()c1=0c2=0For i=1 To 100If i Mod 3=0 Thenc1=c1+1ElseIf i Mod

46、7=0 Thenc2=c2+1End IfNextPrint c1+c2End Sub此程序运行后输出的是在1100范围内_。A同时能被3和7整除的整数个数B能被3或7整除的整数个数(同时被3和7整除的数只记一次)C能被3整除，而不能被7整除的整数个数D能被7整除，而不能被3整除的整数个数102现有如下一段程序：Option Base 1Private Sub Command1_Click()Dim aa=Array(3,5,7,9)x=1For i=4 To 1 Step-1s=s+a(i)*xx=x*10NextPrint sEnd Sub执行程序，单击Command1命令按钮，执行上述事

47、件过程，输出结果是_。A9753 B35 C3579 D79103设有如下程序：Private Sub Form_Click()Dim s As Long,f As LongDim n As Integer,i As Integerf=1n=4For i=1 To nf=f*is=s+fNext iPrint sEnd Sub程序运行后，单击窗体，输出结果是_。A32 B35 C34 D33104默认情况下，下面声明的数组的元素个数是_。Dim a(5，-2 To 2)A20 B24 C25 D30105以下说法中错误的是_。A如果把一个命令按钮的Default属性设置为True，则按回车键与

48、单击该命令按钮的作用相同B可以用多个命令按钮组成命令按钮数组C命令按钮只能识别单击(Click)事件D通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用106下面正确使用动态数组的是_。ADim art()As IntegerReDim arr(3,5)BDim arr()As IntegerReDim arr(50)As StringCDim arr()ReDim arr(50)As IntegerDDim arr(50)As IntegerReDim arr(20)107设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确

49、的是_。A程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加B程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少C由于滚动条的Max属性值小于Min属性值，程序会出错D由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动108以下说法中正确的是_。A当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程B因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程C若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同D在KeyPress事

50、件过程中，KeyAscii参数可以省略109窗体上有Command1、Command2两个命令按钮。现编写以下程序：Option Base 0Dim a()As Integer,m As IntegerPrivate Sub Command1_Click()m=InputBox("请输入一个正整数")ReDim a(m)End SubPrivate Sub Command2_Click()m=InputBox("请输入一个正整数")ReDim a(m)End Sub运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组

51、a中元素的个数是_。A5 B6 C10 D11110要使两个单选按钮属于同一个框架，正确的操作是_。A先画一个框架，再在框架中画两个单选按钮B先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中C先画两个单选按钮，再画框架将单选按钮框起来D以上三种方法都正确111窗体上有一个名称为Command1的命令按钮，并有如下程序：Private Sub Command1_Click()x=15Do While x>0x=x-3x=IIf(Int(x/5)=x/5,x+2,x)LoopPrint xEnd Sub程序运行后，单击命令按钮Command 1，输出结果为_。A0 B-1 C

52、-2 D-3112设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下：Private Sub Command1_Click()Static x As Integerx=f(x+5)ClsPrint xEnd SubPrivate Function f(x As Integer)As Integerf=x+xEnd Function连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是_。A10 B30 C60 D70113阅读下面的程序段：a=0For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的程序段后，a的值为_。A3 B9 C14 D21114设有如下程序段：Dim a(10).For Each x In aPrint x；Next x在上面的程序段中，变量x必须是_。A整型变量 B变体型变量 C动态数组 D静态数组115以下关于局部变量的叙述中错误的是_。A在过程中用Dim语句或Static语句声明的变量是局部变量B