2. 计算机
  3. 有如下程序： Private Sub Form_Click() Dim n As Integer, a As String Dim L As Integer, C As Integer n = InputBox("请输入一个整数")

有如下程序： Private Sub Form_Click() Dim n As Integer, a As String Dim L As Integer, C As Integer n = InputBox("请输入一个整数")

admin2018-09-19  33
问题 有如下程序：
Private Sub Form_Click()
    Dim n As Integer, a As String
    Dim L As Integer, C As Integer
    n = InputBox("请输入一个整数")
    For i = 1 To n
        a = InputBox("请输入一个字符串")
        L = Len(A)
        C = 0
        For j = 1 To L
            If Mid(a, j, 1) = "D" Then
                C = C + 1
            End If
        Next j
        Print a; C
    Next i
End Sub
以上程序的功能是
选项 A、输出从键盘上输入的字符串，计算其长度并输出
B、输出从键盘上输入的字符串，统计字符串中字符"D"的个数并输出
C、输出从键盘上输入的字符串，找出其中的字符"D"并输出
D、把从键盘上输入的字符串中的所有字符换成字符"D"并输出
答案B
解析 InputBox函数可以产生一个对话框，作为输入数据的界面，等待用户输入数据，并且返回输入的内容。求字符串长度函数Len(s),返回字符串的长度，即所包含的字符个数。字符串截取函数Mid$(s,n1,n2),从s第n1个字符开始，向后截取n2个字符。当程序开始执行时，等待用户从键盘输入整数，用于控制第一个循环执行次数。进入第一个For循环，等待用户输入字符串，计算该字符串长度，进入第二个For循环，主要作用是从上述字符串逐一查找字符串中字符D出现的个数，最后将其输出。故本题正确答案为选项Ｂ。
转载请注明原文地址:https://kaotiyun.com/show/Y6Fp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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