计算机等级二级VisualBaisc上机试练习习题(3)

会计考友

　第3套上机考试试题
! P" D+ a; V. k+ u  G　　一、基本操作题
) M2 C4 M0 ?2 v. g　　下面出现的“考生文件夹”均为c：＼wexam＼20060001。
　　请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
) f% E& _$ h' a2 D　　1．在名称为Form1的窗体上建立一个名称为P1的图片框和两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“输出”和“清除”，如图3-1所示。要求程序运行后，每单击一次“输出”按钮，不使用任何变量而直接在图片框中显示小写字母load me；如果单击“清除”按钮，则清除图片框中的内容。
: J, ?2 |, @9 ~. v　　
　　图3-1
. K- Z, J9 T  A6 k: S; H4 C) g　　注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。
- A- d: t- z0 ~2 B) V' l9 m　　2．在名称为Forml的窗体上建立一个名称为Listl的列表框。要求程序运行后，通过Form Load0事件过程加载窗体时，执行语句List1.AddItem“AAA”，每当单击某个列表项时，都执行语句List1.Addltem Listt.Text一次，如图3-2所示。
　　
　　图3-2
) `, }( P; }2 a　　注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。
4 Z0 |# z; I( v  h0 L　　二、简单应用题
　　下面出现的“考生文件夹”均为c：＼wexam\20060001。
　　1．在名称为Form1的窗体上建立两个主菜单，其标题分别为,“文件”和“帮助”，名称分别为vbFile和vbHelp，“文件”菜单下有三个子菜单项，标题分别为“新建”、“打开”和“存盘”，名称分别为vbNew、vbOpen和vbSave。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图3－3所示。
2 A; ^4 X4 Z! i  ^3 s* K　　注意：保存时必须存放在考生文件爽下，窗体文件名为kt3.frm，工程文件名为kt3.vbp。
+ I0 {; W* V* o7 ]! [9 o　　2．在窗体上建立一个名称为Text1的文本框，再建立一个名称为Cmd1、标题为“计算”的命令按钮，如图3-4所示。要求程序运行后，单击命令按钮，将计算100～200之间所有素数之和，并在文本框中显示结果，同时把结果存入文件out.txt中(在考生文件夹中有标准模块mode.bas，其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数X是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块文件添加到自己的工程中)。
　　注意：保存时必须存放在考生文件夹下，窗体文件名为kt4.frm，工程文件名为kt4.vbp,结果存入result.txt文件，否则没有成绩。
% R+ y* F! g# f, c　　三、综合应用题
/ b1 s5 p3 C' J3 ~7 b# G7 c5 ~* e　　下面出现的“考生文件夹”均为c：＼wexam＼20060001。
　　在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“'”号)，但不能修改其他部分。
; z' b7 b: ~/ S' z  o* a　　本题描述如下：
　　在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“保存数据”，如图3-5所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt，，文件中的100个整数，放入一个数组中(数组下界为1)，并在文本框Text1中显示出来；如果单击“保存数据”按钮，则把数组中的前50个数据在文本框Textl中显示出来，并存入考生文件夹中的result.txt文件中(考生文件夹中有标准模块prog.bas，其中的putdata过程可以把指定个数的数组元素存入result.txt文件)。
　　注意：保存时必须存放在考生文件夹下，窗体文件名为kt5.frm，工程文件名为kt5.vbp，结果存入out.txt文件，否则没有成绩。
　　
　　图3-3
: j$ Z8 f: E% K+ P7 V2 c& E5 h: a　　
9 `: r8 \7 Q' R) m. p* ?　　图3-4
　　
　　图3-5

第3章参考答案与解析
　　一、基本操作题
　　1．【解析】本题主要考查图片框控件的基本操作。命令按钮的标题通过Caption属性设置，单击命令按钮触发Click事件；打印信息用Print方法，清除用Cls方法。题目要求在图片框中打印信息，所以在编写代码时应指定Print方法和Cls方法的使用对象。
8 [8 S3 w+ }8 U& W$ ~' {9 ^　　在窗体上建立好控件后，先设置控件属性，再编写事件过程。
　　(1)建立界面并设置控件属性。程序用到的控件及其属性见表3-1。
. N& S7 |( c* f　　表3－1
- v# r5 x4 S7 f" ~; V+ ?　　 控件 属性设置值NameCmd1命令按钮 Caption输出 NameCrod2命令按钮 Caption清除 图片框 NameP1　　(2)命令按钮Cmd1触发Click事件，打印信息用Print方法。题目要求在图片框中打印信息，所以在编写代码时，应指定Print方法使用对象。
  J5 W& l9 _: {　　
& w( j" e2 u5 n2 R% _" n　　(3)清除用Cls方法。题目要求清除图片框中的信息，所以在编写代码时，应指定Cls方法的使用对象。
8 D4 s/ r; Z+ T! o& d$ q: }　　
　　(4)调试并运行程序。
( e, g! I) u4 u: ~) [, Y　　(5)按题目要求存盘。
2 r9 x% J4 a9 ~4 h1 t- H　　2．【解析】本题主要考查列表框的基本操作，列表框用于在很多项目中做出选择的操作。向列表框中添加项目既可以在属性窗口中进行，也可以在程序代码中进行。
　　在窗体上建立好列表框后，先设置属性，再编写事件过程。
0 p: }! W1 i# B, B1 g3 ~+ L( n　　(1)建立界面并设置控件属性。程序中只用到1个列表框控件。在窗体上画出列表框，其Name属性默认为List1。
　　(2)在窗体的Load事件中添加List1.Addltem”AAA”语句使程序开始运行时在列表框中添加AAA。参考代码如下：
  m2 _3 X2 e1 Q　　
　　(3)单击列表框中的项目触发Click事件，题目要求使用Addltem方法给列表框添加项目，所以应该将List1.AddItem的List1.Text语句写入列表框的Click事件中。

会计考友

　　参考代码如下：
　　
　　(4)调试并并运行程序。
# U. z* W& P! I* L4 [6 a! b1 B, k  T　　(5)按题目要求存盘。
　　二、简单应用题
　　1．【解析】本题主要考查菜单编辑器的使用。在Visual Basic中，菜单项通过菜单编辑器来建立；选择菜单则是触发其Click事件。MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。
: h0 D* t, e( V! K0 C5 F: ?　　语法：MsgBox(prompt[，buttons][，title][，helpfile，context])
. @/ C3 @5 }: P. @  K2 @　　MsgBox函数的语法具有以下几个命名参数：
  }& E0 U! K9 H　　prompt：必需参数；字符串表达式，作为显示在对话框中的消息。
