VB模拟题答案

1、套题1第一卷客观题第一题：是非题(共10分,每项1分)1 . ActiveX部件是可以重复使用的编程代码和数据.AA.对B.错2 .窗体的Enabled属性设为False时,窗体题的按钮、文本框控件就不会对用户的操作做出反响.AA.对B.错3 .每一个控件实质上都是一个微型程序.AA.对B.错4 .在程序运行过程中,变量中的值不会改变,而常量中的值会被改变.BA.对B.错5 .用Dim语句声明变量时,VB系统不仅为变量分配相应数据类型的内在空间,而且还为变量赋所需的初值.BA.对B.错6 .定义菜单项时,可以不设置分P1线的菜单项控件名称.BA.对B.错7 .在事件驱动的应用程序中,代码是根据

2、预定的路径执行的.BA.对B.错8 .函数调用时,实际参数与形式参数在数量必须完全一致.AA.对B.错9 .每个菜单项都是一个控件,与其他控件一样也有自己的属性和事件.AA.对B.错10 .通用过程可以放在标准模块中,也可以放在窗体模块中.AA.对B.错第二题、单项选择题(共45分,每项1.5分)11 .要判断 命令按钮是否被鼠标单击,应在命令按钮的事件中判断.CA.Chang B.KeyDown C.Click D.KeyPress12 . InputBox函数的返回值的类型为 B_.A.数值B.字符串C.逻辑彳1D.日期值13 .要想在过程调用后返回两个结果,下面的过程定义语句合法的是Ao

3、A.Sub Proc1(ByVal n,Byval m) B.Sub Proc1(ByVal n, m)C.Sub Proc1(n,Byval m) D.Sub Proc1(n, m)14 .下面关于打印对话框属性的说法错误的选项是 C_oA.Copies属性指定打印的份数.B.HDC属性指定分配给打印机的句柄,用来识别对象的设备 环境.C.FromPage属性指定要打印文档的页范围.使用该属性时必 须把Flags属性设置为1.D.Max和Min属性用来显示 FromPage和ToPage的范围,其 中Min指定允许的起始页码,Max指定允许的最后页码.15 .常量2.7856E-6的类型是_

4、B.A.整型B.实型C.字符型 D.双精度16 . Print #1 , STR1$中的 Print 是 A .A.顺序文件的写语句B.在窗体上显示的方法C.子程序名D.打印命令17 .使用Public x声明一个全局的变量时,该语句应放在_D.A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段18 .文本框没有_D 属性.A.Enabled B.VisibleC.BackColor D.Caption19 .记录长度最大可取的值是A 字节.A.32767B.32768C.65535D.6553620 .下面四项中,_A 是VB中的数值变量.A.ABC

5、 B.E+2 C.True D.1.35E-221 .将数据项“Chin琳加到列表框(List)中成为第一项应使用A 语句.A.List1.AddItem China0 B.List1.AddItem Chinal C.List1.AddItem 0 , China D.List1.AddItem 1 , China22.以下不能翻开菜单编辑器的操作是D.A.按 Ctrl+EB.单击工具栏中的菜单编辑器按钮C.执行工具菜单中的菜单编辑器命令D.按 Shift + Alt + M23 .文本框(Text1)中有选定的文本,执行 Text1.SelText= Hello 的结果是A oA. Hel

