(1)在窗体上画三个复选框,名称分别为chl、Ch2和ch3,标题分别为“体育”、“音乐”和“美术”,还有一个命令按钮,名称为Cl,标题为“显示”。要求程序运行后,如果选中某个复选框,当单击“显示”命令按钮时,则显示相应的信息。例如,如果选中“体育”和“美

admin2010-07-13  16

问题 (1)在窗体上画三个复选框,名称分别为chl、Ch2和ch3,标题分别为“体育”、“音乐”和“美术”,还有一个命令按钮,名称为Cl,标题为“显示”。要求程序运行后,如果选中某个复选框,当单击“显示”命令按钮时,则显示相应的信息。例如,如果选中“体育”和“美术”复选框,单击“显示”命令按钮后,在窗体上显示“我的爱好是体育美术”,如图3—4所示。
    注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。
    (2)在考生文件夹中有工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有一个标签数组,名为Lab1,该数组有4个控件元素,标题分别是“Wait、“Edit、“Aix”和“Move”,如图3—5所示。

    在程序运行后,将鼠标指针移动到各控件元素上,则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状;离开控件元素,则鼠标指针又变成正常情况下的箭头形状。本程序不完整,请补充完整,并能正确运行。
    注意:去掉程序中的注释符(即“’”号),把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。

选项

答案(1)本题主要考查复选框的使用。单击命令按钮触发Click事件,程序中需要检测复选按钮的状态,可以通过Value属性来实现。如果复选按钮被选中,则Value值为1,否则Value值为0。 ①在窗体上先按要求建立控件,设置控件属性,程序中用到的控件及属性如下表所示: [*] ②打开工程资源管理器,右击窗体,选择查看代码项,在弹出的代码窗口输入代码如下: Option Explicit Private Sub cl Click() Dim S As String s="我的爱好是" If Ch1.Value=1 Then s=s&Ch1.Caption End If If Ch2.Value=1 Then s=s&Ch2.Caption End If If Ch3.Value=1 Then s=s&Ch3.Caption End If Print S End Sub ③调试并运行程序。 ④按题目要求存盘。 (2)①打开题目所给工程文件。 ②将注释语句改为: Forml.MousePointer=0 Select Case Index ③按要求保存文件即完成本题。

解析
转载请注明原文地址:https://jikaoti.com/ti/4yg0FFFM
0

最新回复(0)