1. 基本操作(2小题,每小题15分,共计30分)
3 T1 n6 \* q* X8 N5 T+ U7 c 注意:下面出现的“考生文件夹”均为%USER% ( @& V3 I6 S9 S+ q1 {) ~) j# I
**********************************************************************
, S: _' F$ b+ D# [ 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
7 ~( K* [$ G% v6 t6 H8 f (1)在名称为Form1 的窗体上画一个名称check1的复选框数组(Index属性从0开始),含三个复选框,其标题分别为“语文”、“数学”、“体育”,利用属性窗口设置适当的属性,使“语文”未选,“数学”被选中,“体育”为灰色,再把窗体的标题设置为“选课”,如图所示。 6 m( M# ~& e5 Q/ e
注意: ; {/ U* x/ @' c2 ^+ T
存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
+ S, P% P+ ?0 }: G ^ } 解题思路:
& t: B; K9 l! ]) m: K, ]0 d 启动Visual Basic系统,创建一个Form1窗体。
8 W* t; b/ b5 Q2 Q 在该窗体上画一个复选框控件,通过对复选框控件的复制产生复选框控件数组,共有三个复选框,标题(Caption属性)分别设为“语文”、“数学”、“体育”,“数学”的Value属性设为1,“体育”的Value属性设为2。激活Form1窗体,通过其属性窗口将标题(Caption属性)设为“选课”。
- P* _5 `, {; Y; C8 `0 X 参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw
/ N: G4 i6 E/ E 请把这些文件复制到c:\wexam\26990001中,然后打开sjt1.vbp文件并运行。
9 X% J9 U' s& ^ p9 k$ _7 r **********************************************************************
8 s' ?2 `; N, j+ P$ h" ^2 @ (2)在名称为Form1的窗体上画两个文本框,名称分别为Text1、Text2,再画两个命令按钮,名称分别为Command1、 Command2,标题分别为“复制”、“删除”。程序运行时,在Text1中输入一串字符,并用鼠标拖拽的方法选择几个字符,然后单击“复制”按钮,则被选中的字符被复制到Text2中(如图所示)。若单击“删除”按钮,则被选择的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。
5 r4 r+ s- h, s) Y6 o 注意:
/ s3 p9 J4 b0 a 要求程序中不得使用变量,事件过程中只能写一条语句。
/ e4 I8 ]3 R: K# Y% _% ?+ @& Q+ ` 存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。 " j/ R0 r! z% _9 B! p
解题思路: , [7 Z- u& x- v, }$ w
启动Visual Basic系统,创建一个Form1窗体。 ! C& T3 y# _4 S H$ v$ f
在该窗体上画二个文本框控件,通过其属性窗口将名称分别设为Text1、Text2。画二个命令按钮控件,通过其属性窗口将名称分别设为Command1、Command2,标题(Caption属性)分别设为“复制”、“删除”。
3 ^% V0 B) X9 @* c1 E 单击“复制”按钮(即运行Click事件过程),在该Click事件过程中加入语句: 6 R$ U$ t5 Y8 W% F% L5 l
Private Sub Command1_Click()
/ a. h$ V7 j8 \7 ~+ W/ |- @+ `1 v Text2 = Text1.SelText
2 d+ A1 A& D. |! k8 Y- i; H End Sub 9 i, P0 L% `' A2 J. x2 O5 {! p
单击“删除”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
9 v$ a. z0 Y6 S: S Private Sub Command2_Click() ' C$ ] ~5 f$ ]
Text1.SelText = ""
/ b% ~7 c8 t' [ End Sub ) N+ O2 C5 f2 g8 \0 z* ^
参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw
: {3 Q/ J. i) s2 a- a/ } 请把这些文件复制到c:\wexam\26990001中,然后打开sjt2.vbp文件并运行。 |