2. 计算机
  3. (1)在考生目录下有一个工程文件vbsj3．vbp，窗体上有一个命令按钮cmdNext(标题为“下一个”)。 要求：在窗体上建立一个单选按钮数组optItem，含4个单选按钮，标题分别为“A”、“B”、“C”、“D”，初始状态下，“A”为选中状态。如图3—

(1)在考生目录下有一个工程文件vbsj3．vbp，窗体上有一个命令按钮cmdNext(标题为“下一个”)。 要求：在窗体上建立一个单选按钮数组optItem，含4个单选按钮，标题分别为“A”、“B”、“C”、“D”，初始状态下，“A”为选中状态。如图3—

admin2017-03-27  47
问题 (1)在考生目录下有一个工程文件vbsj3．vbp，窗体上有一个命令按钮cmdNext(标题为“下一个”)。
要求：在窗体上建立一个单选按钮数组optItem，含4个单选按钮，标题分别为“A”、“B”、“C”、“D”，初始状态下，“A”为选中状态。如图3—70所示。窗体文件中已经给出了命令按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第1个单选按钮。
注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
程序源码：
Private Sub cmdNext Click()
’For k=0To?
If optItem(k)．Value Then
’n=?
End If
Next k
optItem(n)．Value=False
n=n+1
If n=4Then
’n=?
End If
optItem(n)．Value=True
End Sub
(2)在考生文件夹下有一个工程文件vbsj4．vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在txtInput中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入txtResult(如图3—71所示)。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。

注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
程序源码：
Private Sub cmdChange_Click()
Dim n As Integer，k As Integer
Dim ch As String，a As String
n=Len(txtInput．Text)
ch=" "
For k=1To n
’a=Mid$(txtInput．Text，?，1)
If Opt1．Value=True Then
If a＞="a"And a＜="z"Then
ch=ch+UCase(a)
ElseIf a＞="A"And a＜="Z"Then
’ch=ch+?
ElSe
ch=Ch+a
End If
End If
If Opt2．Value=True Then
ch=UCase(txtInput)
End If
If Opt3．Value=True Then
ch=LCase(txtInput)
End If
Next k
’txtResult=?
End Sub
选项
答案第1小题 步骤1：打开考生文件夹中的本题工程文件vbsj3．vbp，按表4—43在窗体中用“复制”和“粘贴”命令画出包含4个元素的单选数组和1个命令按钮并设置属性。 [*] 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： Private Sub CmdNext_Click() For k=0To3 If optItem(k)．Value Then n=k End If Next k OptItem (n)．Value=False n=n+1 If n=4Then n=0 End If OptItem(n)．Value=True End Sub 步骤3：按要求将文件保存至考生文件夹中。 第2小题 步骤1：打开考生文件夹中的本题工程文件vbsj4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： a=Mid$(txtInput．Text，k，1) ch=ch+LCase(a) txtResult=ch 步骤2：按要求将文件保存至考生文件夹中。
解析 第1小题：本题源程序在命令按钮的单击事件过程中，首先利用For循环语句(循环变量k的初值为0，终值为3)逐一检查单选按钮数组中的每个元素是否被选中，若选中则用变量n记录下选中单选按钮的索引号，即n=k。循环结束后，取消对当前选中单选按钮的选抒，，变量n增1；接着判断增1后的n值是否为4，荇是则将n的值设置为0；最后设置索引号为n的单选按钮被选中。
第2小题：本题源程序功能是存命令按钮的单击事件过程中，用For循环语句和Mid函数逐一取出文本框txtInput中的字符后，根据单选按钮的选择进行相应转换；当选择“大小写互换”时，如果是小写字母就用UCase雨数转换为大写，如果是大写字母就用LCase函数转换为小写，如果不是字母就不用转换：当选择“全部大写”时，就用UCase函数将文本框中所有字母转换为大写：当选择“全部小写”时，就用LCase函数将文本框中所有字母转换为小写。将转换结果显示在文本框txtResult中。
转载请注明原文地址:https://kaotiyun.com/show/NhGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)