【计算机类职业资格】二级VISUAL+BASIC笔试-265及答案解析.doc

1、二级 VISUAL+BASIC 笔试-265 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在 VB 中按文件的访问方式不同，可以将文件分为( )。（分数：2.00）A.顺序文件、随机文件和二进制文件B.文本文件和数据文件C.数据文件和可执行文件D.ASCII 文件和二进制文件2.在窗体上画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell，然后编写如下事件过程：Private Sub Commandl_Click()Counter=0Fori=1T04Forj=6 To 1 Step-2Counter=Counte

2、r+1NextjNextiLabell.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是( )。（分数：2.00）A.11B.12C.16D.203.设置标签边框的属性是( )。（分数：2.00）A.BorderStyleB.BackStyleC.AutoSizeD.Alignment4.下列叙述中正确的是( )。（分数：2.00）A.在窗体的 Form_Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程D.在调用

3、过程时，所有局部变量被系统初始化为 0 或空字符串5.在窗体上画一个命令按钮，名称为 Commandl，然后编写如下事件过程：Prirate Sub Commandl_click()a$=“software and hardware“b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,b$,c$,1End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是( )。（分数：2.00）A.software andhardwareB.softwareC.hardwareD.16.若要设置文本框中所显示的文本颜色，使用的属性是( )。（分数：2.00）A.BackC

4、olorB.FillColorC.ForeColorD.BackStyle7.如果 A 为整数，且|A|=100，则打印“OK“，否则打印“Error“，表示这个条件的单行 格式 If 语句是( )。（分数：2.00）A.f int(A)=AAnd Sqr(A)=10ThenPrint“OK“ElsePrint/B.F Fix(A)=AAndAbs(A)=100Then Print“OK“Else Print/C.F Int(A)=AAnd(A=100,A=-100)ThenPrint“OK“ElsePrim/D.f Fix(A)=AAndA=100,AndA=-100ThenPrint“OK

5、“ElsePrint/8.以下关于窗体的描述中，错误的是( )。（分数：2.00）A.执行 UnLoad Forml 语句后，窗体 Forml 消失，但仍在内存中B.窗体的 Load 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D.窗体的 Height、Width 属性用于设置窗体的高和宽9.以下叙述中错误的是( )。（分数：2.00）A.顺序文件中的数据只能按顺序读写B.对同一个文件，可以用不同的方式和不同的文件号打开C.执行 Close 语句，可将文件缓冲区中的数据写到文件中D.随机文件中各记录的长度是随机的10.在窗体上画三

6、个单选按钮，组成一个名为 chkOption 的控件数组。用于标识各个控件数组元素的参数是( )。（分数：2.00）A.TagB.IndexC.ListlndexD.Name11.以下合法的 VisualBasic 标识符是( )。（分数：2.00）A.ForLoopB.ConstC.9abcD.a#x12.有如下程序：Private Sub Form_Click()Dimi As Integer,sumASIntegersum=0For i=2To 10If i Mod20 And i Mod 3=0 Thensum=sum+iEnd IfNextiPrint sumEndSub程序运行后，

7、单击窗体，输出结果为( )。（分数：2.00）A.12B.30C.24D.1813.以下程序运行后，输出结果是( )。Forj=1 T0 3PrintTab(3*j)；2*(j-1)*2*(j-1)NextjPrint（分数：2.00）A.B.C.D.14.下列程序运行后，单击命令按钮，窗体显示的结果为( )。Private Function pl(x As Integer,y As Integer,z As Integer)pl=2*x+y+3*zEnd FunctionPrivate Function p2(X As Integer,y As Integer,z As Integer)p2

8、=p1(z,y,x)+xEnd FunctionPrivate Sub Commandl_Click()Dim a As IntegerDim b As IntegerDim c As Integera=2:b=3:c=4Print p2(c,b,a)End Sub（分数：2.00）A.23B.19C.21D.2215.实现字符串 Unicode 编码方式与州 SI 编码方式相互转换的函数是( )。（分数：2.00）A.StrB.SbconvC.TrimD.Mid16.窗体上有名称分别为 Textl、Text2 的 2 个文本框，要求文本框 Textl 中输入的数据小于 500，文本框Text