6、lo将替换掉原来选定的文本B. “Hel等插入到原来选定的文本之前C.Text1.SelLength 为 5D.文本框中只有 “Hello24 .语句 Print Format(HELLO, yz的正确VB逻辑表达式是 _D.A.xy And yz C.xy And z D.xy And yzB.*$*$*$D. 、 $30 .如果要使一个窗体从屏幕上和内存中完全消失,所要使用的语句是D.A.Hide B.Show C.Load D.Unload31 .在以下说法中,正确的选项是 D_.A.通过适当的设置,可以在程序运行期间,让时钟控件 显示在窗体上B.在列表框中不能进行多项选择C.在列表框中

7、能够将工程按字母顺序从大到小排列D.框架也有Click 和DblClick 事件32 .为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为_D oA.Get文件号,记录号,变量名B.Get文件号,变量名,记录号C.Put文件号,变量名,记录号D.Put文件号,记录号,变量名33 .按文件的组织方式分为 A_oA.顺序文件和随机文件B.文本文件和二进制文件C.程序文件和数据文件D.只读文件和读写文件34 .以下_C不能彳为VB中的变量名.A.Abx45 B.P1234 C.89TasFF D.xy35 .已编译的控件部件的扩展名是A.A. .OCX B. .VBPC. .EXE

8、D. .CTL36 .为了建立一个随机文件,其中每一条记录有多个不同数据类型的数据项组成,应使用 AA.自定义类型B.数组 C.字符串类型 D.变体类型37 .表达式 Int(23.4)+Round(-35.5)的计算结果为C.A.-11B.-12.1C.-13D.-12.538 .引用列表框(List1 )最后一个数据项应使用一B oA. List1.List(List1.ListCount)B.List1.List(List1.ListCount-1)C.List1.List(ListCount)D.List1.List(ListCount-l)39 .通过代码在运行时设置属性的语法格式为

9、_B oA.对象名=属性.新值 B.对象名.属性=新值C.对象名.新值=属性.新值 D.对象名.属性=属性. 新值40 .在下面选项中,不能完成对顺序文件的读操作的是D_oA.LineInput# 语句 B.Input# 语句C.Input ()函数D.Get# 语句第三题、简单程序(共15分,每项1.5分)41 .以下程序段的运行结果.APrivate Sub Form_Click()Dim MsgHideMsg=选择确定按钮MsgBox Msg ShowEnd SubA.隐藏窗体,按确定按钮使窗体重现B.隐藏窗体C.显示窗体,按确定按钮使窗体隐藏D.显示窗体42.执行下面程序段后,变量 c

10、$的值为 D a$= Visual Basic Programmingb$= Quickc$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,12)A.Visual BASIC ProgrammingB.Quick Basic ProgrammingC.QUICK Basic ProgrammingD.Quick BASIC Programming43 .运行下面程序后,在窗体中显示的是_DPrivate Sub Form_Click()a$=*: b$=$For k=1 To 3x$=String$(Len(a$)+k,b$)Print x$;Next kPrintE

11、nd SubA. 、* * *C.1*$2*$3*$44 .执行下面程序段后,变量 a的值为CFor I=1 To 3For j=1 To IFor k=j To 3a=a+1Next kNext jNext IA.3B.9C.14D.2145 .写出如下程序运行结果.DFunction f(m As Integer) As Integer b = 1Static c As Integer b = b + 1 c = c + 1 f = m * b * c End FunctionPrivate Sub Command1_Click() Dim a As Integer a = 2sum=0s