* m3 C: j2 ~) T- ?4 a　　buttons：可选参数；数值表达式是值的总和，指定显示按钮的数目及形式。
　　title：可选参数；在对话框标题栏中显示的字符串表达式。如果省略title，则将应用程序名放在标题栏中。
　　helpfile：可选参数：字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。
( G4 n' n: N5 R* g/ v0 t　　context：可选参数；数值表达式，通过帮助文件的作者指定给适当的帮助主题的上下文编号。
0 S' @' t9 C6 s1 ?! y" z! x　　(1)建立菜单项；程序中用到的菜单项及其属性见表3-2。
2 u2 |( X9 R2 `: n) _( _" ^　　表3-2
6 j& L" M* D5 V2 [! h; K4 i　　 标题 名称内缩符号文件 vbFile0新建 vbNew1打开 vbOpen1存盘 vbSave1帮助 vbHelpO　　(2)为各个菜单项编写事件处理程序；
" R5 r$ P: |4 H6 B2 F3 V8 g　　参考代码如下：
　　
8 m! N0 a1 H- Y' R　　(3)调试并运行程序。
　　(4)按题目要求存盘。
　　2．【解析】判断某数是否为素数，主要用到选择结构程序设计的思想。在窗体上建立好控件后，先设置控件的属性值，再编写事件过程。文本框中显示的内容通过Text属性设置，命令按钮的标题通过Captilon属性设置，单击命令按钮触发Click事件。
　　(1)建立菜单项。程序中用到的控件及其属性见表3-3。
　　表3-3
　　 控件 属性设置值文本框 NameText1NalTleCmd1按钮 Caption计算 　　(2)打开代码窗口，研读给定的代码。
　　标准模块代码:
* U4 U! G9 c1 p3 q; \- x　　
　　(3)可以使用isprime函数判断整数X是否为素数。如果是，则将该素数计入。If isprime(i)Then temp=temp+i
) ]% V/ m" H2 \" w& [' @# x$ n　　(4)temp应声明为Long型。
0 E1 E% m) q- h　　(5)使用如下调用形式把结果存入文件out.txt中：putdata“out.txt”，temp
  H" f% W3 z* v: L$ `  [) h& k3 ]# g　　(6)Cmd1_Click()事件的参考代码如下：
/ u1 I2 V" R, c4 H) b4 \　　
　　(7)调试并运行程序。
　　(8)按题目要求存盘。</p>三、综合应用题
　　【解析】除了考查基本操作外，本题主要考查的是数组的使用。
5 Z8 g: g* h7 y! q. b　　(1)文本框显示的内容通过Text属性设置，Multiline属性决定文本框是否可多行显示。若需要多行显示，必须将Multiline属性设置为True，同时将Scrollbars属性设置为2。
　　(2)建立界面并设置控件属性。按钮的标题通过Caption属性设置，单击命令按钮触发Click事件。程序中用到的控件及属性设置见表3-4。
+ s6 Q- \  V! W　　表3-4　　
　　 控件 属性设置值NameText1文本框 Scrollbars2MultilineTmeNalileCmd1命令按钮 Caption读入数据 NameCmd2命令按钮 Caption保存数据 　　(3)打开代码窗口，程序提供的代码如下：
　　
6 q; J0 d( K1 n0 p% [　　(4)研读代码，完成程序。
. d, D" Q$ ~2 J% C/ T' U3 P& k( n5 M　　①语句Input#1，i(?)用与语句Forj=1 T0 100相配合读入数据，所以应为：Input#1，i(j)
　　②语句?#1是在打开文件之后。涉及到文件的操作，读入顺序文件以顺序的方式打开，用“Input#”语句读取数据，另外需要注意的是对文件操作完成后，一定要关闭文件。即：Close#1
　　③语句Text1.Text=?用来初始化文本框Text1，使其开始时为空。即：Text1.Text=“”
" e4 m4 _: q, j' z7 y　　(5)完整的参考代码如下：