题目内容

有下面程序代码：Option Base 1Private Sub Command1_Click()Dim a(10) As Integer,x,bx=InputBox("请输入一个多位整数")For k=1 To Len(x)b=Mid(x,k,1)a(Val（B）+1)=a(Val（B）+1)+1Next kFor k=1 To 10Print a(k);Next kEnd Sub程序运行时，单击命令按钮Command1，输入2345670456，则输出是___________。

查看答案

搜索结果不匹配？点我反馈

更多问题

命令按钮Command1的单击事件过程如下：Private Sub Command1_Click()Dim a(10,10) As Integerx=0For i=1 To 3For j=1 To 3a(i,j)=i*3 Mod jIf x

设有如下事件过程：Private Sub Command1_Click()Dim aa = Array(3, 5, 6, 3, 2, 6, 5, 3,5, 4, 3, 9, 4, 5, 6, 3, 5)x = 0n = UBound(a)For i = 0 To nm = 0For j = 0 To nIf a(i) = a(j) Thenm = m + 1End IfNext jIf m > x Then x = m: b = a(i)Next iPrint bEnd Sub运行程序，输出的是________。

执行以下程序段，则第一行输出结果是_，第二行输出结果是_。Dim a(-6 To 7) As SingleDim b(2, 6) As IntegerPrint UBound(a), UBound(b, 1)Print LBound(a), LBound(b, 2)

执行以下程序，单击命令按钮后，输出结果是______。Private Sub Command1_Click()Dim a(5) As IntegerDim bFor i = 1 To 5a(i) = i*iNext iFor Each b In aPrint b;Next bEnd Sub