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

会计考友

第9套上机考试试题
　　一、基础操作题
; ?: K4 v8 r( J$ x* h" s8 X　　两个文本框中显示出来。程序中不得使用任何变量。程序运行界面如图9-1所示。
  s" S) z( Y' m, J: r: q5 y　　
8 m5 C) ?0 \2 z　　图9-1
# G! P7 `* ^3 `# T　　注意：保存时必须存放在考生文件夹下，工程文件名为kt1.vbp，窗体文件名为kc1.frm。
3 ]9 `# _& R" m7 q, t　　2．在名称为Form1的窗体上画两个标签，名称分别为Label1和Label2，标题分别为“标签1”和“标签2”。请编写适当的事件过程，使得当程序运行时，如果单击窗体，则两个标签中的一个标签不透明且无边界，而另一个标签则变为透明且具有边界线。程序运行时的窗体界面如图9－2所示。
" _5 L* n0 P. J2 v6 `; m( c　　注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.Inn，过程丈件名为kt2.vbp。
7 a: g; o7 y  ?　　
　　图9-2
& i- D$ W" u* _  z& o0 o　　二、简单应用题
' i; L0 ?$ k  J6 f: ]3 t" \0 d) ]　　下面出现的“考生文件夹”均为c：＼wexam＼20060001。
　　1．在窗体Form1上设置一个控件数组Check(i)，该控件数组包括四个复选框控件，标题不限；另设一个辱‘称为Command1、标题为“统计”的命令按钮，程序运行后，单击“统计”按钮，将统计有多少个复选框被选中，并用MsgBox将其显示出来。程序运行时的窗体界面如图9-3所示。
　　注意：考生完成程序编写后，将过程文件与窗体文件保存到考生文件夹下，文件名分别为kt3.vbp与kt3.frm。
　　2．在考生文件夹下有工程文件kt4.vbp及其窗体文件kt4.frm，该程序是不完整的。请在有“?”的地方填入正确的内容，然后删除“?”及所有注释符(即“'”号)，但不能修改其他部分。保存时不得改变文件名和文件夹。
0 p* K5 k' C, ^* |7 C  Q' ]1 @  X　　窗体From1中有一个控制按钮与一个水平滚动条，控制按钮的名称为CmdMove，标题为“移动”，水平滚动条的名称为HS1。单击“移动”按钮后，在弹出的对话框中输入数值。如果输入的是正数，则滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且在窗体上显示“输入的数值太大”；如果输入的是负数，则滚动条中的滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且在窗体上显示“输入的数值太小”。
' h7 Z+ p; }: X0 B: y　　程序运行时的窗体界面如图9-4所示。
0 z; I4 @) e2 f9 s9 M$ Y. Q' F　　>
, n' T5 w/ s% p/ \8 F) k　　图9-3
　　
　　图9-4
　　三、综合应用题
4 |1 k4 Y" w9 J! O' ?　　下面出现的“考生文件夹”均为c：＼wexam＼20060001。
4 `4 `3 O7 q. f$ R' D' L　　在考生文件夹下有工程文件kt5.vbp及其窗体文件kt5.frm，该程序是不完整的，请在有“?”的地方填入正确的内容，然后删除“?”及所有注释符(即“'”号)，但不能修改其他部分，保存时不得改变文件名和文件夹。
　　本题描述如下：
　　在Form1窗体上建立一个名称为Op1的单选按钮数组，含有三个单选按钮，其标题分别为“10!”“11!”、“12!”，Index属性分别为0、1、2：画两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“计算”和“保存”；画‘个名称为Textl的文本框。程序的功能是：在选定一个单选按钮并单击“计算”按钮后，可以计算出相应阶乘值，并在Text1中显示该值。单击“保存”按钮，则文本框中的数据可以保存到考生文件夹下的out5.txt文件夹中。注意窗体加载时，Cmd2按钮不可用，单击“计算”按钮后，Cmd2按钮变为可用。
3 q* C; G4 O; {8 f  a) n0 B5 R: y　　程序运行时的窗体界而如图9-5所示。
% L+ _: {0 B) ^0 P, Z. Y1 P　　
　　图9-5
; `$ n. Q9 D: p2 X- f
第9套参考答案与解析
　　 一、基本操作题
( e5 v( M# T1 N3 C+ C6 m　　 1．【解析】本题主要考查基本控件的使用。文本框的内容通过Text属性设置，命令按钮标题通过Caption属性设置，单击命令按钮触发Click事件。程序中用到了InputBox()，其格式为：
# M) @/ r  q3 |　　 InputBox(prompt[，tide][，default][，xpos][，ypos][，helpfile，context)
　　 prompt：是一个字符串，其长度不得超过1024个字符，它是在对话框中显示的信息，用来提示用户输入。
　　 title：字符串，它是对话框的标题，显示在对话框顶部的标题区。
# [1 s/ O$ T. V0 C　　 default：字符串，用来显示输入缓冲区的默认信息。
2 q9 o* X+ q& W! a( Z( I$ i　　 xpos、ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos)，它们的单位为twip。
0 N% @) }; g  V　　 helpfile、context：helpfile是一个字符串变量或字符串表达式，用来表示帮助文件的名字；context是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。
　　【解题步骤】
* H' N  W6 w( [3 |/ O　　 (1)建立界面并设置控件属性。程序中用到的控件及其属性见表9-1。
% u$ j! I# O  q. }　　 表9—1
  s. V* g" r4 r4 r9 B% ?" {3 F　　控件 属性设置值NalTleLabel1标签Caption身高NameLabel2标签Caption体重文本框NameText1文本框NameText2NameCommandl命令按钮Caption输入　　 (2)编写程序代码。
: x) Z8 B6 R' M, ^% o　　 参考代码：
　　
! }! {) _7 E6 l8 V" R　　 (3)调试并运行程序。
$ `, T9 s) U6 \# F3 n# s4 T+ q. u9 g, W  T　　 (4)按题目要求存盘。
　　 2．【解析】本题主要考查“标签”控件的使用。设计界面，然后编制相应的事件处理程序。
　　 (1)设计界面，程序所用控件及其属性见表9-2。
　　 表9-2
　　控件类型 名称属性NameLabel1标签Caption标签1NameLabel2标签Caption标签2　　 (2)编写如下事件处理程序：
　　
　　
' G9 @# W% B7 O9 h+ c$ q3 d3 v9 n　　 (3)调试运行正确后，按要求保存工程和窗体文件。
0 _& H. Q4 q4 P' e+ }6 Y, Z% _% |　　 二、简单应用题
3 h# P1 {/ k$ f% }3 W　　 1．【解析】本题主要考查控件数组、复选框及信息对话框的使用。设计界面，然后编制相应的事件处理程序。

