注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1) 在考生文件夹下有一个工程文件sjt3.vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图18-3所示。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。 要求： 依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“广州”，添加命令按钮标题为“显示”；去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。 (2) 在考生文件夹下有一个工程文件sjt4.vbp，请在Form1窗体中画三个标签，名称分别为B1、B2和L1，标题分别为“字号”、“字体”、“计算机等级考试”，其中L1的高为500，宽为3000；再在B1和B2标签的下面画两个组合框，名称分别为Cb1和Cb2，并为Cb1添加项目：“10”、“15”和“20”，为Cb2添加项目：“黑体”、“隶书”和“宋体”，以上请在设计时实现。请编写适当的事件过程，使得程序在运行时，当在Cb1中选一个字号，在Cb2中选一个字体，标签11中的文字立即变为选定的字号和字体。程序运行界面如图18-4所示。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不能使用任何变量。
参考答案：
解析： 单选按钮的标题由Caption属性设置，检测单选按钮的状态通过Value属性来实现。如果单选按钮被选中，则Value值为1；没选中，Value值为0。当建立控件数组时，系统给每个元素赋一个惟一的索引号(Index)，通过属性窗口的Index属性，可以知道该控件的下标是多少；在窗体上显示信息通过Print方法实现，其形式为：
[对象.] print要显示的内容。解题步骤：
第一步：建立界面并设置控件属性。程序用到的控件及其属性见表18-3。
表 18-3
| 对 象 | 属 性 | 设 置 值 |
| 单选按钮 | Name Caption Value | Op1 北京 flase |
| 单选按钮 | Name Caption Value | Op２ 上海 flase |
| 单选按钮 | Name Caption Value | Op２ 广州 flase |
| 标签框 | Name | Lable1 |
程序提供的代码：
Private Sub C1_Click()
’ For i= To
’ If Op1(i) ．=True Then
’ Print "我的出生地是"+Op1(i) .
End If
Next
End Sub
参考代码：
Private Sub C1_Click()
For i=0 To Op1.Count-1
If Op1(i) .Value=True Then
Print "我的出生地是"+Op1(i) .Caption
End If
Next
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) 在窗体上建立好控件后，先设置控件的属性，再编写事件过程。
标签的标题由Caption属性设置，控件的高和宽分别由Height和Width属性来设置。控件的名称由Name属性设置，向组合框添加项目有两种方法，可以在“属性”窗口的List属性里直接添加，也可以在代码中添加。题目要求在设计时添加。字体和字号分别由控件FontSize属性和FontName属性来设置。解题步骤：
第一步：建立界面并设置控件属性。程序用到的控件及其属性见表18-4。
表 18-4
| 控 件 | 属 性 | 设 置 值 |
| 组合框 | Name List | Cb1 10 15 20 |
| 组合框 | Name List | Cb2 宋体 隶书 黑体 |
| 标签 | Name Caption | B1 字号 |
| 标签 | Name Caption | B1 字体 |
| 标签 | Name Caption | L1 计算机等级考试 |
参考代码：
Private Sub Cb1_Click()
L1.Font.Size=Cb1.Text
End Sub
Private Sub Cb2_Click()
L1.Font.Name=Cb2.Text
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Long，j As Long
Open "out4.txt" For Output As #1
For i=0 To Cb1.LiStCount-1
Cb1.ListIndex=i
For j=0 To Cb2.ListCount-1
Cb2.ListIndex=j
Print #1，Cb1.Text & Cb2.Text & CInt(L1.Font.Size) & L1.Font
Next j
Next i
Close #1
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。