1、全国计算机等级考试二级 VISUAL+BASIC 题库 1+2014 年 9 月及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(总题数：40，分数：40.00)1.如果要改变窗体的标题，则需要设置窗体的（ ）属性（分数：1.00）A.CaptionB.NameC.BackColorD.BorderStyle2.以下能判断指针是否指向文件尾的函数是（ ）（分数：1.00）A.BOFB.LOCC.LOFD.EOF3.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（ ）（分数：1.00）A.如果工程中含有 Sub Main 过程，则程序一定首先执行该过程B.不能把标准模
2、块设置为启动模块C.用 Hide 方法只是隐藏一个窗体,不能从内存中清除该窗体D.任何时刻最多只有一个窗体是活动窗体4.窗体的过程 Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有 4 个参数，关于这些参数，正确的描述是（ ）（分数：1.00）A.通过 Button 参数判定当前按下的是键盘上哪一个键B.Shift 参数只能用来确定是否按下 Shift 键C.Shift 参数只能用来确定是否按下 Alt 和 Ctrl 键D.参数 x,y 用来设置鼠标当前位置的坐标5.设组合框 Com
3、bo1 中有 3 个项目，则以下能删除最后一项的语句是（ ）（分数：1.00）A.Combo1.RemoveItem TextB.Combo1.RemoveItem 2C.Combo1.RemoveItem 3D.Combo1.RemoveItem Combo1.Listcount6.以下关于焦点的叙述中，错误的是（ ）（分数：1.00）A.如果文本框的 Enabled 属性为 False，能接收从键盘上输入的数据B.当文本框失去焦点时，触发 LostFocus 事件C.当文本框的 Enabled 属性为 False 时，其 Tab 顺序不起作用D.可以用 TabIndex 属性改变 Tab
4、顺序7.如果要在菜单中添加一个分隔线，则应将其 Caption 属性设置为（ ）（分数：1.00）A.=B.*C. num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（ ）（分数：1.00）A.1 3.4 5.8B.1 3 5C.1 4 7D.无数据输出11.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a1 Loop While a
5、 0 Print s; a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（ ）（分数：1.00）A.7 9B.34 0C.9 7D.死循环12.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： 有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function Private Sub Command1_Click( ) Static x As Integer x = 10 y=5 y = f(x) Print x; y End Su
6、b 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）（分数：1.00）A.10 5B.20 5C.20 40D.10 4013.设有如下通用过程： Public Sub Fun(a( ), ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next I End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click( ) Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Nex
7、t I n = 10 Call Fun(arr( ), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）（分数：1.00）A.10B.15C.25D.2414.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) d = 0 c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) c Then d = d + x(i) c = x(i) Else d = dc End
8、 If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为（ ）（分数：1.00）A.89B.99C.23D.7715.在窗体上画两个滚动条，名称分别为 Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签 Label 4、Label6 分别显示“A“、“B“、“A*B“等文字信息，标签 Label1、Label2 分别显示 Hscroll1、Hscroll2 滚动条的数值，Label3 显示 A*B 的计算结果。当移动滚动条时，在相应的标签中显示滚动
9、条的值。当单击命令按钮“计算“时，对标签 Label1、Label2 中显示的两个值求积，并将结果显示在 Label3 中。以下不能实现上述功能的事件过程是（ ）（分数：1.00）A.Private Sub Command1_Click( )Label3.Caption = =Str(Val(Label1.Caption)*Val( Label2.Caption)End SubB.Private Sub Command1_Click( )Label3.Caption = HScroll1.Value *HScroll2.ValueEnd SubC.Private Sub Command1_Cl
10、ick( )Label3.Caption = HScroll1 * HScroll2End SubD.Private Sub Command1_Click( )Label3.Caption = HScroll1. Text *HScroll2.TextEnd Sub16.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) For n = 1 To 20 If n Mod 3 0 Then m = m + n / 3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是
11、（ ）（分数：1.00）A.15B.18C.21D.2417.在窗体上画一个名称为 Text1 的文本框，并编写如下程序： Private Sub Form_Load( ) Show Text1.Text = “ Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single) Print “程序设计“ End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer
12、) Print “Visual Basic“; End Sub 程序运行后，如果按“A“键，然后单击窗体，则在窗体上显示的内容是（ ）（分数：1.00）A.Visual BasicB.程序设计C.A 程序设计D.Visual Basic 程序设计18.设有如下程序： Private Sub Command1_Click( ) Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next End Sub 该程序通过 For 循环计算一个表达式的值，这个表达式是（
13、 ）（分数：1.00）A.1+1/2+ 2/3+3/4+4/5B.1+1/2+2/3+3/4C.1/2+2/3+3/4+4/5D.1+1/2+1/3+1/4+1/519.以下有关数组定义的语句序列中，错误的是（ ）（分数：1.00）A.Static arr1(3) ：arr1(1) = “100“ ：arr1(2) = “Hello“ ：arr1(3) = “123.45“B.Dim arr2( ),size As Integer Private Sub Command2_Click( )size =InputBox(“输入：“) ReDim arr2(size) End SubC.Optio
14、n Base 1 Private Sub Command3_Click( ) Dim arr3(3) As Integer End SubD.Dim n As Integer Private Sub Command4_Click( ) Dim arr4(n) As Integer End Sub20.VB 预先设置好的，能够被对象识别并且能够响应的动作是（ ）（分数：1.00）A.动作B.事件C.对象D.属性21.下面是窗体的四个属性，在界面设计时，改变（ ）属性值看不到窗体变化（分数：1.00）A.TopB.WidthC.LeftD.Enabled22.下面四个选项，不是窗体属性的是（ ）（
15、分数：1.00）A.MinButtonB.MaxButtonC.CaptionD.Load23.下面四个选项，不是事件或语句的是（ ）（分数：1.00）A.LoadB.EnabledC.UnloadD.DblClick24.用来设置窗体背景图片的属性是（ ）（分数：1.00）A.MoveableB.PictureC.ForeColorD.WindowState25.Load 事件是在窗体被装入工作区时（ ）触发的事件（分数：1.00）A.用户B.程序员C.手工D.自动26.修改控件属性，一般可以使用属性窗口，也可以通过（ ）为属性赋值（分数：1.00）A.命令B.对象C.方法D.代码27.在
16、VB6 中的每一个对象都具有自己的属性、（ ）和方法（分数：1.00）A.控件B.函数C.事件D.公用过程28.在设计 VB6 应用程序界面时，改变窗体下面的（ ）属性看不到效果.（分数：1.00）A.LeftB.TopC.VisibleD.BackColor29.下列可作为 Visual Basic 的变量名的是（ ）（分数：1.00）A.DeltaB.PrintC.AbsD.LN30.下列可作为 Visual Basic 的变量名的是（ ）（分数：1.00）A.FilenameB.ABCC.ADD.Print31.Visual Basic 中，在文本框中所允许输入的形式数是（ ）（分数：1
17、.00）A.25.74B.3.457EC.368D.1.87E+5032.在 Visual Basic 中的文本框中所允许输入形式的数是（ ）（分数：1.00）A.10(1.256)B.D32C.2.5ED.1233.下面（ ）数写成普通的十进制数是 8.6787E+8（分数：1.00）A.86787000B.867870000C.8678700D.867870000034.下面（ ）数写成普通的十进制数是 2.567E-2.（分数：1.00）A.0.0002567B.0.02567C.0.002567D.0.0000256735.设 a=2，b=3，c=4，d=5，下列表达式的值是（ ） a
18、 b And cd Or 2 * ac（分数：1.00）A.TrueB.FalseC.-1D.136.设 a=2，b=3，c=4，d=5，下列表达式的值是（ ） 3 2*b Or a=c And bc Or cd（分数：1.00）A.-1B.TRUEC.FALSED.137.设 a=2，b=3，c=4，d=5，下列表达式的值是（ ） NOT ac OR 4*c=b2 AND ba+c（分数：1.00）A.-1B.1C.TRUED.FALSE38.实现字符转换为数值的函数是（ ）（分数：1.00）A.StrB.ValC.TrimD.Mid39.假设 X=3，Y=6，Z=5，则表达式：(X2+Y)
19、/Z 的值是（ ）（分数：1.00）A.1B.5C.3D.2.440.假设 A=3，B=7，C=2，则表达式：(AB) OR (BC)的值是（ ）（分数：1.00）A.TRUEB.FALSEC.表达式错误D.不确定二、基本操作题(总题数：2，分数：18.00)41.在名称为 Forml 的窗体上添加一个名称为 Shapel 的形状控件，通过设置参数使其形状为圆形；添加一个名称为 Labell 的标签，标题为“形状”，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为 Textl 的文本框，文本框最多能够显示 5 个字符，文本框中初始内容为“圆形”，如图所示。 （分数：9.00）_42.
20、在名称为 Forml 的窗休上添加一个名称为 Labell 的标签，字号大小为四号，标题为“等级考试”，如图 1 所示。通过设置属性使标签初始为不显示。请编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，单击窗体时，显示标签，如图 2 所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为 sjt2frm，工程文件名保存为 sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：9.00）_三、简单应用题(总题数：2，分数：24.00)43.在考生文件夹 F 有一个工程文件 sjt3vbp，窗体上已经有一个标签 Labell，请添加一个单选按钮数组
21、，名称为 Opl，含三个单选按钮，它们的 Index 属性分别为 0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为 Textl 的文本框。窗体文件中已经给出了 Opl 的 Click 事件过程，但不完整，要求去掉程序中的注释符，把程序中的? 改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在 Textl 中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在 Text1 中显示“我开汽车去”，如图所示。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：12.00）_44.在考生文件夹下有一个工程文件 sjt4vbp，F
22、orml 窗体中有一个文本框，名称为 Textl；请先在窗体上添加两个框架控件，名称分别为 F1、F2，标题分别为“性别”、“身份”；然后在 F1 中添加两个单选按钮控件 Op1、Op2，标题分别为“男”、“女”；其次在 F2 中添加两个单选按钮控件 Op3、0p4，标题分别为“学生”、“教师”；最后再添加一个命令按钮，名称为 C1，标题为“确定”，如图所示。清编写适当的事件过程，使得运行时，在 F1、F2 中各选一个单选按钮，然后单击“确定”按钮，就可以按照下表把结果显示在文本框中。 （分数：12.00）_四、综合应用题(总题数：1，分数：18.00)45.在考生文件夹下有一个工程文件 sj
23、t5vbp，按照要求完成以下操作： 在名称为 Fonnl 的窗体上添加两个命令按钮，其名称分别为 C1 和 C2，标题分别为“读人数据”和“计算”(如图所示)。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的 ReadDatal 和 ReadData2 过程读入 datainltxt 和datain2txt 文件中的各 20 个整数，分别放人 Arrl 和 Arr2 两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(第 1 个数组的第 n 个元素减去第 2 个数组的第 n 个元素，其结果作为第 3 个数组的第 n 个元素。这里的 n 为 1、2
24、20)，最后计算第 3 个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData 过程将所求得的和存入考生文件夹下的 dataouttxt 文件中。 注意：考生不得修改窗体文件中已经存在的程序，且必须执行一次，最后将修改后的文件以原来的文件名存盘。 （分数：18.00）_全国计算机等级考试二级 VISUAL+BASIC 题库 1+2014 年 9 月答案解析(总分：100.00，做题时间：120 分钟)一、选择题(总题数：40，分数：40.00)1.如果要改变窗体的标题，则需要设置窗体的（ ）属性（分数：1.00）A.Caption B.NameC.BackCol
25、orD.BorderStyle解析：2.以下能判断指针是否指向文件尾的函数是（ ）（分数：1.00）A.BOFB.LOCC.LOFD.EOF 解析：3.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（ ）（分数：1.00）A.如果工程中含有 Sub Main 过程，则程序一定首先执行该过程B.不能把标准模块设置为启动模块 C.用 Hide 方法只是隐藏一个窗体,不能从内存中清除该窗体D.任何时刻最多只有一个窗体是活动窗体解析：4.窗体的过程 Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Si
26、ngle) ，有 4 个参数，关于这些参数，正确的描述是（ ）（分数：1.00）A.通过 Button 参数判定当前按下的是键盘上哪一个键B.Shift 参数只能用来确定是否按下 Shift 键C.Shift 参数只能用来确定是否按下 Alt 和 Ctrl 键D.参数 x,y 用来设置鼠标当前位置的坐标 解析：5.设组合框 Combo1 中有 3 个项目，则以下能删除最后一项的语句是（ ）（分数：1.00）A.Combo1.RemoveItem TextB.Combo1.RemoveItem 2 C.Combo1.RemoveItem 3D.Combo1.RemoveItem Combo1.L
27、istcount解析：6.以下关于焦点的叙述中，错误的是（ ）（分数：1.00）A.如果文本框的 Enabled 属性为 False，能接收从键盘上输入的数据 B.当文本框失去焦点时，触发 LostFocus 事件C.当文本框的 Enabled 属性为 False 时，其 Tab 顺序不起作用D.可以用 TabIndex 属性改变 Tab 顺序解析：7.如果要在菜单中添加一个分隔线，则应将其 Caption 属性设置为（ ）（分数：1.00）A.=B.*C. num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（ ）（分数：1.00）A.1
28、3.4 5.8B.1 3 5 C.1 4 7D.无数据输出解析：11.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a1 Loop While a 0 Print s; a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（ ）（分数：1.00）A.7 9B.34 0C.9 7 D.死循环解析：12.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：
29、 有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function Private Sub Command1_Click( ) Static x As Integer x = 10 y=5 y = f(x) Print x; y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）（分数：1.00）A.10 5B.20 5C.20 40 D.10 40解析：13.设有如下通用过程： Public Sub Fun(a( ), ByVal x As Int
30、eger) For i = 1 To 5 x = x + a(i) Next I End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click( ) Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next I n = 10 Call Fun(arr( ), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）（分数：1.00）A.10 B.15C.25D.24解析：14.
31、在窗体上画一个名称为 Command1 的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) d = 0 c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) c Then d = d + x(i) c = x(i) Else d = dc End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为（ ）（分数：1.00）A.89B.99C.23 D.77解析：15.在窗体上画两个滚动条，名称分别为 Hscro
32、ll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签 Label 4、Label6 分别显示“A“、“B“、“A*B“等文字信息，标签 Label1、Label2 分别显示 Hscroll1、Hscroll2 滚动条的数值，Label3 显示 A*B 的计算结果。当移动滚动条时，在相应的标签中显示滚动条的值。当单击命令按钮“计算“时，对标签 Label1、Label2 中显示的两个值求积，并将结果显示在 Label3 中。以下不能实现上述功能的事件过程是（ ）（分数：1.00）A.Private Sub Co
33、mmand1_Click( )Label3.Caption = =Str(Val(Label1.Caption)*Val( Label2.Caption)End SubB.Private Sub Command1_Click( )Label3.Caption = HScroll1.Value *HScroll2.ValueEnd SubC.Private Sub Command1_Click( )Label3.Caption = HScroll1 * HScroll2End Sub D.Private Sub Command1_Click( )Label3.Caption = HScroll1
34、. Text *HScroll2.TextEnd Sub解析：16.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) For n = 1 To 20 If n Mod 3 0 Then m = m + n / 3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是（ ）（分数：1.00）A.15B.18C.21 D.24解析：17.在窗体上画一个名称为 Text1 的文本框，并编写如下程序： Private Sub Form_Load( ) Show Text1.
35、Text = “ Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single) Print “程序设计“ End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print “Visual Basic“; End Sub 程序运行后，如果按“A“键，然后单击窗体，则在窗体上显示的内容是（ ）（分数：1.00）A.Visual Basic B.程序设计C
36、.A 程序设计D.Visual Basic 程序设计解析：18.设有如下程序： Private Sub Command1_Click( ) Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next End Sub 该程序通过 For 循环计算一个表达式的值，这个表达式是（ ）（分数：1.00）A.1+1/2+ 2/3+3/4+4/5B.1+1/2+2/3+3/4C.1/2+2/3+3/4+4/5 D.1+1/2+1/3+1/4+1/5解析：19.以下有关数
37、组定义的语句序列中，错误的是（ ）（分数：1.00）A.Static arr1(3) ：arr1(1) = “100“ ：arr1(2) = “Hello“ ：arr1(3) = “123.45“B.Dim arr2( ),size As Integer Private Sub Command2_Click( )size =InputBox(“输入：“) ReDim arr2(size) End SubC.Option Base 1 Private Sub Command3_Click( ) Dim arr3(3) As Integer End SubD.Dim n As Integer Pr
38、ivate Sub Command4_Click( ) Dim arr4(n) As Integer End Sub 解析：20.VB 预先设置好的，能够被对象识别并且能够响应的动作是（ ）（分数：1.00）A.动作B.事件 C.对象D.属性解析：21.下面是窗体的四个属性，在界面设计时，改变（ ）属性值看不到窗体变化（分数：1.00）A.TopB.WidthC.LeftD.Enabled 解析：22.下面四个选项，不是窗体属性的是（ ）（分数：1.00）A.MinButtonB.MaxButtonC.CaptionD.Load 解析：23.下面四个选项，不是事件或语句的是（ ）（分数：1.0
39、0）A.LoadB.Enabled C.UnloadD.DblClick解析：24.用来设置窗体背景图片的属性是（ ）（分数：1.00）A.MoveableB.Picture C.ForeColorD.WindowState解析：25.Load 事件是在窗体被装入工作区时（ ）触发的事件（分数：1.00）A.用户B.程序员C.手工D.自动 解析：26.修改控件属性，一般可以使用属性窗口，也可以通过（ ）为属性赋值（分数：1.00）A.命令B.对象C.方法D.代码 解析：27.在 VB6 中的每一个对象都具有自己的属性、（ ）和方法（分数：1.00）A.控件B.函数C.事件 D.公用过程解析：2
40、8.在设计 VB6 应用程序界面时，改变窗体下面的（ ）属性看不到效果.（分数：1.00）A.LeftB.TopC.Visible D.BackColor解析：29.下列可作为 Visual Basic 的变量名的是（ ）（分数：1.00）A.Delta B.PrintC.AbsD.LN解析：30.下列可作为 Visual Basic 的变量名的是（ ）（分数：1.00）A.FilenameB.ABC C.ADD.Print解析：31.Visual Basic 中，在文本框中所允许输入的形式数是（ ）（分数：1.00）A.25.74B.3.457EC.368 D.1.87E+50解析：32.在
41、 Visual Basic 中的文本框中所允许输入形式的数是（ ）（分数：1.00）A.10(1.256)B.D32C.2.5ED.12 解析：33.下面（ ）数写成普通的十进制数是 8.6787E+8（分数：1.00）A.86787000B.867870000 C.8678700D.8678700000解析：34.下面（ ）数写成普通的十进制数是 2.567E-2.（分数：1.00）A.0.0002567B.0.02567 C.0.002567D.0.00002567解析：35.设 a=2，b=3，c=4，d=5，下列表达式的值是（ ） a b And cd Or 2 * ac（分数：1.0
42、0）A.TrueB.False C.-1D.1解析：36.设 a=2，b=3，c=4，d=5，下列表达式的值是（ ） 3 2*b Or a=c And bc Or cd（分数：1.00）A.-1B.TRUE C.FALSED.1解析：37.设 a=2，b=3，c=4，d=5，下列表达式的值是（ ） NOT ac OR 4*c=b2 AND ba+c（分数：1.00）A.-1B.1C.TRUED.FALSE 解析：38.实现字符转换为数值的函数是（ ）（分数：1.00）A.StrB.Val C.TrimD.Mid解析：39.假设 X=3，Y=6，Z=5，则表达式：(X2+Y)/Z 的值是（ ）（
43、分数：1.00）A.1B.5C.3 D.2.4解析：40.假设 A=3，B=7，C=2，则表达式：(AB) OR (BC)的值是（ ）（分数：1.00）A.TRUE B.FALSEC.表达式错误D.不确定解析：二、基本操作题(总题数：2，分数：18.00)41.在名称为 Forml 的窗体上添加一个名称为 Shapel 的形状控件，通过设置参数使其形状为圆形；添加一个名称为 Labell 的标签，标题为“形状”，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为 Textl 的文本框，文本框最多能够显示 5 个字符，文本框中初始内容为“圆形”，如图所示。 （分数：9.00）_正确答案：
44、(步骤 1：新建一个窗体，按照题目要求建立形状控件、标签控件及文本框控件并设置其属性，如图 327 所示。程序中用到的控件及属性见表 336。 )解析：42.在名称为 Forml 的窗休上添加一个名称为 Labell 的标签，字号大小为四号，标题为“等级考试”，如图 1 所示。通过设置属性使标签初始为不显示。请编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，单击窗体时，显示标签，如图 2 所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为 sjt2frm，工程文件名保存为 sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：9.00）_正
45、确答案：(步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如表 337 所示。 步骤 2：编写程序代码。 )解析：三、简单应用题(总题数：2，分数：24.00)43.在考生文件夹 F 有一个工程文件 sjt3vbp，窗体上已经有一个标签 Labell，请添加一个单选按钮数组，名称为 Opl，含三个单选按钮，它们的 Index 属性分别为 0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为 Textl 的文本框。窗体文件中已经给出了 Opl 的 Click 事件过程，但不完整，要求去掉程序中的注释符，把程序中的? 改为正确的内容，使得在程序运行时单击“飞机”或“火车”
46、单选按钮时，在 Textl 中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在 Text1 中显示“我开汽车去”，如图所示。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：12.00）_正确答案：(步骤 1：打开本题工程文件，按照题目要求建立单选按钮数组，如图 39 所示。 步骤 2：按照题目要求建立其他控件并设置其属性，见表 34。 步骤 3：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) )解析：44.在考生文件夹下有一个工程文件 sjt4vbp，Forml 窗体中有一个文本框，名称为 Textl；请先在窗体上添加两个框架控件，名称分别为 F1、F2，标题分别为“性别”、“身份”；然后在 F1 中添加两个单选按钮控件 Op1、Op2，标题分别为“男”、“女”；其次在 F2 中添加两个单选按钮控件 Op3、0p4，标题分别为“学生”、“教师”；最后再添加一个命令按钮，名称为 C1，标题为“确定”，如图所示。清编写适当的事件过程，使得运行时，在 F1、F2 中各选一个单选按钮，然后单击“确定”按钮，就可以按照下表把结果显示在文本框中。 （分数：12.00）_正确答案：(步骤 1：打开本题工程文件，按照题目要求建立框架控件并设置其属性，如图 3