会计考友

　　 (1)设计界面时用到的控件及其属性见表9-3，其中Name和Index是自动生成，这里只是对比了解控件数组的特点
6 I2 Z' i) k2 d' N/ v4 H, ~　　 9-3
3 b! i: a: T& L& ]# H3 c　　控件类型 名称属性值NameCheck1复选框Caption1Index0NameCheck1复选框Caption5Index1NallleCheck1复选框Caption3Index2NameCheck1复选框Caption7Index3NameCommand1命令按钮Caption统计　　(2)选中复选框，使属性Value＝1。通过此可以编写如下事件处理程序：
　　
2 q0 G& u# a1 E7 ?  U　　
: k; S* `8 j1 \) d( A+ C6 w% ^　　 Next x
　　 MsgBox(S)
　　 End Sub
" Z3 A4 \% r+ x% b　　 (3)调试运行正确后，按要求保存工程和窗体文件。
　　 2．【解析】按要求打开工程文件，如果没有窗体，可通过“视图”菜单的“对象窗口”命令或者双击工程窗口中的kt43.frm文件名来打开。
5 J: @3 F6 Z/ \: U2 ?$ `( L1 [　　 (1)打开代码窗口，共有3处需要填写。
" D! N* K+ x$ K9 r3 F　　
　　
! `5 ^2 \' _, c* {, _　　 (2)分析代码，填入正确语句。
　　 ①语句HS1.Value＝?+n是将属性值增加，即：HS1.Value＝HS1.Value+n
& L; Z$ u% `- V5 Y) _. b0 x  R　　 ②语句If(HS1.Value－HS1.Min)>?(n)Then是与负数的绝对值比较，即：If(HS1.Value－HS1.Min)>Abs(n)Then
$ ~# o8 a1 P! H: h, H; l5 t; S　　 ③如果输入数值过小，则不应该改变原来的属性值，所以语句HS1.Value＝?应改为：HS1.Value＝HS1.Min
　　 (3)完整的程序如下：
( S8 d4 \1 v$ I) ~' Z* M2 @　　 (4)需要分别验证输入正常数据、数据太大和太小3种情况。
" q5 L5 Y( e( X% @8 r　　
　　
　　 (5)正确保存工程和窗体文件</p> 三、综合应用题
; ]3 ~3 x* w  z& V3 ]5 W4 R  L+ Y　　【解析】本题考查单选按钮、文本框和命令按钮的综合应用。按要求打开工程文件，如果没有窗体，可通过“视图”菜单中的“对象窗口”命令或者双击工程窗口的kt5.frm文件名来打开。
　　 (1)打开代码窗口，共有4处需要填写。
) `- I; ]; B" L( G; n; S　　
　　
　　 (2)研读 Form_Load()事件处理程序，窗体加载时，Cmd2按钮不可用。通过此可知应使用语句：Cmd2.EnabIed＝False
　　 (3)研读FunctionOut(n As Integer)程序，For循环用来计算阶乘，所以应填写：t=t*i
( b8 ^6 d5 H5 j) b3 ?　　 (4)研读Cmd1_Click()事件处理程序，If语句有两处需要改写：
4 P6 @) `# g1 ]) X　　 If Op1(i)＝True Then
: j. n+ _! a& @7 f) R　　 't＝Val(Left$(Opi(i).Caption，?))
　　 'Text1.Text＝?(t)
　　 End　If
　　该段程序功能是将选中的单选按钮标题上的数字取出来，即将其赋给变量t，然后调用函数Out计算t的阶乘，并显示在文本框中。即：
　　 t＝Val(Left$(Op1(i).Caption，2))
　　 Text1.Text＝Out(t)
　　 (5)完整的程序如下：