简单应用(2小题,每题20分,计40分)
$ t) E$ b* R. B6 N7 V 注意:下面出现的“考生文件夹”均为%USER%
& d# ^& R! {1 `9 e7 U (1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为F1和F2,标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮,名称分别为Op1和Op2,标题分别为“飞机”和“火车”。在F2中画两个单选按钮,名称分别为Op3和Op4,标题分别为“广州”和“昆明”。然后画一个命令按钮,其名称为C1,标题为“确定”。再画一个文本框,其名称为 Text1。编写适当事件过程。程序运行后,选择不同单选按钮并单击命令按钮后在文本框中显示的结果见下表程序的运行情况如图所示。存盘时,工程文件名为 sjt3.vbp,窗体文件名为sjt3.frm。
' A2 Q. Y) t' j |6 B# m1 M6 L, C 注意:
: z/ Q* a9 P. B$ C4 z 考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。 & r9 Q+ H! k1 v- h3 f) S
解题思路: % [& T9 o9 g5 B7 ]* K- R: O$ I
启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt3.vbp,相应的窗体文件名为sjt3.frm。 . j1 Q1 X3 x/ C+ f( J' E
由于所提供的窗体控件不完整,需在该窗体上画二个框架控件,通过其属性窗口将名称分别设为F1、F2,标题(Caption属性)分别设为“交通工具”和“到达目标”。在F1框架中画二个单选按钮控件,通过其属性窗口将名称分别设为Op1、Op2,标题(Caption属性)分别设为 “飞机”和“火车”。在F2框架中画二个单选按钮控件,通过其属性窗口将名称分别设为Op3、Op4,标题(Caption属性)分别设为“广州”和“昆明”。画一个命令按钮控件,通过其属性窗口将名称设为C1,标题(Caption属性)设为“确定”。
9 n# X9 j6 D1 M; h6 M 单击“确定”按钮(即运行Click事件过程),在该Click事件过程中加入语句: $ t6 g# f( F( A5 `) D; l
Private Sub C1_Click() # o8 z1 h: m, ?/ K' E
If Op1 And Op3 Then , N; m) ~7 l" t7 U7 v) d9 ]
Text1.Text = "坐飞机去广州" & w1 ^4 [4 N6 ~4 s7 q; j
ElseIf Op1 And Op4 Then W8 v8 R9 S n- V5 V" R) p% x
Text1.Text = "坐飞机去昆明"
1 W1 a, v3 C. _: e$ y ElseIf Op2 And Op3 Then
. {4 D6 s y1 k/ B$ L# N _: q" l, ? Text1.Text = "坐火车去广州"
{# [: R2 `" o7 \4 r ElseIf Op2 And Op4 Then
5 ?( ]/ G+ R1 x% S Text1.Text = "坐火车去昆明" ( A5 r8 f6 ?. c$ c1 ?" O7 J3 N- B2 ?: J
End If 0 ~6 K, m$ c0 C" W& i
End Sub . x: J9 \$ @6 `$ P
参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw、out3.txt ) ?% b v) r, R5 G
请把这些文件复制到c:\wexam\26990001中,然后打开sjt3.vbp文件并运行。 $ }, l# m) t2 D
(2)在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画三个文本框,其名称分别为Text1、Text2和Text3,文本框内容分别设置为“等级考试”、“计算机”和空白。然后画两个单选按钮,其名称分别为Op1和Op2,标题分别为“交换”和“连接”,编写适当的事件程序。要求在程序运行时,先单击“交换”单选按钮,使Text1文本框中内容与Text2文本框中内容进行交换,并使“交换”单选按钮消失;然后单击“连接”单选按钮,则把交换后的Text1和Text2的内容以Text1在前,Text2在后的顺序连接起来,并在 Text3文本框中显示连接后的内容。存盘时,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。
v4 e* j0 `/ z% j3 n: b 注意: 8 E$ G/ R' W2 w _1 P8 T- W
不得修改已经给出的程序。在结束程序运行之前,必须先单击“交换”单选按钮,后单击“连接”单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮,否则可能无成绩。 1 A# {) Z$ g/ m2 r6 r# _% k1 k( b
解题思路:
7 T& X" z! X# e. F$ T 启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt4.vbp,相应的窗体文件名为sjt4.frm。 6 @- j1 q3 G9 h7 W4 U) D( Y
由于所提供的窗体控件不完整,需在该窗体上画三个文本框控件,通过其属性窗口将名称分别设为Text1、Text2、Text3,文本框内容(Text属性)分别设为“等级考试”、“计算机”和空白。画二个单选按钮控件,通过其属性窗口将名称分别设为Op1、Op2,标题(Caption属性)分别为“交换”和“连接”。 3 ^" u8 N+ f- B( S, j2 x3 z
由于所提供的窗体程序不完整,需添加事件过程。 1 D* d+ g1 \0 t% h
单击“交换”单选按钮(即运行Click事件过程),在该Click事件过程中加入语句:
% J8 E! P# a/ B7 n8 ?$ `* {$ } Private Sub Op1_Click() - G$ n! p0 Z( M& G3 Q
a$ = Text1.Text 9 X8 h8 h3 n0 N3 S8 o) [" o
Text1.Text = Text2.Text
; p# R. V9 S* H$ X& [( T. R: x Text2.Text = a$ . K! l8 w. r+ p. J% G3 z. J
Op1.Visible = False + o* d+ D& l `1 j" g
End Sub
( |- O3 i+ v# M9 C2 y 单击“连接”单选按钮(即运行Click事件过程),在该Click事件过程中加入语句:
- B- D: h. S& M/ Z P' a Private Sub Op2_Click()
! e3 C, R4 ^8 S$ e; ] Text3.Text = Text1.Text & Text2.Text
7 C5 P t; F8 ?, R End Sub
$ P6 i5 S; T2 _- E; k7 a 参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.vbw、out4.dat : S* v1 x. e$ q$ C9 C
请把这些文件复制到c:\wexam\26990001中,然后打开sjt4.vbp文件并运行。 |