二、简单应用题, [+ ~% j7 R% X- ]6 p& n3 n
1.【解析】本题主要考查“菜单编辑器”的使用。先在窗体上建立好控件后,再设置控件属性,然后编写事件过程。, X: Y) N3 [2 U/ d& D
(1)单击“工具”菜单中的“菜单编辑器”命令,弹出如图6-1所示的菜单编辑器。
" b) n6 H1 n1 j: y8 X+ s+ C( l* ?* \- x (2)在VisualBasic中,菜单也被看作控件,具有属性和事件。菜单的建立在菜单编辑器中完成,菜单的级数通过内缩符号来表示,第一级菜单没有内缩符号,第二级菜单的内缩符号为1;文本框的内容通过Text属性设置。6 ]$ \- d* X7 k. |8 Q ~8 q5 k4 s
(3)如原题图6-1所示,建立菜单。菜单用到的控件及其属性见表6-3。
0 |* t% y |) ^9 s; r8 }7 E% {
* F+ Q+ u/ A- k# N- s 图6-1 - m+ o+ ?8 e# P, t' I
控件 属性设置值名称vbMenu菜单标题商品类别名称vbMenu1菜单标题百货名称vbMenu2菜单标题食品名称vbMenu3菜单标题家电名称vbHelp菜单标题帮助文本框名称Text1 (4)为产生事件的菜单项编写事件处理代码。
, Z+ k+ s, a9 {+ A% L 参考代码如下:
' v' S) H5 G, P) D/ h' m4 _' R ! {0 w0 ^% G% ^2 @$ V& B
(5)调试并运行程序。注意验证各个菜单项的功能是否符合要求。
( O8 t3 a1 M# P" W/ R (6)按题目要求存盘。9 [3 n1 Q; o+ _+ {' X. k% {( D
2.【解析】' U2 Q! Z9 t% f
本题主要考查复选框的使用。在Visual Basic中,复选框用来表示状态,在程序运行期间可以改变其状态。复选框的标题通过Caption属性来设置,复选框的Value属性用来表示它的状态。其取值见表6-4所示。$ h. z' H. c. ?# G' w% J7 n0 k
表6-4
3 C- n' m! B3 p: L0 O5 O+ p Value 含义0表示复选框未被选中1表示选中该复选框2表示该复选框被禁止(灰色) 在文本框中显示信息,使用它的TeXt属性以及单击窗体触发的Form_Click事件。
4 B9 G: x4 B) h- m" @2 U0 f (1)建立界面并设置控件属性。程序中用到的控件及其属性见表6-5。
9 b; J0 Y- I. B" ^7 [, n0 x3 F 表6-5 7 g) E' w3 a2 ]3 c* L' v! T
控件 属性设置值文本框NameText1NameCh1复选框Caption英语班NanleCh2复选框Caption计算机班 (2)打开代码窗口,程序提供的代码如下:
8 g$ ^- v. q2 c0 V 2 |* f0 o- Y1 ]4 |: { m) g5 X* G4 x
(3)研读并找出需要修改的代码,然后改正。
1 C8 E+ k2 C C2 k ①请看下面的if判断语句:
4 Z' j V, m6 K, S, J- s5 w % H) I& H; N( R
该判断语句的作用是:如果选中“英语班”复选框,则将它赋给文本框。Value属性值为1,表示选中该复选框。即:/ X. P( T9 M" X! f S
②再看下面的if判断语句:- n u# w+ ?7 d# C
7 Q# ~ O! v. G 该判断语句的作用是:如果选中“计算机班”复选框,则在将它赋给文本框之前,需要判断是否选中复选框1。如果选中,则要在两个课程之间加上一个“和”字,否则输出结果如图6-2所示。
: t I7 q1 |2 L1 `% b - X5 D1 t" p% |; @5 T9 q
图6-2
+ A0 ~9 T: e" c0 {6 c+ _% } 由此可知,这条语句应该改为:$ z4 f( c* I# V4 p# n+ b3 j$ Q/ Y b
If Text1.Text…""ThenText1.Text=Text1.Text+“和”# ?% V% q% E, s! S r+ T3 V- b3 ]
(4)修改后的参考代码如下:' s* e$ [# ~8 l6 ^3 k: T
2 ^9 j2 h0 n: M (5)调试并运行程序,注意验证功能是否符合要求。
/ Q6 b( \/ w& N/ w% {& u; X c (6)按题目要求存盘</p>三、综合应用题; D7 N, C5 T2 U
【解析】在窗体上建立控件后,先设置控件属性,再研读提供的代码,找出问题后,修改事件过程以满足题目要求。& y9 h& u2 ^$ i
文本框显示的内容通过Text属性设置;按钮的标题通过Caption属性设置,单击命令按钮触发Click事件;本题中涉及到了文件的操作,读入顺序文件以顺序韵方式打开,用“Input#”语句读取数据。需要注意的是,对文件操作结束后,一定要关闭文件。
% _8 l. F8 k% V$ P' I6 K- @, \( J (1)文本框显示的内容通过Text属性设置,Muldline属性决定文本框是否可以多行显示。如果需要多行显示,必须将Multiline属性设置为True,将Scrollbars属性值设置为2。
% J2 x( f* m, ]4 j0 |. ? (2)建立界面并设置控件属性。按钮的标题通过Caption属性设置,单击命令按钮触发Click事件。程序中用到的控件及属性设置见表6-6。
) ]) f: W0 Y/ A2 D! K- W O 表6-6 7 C7 v, |2 h2 n3 z1 v
控件 属性设置值NameText1文本框Scrollbars2MultilineTmeNameCmd1命令按钮Caption读入数据NameCmd2命令按钮Caption计算保存 (3)打开代码窗口,得到如下代码:
2 V D6 W: ^- l6 q8 ?5 A
1 [& O1 l& {* ]: E1 m
* E2 u3 G2 ?+ I1 D! } ①语句Dim?(1 T0 100)As Integer定义数组i,通过分析程序可知,其下标从1开始。即:Dim i(1 T0 100)AsInteger③通过分析程序可知,语句Dim?As Integer是定义变量j,即:Dimj As Integer
$ T7 z- z+ Y0 _; o0 B$ B* E. d ③语句Text1.?=temp是将temp的内容显示在文本框中。即:Text1.Text=temp# ?6 O8 D0 v6 Z' S4 s+ a
(4)完整的程序代码如下:
% ^6 t5 ^ ^$ U' H+ O7 v4 ~ 1 T. O+ b6 [: |; o0 d4 K+ L2 ^
0 v3 a8 b5 |9 B8 W( e
% w3 Z' ?1 |0 B0 i& ~
|