9、2 中输入的数据小于 1000，否则重新输入。为了实现上述功能，在下划线处应填入的内容是( )。Private Sub Textl_ostFocus()Call Checklnput(Textl,500)End SubPrivate Sub Text2_LostFocus()Call Checklnput(Text2,1000)End SubSub Checklnput(tAs_,x AS Integer)IfVal(t.TextX ThenMsgBox“请重新输入!”End IfEnd Sub（分数：2.00）A.TextB.SelTextC.ControlD.Form17.在窗体上画一个列

10、表框、一个文本框及一个按钮，然后编写如下事件过程：Prirate Sub Form_Loab()List.Addltem“357“Llst.Addltem“246“List.Addltem“123“List.Addltem“456“TEXTl.Text=“End ubPrivate Sub Commandl_Click()List.LiSdndex=3Print List.Text+Textl.TextEnd Sub程序运行后，在文本框中输入“789”，然后双列表框中的“456”，则输出结果为( )。（分数：2.00）A.789123B.456789C.789456D.124518.有如下的一

11、个函数过程：Function fn(By Val hum AS Long)Dim k As Longk=lnum=Abs(nam)Do While nnmk=k*(nnm Mod 10)num=num/10Loopfn=kEnd Function以下是一个调用该函数的事件过程，运行程序后，在输入对话框输入数字“123”，该过程的运行结果是( )。Private Sub Command5_Click()Dim n AS LongDim r AS Longn=InputBox(“请输入一个数值”)n=CLng(n)r=fn(n)Print rEnd Sub（分数：2.00）A.12B.6C.3D.

12、119.以下不能在“工程资源管理器”窗口中列出的文件类型是( )。（分数：2.00）AbasBresCfrmDocx20.在 DblClick 事件发生时，不会同时发生的事件是( )。（分数：2.00）A.Mouse DownB.Mouse UpC.ClickD.Change21.设有数组定义语句：Dima(5)AsInteger，Listl 为列表框控件。下列给数组元素赋值的语句错误的是( )。（分数：2.00）A.a(3)=3B.a(3)=inputbox(“inputdata“)C.a(3)=Listl.ListlndexD.a=Array(1，2，3，4，5，6)22.有如下程序：in

13、focase$=InputBox(“Inputoneletter:“)Select Case infocase$case“a“grade$=“Verygood“case“b“grade$=“Good“case“C“grade$=“OK“case“d“grade$=“Qualified“case Elsegrade$=“Bab“End SelectPrint grade$运行时从键盘上输入英文小写字母 d 后，输出的结果是( )。（分数：2.00）A.Very goodB.GoodC.BadD.Qualified23.能够获得一个文本框中被选取文本的内容的属性是( )。（分数：2.00）A.Te

14、xtB.LengthC.SeltextD.SelStart24.下列程序段的执行结果为( )。a=1b=5Doa=a+bb=b+1Loop While a10Printa；b（分数：2.00）A.115B.127C.abD.102525.运行以下程序后，输出的图案是( )。Forml.ClSForA=1 To5Ptintf Space(5-A)；StdnS(A，“*“)NextA（分数：2.00）A.B.C.D.26.如果将窗体中文本框的 Password Char 属性设置为一个字符，如星号(*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是( )。（分数：2.00）A

15、.文本框的 MultiLine 属性值为 TrueB.文本框的 Looked 属性值为 TrueC.文本框的 MultiLine 属性值为 FalseD.文本框的 Looked 属性值为 False27.Right(“ABCDEFG“,3)的执行结果是( )。（分数：2.00）A.ABCB.EFGC.DEFD.CDE28.下列程序的执行结果为( )。A=“1“B=“2“A=Val(A)+Val(B)B=Val(“12“)IfABThenPrint A-B Else Print B-A（分数：2.00）A.-9B.9C.-12D.029.Int(100*Rnd(1)产生的随机整数的闭区间是( )

16、。（分数：2.00）A.0,99B.1,100C.0,100D.1,9930.以下( )程序段可以实施 X、Y 变量值的交换。（分数：2.00）A.Y=X：X=YB.Z=X：Y=Z：X=YC.Z=X：X=Y：Y=ZD.Z=X：W=Y：Y=Z：X=Y31.不能正确表示条件“两个整型变量 A 和 B 之一为 0，但不能同时为 0”的布尔表达式是 ( )。（分数：2.00）A.A*B=0 andA+B0B.(A=0 orB=0)and(A0 Or B0)C.not(A=0 And B=0)and(A=0 or B=0)D.A*B=0 and(A=0 or B=0)32.下列关于过程的叙述不正确的是(

17、 )（分数：2.00）A.过程的传值调用是将实参的具体值传递给形参B.过程的传址调用是将实参在内存的地址传递给形参C.过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D.无论过程传值调用还是过程传址调用，参数传递都是双向的33.设窗体上有一个文本框，名称为 Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是( )。（分数：2.00）A.Textl.MaxLength=0B.Textl.Enabled=FalseC.Textl.Visible=FalseD.Textl.Width=034.下列定义语句中不能定义为字符型数据的是( )。（分

18、数：2.00）A.Defstr cB.cC.StadC c As StringD.Dim c As Single35.在窗体上画一个名称为 CommonDialogl 的通用对话框，一个名称为 Commandl 的命令按钮。然后编写如下事件过程：Private Commandl_Click()CommonDialogl.FileName=“CommonDialogl.Filter=“Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“CommonDialogl.Filterlndex=2CommonDialogl.DialogTifle=“VBTest“Common

19、Dialogl.Action=1EndSub对于这个程序，以下叙述中错误的是( )。（分数：2.00）A.该对话框被设置为“打开”对话框B.在该对话框中指定的默认文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(*.Txt)二、填空题(总题数：14，分数：30.00)36.VisualBasic 中有一种控件组合了文本框和列表框的特性，这种控件是 1。（分数：2.00）填空项 1:_37.DefSng a 定义的变量 a 是 1 类型的变量。（分数：2.00）填空项 1:_38.顺序存储方法是把逻辑上相邻的结点存储在物理位置 1 的存储单元中。（分数：2

20、.00）填空项 1:_39.刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对 Form 窗体的 1 属性进行设置。（分数：2.00）填空项 1:_40.图像框中的图形能与图像框的大小相适应，必须把该图片框的 Stretch 属性设置为 1。（分数：2.00）填空项 1:_41.要想在文本框中显示垂直滚动条，必须把 Scrolebars 属性设置为 2，同时还应把 1 属性设置为了True。（分数：2.00）填空项 1:_42.为了使计时器控件 Timer1 每隔 0.5 秒触发一次 Timer 事件，应将 Timer1 控件的 1 属性设置为 500.（分数：2.00）填

21、空项 1:_43.在窗体上画一个名称为 Text1 的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为 Option1.程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。（分数：2.00）填空项 1:_44.若 A=20，B=80，C=70，D=30，则表达式 A+B160 Or(B*C200And Not D60)的值是 1。（分数：2.00）填空项 1:_45.设 A=2，B=-4，则表达式 3*A5 0r B+80 的值是上 1。（分数：2.00）填空项 1:_下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。Op

22、tion Base 1Private Sub Form_Click()m=Input Box(“输入行数”):n=InputBox(“输入列数”)11 a(m,n)AS Integer,b(n,m)AS IntegerForI=1 to mForj=1 to na(I,j)=Int(Rnd*90)+10Next:NextForI=1 to mForj=1 to nb(j,1)= 12 Next:NextEnd Sub（分数：4.00）填空项 1:_填空项 1:_46.Private Sub Form_Activate()Forj=1 to 3x=3ForI=1 to 2x=x+6NextINe

23、xtjPrint xEnd Sub程序运行后，窗体上显示的结果为上_。（分数：2.00）填空项 1:_47.以下程序用来计算由键盘输入的 N 个数中正数之和，负数之和，正数的个数，负数的个数。其中用 C累加负数之和，IC 累加负数的个数，D 累加正数之和，ID 累加正数的个数。Privae Sub Commandl_ClickN=10C=0:IC=0:D=0:ID=0For =1 To NA=Val(1nputBox(“请输入 A”)IFA0 Then C=C+A：IC=IC+1lf AO Then D= Next KPrint“负数的个数为：“,ICPrint“负数的和为：“,CPrint“

24、正数的个数为：“，IDPrint“正数的和为：“,DEnd Sub（分数：2.00）填空项 1:_48.下列程序是将数组 a 的元素倒序交换，即第 1 个变为最后一个，第 2 个变为倒数第 2 个，完成下列程序。Private Sub Backward(a()Dim i As Integer,Tmp As IntegerFori=1 To5Tmp=a(i)a(5-i)=TmpNextiEnd Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-265 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在 VB 中按文件的

25、访问方式不同，可以将文件分为( )。（分数：2.00）A.顺序文件、随机文件和二进制文件 B.文本文件和数据文件C.数据文件和可执行文件D.ASCII 文件和二进制文件解析：2.在窗体上画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell，然后编写如下事件过程：Private Sub Commandl_Click()Counter=0Fori=1T04Forj=6 To 1 Step-2Counter=Counter+1NextjNextiLabell.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是( )。（分数：2.0

26、0）A.11B.12 C.16D.20解析：3.设置标签边框的属性是( )。（分数：2.00）A.BorderStyle B.BackStyleC.AutoSizeD.Alignment解析：4.下列叙述中正确的是( )。（分数：2.00）A.在窗体的 Form_Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程 D.在调用过程时，所有局部变量被系统初始化为 0 或空字符串解析：5.在窗体上画一个命令按钮，名称为 Commandl，然后编写如下事件过程：Prira

27、te Sub Commandl_click()a$=“software and hardware“b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,b$,c$,1End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是( )。（分数：2.00）A.software andhardwareB.softwareC.hardware D.1解析：6.若要设置文本框中所显示的文本颜色，使用的属性是( )。（分数：2.00）A.BackColorB.FillColorC.ForeColor D.BackStyle解析：7.如果 A 为整数，且|A|=100，则打印

28、“OK“，否则打印“Error“，表示这个条件的单行 格式 If 语句是( )。（分数：2.00）A.f int(A)=AAnd Sqr(A)=10ThenPrint“OK“ElsePrint/B.F Fix(A)=AAndAbs(A)=100Then Print“OK“Else Print/ C.F Int(A)=AAnd(A=100,A=-100)ThenPrint“OK“ElsePrim/D.f Fix(A)=AAndA=100,AndA=-100ThenPrint“OK“ElsePrint/解析：8.以下关于窗体的描述中，错误的是( )。（分数：2.00）A.执行 UnLoad For

29、ml 语句后，窗体 Forml 消失，但仍在内存中 B.窗体的 Load 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D.窗体的 Height、Width 属性用于设置窗体的高和宽解析：9.以下叙述中错误的是( )。（分数：2.00）A.顺序文件中的数据只能按顺序读写B.对同一个文件，可以用不同的方式和不同的文件号打开C.执行 Close 语句，可将文件缓冲区中的数据写到文件中D.随机文件中各记录的长度是随机的 解析：10.在窗体上画三个单选按钮，组成一个名为 chkOption 的控件数组。用于标识各个控件数组元素的参数是( )

30、。（分数：2.00）A.TagB.Index C.ListlndexD.Name解析：11.以下合法的 VisualBasic 标识符是( )。（分数：2.00）A.ForLoopB.Const C.9abcD.a#x解析：12.有如下程序：Private Sub Form_Click()Dimi As Integer,sumASIntegersum=0For i=2To 10If i Mod20 And i Mod 3=0 Thensum=sum+iEnd IfNextiPrint sumEndSub程序运行后，单击窗体，输出结果为( )。（分数：2.00）A.12 B.30C.24D.18

31、解析：13.以下程序运行后，输出结果是( )。Forj=1 T0 3PrintTab(3*j)；2*(j-1)*2*(j-1)NextjPrint（分数：2.00）A.B.C. D.解析：14.下列程序运行后，单击命令按钮，窗体显示的结果为( )。Private Function pl(x As Integer,y As Integer,z As Integer)pl=2*x+y+3*zEnd FunctionPrivate Function p2(X As Integer,y As Integer,z As Integer)p2=p1(z,y,x)+xEnd FunctionPrivate

32、Sub Commandl_Click()Dim a As IntegerDim b As IntegerDim c As Integera=2:b=3:c=4Print p2(c,b,a)End Sub（分数：2.00）A.23 B.19C.21D.22解析：15.实现字符串 Unicode 编码方式与州 SI 编码方式相互转换的函数是( )。（分数：2.00）A.StrB.Sbconv C.TrimD.Mid解析：16.窗体上有名称分别为 Textl、Text2 的 2 个文本框，要求文本框 Textl 中输入的数据小于 500，文本框Text2 中输入的数据小于 1000，否则重新输入。为

33、了实现上述功能，在下划线处应填入的内容是( )。Private Sub Textl_ostFocus()Call Checklnput(Textl,500)End SubPrivate Sub Text2_LostFocus()Call Checklnput(Text2,1000)End SubSub Checklnput(tAs_,x AS Integer)IfVal(t.TextX ThenMsgBox“请重新输入!”End IfEnd Sub（分数：2.00）A.TextB.SelTextC.Control D.Form解析：17.在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下

34、事件过程：Prirate Sub Form_Loab()List.Addltem“357“Llst.Addltem“246“List.Addltem“123“List.Addltem“456“TEXTl.Text=“End ubPrivate Sub Commandl_Click()List.LiSdndex=3Print List.Text+Textl.TextEnd Sub程序运行后，在文本框中输入“789”，然后双列表框中的“456”，则输出结果为( )。（分数：2.00）A.789123B.456789 C.789456D.1245解析：18.有如下的一个函数过程：Function f

35、n(By Val hum AS Long)Dim k As Longk=lnum=Abs(nam)Do While nnmk=k*(nnm Mod 10)num=num/10Loopfn=kEnd Function以下是一个调用该函数的事件过程，运行程序后，在输入对话框输入数字“123”，该过程的运行结果是( )。Private Sub Command5_Click()Dim n AS LongDim r AS Longn=InputBox(“请输入一个数值”)n=CLng(n)r=fn(n)Print rEnd Sub（分数：2.00）A.12B.6 C.3D.1解析：19.以下不能在“工程

36、资源管理器”窗口中列出的文件类型是( )。（分数：2.00）AbasBresCfrmDocx 解析：20.在 DblClick 事件发生时，不会同时发生的事件是( )。（分数：2.00）A.Mouse DownB.Mouse UpC.ClickD.Change 解析：21.设有数组定义语句：Dima(5)AsInteger，Listl 为列表框控件。下列给数组元素赋值的语句错误的是( )。（分数：2.00）A.a(3)=3B.a(3)=inputbox(“inputdata“)C.a(3)=Listl.ListlndexD.a=Array(1，2，3，4，5，6) 解析：22.有如下程序：in

37、focase$=InputBox(“Inputoneletter:“)Select Case infocase$case“a“grade$=“Verygood“case“b“grade$=“Good“case“C“grade$=“OK“case“d“grade$=“Qualified“case Elsegrade$=“Bab“End SelectPrint grade$运行时从键盘上输入英文小写字母 d 后，输出的结果是( )。（分数：2.00）A.Very goodB.GoodC.BadD.Qualified 解析：23.能够获得一个文本框中被选取文本的内容的属性是( )。（分数：2.00）

38、A.TextB.LengthC.Seltext D.SelStart解析：24.下列程序段的执行结果为( )。a=1b=5Doa=a+bb=b+1Loop While a10Printa；b（分数：2.00）A.115B.127 C.abD.1025解析：25.运行以下程序后，输出的图案是( )。Forml.ClSForA=1 To5Ptintf Space(5-A)；StdnS(A，“*“)NextA（分数：2.00）A. B.C.D.解析：26.如果将窗体中文本框的 Password Char 属性设置为一个字符，如星号(*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可

39、能是( )。（分数：2.00）A.文本框的 MultiLine 属性值为 True B.文本框的 Looked 属性值为 TrueC.文本框的 MultiLine 属性值为 FalseD.文本框的 Looked 属性值为 False解析：27.Right(“ABCDEFG“,3)的执行结果是( )。（分数：2.00）A.ABCB.EFG C.DEFD.CDE解析：28.下列程序的执行结果为( )。A=“1“B=“2“A=Val(A)+Val(B)B=Val(“12“)IfABThenPrint A-B Else Print B-A（分数：2.00）A.-9 B.9C.-12D.0解析：29.I

40、nt(100*Rnd(1)产生的随机整数的闭区间是( )。（分数：2.00）A.0,99 B.1,100C.0,100D.1,99解析：30.以下( )程序段可以实施 X、Y 变量值的交换。（分数：2.00）A.Y=X：X=YB.Z=X：Y=Z：X=YC.Z=X：X=Y：Y=Z D.Z=X：W=Y：Y=Z：X=Y解析：31.不能正确表示条件“两个整型变量 A 和 B 之一为 0，但不能同时为 0”的布尔表达式是 ( )。（分数：2.00）A.A*B=0 andA+B0B.(A=0 orB=0)and(A0 Or B0)C.not(A=0 And B=0)and(A=0 or B=0)D.A*B

41、=0 and(A=0 or B=0) 解析：32.下列关于过程的叙述不正确的是( )（分数：2.00）A.过程的传值调用是将实参的具体值传递给形参B.过程的传址调用是将实参在内存的地址传递给形参C.过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D.无论过程传值调用还是过程传址调用，参数传递都是双向的 解析：33.设窗体上有一个文本框，名称为 Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是( )。（分数：2.00）A.Textl.MaxLength=0B.Textl.Enabled=False C.Textl.Visible=Fal

42、seD.Textl.Width=0解析：34.下列定义语句中不能定义为字符型数据的是( )。（分数：2.00）A.Defstr cB.cC.StadC c As StringD.Dim c As Single 解析：35.在窗体上画一个名称为 CommonDialogl 的通用对话框，一个名称为 Commandl 的命令按钮。然后编写如下事件过程：Private Commandl_Click()CommonDialogl.FileName=“CommonDialogl.Filter=“Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“CommonDialogl.F

43、ilterlndex=2CommonDialogl.DialogTifle=“VBTest“CommonDialogl.Action=1EndSub对于这个程序，以下叙述中错误的是( )。（分数：2.00）A.该对话框被设置为“打开”对话框B.在该对话框中指定的默认文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(*.Txt) 解析：二、填空题(总题数：14，分数：30.00)36.VisualBasic 中有一种控件组合了文本框和列表框的特性，这种控件是 1。（分数：2.00）填空项 1:_ （正确答案：组合框或组合）解析：37.DefSng a 定义

44、的变量 a 是 1 类型的变量。（分数：2.00）填空项 1:_ （正确答案：单精度）解析：38.顺序存储方法是把逻辑上相邻的结点存储在物理位置 1 的存储单元中。（分数：2.00）填空项 1:_ （正确答案：相邻）解析：39.刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对 Form 窗体的 1 属性进行设置。（分数：2.00）填空项 1:_ （正确答案：Font）解析：40.图像框中的图形能与图像框的大小相适应，必须把该图片框的 Stretch 属性设置为 1。（分数：2.00）填空项 1:_ （正确答案：True）解析：41.要想在文本框中显示垂直滚动条，必须把 S

45、crolebars 属性设置为 2，同时还应把 1 属性设置为了True。（分数：2.00）填空项 1:_ （正确答案：MulUline）解析：42.为了使计时器控件 Timer1 每隔 0.5 秒触发一次 Timer 事件，应将 Timer1 控件的 1 属性设置为 500.（分数：2.00）填空项 1:_ （正确答案：Intewal）解析：43.在窗体上画一个名称为 Text1 的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为 Option1.程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。（分数：2.00）填空项 1

46、:_ （正确答案：Font 或 Font Name 或 Font.Name）解析：44.若 A=20，B=80，C=70，D=30，则表达式 A+B160 Or(B*C200And Not D60)的值是 1。（分数：2.00）填空项 1:_ （正确答案：True）解析：45.设 A=2，B=-4，则表达式 3*A5 0r B+80 的值是上 1。（分数：2.00）填空项 1:_ （正确答案：Tme）解析：下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。Option Base 1Private Sub Form_Click()m=Input Box(“输入行数”):n=InputBox

47、(“输入列数”)11 a(m,n)AS Integer,b(n,m)AS IntegerForI=1 to mForj=1 to na(I,j)=Int(Rnd*90)+10Next:NextForI=1 to mForj=1 to nb(j,1)= 12 Next:NextEnd Sub（分数：4.00）填空项 1:_ （正确答案：ReDim a(m,n)As Integer）解析：填空项 1:_ （正确答案：b(n,m)As Integer a(I,j)）解析：46.Private Sub Form_Activate()Forj=1 to 3x=3ForI=1 to 2x=x+6NextINextjPrint xEnd Sub程序运行后，窗体上显示的结果为上_。（分数：2.00）填空项 1:_ （正确答案：15）解析：47.以下程序用来计算由键盘输入的 N 个数中正数之和，负数之和，正数的个数，负数的个数。其中用 C累加负数之和，IC 累加负数的个数，D 累加正数之和，ID 累加正数的个数。Privae Sub Commandl_ClickN=10C=0:IC=0:D=0:ID=0For =1 To NA=Val(1nputBox(“请输入 A”)IFA0 Then C=C+A：IC=IC+1lf AO Then D= Next KPrint“负数的个数