题目内容

求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

运行下面的程序，第二行显示结果是_____ 。Private Sub Command1_Click()Dim a(5) As IntegerFor i = 1 To 5a(i) = i*iPrint a(i);NextiPrintf aFor i = 1 To 5Print a(i);NextiEnd SubPrivate Function f(b() As Integer)For i = LBound(b) To UBound(b)b(i) = b(i) + 5NextiEnd Function

运行下面的程序，第二行显示结果是___________。Private Sub Form_Click()Dim A As IntegerDim i As IntegerA = 5For i = 1 To 9Call sub1(i, A)Print i, ANext iEnd SubPrivate Sub sub1(x As Integer, y As Integer)Static N As IntegerDim I As IntegerFor I = 3 To 1 Step -1N = N + xx = x + 2Next Iy = y + NEnd Sub