题目内容

窗体上有名称为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，结果是___________。