2023年VB试题库全国.pdf

《2023年VB试题库全国.pdf》由会员分享，可在线阅读，更多相关《2023年VB试题库全国.pdf（198页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、一、选择题1.以下叙述中错误的是一B。A.vbp文献是工程文献，一个工程可以包含.bas文献B.frm文献是窗体文献，一个窗体可以包含.bas文献C.vbp文献是工程文献，一个工程可以由多个.frm文献组成D.vbg文献是工程组文献，一个工程组可以由多个工程组成2.以下合法的VB变量名是_ _ C_。A.Case B.t-name C.namelO D.x*y3.以下描述中错误的是一B0A.窗体的标题通过其Caption属性设立B.窗体的名称（Name属性）可以在运营期间修改C.窗体的背景图形通过其P icture属性设立D.窗体最小化时的图标通过其Icon属性设立4.在 Visual Bas

2、ic集成环境中,A.工程资源管理器窗口C.属性窗口5.在 Visual Basic集成环境中，A.七 B.酎6.在 Visual Basic集成环境中，D oA.C B.7.以下变量名中合法的是一A.x2-l B.print可以列出工程中所有模块名称的窗口是A。B.窗体设计窗口D.代码窗口要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是_ _ _ _ _ AC,唱 D.囱要结束一个正在运营的工程,可单击工具栏上的一个按钮,这个按钮是C.5 D._C_0C.str_n D.2x8.执行语句 Dim X,Y As Integer 后，_ DA.X和丫均被定义为整型变量B.X和丫均被定义为变体

3、类型变量C.X被定义为整型变量，丫被定义为变体类型变量D.X被定义为变体类型变量，丫被定义为整型变量9.在设计窗体时双击窗体的任何地方，可以打开的窗口是_ A。A.代码窗口 B.属性窗口C.工程资源管理器窗口 D.工具箱窗口10.以下叙述中错误的是_ D。A.标准模块文献的扩展名是.basB.标准模块文献是纯代码文献C.在标准模块中声明的全局变量可以在整个工程中使用D.在标准模块中不能定义过程11.以下叙述中错误的是 C_ _.A.在 Visual Basic的窗体中，一个命令按钮是一个对象B.事件是可以被对象辨认的状态变化或动作C.事件都是由用户的键盘操作或鼠标操作触发的D.不同的对象可以具

4、有相同的方法12.设 x 是小于10的非负数。对此陈述，以下对的的VB表达式是 CA.0Wx10 B.0=x=0 And x=0 Or xO,-x,x)有相同结果的代数式是一 B。A.|x|B.-|x|C.x D.-x5x+32 y 617.把数学表达式.表达为对的的V B表达式应当是 D。A.(5x+3)/(2y6)B.x*5+3/2*y-6C.(5*x+3)(2*y-6)D.(x*5+3)/(y*2-6)18.以下关系表达式中，其值为True的是 B_ Ascii码 A 65 a 97A.XYZXYz B.VisualBasicovisualbasicC.the=there D.Integ

5、er0,x Mod 3,0)设x=10,则y的值是_ _ B_。A.0 B.1 C.3 D.语句有错51.以下叙述中对的的是 A。A.窗体及窗体上所有控件的事件过程代码都保存在窗体文献中B.在工程中只有启动窗体可以建立菜单C.窗体名称必须与窗体文献的名称相同D.程序一定是从某个窗体开始执行的52.设 x=5,执行语句Printx=x+10,窗体上显示的是_ D。A.15 B.5 C.True D.False53.在窗体上面一个命令按钮，然后编写如下事件过程：Private Sub Command 1 _Click()MsgBox Str(123+321)E nd Sub程序运营后，单击命令按钮

6、，则在信息框中显示的提醒信息为 BA.字符串”123+321 B.字符串“444”C.数值444 D.空白54.窗体上有一个名称为C b l的组合框，程序运营后，为了输出选中的列表项，应使用的语句是 BA.Print Cb 1.SelectedB.Print Cbl.List(Cbl.Listlndex)C.Print Cbl.Selected.TextD.Print Cbl.List(Listlndex)5 5.设 a=5,b=6,c=7,d=8,执行语句 x=Uf(ab)And(cd),10,20)后,x 的值是 BA.10 B.20 C.30 D.20056.窗体上有一个名称为Optio

