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

admin2018-09-19  18

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

注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码:
Private Sub cmdChange—Click()
Dim n As Integer,k As Integer
Dim ch As String,a As String
    n=Len(txtInput.Text)
    ch=””
    F0r k=1 To n
a=Mids(txt Input .Text,?,1)
    If Optl.Valme=True Then
    I f a>=“a”And a<=。“z”Then
    ch=ch+UCaSe(a)
    Else If 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:打开考生文件夹中的本题工程文件vbsi3.vbp,按表4-21在窗体中用“复制”和“粘贴”命令画出包含4个元素的单选数组和1个命令按钮并设置属性。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Private Sub CmdNext Click() For k=0 To 3 If OptItem(k).Value Then n=k End If Next k OptItem(n).Value=False n=n+1 If n=4 Then 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:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://jikaoti.com/ti/Jvm0FFFM
0

最新回复(0)