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

admin2015-09-23  53

问题 有如下程序:
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出现的个数,最后将其输出。故本题正确答案为选项B。
转载请注明原文地址:https://kaotiyun.com/show/HLLp777K
0

最新回复(0)