1、二级 VISUAL+BASIC 笔试-390 及答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.Right(“ABCDEFG“,3)的执行结果是( )。（分数：2.00）A.ABCB.EFGC.DEFD.CDE2.如果 A 为整数，且|A|=100，则打印“OK“，否则打印“Error“，表示这个条件的单行 格式 If 语句是( )。（分数：2.00）A.If int(=AAnd Sqr(=10ThenPrint“OK“ElsePrint“Error“B.IF Fix(=AAndAbs(=100Then Print“OK“Else Pr
2、int“Error“C.IF Int(=AAnd(A=100,A=-100)ThenPrint“OK“ElsePrim“Error“D.If Fix(=AAndA=100,AndA=-100ThenPrint“OK“ElsePrint“Error“3.在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下事件过程： Prirate Sub Form_Loab() List.Addltem“357“ Llst.Addltem“246“ List.Addltem“123“ List.Addltem“456“ TEXTl.Text=“ End ub Private Sub Commandl_Cli
3、ck() List.LiSdndex=3 Print List.Text+Textl.Text End Sub 程序运行后，在文本框中输入“789”，然后双列表框中的“456”，则输出结果为 ( )。（分数：2.00）A.789123B.456789C.789456D.12454.实现字符串 Unicode 编码方式与州 SI 编码方式相互转换的函数是( )。（分数：2.00）A.StrB.SbconvC.TrimD.Mid5.设有数组定义语句：Dima(5)AsInteger，Listl 为列表框控件。下列给数组元素赋值的语句错误的是( )。（分数：2.00）A.a(3)=3B.a(3)=i
4、nputbox(“inputdata“)C.a(3)=ListListlndexD.a=Array(1，2，3，4，5，6)6.以下程序运行后，输出结果是( )。 Forj=1 T0 3 PrintTab(3*j)；2*(j-1)*2*(j-1) Nextj Print （分数：2.00）A.B.C.D.7.以下不能在“工程资源管理器”窗口中列出的文件类型是( )。（分数：2.00）AbasBresCfrmDocx8.以下合法的 VisualBasic 标识符是( )。（分数：2.00）A.ForLoopB.ConstC.9abcD.a#x9.在窗体上画三个单选按钮，组成一个名为 chkOpt
5、ion 的控件数组。用于标识各个控件数组元素的参数是( )。（分数：2.00）A.TagB.IndexC.ListlndexD.Name10.在窗体上画一个名称为 CommonDialogl 的通用对话框，一个名称为 Commandl 的命令按钮。然后编写如下事件过程： Private Commandl_Click() CommonDialogl.FileName=“ CommonDialogl.Filter=“Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CommonDialogl.Filterlndex=2 CommonDialogl.DialogTif
6、le=“VBTest“ CommonDialogl.Action=1 EndSub 对于这个程序，以下叙述中错误的是( )。（分数：2.00）A.该对话框被设置为“打开”对话框B.在该对话框中指定的默认文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(*.Tx11.以下叙述中错误的是( )。（分数：2.00）A.顺序文件中的数据只能按顺序读写B.对同一个文件，可以用不同的方式和不同的文件号打开C.执行 Close 语句，可将文件缓冲区中的数据写到文件中D.随机文件中各记录的长度是随机的12.不能正确表示条件“两个整型变量 A 和 B 之一为 0，但不能同
7、时为 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)13.运行以下程序后，输出的图案是( )。 Forml.ClS ForA=1 To5 Ptintf Space(5-A)；StdnS(A，“*“) NextA （分数：2.00）A.B.C.D.14.以下关于窗体的描述中，错误的是( )。（分数：2.00）A.执行 UnLoad Forml 语句后，窗体 Forml 消失，但仍在内存中B.窗体的 Loa
8、d 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D.窗体的 Height、Width 属性用于设置窗体的高和宽15.在窗体上画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell，然后编写如下事件过程： Private Sub Commandl_Click() Counter=0 Fori=1T04 Forj=6 To 1 Step-2 Counter=Counter+1 Nextj Nexti Labell.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是
9、( )。（分数：2.00）A.11B.12C.16D.2016.下列叙述中正确的是( )。（分数：2.00）A.在窗体的 Form_Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程D.在调用过程时，所有局部变量被系统初始化为 0 或空字符串17.在 DblClick 事件发生时，不会同时发生的事件是( )。（分数：2.00）A.Mouse DownB.Mouse UpC.ClickD.Change18.窗体上有名称分别为 Textl、Text2 的 2 个文本框
10、，要求文本框 Textl 中输入的数据小于 500，文本框Text2 中输入的数据小于 1000，否则重新输入。为了实现上述功能，在下 划线处应填入的内容是( )。 Private Sub Textl_ostFocus() Call Checklnput(Textl,500) End Sub Private Sub Text2_LostFocus() Call Checklnput(Text2,1000) End Sub Sub Checklnput(tAs_,x AS Integer) IfVal(t.TextX Then MsgBox“请重新输入!” End If End Sub（分数：2
11、.00）A.TextB.SelTextC.ControlD.Form19.Int(100*Rnd(1)产生的随机整数的闭区间是( )。（分数：2.00）A.0,99B.1,100C.0,100D.1,9920.下列程序段的执行结果为( )。 a=1 b=5 Do a=a+b b=b+1 Loop While a10 Printa；b（分数：2.00）A.115B.127C.abD.102521.设置标签边框的属性是( )。（分数：2.00）A.BorderStyleB.BackStyleC.AutoSizeD.Alignment22.下列关于过程的叙述不正确的是( )（分数：2.00）A.过程
12、的传值调用是将实参的具体值传递给形参B.过程的传址调用是将实参在内存的地址传递给形参C.过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D.无论过程传值调用还是过程传址调用，参数传递都是双向的23.若要设置文本框中所显示的文本颜色，使用的属性是( )。（分数：2.00）A.BackColorB.FillColorC.ForeColorD.BackStyle24.如果将窗体中文本框的 Password Char 属性设置为一个字符，如星号(*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是( )。（分数：2.00）A.文本框的 MultiLine 属性值为 T
13、rueB.文本框的 Looked 属性值为 TrueC.文本框的 MultiLine 属性值为 FalseD.文本框的 Looked 属性值为 False25.下列程序的执行结果为( )。 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.026.能够获得一个文本框中被选取文本的内容的属性是( )。（分数：2.00）A.TextB.LengthC.SeltextD.SelStart27.有如下程序： infocase$=InputBox(“Inputone
14、letter:“) Select Case infocase$ case“a“ grade$=“Verygood“ case“b“ grade$=“Good“ case“C“ grade$=“OK“ case“d“ grade$=“Qualified“ case Else grade$=“Bab“ End Select Print grade$ 运行时从键盘上输入英文小写字母 d 后，输出的结果是( )。（分数：2.00）A.Very goodB.GoodC.BadD.Qualified28.下列定义语句中不能定义为字符型数据的是( )。（分数：2.00）A.Defstr cB.cC.Stad
15、C c As StringD.Dim c As Single29.有如下的一个函数过程： Function fn(By Val hum AS Long) Dim k As Long k=l num=Abs(nam) Do While nnm k=k*(nnm Mod 10) num=num/10 Loop fn=k End Function 以下是一个调用该函数的事件过程，运行程序后，在输入对话框输入数字“123”，该过程的运行结果是( )。 Private Sub Command5_Click() Dim n AS Long Dim r AS Long n=InputBox(“请输入一个数值
16、”) n=CLng(n) r=fn(n) Print r End Sub（分数：2.00）A.12B.6C.3D.130.下列程序运行后，单击命令按钮，窗体显示的结果为( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click() Dim a As
17、 Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c,b,a) End Sub（分数：2.00）A.23B.19C.21D.2231.有如下程序： Private Sub Form_Click() Dimi As Integer,sumASInteger sum=0 For i=2To 10 If i Mod20 And i Mod 3=0 Then sum=sum+i End If Nexti Print sum EndSub 程序运行后，单击窗体，输出结果为( )。（分数：2.00）A.12B.30C.24D.1
18、832.设窗体上有一个文本框，名称为 Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是( )。（分数：2.00）A.TextMaxLength=0B.TextEnabled=FalseC.TextVisible=FalseD.TextWidth=033.在 VB 中按文件的访问方式不同，可以将文件分为( )。（分数：2.00）A.顺序文件、随机文件和二进制文件B.文本文件和数据文件C.数据文件和可执行文件D.ASCII 文件和二进制文件34.以下( )程序段可以实施 X、Y 变量值的交换。（分数：2.00）A.Y=X：X=YB.Z=X：Y=Z：X=
19、YC.Z=X：X=Y：Y=ZD.Z=X：W=Y：Y=Z：X=Y35.在窗体上画一个命令按钮，名称为 Commandl，然后编写如下事件过程： Prirate Sub Commandl_click() a$=“software and hardware“ b$=Right(a$,8) c$=Mid(a$,1,8) MsgBoxa$,b$,c$,1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是( )。（分数：2.00）A.software andhardwareB.softwareC.hardwareD.1二、B填空题/B(总题数：14，分数：30.00)36.Vis
20、ualBasic 中有一种控件组合了文本框和列表框的特性，这种控件是 1。（分数：2.00）填空项 1:_37.DefSng a 定义的变量 a 是 1 类型的变量。（分数：2.00）填空项 1:_38.顺序存储方法是把逻辑上相邻的结点存储在物理位置 1 的存储单元中。（分数：2.00）填空项 1:_39.刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对 Form 窗体的 1 属性进行设置。（分数：2.00）填空项 1:_40.图像框中的图形能与图像框的大小相适应，必须把该图片框的 Stretch 属性设置为 1。（分数：2.00）填空项 1:_41.要想在文本框中显示垂
21、直滚动条，必须把 Scrolebars 属性设置为 2，同时还应把 1 属性设置为了True。（分数：2.00）填空项 1:_42.为了使计时器控件 Timer1 每隔 0.5 秒触发一次 Timer 事件，应将 Timer1 控件的 1 属性设置为500.（分数：2.00）填空项 1:_43.在窗体上画一个名称为 Text1 的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为 Option1.程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。 （分数：2.00）填空项 1:_44.若 A=20，B=80，C=70，D=30，
22、则表达式 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:_下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。Option Base 1Private Sub Form_Click()m=Input Box(“输入行数”):n=InputBox(“输入列数”)U 11 /Ua(m,n)AS Integer,b(n,m)AS IntegerForI=1 to mForj=1 to na(I,j)=Int(Rnd*90)+10Next
23、:NextForI=1 to mForj=1 to nb(j,1)=U 12 /UNext:NextEnd Sub（分数：4.00）(1).（分数：2.00）填空项 1:_46.Private Sub Form_Activate() Forj=1 to 3 x=3 ForI=1 to 2 x=x+6 NextI Nextj Print x End Sub 程序运行后，窗体上显示的结果为上_。（分数：2.00）填空项 1:_47.以下程序用来计算由键盘输入的 N 个数中正数之和，负数之和，正数的个数，负数的个数。其中用 C累加负数之和，IC 累加负数的个数，D 累加正数之和，ID 累加正数的个数
24、。 Privae Sub Commandl_Click N=10 C=0:IC=0:D=0:ID=0 For =1 To N A=Val(1nputBox(“请输入 A”) IFA0 Then C=C+A：IC=IC+1 lf AO Then D=U /U Next K Print“负数的个数为：“,IC Print“负数的和为：“,C Print“正数的个数为：“，ID Print“正数的和为：“,D End Sub（分数：2.00）填空项 1:_48.下列程序是将数组 a 的元素倒序交换，即第 1 个变为最后一个，第 2 个变为倒数第 2 个， 完成下列程序。 Private Sub Ba
25、ckward(a() Dim i As Integer,Tmp As Integer Fori=1 To5 Tmp=a(i) U /U a(5-i)=Tmp Nexti End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-390 答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.Right(“ABCDEFG“,3)的执行结果是( )。（分数：2.00）A.ABCB.EFG C.DEFD.CDE解析：2.如果 A 为整数，且|A|=100，则打印“OK“，否则打印“Error“，表示这个条件的单行 格式 If
26、 语句是( )。（分数：2.00）A.If int(=AAnd Sqr(=10ThenPrint“OK“ElsePrint“Error“B.IF Fix(=AAndAbs(=100Then Print“OK“Else Print“Error“ C.IF Int(=AAnd(A=100,A=-100)ThenPrint“OK“ElsePrim“Error“D.If Fix(=AAndA=100,AndA=-100ThenPrint“OK“ElsePrint“Error“解析：3.在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下事件过程： Prirate Sub Form_Loab() L
27、ist.Addltem“357“ Llst.Addltem“246“ List.Addltem“123“ List.Addltem“456“ TEXTl.Text=“ End ub Private Sub Commandl_Click() List.LiSdndex=3 Print List.Text+Textl.Text End Sub 程序运行后，在文本框中输入“789”，然后双列表框中的“456”，则输出结果为 ( )。（分数：2.00）A.789123B.456789 C.789456D.1245解析：4.实现字符串 Unicode 编码方式与州 SI 编码方式相互转换的函数是( )。
28、（分数：2.00）A.StrB.Sbconv C.TrimD.Mid解析：5.设有数组定义语句：Dima(5)AsInteger，Listl 为列表框控件。下列给数组元素赋值的语句错误的是( )。（分数：2.00）A.a(3)=3B.a(3)=inputbox(“inputdata“)C.a(3)=ListListlndexD.a=Array(1，2，3，4，5，6) 解析：6.以下程序运行后，输出结果是( )。 Forj=1 T0 3 PrintTab(3*j)；2*(j-1)*2*(j-1) Nextj Print （分数：2.00）A.B.C. D.解析：7.以下不能在“工程资源管理器”
29、窗口中列出的文件类型是( )。（分数：2.00）AbasBresCfrmDocx 解析：8.以下合法的 VisualBasic 标识符是( )。（分数：2.00）A.ForLoopB.Const C.9abcD.a#x解析：9.在窗体上画三个单选按钮，组成一个名为 chkOption 的控件数组。用于标识各个控件数组元素的参数是( )。（分数：2.00）A.TagB.Index C.ListlndexD.Name解析：10.在窗体上画一个名称为 CommonDialogl 的通用对话框，一个名称为 Commandl 的命令按钮。然后编写如下事件过程： Private Commandl_Clic
30、k() CommonDialogl.FileName=“ CommonDialogl.Filter=“Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CommonDialogl.Filterlndex=2 CommonDialogl.DialogTifle=“VBTest“ CommonDialogl.Action=1 EndSub 对于这个程序，以下叙述中错误的是( )。（分数：2.00）A.该对话框被设置为“打开”对话框B.在该对话框中指定的默认文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(*.Tx 解析：11.
31、以下叙述中错误的是( )。（分数：2.00）A.顺序文件中的数据只能按顺序读写B.对同一个文件，可以用不同的方式和不同的文件号打开C.执行 Close 语句，可将文件缓冲区中的数据写到文件中D.随机文件中各记录的长度是随机的 解析：12.不能正确表示条件“两个整型变量 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) 解析：13.运行以下程序后，输出的图案是( )。
32、Forml.ClS ForA=1 To5 Ptintf Space(5-A)；StdnS(A，“*“) NextA （分数：2.00）A. B.C.D.解析：14.以下关于窗体的描述中，错误的是( )。（分数：2.00）A.执行 UnLoad Forml 语句后，窗体 Forml 消失，但仍在内存中 B.窗体的 Load 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D.窗体的 Height、Width 属性用于设置窗体的高和宽解析：15.在窗体上画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell，然后编写如
33、下事件过程： Private Sub Commandl_Click() Counter=0 Fori=1T04 Forj=6 To 1 Step-2 Counter=Counter+1 Nextj Nexti Labell.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是( )。（分数：2.00）A.11B.12 C.16D.20解析：16.下列叙述中正确的是( )。（分数：2.00）A.在窗体的 Form_Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 Sub 过程中定义的局部变量可以与其他事件
34、过程中定义的局部变量同名，但其作用域只限于该过程 D.在调用过程时，所有局部变量被系统初始化为 0 或空字符串解析：17.在 DblClick 事件发生时，不会同时发生的事件是( )。（分数：2.00）A.Mouse DownB.Mouse UpC.ClickD.Change 解析：18.窗体上有名称分别为 Textl、Text2 的 2 个文本框，要求文本框 Textl 中输入的数据小于 500，文本框Text2 中输入的数据小于 1000，否则重新输入。为了实现上述功能，在下 划线处应填入的内容是( )。 Private Sub Textl_ostFocus() Call Checklnp
35、ut(Textl,500) End Sub Private Sub Text2_LostFocus() Call Checklnput(Text2,1000) End Sub Sub Checklnput(tAs_,x AS Integer) IfVal(t.TextX Then MsgBox“请重新输入!” End If End Sub（分数：2.00）A.TextB.SelTextC.Control D.Form解析：19.Int(100*Rnd(1)产生的随机整数的闭区间是( )。（分数：2.00）A.0,99 B.1,100C.0,100D.1,99解析：20.下列程序段的执行结果为(
36、 )。 a=1 b=5 Do a=a+b b=b+1 Loop While a10 Printa；b（分数：2.00）A.115B.127 C.abD.1025解析：21.设置标签边框的属性是( )。（分数：2.00）A.BorderStyle B.BackStyleC.AutoSizeD.Alignment解析：22.下列关于过程的叙述不正确的是( )（分数：2.00）A.过程的传值调用是将实参的具体值传递给形参B.过程的传址调用是将实参在内存的地址传递给形参C.过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D.无论过程传值调用还是过程传址调用，参数传递都是双向的 解析：23
37、.若要设置文本框中所显示的文本颜色，使用的属性是( )。（分数：2.00）A.BackColorB.FillColorC.ForeColor D.BackStyle解析：24.如果将窗体中文本框的 Password Char 属性设置为一个字符，如星号(*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是( )。（分数：2.00）A.文本框的 MultiLine 属性值为 True B.文本框的 Looked 属性值为 TrueC.文本框的 MultiLine 属性值为 FalseD.文本框的 Looked 属性值为 False解析：25.下列程序的执行结果为( )。 A=
38、“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解析：26.能够获得一个文本框中被选取文本的内容的属性是( )。（分数：2.00）A.TextB.LengthC.Seltext D.SelStart解析：27.有如下程序： infocase$=InputBox(“Inputoneletter:“) Select Case infocase$ case“a“ grade$=“Verygood“ case“b“ grade$=“Good“ case“C“ g
39、rade$=“OK“ case“d“ grade$=“Qualified“ case Else grade$=“Bab“ End Select Print grade$ 运行时从键盘上输入英文小写字母 d 后，输出的结果是( )。（分数：2.00）A.Very goodB.GoodC.BadD.Qualified 解析：28.下列定义语句中不能定义为字符型数据的是( )。（分数：2.00）A.Defstr cB.cC.StadC c As StringD.Dim c As Single 解析：29.有如下的一个函数过程： Function fn(By Val hum AS Long) Dim
40、k As Long k=l num=Abs(nam) Do While nnm k=k*(nnm Mod 10) num=num/10 Loop fn=k End Function 以下是一个调用该函数的事件过程，运行程序后，在输入对话框输入数字“123”，该过程的运行结果是( )。 Private Sub Command5_Click() Dim n AS Long Dim r AS Long n=InputBox(“请输入一个数值”) n=CLng(n) r=fn(n) Print r End Sub（分数：2.00）A.12B.6 C.3D.1解析：30.下列程序运行后，单击命令按钮，窗
41、体显示的结果为( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c,b,a) End Su
42、b（分数：2.00）A.23 B.19C.21D.22解析：31.有如下程序： Private Sub Form_Click() Dimi As Integer,sumASInteger sum=0 For i=2To 10 If i Mod20 And i Mod 3=0 Then sum=sum+i End If Nexti Print sum EndSub 程序运行后，单击窗体，输出结果为( )。（分数：2.00）A.12 B.30C.24D.18解析：32.设窗体上有一个文本框，名称为 Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是( )
43、。（分数：2.00）A.TextMaxLength=0B.TextEnabled=False C.TextVisible=FalseD.TextWidth=0解析：33.在 VB 中按文件的访问方式不同，可以将文件分为( )。（分数：2.00）A.顺序文件、随机文件和二进制文件 B.文本文件和数据文件C.数据文件和可执行文件D.ASCII 文件和二进制文件解析：34.以下( )程序段可以实施 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解析：35.在窗体上画一个命令按钮，名称为 Command
44、l，然后编写如下事件过程： Prirate Sub Commandl_click() a$=“software and hardware“ b$=Right(a$,8) c$=Mid(a$,1,8) MsgBoxa$,b$,c$,1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是( )。（分数：2.00）A.software andhardwareB.softwareC.hardware D.1解析：二、B填空题/B(总题数：14，分数：30.00)36.VisualBasic 中有一种控件组合了文本框和列表框的特性，这种控件是 1。（分数：2.00）填空项 1:_
45、 （正确答案：组合框或组合）解析：37.DefSng a 定义的变量 a 是 1 类型的变量。（分数：2.00）填空项 1:_ （正确答案：单精度）解析：38.顺序存储方法是把逻辑上相邻的结点存储在物理位置 1 的存储单元中。（分数：2.00）填空项 1:_ （正确答案：相邻）解析：39.刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对 Form 窗体的 1 属性进行设置。（分数：2.00）填空项 1:_ （正确答案：Font）解析：40.图像框中的图形能与图像框的大小相适应，必须把该图片框的 Stretch 属性设置为 1。（分数：2.00）填空项 1:_ （正确答案：
46、True）解析：41.要想在文本框中显示垂直滚动条，必须把 Scrolebars 属性设置为 2，同时还应把 1 属性设置为了True。（分数：2.00）填空项 1:_ （正确答案：MulUline）解析：42.为了使计时器控件 Timer1 每隔 0.5 秒触发一次 Timer 事件，应将 Timer1 控件的 1 属性设置为500.（分数：2.00）填空项 1:_ （正确答案：Intewal）解析：43.在窗体上画一个名称为 Text1 的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为 Option1.程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的
47、单选按钮切换，如图所示，请填空。 （分数：2.00）填空项 1:_ （正确答案：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(“输入列数”)U 11 /Ua(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)=U 12 /UNext:NextEnd Sub（分数：4.00）(1).（分数：2.00）解析：填空项 1:_ （正确答案：b(n,m)As Integer a(I,j)）解析：46.Private Sub For
