# j4 V) j2 R; d( l, r" w
(4)调试并运行程序。, @/ M9 l9 O I7 v. x
(5)按题目要求存盘。
% k$ H( U" P# \" i 二、简单应用题
9 g# W7 O* U6 Z! m8 v/ x$ Z 1.【解析】标签和单选按钮的标题均由各自的Caption属性设置。程序中需要检测的单选按钮的状态,这可以通过Value属性来实现,如果单选按钮被选中,则Value值为1,否则Value值为0。当建立控件数组时,系统给每个元素赋一个唯一的索引号(Index),通过属性窗口的Index属性,可以知道该控件的下标是多少。在文本框中显示内容通过Text属性设置,其形式为:文本框名.Text=显示的内容,程序中用到了SelectCase语句,格式如下:( }! J6 u- a/ e/ Q' [0 E
! x- q3 Z: w+ P" N. @4 h9 e 【解题步骤】
" Z7 ]+ ]+ v6 N @( k6 J2 x7 \ (1)建立界面并设置控件属性。程序用到的控件及其属性见表4.3。: l) Q) D- j& d; D! O8 K' _# j3 m: G8 T
表4-3 7 _+ ^ ?' w1 P9 G, v, v6 O
对象 属性设置值TextNameText1NameOp1(0)单选按钮 Caption飞机 NalrleOp10)单选按钮 Caption火车 NatneOp1(2)单选按钮 Caption汽车 NameLable!标签框 Caption请选择 (2)编写程序代码。
1 S7 b! \3 @/ d, ^ 程序提供的代码:
/ A9 @' A, S; g9 i; l & W- T6 c# g! B2 a" D
(3)调试并运行程序。
# f! z2 {9 s- W9 W$ O4 i. z (4)按题目要求存盘。
& [& X0 Q6 i' b, ~; j- P' t 2.【解析】本题主要考查窗体上控件的基本应用。先在窗体上建立控件,再设置控件的属性。命令按钮的Caption属性用来设置其标题,单击命令按钮触发Click事件;在文本框中显示内容通过其Text属性来设置。0 \; \5 R. U- V; v9 V. n
(1)建立界面并设置控件属性。程序中用到的控件及其属性见表4-4。% D" \) F9 V9 ?& I5 U' V+ R
表4-4
# h' K' a6 E9 R' ? 控件 属性设置值NalTleCmd1按钮 Caption计算 文本框 NameText1 (2)打开代码窗口,研读程序,获得调用规则。
! Z/ k9 E5 `5 ^4 U9 G $ J+ H5 t6 ^9 t
(3)将用来存放结果的变量设计成Long型。' |: G1 X) w" G" E9 K& }
(4)能被3整除,即iMod 3=0
~1 z g0 b/ h3 A! s (5)参考代码如下:
6 G! z f& }" I% H* I
& O6 m6 a; w1 D: d" U, T, K (6)调试并运行程序。 d. w+ S6 |3 `: U* D7 N
(7)按题目要求存盘</p>三、综合应用题
- g, l r' z; @& L* F 【解析】除了基本的操作外,本题涉及到的知识点主要有循环程序设计和数组的使用两个方面。先在窗体上建立控件,再设置控件属性,然后研读提供的代码,正确分析并完成程序。文本框显示的内容通过Text属性设置;按钮的标题通过Caption属性设置,单击命令按钮触发Click事件;在本题中涉及到文件的操作,读入顺序文件以顺序的方式打开,用“Input#”语句读取数据,另外需要注意的是对文件操作结束后,一定要关闭文件。
3 \5 F2 u# r* x0 |) w% x# W2 m/ ] (1)文本框显示的内容通过Text属性设置,Multiline属性决定文本框是否可多行显示。若需要多行显示,则必须将Multiline属性设置为True,同时将Scrollbars属性设置为2。
7 |) } z4 D6 H- N, Z$ C. } (2)建立界面并设置控件属性。按钮的标题通过Caption属性设置,单击命令按钮触发Click事件。程序中用到的控件及屙性设置见表4-5。
6 F: n2 X8 q- h% m Z1 R 表4-5 9 r# `( r% Y. f0 y% `
控件 属性设置值NameText1本框 Scrollbars2本框 MultilineTrueNameCmd1命令按钮 Caption读入数据 NameCmd2命令按钮 Caption排序显示保存 (3)打开代码窗口,得到如下代码:
! n4 x% ` z% a' U 标准模块代码 : L# i+ P1 d" e
9 L: s, F' ~4 R$ D: H% S
2 B4 p# [) v& W i+ H% S
(4)分析代码。! u f2 K! [2 Q% ]2 W$ f/ Q' n
①语句?#1,i(j)是与For语句配合,读入数据到数组I中,即:
# }* I7 X/ N# K \& k* f Forj=1 To 100
! p/ K6 ^" S; ~+ q1 L1 A! Z Input#1,i(j)
0 o6 e P, ~9 ] ②语句flag=?设置初始标记,即:flag=False* L6 T3 H' c+ B! P( P) g. s' n, `
③语句Text1.?=""是要先清理Text1中的内容,即:Text1.Text=""& e4 x0 o, p" Z+ N* E! `
(5)完整的参考代码如下:
* W# h) |7 I8 z $ l8 z% C u' k; h3 g
4 W+ u! `8 m3 R7 G; E (6)调试并运行程序。 ' e& G4 X4 q5 Z* I! u
(7)按题目要求存盘。 |