7、nl的单选按钮数组,程序运营时，当单击某个单选按钮时；会调用下面的事件过程Private Sub Optionl_Click(Index As Integer)E nd Sub下面关于此过程的参数Index的叙述中对的的是 C。A.Index为1表达单选按钮被选中，为0表达未选中B.Index的值可正可负C.Index的值用来区分哪个单选按钮被选中D.Index表达数组中单选按钮的数量57.若看到程序中有以下事件过程，则可以肯定的是，当程序运营时 D。Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Sin

8、gle,Y As Single)Print VB ProgramE nd SubA.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程B.用鼠标左键单击名称为MouseDown”的命令按钮时，执行此过程C.用鼠标右键单击名称为“MouseDown”的控件时，执行此过程D.用鼠标左键或右键单击名称为Click”的控件时，执行此过程58.在窗体上画两个单选按钮（名称分别为Optionl、Option2,标题分别为“宋体”和“黑体”）、1 个复选框（名称为C heckl,标题为“粗体”）和 1个文本框（名称为TextL Text属性为“改变文字字体”），窗体外观如图所示。程序运营后，规

9、 定“宋体”单选按钮和“粗体”复选框被选中，则以下可以实现上述操作的语 句 序 列 是 _ D oA.Option 1 .Value二 FalseCheck 1 .Value=TrueB.Optionl.Value=TrueCheckl.ValuedC.Option2.Value二 FalseCheck l.Value=2D.Optionl.Value=TrueCheck l.Value=l59.窗体上有一个名称为Framel的框架（如下图），若要把框架上显示的“Framel”修改为汉字“框架”，下面对的的语句是.BA.Framel.Name=框架B.Framel.Caption=框架”C.F

10、ramel.Text=框架D.Framel.Value=框架60.为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设立为T ru e,然后把ScrollBars属性设立为 D_oA.0 B.1 C.2 D.361.窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：Private Sub Command 1 _Click()Static x As Variantn=0 x二 Array。23,4,5,6,7,8,9/0)While n=5x=a*bPrint b;xa二 a+bb=b+aLoopE nd Sub程序运营后，单击窗体，输出结果是 D oA.1

11、1 B.1 1 C.1 1 D.1 12 3 2 4 3 8 3 664.为了在窗体上建立2组单选按钮，并且当程序运营时，每组都可以有一个单选按钮被选中，则以下做法中对的的是 D。A.把这2组单选按钮设立为名称不同的2个控件数组B.使2组单选按钮的Index属性分别相同C.使 2 组单选按钮的名称分别相同D.把 2 组单选按钮分别画到2 个不同的框架中6 5.语句Print Sgn(-6人 2)+Abs(-6人 2)+Int(-62)的输出结果是 C。A.-36B.1C.-1D.-7266.设窗体中有一个文本框T e x tl,若在程序中执行了Textl.SetFocus,则触发_ BA.Te

12、xtl的SetFocus事件 B.Textl的GotFocus事件C.Textl的LoslFocus事件 D.窗体的GotFocus事件67.可以产生30 50(含30和50)之间的随机整数的表达式是 A。A.Int(Rnd*21+30)B.Int(Rnd*20+30)C.Int(Rnd*50-Rnd*30)D.Int(Rnd*30+50)68.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command 1 _Click()c=1234cl=Trim(Str(c)For i=l To 4Print_NextE nd Sub程序运营后，单击命令按

13、钮，规定在窗体上显示如下内容：1121231234则在横线处应填入的内容为 B。A.Right(cl,i)B.Left(cl,i)C.Mid(cl,i,l)D.Mid(cl,i,i)69.以下叙述中错误的是 D _ A.在通用过程中，多个形式参数之间可以用逗号作为分隔符B.在Print方法中，多个输出项之间可以用逗号作为分隔符C.在Dim语句中，所定义的多个变量可以用逗号作为分隔符D.当一行中有多个语句时，可以用逗号作为分隔符 用冒号70.文 本 框 T ex tl的 KeyDown事件过程如下：Private Sub Text 1 _KeyDown(KeyCode As Integer,Sh

14、ift As Integer)E nd Sub其中参数KeyCode的值表达的是发生此事件时 C。A.是否按下了Alt键或Ctrl键 B.按下的是哪个数字键C.所按的键盘键的键码 D.按下的是哪个鼠标键71.窗体上有一个名称为Label 1的标签和一个名称为Command 1的命令按钮。命令按钮的单击事件过程如下:Private Sub Command 1 _Click()x=InputBox（输入 x:,0）y=InputBox（输入 y:,0）Label 1 .Caption=x+yE nd Sub运营程序，单击命令按钮，在输入对话框中分别输入2、3,运营的结果是I)oA.程序运营有错误，

