2. 计算机
  3. 有下面程序代码： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, x, b x = InputBox("请输入一个多位整数")

有下面程序代码： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, x, b x = InputBox("请输入一个多位整数")

admin2015-08-28  33
问题 有下面程序代码：
    Option Base 1
    Private Sub Command1_Click()
        Dim a(10) As Integer, x, b
        x = InputBox("请输入一个多位整数")
        For k = 1 To Len(x)
            b = Mid(x, k, 1)
            a(Val(b) + 1) = a(Val(b) + 1) + 1
        Next k
        For k = 1 To 10
            Print a(k);
        Next k
    End Sub
程序运行时，单击命令按钮Command1，输入2355270224，则输出是
选项 A、1  0  4  1  1  2  0  1  0  0
B、0  4  1  1  2  0  1  0  0  0
C、2  3  5  5  2  7  0  2  2  4
D、4  2  2  0  7  2  5  5  3  2
答案A
解析 Len函数获取整数的位数并作为For循环的边界。Mid函数从循环变量指定的地方获取字符并赋值给b。Val函数取b的数值。For循环完成对数组a的元素赋值。第二个for循环进行打印。选A）。
转载请注明原文地址:https://kaotiyun.com/show/OILp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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