2. 计算机
  3. 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1) 在考生文件夹下有一个工程文件sjt3.vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题为“北京”、“上海”、“广州”

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1) 在考生文件夹下有一个工程文件sjt3.vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题为“北京”、“上海”、“广州”

admin2009-02-25  52
问题 注意：下面出现的“考生文件夹”均为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。 [*] 　　第二步：编写程序代码。 　　程序提供的代码： 　　　　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。 [*] 第二步：编写程序代码。 参考代码： 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 第三步：调试并运行程序。 第四步：按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/FQ1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)