15、数据类型不匹配B.程序运营有错误，InputBox函数的格式不对C.在 Label 1 中显示5D.在Labell中显示2372.现有由多个单选按钮构成的控件数组，用于区别该控件数组中各控件的属性是B。A.Name B.Index C.Caption D.Value73.在窗体上画一个名称为L i s tl 的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在L istl_C lick事件过程中能正的确现上述功能的语句是 D。A.Listl.Removeltem Listl.Text B.Listl.Removeitem Listl.ClearC.Listl

16、.Removeltem Listl.ListCount D.Listl.Removeltem Listl.Listlndex74.假如一个直线控件在窗体上呈现为一条垂直线,则可以拟定的是B。A.它的Y1、丫 2 属性的值相等B.它的X的 X2属性的值相等C.它的X I、Y 1属性的值分别与X2、丫 2 属性的值相等D.它的X I、X2属性的值分别与Y1、丫 2属性的值相等7 5.假如一个直线控件在窗体上呈现为一条水平线,则可以拟定的是一A。A.它的Y1、丫 2 属性的值相等B.它的XI、X2属性的值相等C.它的XI、Y1属性的值分别与X2、丫 2 属性的值相等D.它的XI、X 2属性的值分别与

17、Y1、丫 2属性的值相等76.VB中有3个键盘事件：KeyPress KeyDown.K eyU p,若光标在Textl文本框中，则每输入一个字母A oA.这 3 个事件都会触发 B.只触发KeyPress事件C.只触发KeyDown、KeyUp事件 D.不触发其中任何一个事件77.在程序运营时，下 面的叙述中 对 的 的 是 C oA.用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_Load事件过程B.用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程C.只装入而不显示窗体，也会执行窗体的Form Load事件过程D.装入窗体后，每次显示该窗体时，都会执行窗体的Fo

18、rm_Click事件过程7 8.假定有以下程序段：For i=l To 3For j=5 To 1 Step-1Print i*jNext jNext i则语句Print i*j的执行次数是 A oA.15B.16C.17D.1879.设窗体上有一个列表框控件L is ll,具有若干列表项。以下能表达当前被选中的列表项内容的是_C OA.List 1.List B.Listl.ListindexC,List 1.Text D.Listl.Index80.窗体上有一个名称为HScrolIl的滚动条，程序运营后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面可以实现上述操

19、作的事件过程是A。A Private Sub HScrolIl Chanse()Print HScrolIl.ValueEnd SubB.Private Sub HScrolll_Change()Print HScroll 1 .SmallChangeE nd SubC.Private Sub HScrolll_Scroll()Print HScrolIl.ValueE nd SubD.Private Sub HScroll l_Scroll()Print HScrolll.Smal 1 ChangeE nd Sub8 1.窗体上有一个名称为Sh叩e l的形状控件和由三个命令按钮组成的名称为c

20、mdDraw的控件数组。窗体外观如图所示（从上到下的3个命令按钮的下标值分别为0、1、2）o 有事件过程如下：Private Sub cmdDraw_Click(Index As Integer)Select Case IndexCase 0Shape l.Shape=OCase 1Shapel.Shape=lCase 2Shape l.Shape=3E nd SelectE nd Sub当单击“画圆”命令按钮时，会执行cmdDraw_Click事件过程.以下叙述中对的的是 DA.Case 2 分支有错，此 Case后面表达式的值应当与赋给Shapel.Shape的值-致B.程序运营有错，控件

