题目内容

设有如下通用过程：Public Function f(x As Integer)Dim y As Integerx = 30y = 8f = x * yEnd Function在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程Private Sub Command1_Click()Static x As Integerx = 15y = 6y = f(x)Print x; yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_____。

查看答案

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

更多问题

窗体上有名称为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