2012年计算机二级VB考试试题及答案解析6

会计考友

简单应用（2小题，每题20分，计40分）
5 n1 g% a6 _0 m　　注意：下面出现的“考生文件夹”均为%USER%
　　***********************************************************************
　　（1）在考生目录下有一个工程文件sjt3.vbp，窗体上有一个命令按钮Command1（标题为“下一个”）。
0 Z! e, K3 w' o# E+ H5 n+ L　　要求：
　　在窗体上建立一个单选按钮数组Option1，含4个单选按钮，标题分别为“选项1”、“选项2”、“选项3”、“选项4”，初始状态下，“选择
! b8 |0 U  F0 S5 ?4 \1 |　　1”为选中状态。如图所示。 窗体文件中已经给出了命令按钮的Click事件过程，但不完整， 请去掉程序中的注释符，把程序中的 ？改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第1个单选按钮。
9 ?1 H/ T* X" x& n, B. |　　注意：
　　不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
( ^; K& b5 G; H  s" N5 s　　解题思路：
( e$ d% H5 c+ t　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。
　　由于所提供的窗体控件不完整，需在该窗体上画一个单选按钮控件，通过对单选按钮控件的复制产生单选
　　按钮控件数组，共有四个单选按钮，标题（Caption属性）分别设为“选项1”、“选项2”、“选项3”、“选项4”，“选项”的Value属性设为True。
# c* P9 v) K! M& R+ [% w　　由于所提供的窗体程序不完整，在“下一个”按钮的Private Sub Command1_Click()事件过程中，有三处地方需要修改。
$ x6 L3 e1 f1 d+ T) R7 Y  F: b4 j- B: o　　1) 将语句
　　'For k = 0 To ?
　　改为
　　For k = 0 To 3
　　2) 将语句
　　'n = ?
3 _( ^( k- u1 G" n' `( b　　改为
/ U9 V6 W7 q, s4 W　　n = k
( @) C/ T- C# W* Q; V! F0 o. I+ e　　3) 将语句
0 i2 Q0 ?8 w5 f& B' D　　'n = ?
5 j; v, ]8 q/ H  o2 F4 r, {! T, S　　改为
　　n = 0
　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw
" @7 P1 [4 K: B+ H  u& u　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。
　　**********************************************************************
　　（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经画出所有控件。如图所示。在Text1文本框中输入一个任意的字符串（要求串的长度≥10），然后选择组合框中的 3个截取运算选项之一。单击“计算”按钮，将截取运算后的结果显示在Text2中。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。
　　注意：
　　不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。
. F* O% U4 s& i* v　　解题思路：
　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。由于所提供的窗体程序不完整，在命令按钮的Private Sub Command1_Click()事件过程中，有三处地方需要修改。
　　1) 将语句
　　'Select Case ?
, r* d2 F0 o. ^% e- y1 p　　改为
: F0 j' K2 o* u% W: ?. q　　Select Case Combo1.ListIndex
4 X' E6 J/ T4 [& I, }　　2) 将语句
. d4 G1 W: L2 N6 ^8 \% ?2 a　　'tmpStr = Mid(Trim(Text1.Text), ? )
  v4 Q2 M) g8 r% p# Z1 O/ F　　改为
　　tmpStr = Mid(Trim(Text1.Text), 3, 4)
+ e! i) u* R" Y' w) ?6 r. S　　3) 将语句
. T! c1 P+ b( O　　'Text2.Text = ?
　　改为
　　Text2.Text = tmpStr
　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw
　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt4.vbp文件并运行。
　　**********************************************************************