第 1 页:单选题 |
第 5 页:基本操作题 |
第 6 页:简单应用题 |
第 7 页:综合应用题 |
第 8 页:参考答案 |
二、基本操作题
(1)本题主要考查窗体上控件的基本操作。
①先在窗体上建立控件,再设置控件属性。程序中用到的控件及其属性见下表:
②滚动条的最大刻度用Max属性来表示,最小刻度用Min属性来表示,滚动条上的位置通过Value属性来表示。
③单击窗体触发Form_Click事件,滚动框跳到最左端,即使其Value属性为0。
④参考代码如下:
Private Sub Form_Click()
HS1.Value=0
End Sub
⑤调试并运行程序
⑥按题目要求存盘
(2)①新建一个名为Form1的窗体。
②单击工具箱中的CommandButton控件图标,在窗体上拖拉出一个命令按钮,在属性窗口设置该命令按钮名称为Cmdl,Caption属性为Display,Visible属性为False。
③打开代码窗口输入如下代码:
Private Sub Cmd1_(;lick()
Print"VisualBasic" ’在窗体显示VisualBasic
End Sub
Private Sub Form_Click()
Cmd1.Visible=True’使命令按钮可见
End Sub
④按要求保存文件即完成本题。
三、简单应用题
(1)本题主要考查复选框的使用。单击命令按钮触发Click事件,程序中需要检测复选按钮的状态,可
以通过Value属性来实现。如果复选按钮被选中,则Value值为1,否则Value值为0。
①在窗体上先按要求建立控件,设置控件属性,程序中用到的控件及属性如下表所示:
②打开工程资源管理器,右击窗体,选择查看代码项,在弹出的代码窗口输入代码如下:Option Explicit
Private Sub c1_lick()
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
IfCh3.Value=1 Then
s=s&Ch3.Caption
End If
Print s
End Sub
③调试并运行程序
④按题目要求存盘。
(2)①打开题目所给工程文件。
②将注释浯句改为:
Form1.MousePointer=0
Select Cave Index
③按要求深存文件即完成本题。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |