【简答题】有下面程序代码: 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 E...
【单选题】设有下面程序代码: Option Base 1 Private Sub Command1_Click() Dim x(6) a = Array(4, 2, 5, 1, 6, 3) b = Array(64, 24, 98, 27, 58, 41) For k = 1 To 6 x(a(k)) = b(k) Next k For k = 1 To 6 Print x(k); Next k End S...
【单选题】有下面程序代码: 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 P...