21、数组的下标应当从1 开始C.Index是形状控件的参数D.程序正常运营，形状控件被显示为圆形8 2.设有分段函数：以下表达上述分段函数的语句序列中错误的是一 AA.Select Case xCase IvOlz5Case Isv=5,Is0v=2-xCase Elsev=x*x+lB.If x0 Theny=5E lself x=5 Theny=2*xE lsey=x*x+lE nd IfC.y=IIf(x IIf(x=5,2*x,x*x+1)D.If x0 Then y=5If x=0 Then y二 2*xIf x5 Then y=x*x+l8 3.列表框中的项目保存在一个数组中，这个数组

22、的名字是_C _A.Column B.StyleC.ListD.MultiSeleet84.设a=2,b=3,c=4,d=5,则下面语句的输出是 A。Print 32*b Or a=c And bOc Or cdA-False B.1 C.True D.-185.在窗体上画一个名称为Commandl的命令按钮。单击命令按钮时执行如下事件过程:Private Sub Command 1 _Click()a$=,software and hardwareb$=Right(a$,8)c$=Mid(a$,l,8)MsgBox a$,b$,c$,lE nd Sub则在弹出的信息框标题栏中显示的标题是Bo

23、A.software and hardware B.hanlwaieC.software D.18 6.下面关于标准模块的叙述中错误的是BA.标准模块中可以声明全局变量B.标准模块中可以包含一个Sub Main过程，但此过程不能被设立为启动过程C.标准模块中可以包含一些Public过程D.一个工程中可以具有多个标准模块8 7.窗体上有名称为Command 1的命令按钮和名称为Text 1的文本框Private Sub Command 1 _Click()Text 1.Text 二”程序设计”Textl.SetFocusE nd SubPrivate Sub Text 1 _GotFocus()

24、Textl.Texh等级考试”E nd Sub运营以上程序，单击命令按钮后一B一,A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上8 8.在窗体上画两个文本框(名称分别为Textl和Text2)和一个命令按钮(名称为Command】)，然后编写如下事件过程：Private Sub Command 1 _Click()x=0Do While x50 x=(x+2)*(x+3)n=n+lLoopTextl.Text=Str(n)Text2.Te

25、xt=Str(x)E nd Sub程序运营后，单击命令按钮，在两个文本框中显示的值分别为一B。A.1 和 0 B.2 和 72 C.3 和 50 D.4 和 16889.设a=4,b=5,c=26,执行语句Print ab And bc后，窗体上显示的是_ A。A.True B.False C.犯错信息 D.090.若已把一个命令按钮的Default属性设立为T ru e,则下面可导致按钮的Click事件过程被调用的操作是 C。A.用鼠标右键单击此按钮 B.按键盘上的E sc键C.按键盘上的回车键 D.用鼠标右键双击此按钮91.假如一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9

26、632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。Private Sub Commandl_Click()Dim n As LongDim flag As Booleann=InputBox(输入一个正整数)s=Trim(Str(n)For i-2 To Len(s)If Mid(s,i-l,l)10000为止。程序运营后，发现得不到对的的结果，必须进行修改。下列修改中对的的是 B。A.把 x=0改为x=lB.把Do While s=100()0改为Do While s 10000D.互换x=x+Mt3s=s+x A 2的位置9 4.窗体Forml上有一个

27、名称为Commandl的命令按钮，以下相应窗体单击事件的事件过程是 B。A.Private Sub Forml_Click()E nd SubB.Private Sub Form ClickOEnd SubC.Private Sub Commandl_Click()E nd SubD.Private Sub Command_Click()E nd Sub9 5.在窗体上画一个文本框(名称为Textl)和一个标签(名称为L abell),程序运营后，假如在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是 A_oA Private Sub Text 1 Change。

28、Label 1 ,CaDtion=Text 1 .TextEnd SubB.Private Sub Label l_Change()Label 1 .C叩tion=Text 1 .TextE nd SubC.Private Sub Textl_Click()Label 1 .Caption=Textl.TextE nd SubD.Private Sub Labell_Click()Label 1 .Caption=Text 1 .TextE nd Sub96.设窗体的名称为Forml,标题为Win,则窗体的MouseDown事件过程的过程名是 CA.Forml_MouseDown B.Win_

29、MouseDownC.Form MouseDown D.MouseDown_Form 197.设窗体上有名称为Optionl的单选按钮，且程序中有语句：If Option 1.Value=True Then下面语句中与该语句不等价的是一COA.If Option 1 .Value Then B.If Option 1 =True ThenC.If Value=Tnie Then D.If Optionl Then98.阅读程序：Private Sub Form_Click()a=0Forj=l To 15a=a+j Mod 3Next jPrint aE nd Sub程序运营后，单击窗体，输出

30、结果是D。A.105 B.1 C.120 D.1599.执行下列语句：strInput=InputBox(请输入字符串，字符串对话框，字符串)将显示输入对话框。此时假如直接单击“拟定”按钮，则变量strinput的内容是 CA.请输入字符串 B.字符串对话框C.”字符串,D.空字符串100.可以存放组合框的所有项目内容的属性是_C。A.Caption B.Text C.List D.Selected101.现有以下程序：Private Sub Command 1 _Click()cl=0c2=0For i=l To 100If i Mod 3=0 Thencl=cl+lE lselfi Mod

31、 7=0 Thenc2=c2+lE nd IfNextPrint cl+c2E nd Sub此程序运营后输出的是在r w o 范围内_B oA.同时能被3 和 7 整除的整数个数B.能被3 或 7 整除的整数个数(同时被3 和7整除的数只记一次)C.能被3 整除，而不能被7 整除的整数个数D.能被7 整除，而不能被3 整除的整数个数1 0 2.现有如下一段程序：Option Base 1Private Sub Command 1 _Click()Dim aa=Array(3,5,7,9)x=lFor i=4 To 1 Step-1s=s+a(i)*xx=x*10NextPrint sE nd

32、Sub执行程序，单击Command 1命令按钮，执行上述事件过程，输出结果是一CA.9753 B.35 C.3579 D.79103.设有如下程序：Private Sub Form_Click()Dim s As Long,f As LongDim n As Integer,i As Integerf=ln=4For i=l lb nf=f*is=s+fNext iPrint sE nd Sub程序运营后，单击窗体，输出结果是 D。A.32 B.35 C.34 D.33104.默认情况下，下面声明的数组的元素个数是-D。6*5=30Dim a(5,2 To 2)A.20 B.24 C.25 D

33、.30105.以下说法中错误的是 C。A.假如把一个命令按钮的Default属性设立为T ru e,则按回车键与单击该命令按钮的作用相同B.可以用多个命令按钮组成命令按钮数组C.命令按钮只能辨认单击(Click)事件D.通过设立命令按钮的E nabled属性，可以使该命令按钮有效或禁用106.下面对的使用动态数组的是 A oA.Dim art()As IntegerReDim arr(3,5)B.Dim arr()As IntegerReDim arr(50)As StringC.Dim arr()ReDim arr(50)As IntegerD.Dim arr(50)As IntegerRe

34、Dim arr(20)107.设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设立为1,Min属性设立为100。下面叙述中 对的 的是 一 A。A.程序运营时，若使滚动块向左移动，滚动条的Value属性值就增长B.程序运营时，若使滚动块向左移动，滚动条的Value属性值就减少C.由于滚动条的Max属性值小于Min属性值，程序会犯错D.由于滚动条的Max属性值小于Min属性值，程序运营时滚动条的长度会缩为一点，滚动块无法移动108.以下说法中对的的是 A_oA.当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程B.由于窗体不接受焦点，所以窗体不存在自己的Ke

35、yPress事件过程C.若按下的键相同，KeyPress事件过程中的Key Ascii参数与KeyDown事件过程中的KeyCode参数的值也相同D.在KeyPress事件过程中,KeyAscii参数可以省略109.窗体上有Commandl、Command2两个命令按钮。现编写以下程序：Option Base 0Dim a()As Integer,m As IntegerPrivate Sub Command 1 _Click()m=InpulBox(请输入一个正整数”)ReDim a(m)E nd SubPrivate Sub Command2_Click()m二 InputBox(”请输入

36、一个正整数”)ReDim a(m)E nd Sub运营程序时，单击Commandl后输入整数1 0,再单击Command2后输入整数5,则数组a中元素的个数是B。05 6 个A.5 B.6 C.10 D.11110.要使两个单选按钮属于同一个框架，对的的操作是A。A.先画一个框架，再在框架中画两个单选按钮B.先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中C.先画两个单选按钮，再画框架将单选按钮框起来D.以上三种方法都对的111.窗体上有一个名称为Commandl的命令按钮，并有如下程序：Private Sub Commandl_Click()x=15Do While x0 x

37、=x-3x=IIf(Int(x/5)=x/5,x+2,x)LoopPrint xE nd Sub程序运营后，单击命令按钮Command 1,输出结果为 B。X=-15A.0 B.-1 C.-2 D.-3112.设有一个命令按钮Commandl的事件过程以及一个函数过程。程序如下：Private Sub Command 1 _Click()Static x As Integerx=f(x+5)CisPrint xE nd SubPrivate Function f(x As Integer)As Integerf=x+xE nd Function连续单击命令按钮3次，第3次单击命令按钮后，窗体上

38、显示的计算结果是 DA.10 B.30 C.60 D.70113.阅读下面的程序段：a=0For i=l To 3Forj=l ToiFor k=j To 3a=a+lNext kNext jNext i执行上面的程序段后，a的值为 C oA.3 B.9 C.14 D.21114.设有如下程序段：Dim a(10)For E ach x In aPrint x；Next x在上面的程序段中，变量x必须是B。A.整型变量 B.变体型变量 C.动态数组 D.静态数组115.以下关于局部变量的叙述中错误的是 D。A.在过程中用Dim语句或S ta tic 语句声明的变量是局部变量B.局部变量的作用域

39、是它所在的过程C.在过程中用S ta tic 语句声明的变量是静态局部变量D.过程执行完毕，该过程中用Dim或 S ta tic 语句声明的变量即被释放1 1 6.下面是求最大公约数的函数的首部Function gcd(ByVal x As Integer,ByVai y As Integer)As Integer若要输出8、12、16这3个数的最大公约数，下面对的的语句是 D。A.Print gcd(8,l 2),gcd(12,16),gcd(l 6,8)B.Printgcd(8,12,16)C.Print gcd(8),gcd(12),gcd(16)D.Print gcd(8,gcd(12

40、,16)117.有如下过程代码：Sub var_dim()Static numa As IntegerDim numb As Integernuma=numa+2numb=numb+1print numa;mumbE nd Sub连续3次调用vajdim过程，第3次调用时的输出是 C _。A.2 1 B.2 3 C.6 1 D.6 3118.语句Dim a(-3 To 4,3 To 6)As Integer定义的数组的元素个数是 D。A.18 B.28 C.21 D.32119.在窗体上画个命令按钮和一个标签，其名称分别为Command1和Labell,然后编写如下事件过程:Private S

41、ub Command 1 _Click()Counter=0For i=l To 4For j=6 To 1 Step-2Counter=Counter+1Next jNext iLabel 1 .Caption=Str(Counter)E nd Sub程序运营后，单击命令按钮，标签中显示的内容是 B oA.11 B.12 C.16 D.201 2 0.设窗体上有一个标签Labell和一个计时器Timed,Timerl的Interval属性被设立为1000,E nabled属性被设立为True。规定程序运营时每秒在标签中显示一次系统当前时间。以下可以实现上述规定的事件过程是_B_oA.Priv

42、ate Sub Timerl_Timer()Label 1 .Caption=TrueE nd SubB.Private Sub Timerl_Timer()Label 1.Caption=Time$End SubC.Private Sub Timerl_Timer()Label l.Interval=lE nd SubD.Private Sub Timerl_Timer()For k=l lb Timer 1.IntervalLabel 1 .Caption=TimerNext kE nd Sub121.设菜单编辑器中各菜单项的属性设立如下表所示:序号标题名称复选有效可见内缩符号1Fi l

43、eFi l eVJ无2O p e nO p e n Fi l eJV13S a v eS a v e Fi l eV14Ex i tEn d O f A l lJ15He l pS h o w He l pJV1针对上述属性设立，以 下 叙 述 中 错 误 的 是A oA.属性设立有错，存 在“标题”与“名称”重名现象B.运营程序，序号为“3”的菜单项不显示C.运营程序，序 号 为“4”的菜单项不可用D.运营程序,序号为“5”的菜单项前显示“122.以下关于菜单设计的叙述中错误的是C_ _。A.各菜单项可以构成控件数组B.每个菜单项可以当作是一个控件C.设计菜单时，菜单项的“有效”未选，即 彳

44、薇一表达该菜单项不显示D.菜单项只响应单击事件123.设有如下程序：Private Sub Form_Click()Cisa$=123456”For i=l To 6Print Tab(12-i);Next iE nd Sub程序运营后，单击窗体，规定结果如图所示，则在下划线处应填入的内容为J1A.Left(a$,i)B.Mid(a$,8-i,i)C.Right(a$,i)D.Mid(a$,7,i)124.设有以下函数过程Private Function Fun(a()As Integer,b As String)As IntegerE nd Function若已有变量声明：Dim x(5)A

45、s Integer,n As Integer,ch As String则下面对的的过程调用语句是AoA.x(0)=Fun(x；chM)B.n=Fun(n,ch)C.Call Fun x,nchuD.n=Fun(x(5),ch)125.以下程序段的输出结果是 B.x=ly=4Do Until y4x=x*yy=y+lLoopPrint xA.1B.4 C.8 D.20126.有下面的程序段,其功能是按图1所示的规律输出数据Dim a(3,5)As IntegerFori=l To 323 42 3 45 63 453 45 6745 6For j=l To 54 5 6 7 85 6 767 8

46、a(i,j)=i+j图1图2Print a(i,j);NextPrintNext若要按图2 所示的规律继续输出数据，则接在上述程序段后面的程序段应当是AA.For i=l To 5B.For i=l To 3For j=l To 3Forj=l To 5Print a(j,i)；Print a(j,i)；NextNextPrintPrintNextNextC.Forj=l To 5D.For i=l To 5For i=l To 3Forj=l To 3PrintPrint a(i,j);NextNextPrintPrintNextNext1 2 7.在窗体上画1个命令按钮，并编写如下事件过程

47、:Private Sub Command 1 _Click()For i=5 To 1 Step-0.8Print Int(i);Next iE nd Sub运营程序，单击命令按钮，窗体上显示的内容为A。A.5 4 3 2 1 1 B.5 4 3 2 1C.4 3 2 1 1 D.4 4 3 2 1 1128.在窗体上画一个命令按钮，其名称为CommandL然后编写如下代码:Option Base 1Private Sub Command 1 _Click()Dim aa=Array(1,2,3,4)j=lFor i=4 To 1 Step-1s=s+a(i)*jj=j*10Next iPri

48、nt sE nd Sub程序运营后，单击命令按钮，其输出结果是一B oA.4321 B.1234 C.34 D.12129.在窗体上画一个名为Commandl的命令按钮，然后编写以下程序：Private Sub Command 1 _Click()Dim m(10)As IntegerFor k=l To 10m(k尸 12-kNext kx=8Print m(2+m(x)E nd Sub运营程序，单击命令按钮，在窗体上显示的是_A.A.6 B.5 C.7 D.81 3 0.设有如图所示窗体和以下程序：Private Sub Command 1 _Click()Textl.Text=HVisu

49、al Basic1E nd SubPrivate Sub Textl_LostFocus()If Textl.TextBASICM ThenTextI.Text=,H,Textl.SetFocusE nd I fE nd S u b程序运营时，在T ext l文本框中输入B asi c”（如图所示），然后单击Co m m a n d l按钮，则产生的结果是A oA.文本框中无内容，焦点在文本框中B.文本框中为 B asi c ,焦点在文本框中C.文本框中为 B asi c”，焦点在按钮上D.文本框中为“V i su al B asi c ,焦点在按钮上1 3 1 .以下关于通用对话框的叙述中，

50、错 误 的 是 一D。A.若没有指定I ni t D i r属性值，则起始目录为当前目录B.用一个通用对话框控件可以建立几种不同的对话框C.F i l eT i U e属性指明了文献对话框中所选择的文献名D.文献对话框用属性Filterindex指定默认过滤器，它是一个从0开始的整数1 3 2 .以下关于多窗体的叙述中，对的的是_ _A。A.任何时刻，只有一个当前窗体B.向一个工程添加多个窗体，存盘后生成一个窗体文献C.打开一个窗体时，其他窗体自动关闭D.只有第一个建立的窗体才是启动窗体1 3 3 .设有如下程序:P ri vat e S u b F orm_C l i c k()Dim i