12、um=sum+ f(a)Next Iprint sumEnd SubA.12B.16C.20D.2446 .以下程序的输出结果是 B_oPrivate Sub Command1_Click()a=1234b$=Str$(a)c=Len(Trim(b)print c;LenB(b)End SubA.3 8B.4 10C.5 10D.4 847 .执行下面程序段后,变量x的值为 A_ox=5For I=1 To 20 step 2x=x+I5Next IA.21B.22C.23D.2448 .以下程序的输出结果是 _D oPrivate Sub Command1_Click()a=100Dos=s

13、+aa=a+1Loop Until a100print aEnd SubA.100B.120C.201D.10149 .以下程序的循环次数是A oPrivate Sub Command1_Click()For j=8 To 35 Step 3Print j;Next jEnd SubA.10B.9C.27D.2850 .以下程序运行后,其结果为 APrivate Sub Form_Click ( )Filename= a c:testfile.txtOpen filename For Output As #1Print #1,“ABC谶是一个学生Close #1Open filename Fo

14、r Input As #1MsgBox Input(8,1)Close #1End SubA.在通用对话*I中显示“ ABC谶是一个B.在通用对话卞I中显示“ ABC谶是C.在窗体中显示“ ABC醵是一个D.在窗体中显示“ ABC醵是 第二卷 主观题填空题(共30分,每项2分.注意：填两个空的题的时候,要根据从上至下,从左至右的顺序添入做题卡！)1 .以下程序运行后,能求出 20个数中的最大值.请填上适当 的内容,将程序补充完整.Private Sub Form_Activate()RandomizeDim I As Integer,ssl As Integer,Dim tt As Integ

15、er ssl = Int(Rnd * 51 + 50)For I = 1 To 19tt = Rnd * 51 + 50IF ssltt then ssl=ttNext IPrintPrint sslEnd Sub2 .在C盘根目录下建立一个名为Student.dat的顺序文件.要求用InputBox函数输入10名学生的学号(StuNo)、姓名 (StuName)和性另U ( StuSex).Private Sub Form_Load ()Open C:Student.dat For Output As #1For I=1 to 10StuNo=InputBox(“请输入学号)StuName=

16、 InputBox (“请输入姓名)StuSex= InputBox (请输入性别) _write#1,StuNo,Stuname,StuSexNext IClose #1End Sub3 .编写一个求最大公约数的函数,并调用该函数,程序如下： Function gcd(ByVal a As Integer,ByVal b As Integer) As IntegerDim re as integerDo While b0re=a mod ba=b b=re Loop gcd=a End Function Sub Command1_Click() Dim x As Integer,y As I

17、nteger, z As integer X=96Y=64_z=gcd(x,y)Print“结果= ；zEnd Sub4,请用正确的内容填空.下面程序的作用是利用随机函数产生 10个(1200) 之间的随机整数,打印其中 7的整数倍的数并求其和. Private Sub Form_Click()For I=1 To 10x=Int(Rnd*200+1) If _(x mod 7)=0 Thenk1=k1+x Print xEnd If Next I Print Print k1=;k1 End Sub5,下面程序运行时,内层循环的循环总次数是6 oFor m = 1 To 3For n = 0

18、 To m - 1Next nNext m6.在窗体中添加两个命令按钮,其名称分别为Command1和Command 2窗体加载时要求Command1不可用,Command2可用；单击Command后,Command1可用.请将以下程序补充完整.Private Sub Command2_Click() _command1,enabled=trueEnd SubPrivate Sub Form_Load()command1.enabled=false_command2.enabled=trueEnd Sub7,函数odd用于判断一个数是否是奇数.当单击命令按钮时, 产生1,9之间的随机数,调用

19、odd过程,判断该数是否为奇数. 如果是那么显示“奇数,否那么显示“偶数.Private Sub odd(n As Integer)Print n;If n/2n2 ThenPrint 奇数ElsePrint “偶数End IfEnd SubPrivate Sub Command1_Click()Randomizex =_int(rnd*9+1)odd xEnd Sub8,以下程序允许用户按Enter键将一个组合框(cboComputer) 中没有的工程添加到组合框中.Sub cboComputer_KeyPress(KeyAscii As Integer)Dim flag As Boolea

20、nIf KeyAscii=13 Thenflag=FalseFor I=0 To cboComputer.ListCount-1If ThenFlag=TrueExit ForEnd IfNext iIf Not flag ThenElseMsgBox(组合框中已有该项 目！)End IfEnd IfEnd Sub9,请用正确的内容填空.下面程序的功能是通过InputBox对话框接受一个 二进制数,并把它转换成一个十进制数,结果显示在窗体中.Private Sub Form_Click() b=InputBox( 请输入一个二进制数) m=Len(b)For j= _1 to mdec=dec

21、*2+val(Mid(b,j,1)Next jPrint b;转换后的十进制数为：;decEnd Sub10.以下程序的功能是：把当前目录下的顺序文件 smtext1.txt 的内容读入内存,并在文本框 Text1中显示出来. 请填空.Private Sub Command1_Click() Dim inData As String Text1.Text =Open ,smtext1.txt_for Input As #1Do While not eof(1)Input #1, inDataText1,Text = Text1,Text & inDataLoopDim x As Integer

22、End Sub套题2第一卷客观题第一题：是非题共10分,每项1分1 .函数过程和子过程的区别是子过程结束将返回值过程值,函数过程结束不必返回函数值.A.对 BJ直2 .当窗体上有多个控件时,一般只有一个控件是当前控件,对 控件的所有操作都是针对当前控件进行的.A.对 B.错3 .窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴.A.对 B.错4 .用Dim语句声明变量时,VB系统不仅为变量分配相应数据 类型的内在空间,而且还为变量赋所需的初值.A.对 BJf.5 .在VB系统中,没有用 Dim语句声明的变量不能使用,由于 它没有数据类型.A.对 BH6 .每个菜单项都是一个控件,与其他控件

23、一样也有自己的属性 和事件.A.对 B.错7 . VB中的 消息是指由一个应用程序传递到另一个应用程序的 信息包.A.对 B.错8 .普通窗体与子窗体建立的方法是相同的,不同之处是子窗体 的MDIChild属性设置为False,而普通窗体的 MDIChild属性设 置为True.A.对 BJ19 .除了 Click事件之外,菜单项还能响应其他的事件.A.对 B.错10 .数组作为过程参数时,使用的是地址传送方式.A.对 B.错第二题、单项选择题共45分,每项1.5分11 .文本框没有_D 属性.A.Enabled B.Visible C.BackColor D.Caption12 .语句Dim

24、 a3,-3 to 0,3 to 6声明的数组a有 C_元素.A.12B.27C.64D.8013 .下面关于随机文件的描述,不正确的选项是_B oA.每条记录的长度必须相同B. 一个文件中记录号不必惟一C.文件的组织结构比顺序文件复杂D.可通过编程对文件中的某条记录方便地修改14 .如果要使一个窗体从屏幕上和内存中完全消失,所要使用的语句是D.A.HideB.Show C.LoadD.Unload15 .在VB中,常量987654,987654#的数据类型是 D.A.整型B.实型C.长整型 D.双精度16 .在下面选项中,不能完成对顺序文件的读操作的是 Do A.LineInput# 语句

25、B.Input#语句 C.Input 函数 D.Get#语句17 .按文件的组织方式分为 A.A.顺序文件和随机文件B.文本文件和二进制文件C.程序文件和数据文件D.只读文件和读写文件18 .不管何种控件,共同具有的是 _B 属性.A.Text B.Name C.BackColor D.Caption19 .为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为 _D oA.Get文件号,记录号,变量名B.Get文件号,变量名,记录号C.Put文件号,变量名,记录号D.Put文件号,记录号,变量名20 .常量2.7856E-6的类型是 B.A.整型 B.实型 C.字符型 D.双精

26、度21 .假设列表框List1 有4个数据项,那么把数据项“China添加到列表框的最后,应使用一D 语句.A. List1.AddItem3, ChinaB.List1.AddItemChinaList1.ListCount-1C.List1.AddItemChina3D.List1.AddItemChinaList1.ListCount22 .下面关于打印对话框属性的说法错误的选项是CoA.Copies属性指定打印的份数.B.HDC属性指定分配给打印机的句柄,用来识别对象的设备 环境.C.FromPage属性指定要打印文档的页范围.使用该属性时必须把Flags属性设置为 1.D.Max和M

27、in属性用来显示 FromPage和ToPage的范围,其 中Min指定允许的起始页码,Max指定允许的最后页码.23 .如果文本框的 Enabled属性设为 False,那么_ A.A.文本框的文本将变成灰色,并且此时用户不能将光标置于文 本框上B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是 不能改变文本框中的内容24 .以下控件中,没有 Caption属性的是_B.A.框架 B.列表框C.复选框D.单项选择按钮25 .以下逻辑表达式中,其值为

28、真的是A oA.bABC B.THATTHEC.9HD.Aa26 .窗体从加载到显示,依次引发的事件有. DA.Load、Initialize、ActivateB.Initialize、Activate loadC.Load、Activate InitializeD.Initialize、Load、Activate27 .如果每0.5秒产生一个计时器事件,那么 Interval属性值应 设为C.A.5B.50C.500D.0.528 .表达式34 And 7=5的返回值为 D .A.0 B.True C.-1 D.FalseCase 429 .函数Int(Rnd*11)+10产生的数值的范围是

29、 _C.a$=OkA. (0,10)B.10,10 C.10,20D.(0,20)Case 330 .要想在过程调用后返回两个结果,下面的过程定义语句合法a$=Pass的是 _A.Case ElseA.Sub Proc1(ByVal n,Byval m) B.Sub Proc1(ByVal n, m)C.Sub Proc1(n,Byval m) D.Sub Proc1(n, m)31 .为了预防用户随意将光标置于控件之上,应该进行 设置.DA.将控件的TabIndex属性设置为 0B.将控件的TabStop属性设置为 TrueC.将控件的TabStop属性设置为 FalseD.将控件的 Ena

30、bled属性设置为 False32 .使用驱动器列表框的 属性可以返回或设置磁盘驱动器的名称.BA.ChDrive B.Drive C.List D.ListIndexa$=BadEnd SelectMsgBox a$End SubA.Bad B.Pass C.Ok D.Good43 .执行下面程序段后,变量 a的值为For I=1 To 3For j=1 To IFor k=j To 3a=a+1Next k44 .文件号最大可取的值为 o BA.255B.511C.512D.25645 .在Visual Basic中,语句 Print 39的输出结果为 . DA.0B.1C.-1 D.Fa

31、lse46 .全局变量必须在 中定义AA.标准模块B.任意模块C.窗体模块 D.类模块47 .表达式 Int(23.4)+Round(-35.5)的计算结果为 .CA.-11B.-12.1C.-13D.-12.5Next jNext IA.3B.9C.14D.2144.写出以下程序的运行结果,并说明函数的功能.APublic Function f(m%, n%)Do While m nDo While m n m = m n37 .如果列表框(List1)中没有被选定的工程,那么执行LoopList1.RemoveItem List1.ListIndex 语句的结果是.Do While n m

32、A.移去第一项B.移去最后一项n = n - mC.移去最后参加列表的一项D.以上都不对Loop38 .通过代码在运行时设置属性的语法格式为 . BLoopA.对象名=属性.新值B.对象名.属性=新值f = mC.对象名.新值=属性.新值D.对象名属性=属性.新值End Function39 .改变驱动器列表框的 Drive属性值将激活 事件.AA.Change B.Scoll C.KeyDown D.KeyUp40 .已编译的控件部件的扩展名是. AA. .OCX B. .VBP C. .EXE D. .CTL第三题、简单程序(共15分,每项1.5分)41 .执行下面程序段后,变量c$的值为

33、 o Da$= Visual Basic Programmingb$= Quickc$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,12)A.Visual BASIC Programming B.Quick Basic ProgrammingC.QUICK Basic Programming _D.Quick BASIC Programming42 .运行下面程序后,在弹出的消息窗口中显示的是Private Sub Form_Click() score=Int(Rnd)+5Select Case scoreCase 5Private Sub Command1_Cli

34、ck() print f(24, 18)End SubA.6B.8C.10D.1245.以下程序的输出结果是.BPrivate Sub Command1_Click()a=1234b$=Str$(a)c=Len(Trim(b)print c;LenB(b)End SubA.3 8 _B.4 10C.5 10D.4 846 .执行下面程序段后,变量 x的值为.公x=5For I=1 To 20 step 2x=x+I5如果是那么显示 奇数,否那么显示 相数Private Sub odd(n As Integer)A.21B.22C.23D.2447 .以下程序的循环次数是 oPrivate Su

35、b Command1_Click()For j=8 To 35 Step 3Print j;Next jEnd SubA.10B.9C.27D.2848 .以下程序的输出结果是. DPrivate Sub Command1_Click()a=100Dos=s+aa=a+1Loop Until a100print aEnd SubA.100B.120C.201D.10149 .执行下面的程序段后,变量 S的值为 o CS= 5For I =2.6 To 4.9 Step 0.6S=S+1Next IA.7B.8C.9D.1050 .下面程序运行后,输出的结果为 .Private Sub Comm

36、and1_Click()A$= Beijing B$= dalian C$= shanghai C$=Instr(Left(A$,2)+Right$(B$,2),C$)Print C$End SubA.10B.0C.8D.6第二卷主观题填空题(共30分,每项2分.注意：填两个空的题的时候,要 根据从上至下,从左至右的顺序添入做题卡！)1 .在C盘根目录下建立一个名为Student.dat的顺序文件.要求用InputBox函数输入10名学生的学号(StuNo)、姓名(StuName)和性别(StuSex).Private Sub Form_Load ()Open C:Student.dat Fo

37、r Output As #1For I=1 to 10StuNo=InputBox(请输入学号)StuName= InputBox (请输入姓名)StuSex= InputBox (请输入性别)_ Write -1,StuNo,Stuname,StuSexEnd Sub2 .编写一个求最大公约数的函数,并调用该函数,程序如下： Function gcd(ByVal a As Integer,ByVal b As Integer) As IntegerDim re as integerDo While b0re=a mod ba=bb=reLoopgcd=aEnd FunctionSub Com

38、mand1_Click()Dim x As Integer,y As Integer, z As integerX=96Y=64z=gcd(x,y) Print 结果= ；zEnd Sub3 .请用正确的内容填空.以下程序找出50以内所有能构成直角 三角形的整数组.Private Sub Form_Click()For x=1 To 50For y=x To 50z=Sqr(x*x+y*y)If z=5 And z=Int(z) Then Print x; y; zNext yNext xPrintEnd Sub4 .执行下面的程序段后,s的值为_ZPrivate Sub Form_Click

39、()Static s As Integer5 = 5For I = 1.4 To 2.1 Step 0.66 = s + 1Next IPrint sEnd Sub5 .执行下面的程序段后,X的值为 8 oX=5For I=1 to 10 Step 2X=X+I5Next I6 .函数odd用于判断一个数是否是奇数.当单击命令按钮时,产生1,9之间的随机数,调用 odd过程,判断该数是否为奇数.Next I它没有数据类型.BPrint n;If n/2n2 ThenPrint 奇数ElsePrint 偶数End IfEnd SubPrivate Sub Command1_Click() Dim

40、 x As Integer Randomize x =_ int(9*rnd+1) odd x End Sub7 .以下程序允许用户按 Enter键将一个组合框(cboComputer) 中没有的工程添加到组合框中.Sub cboComputer_KeyPress(KeyAscii As Integer) Dim flag As Boolean If KeyAscii=13 Then flag=FalseFor I=0 To cboComputer.ListCount-1If_cboComputer.Text=cboComputer.List(i)ThenFlag=True Exit ForE

41、nd IfNextIf Not flag ThencboComputer.AddItem cboComputer.Text ElseMsgBox(组合框中已有该工程！)End IfEnd IfEnd Sub8 .请用正确的内容填空.下面程序用选择法将数组a中的10个整数按升序排列.Option Base 1Private Sub Form_Click() Dim aa = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823)For I=1 To 9For j= _ i+1= To 10 If a(i)a(j) Then t=a(I): a(

42、I)=a(j): a(j)=t End IfNext jNext IFor I=1 To 10Print a(I);End Sub9 .以下程序的功能是：生成 20个200到300之间的随机整数, 输出数的位置能被5整除的数并求出它们的和.请填空.Private Sub Commandl_C1ick()For I = 1 To 20x= Int( Rnd *200+100)If I Mod 5 =0 Then Print xS= S+x End IfNext IPrint Sum =;S End Sub10.以下程序的功能是：从键盘上输入假设干个学生的测试分数, 统计并输出最高分数和最低分数,

43、当输入负数时结束输入, 输出结果,请将程序补充完整.Private Sub Form_Click()Dim x, amax, amin A Single x = InputBox(Enter a score) amax = x amin = xDo While _ x0 If x amax Then amax = xEnd IfIf xyz的正确VB逻辑表达式是 _D.A.xy And yz C.xyAnd z D.xy And yz29 .函数Int(Rnd*11)+10 产生的数值的范围是_C.A. (0,10)B.10,10C.10,20D.(0,20)30 .下面关于顺序文件的描述,正

44、确的选项是_C.A.每条记录的长度必须相同B.可通过编程对文件中的某条记录方便地修改C.数据以ASCII码形式存放在文件中,所有可通过文本 编辑软件显示D.文件的组织结构复杂31 .文件列表框中用于设置或返回所选文件的文件名的属性 是D.A.FilePathB.FileC.Path D.FileNamea$=Good32 .为了建立一个随机文件,其中每一条记录有多个不同数据类型的数据项组成,应使用AA.自定义类型B.数组 C.字符串类型D.变体类型33 .在Visual Basic 中,语句 Print 39 的输出结果为_D.A.0B.1C.-1D.False34 .当一个工程含有多个窗体时

45、,其中的启动窗体是_D oA.启动VB时建立的窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性对话框中指定的窗体.35 .使用目录列表框的C属性可以返回或设置当前工作 目录的完整路径.A.DriveB.ListIndexC.PathD.D ir36 . Integer 类型的数据由_B字节组成.A.1B.2C.3D.437 .如果列表框(List1 )中只有一个工程被用户选定,那么执行 Debug. Print List1Selected (List1.ListIndex )语句的 结果是 A_oA.在Debug窗口输出被选定的工程的索引值B.在Debug窗口输出TrueC.在窗

46、体上输出被选定的工程的索引值D.在窗体上输出True38 .通过代码在运行时设置属性的语法格式为BoA.对象名=属性.新值 B.对象名.属性=新值C.对象名.新值=属性.新值 D.对象名.属性=属性. 新值39 .要使用FSO对象模型,必须通过【工程】菜单中的_D 命令将FSO对象模型引入到当前工程中.A.部件 B.工程属性C.添加属性D.引用40 .全局变量必须在A 中定义A.标准模块B.任意模块 C.窗体模块 D.类模块第三题、简单程序(共15分,每项1.5分)41 .执行下面程序段后,变量 c$的值为_D oa$= Visual Basic Programmingb$= Quickc$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,12)A.Visual BASIC Programming B.Quick Basic ProgrammingC.QUICK Basic Programming D.Quick BASIC Programming42 .运行下面程序后,在弹出的消息窗口中显示的是_D oPrivate Sub Form_Click()score=Int(Rnd)+5S