题目内容

现有程序如下：Option Base 1Private Sub Form_Click()Dim x(5,6) As Integer,y(5) As IntegerFor i=1 To 5For j=1 To 6x(i,j)=i*jNext jNext iCall f(5,6,x,y)For i=1 To 5Print y(i);Next iEnd SubSub f(m As Integer,n As Integer,a() As Integer,b() As Integer)For i=1 To mb(i)=0For j=1 To nb(i)=b(i)+a(i,j)Next jNext iEnd Sub运行程序，单击窗体，输出结果是_______。

查看答案

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

更多问题

窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：Private Sub Command1_Click()Dim x As Integerx=Val(InputBox("输入数据"))Text1=Str(x+fun(x)+fun(x))End SubPrivate Function fun(ByRef n As Integer)If n Mod 3=0 Thenn=n+nElsen=n*nEnd Iffun=nEnd Function运行程序，输入值为6时，文本框中显示结果为_______。

求1！+2！+……+10!的程序如下：Private Function s(x As Integer)f=1For i=1 To xf=f*iNexts=fEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerDim y As LongFor i=1 To 10_____________NextPrint yEnd Sub

设有如下Command1的单击事件过程及fun过程：Private Sub Command1_Click()Dim x As Integerx=Val(InputBox("请输入一个整数"))fun(x)End SubPrivate Sub fun(x As Integer)If x Mod 2=0 Then fun(x/2)Print x;End Sub执行上述程序，输入8，结果是___________。

运行下面的程序，第二行显示结果是___________。Option Base 1Private Sub Form_Click()Dim a, b(), i, j, ka = Array(2, 3, 4, 5, 6,7, 8, 9,10)ReDim b(3, 3)Call read(a, b)Call prt(b)End SubPrivate Sub read(a, b)For i = 1 To 3For j = 1 To 3k = k + 1b(i, j) = a(k)Next jNext iEnd SubPrivate Sub prt(b)For i = 1 To 3For j = 1 To 3p = b(i, j) Mod 3 + 1q = b(j, i) Mod 3 + 1Print b(p, q);Next jPrintNext iEnd Sub