超星 - 过程测试 - 查题吧

填空题

窗体上有名称为Command1的命令按钮，名称分别为Label1、Label2、Label3的标签。编写如下程序：Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern=8z=z+ny=y+nx=x+yLabel1=xLabel2=yLabel3=zEnd Sub运行程序时，连续3次单击命令按钮后，3个标签中分别显示的是____、_、________。

填空题

现有程序如下：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

填空题

运行下面的程序，第二行显示结果是_____ 。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

填空题

运行下列程序，依次点击第一个和第二个按钮，结果为___________。Dim a As Integer ' 在窗体通用部分定义a为窗体模块级的变量Private Sub Command1_Click()Dim b As Integera = 50b = 80End SubPrivate Sub Command2_Click()Dim b As IntegerPrint a;Print bEnd Sub

填空题

运行下面的程序，显示结果是___________。Private Function digit(n As Integer, k As Integer) As Integerdigit = 0Do While k > 0digit = n Mod 10n = n \ 10: k = k - 1LoopEnd FunctionPrivate Sub Form_Click()Print digit(3456, 4);Print digit(3456, 3)End Sub

1