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

admin2009-02-25  24

问题 注意:下面出现的“考生文件夹”均为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://kaotiyun.com/show/FQ1p777K
0

最新回复(0)