程序 PARAMETER (N=3) INTEGER A(N，N) READ *, A DO 10 J=1，N LS=0 DO 20 I=1，N20 LS=LS+A(I，J) LS=LS/N DO 30 I=1，N30 A(I，J)=A(I，J) -LS10 CONTINUE PRINT *, A END若输入2，4，6，8，10，12，14，16，18程序执行后，A(3，2)为()。

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim c As Integer，n As Integer For c=0 To 50 c=c+3 n=n+1 Ifc＞10Then Exit For Next c Text1.Text=Str（n） End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（）

在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim x As Integer，n As Integer x=1 n=0 DoWhilex＜20 x=x*3 n=n+1 Loop Text1.Text=Str（x） Text2.Text=Str（n） End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是（）

设窗体上有一个名称为 Option1 的单选按钮数组（其下标从 0 开始），共有 4 个单选按钮，并有下面事件过程： Private Sub Option1_Click(Index As Integer) n = Index If Index < 3 Then n = n + 1 Print Option1(n).Caption End Sub 程序运行时，单击其中一个单选按钮，则在窗体上显示的是 ________ 。

以下程序段的运行结果是( )。Function abc(n As Integer) As Integerabc = n * 2 + 1End FunctionPrivate Sub Command1_Click()Dim x As Integerx = abc(3) * abc(4)Print xEnd Sub

以下程序运行结果是( )。Private Sub Command1_Click()Dim nx%nx = 3Call abcd(nx)Print nxEnd SubPrivate Sub abcd(n As Integer)n = n + 5End Sub

下列程序段运行后输出的的结果是： integer m, n real x,y m=2；n=4；x=2；y=4 print *, m/n, x/y A） 0.5 0.5 B） 0 0 C） 0 0.5 D） 1 0.5

在窗体上画两个名称分别为TextTexte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（)Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopTextText=Str（x)TextText=Str（n)E

设有如下程序。要使程序的输出结果n的值为5，请将程序补充完整。 Dim x As Integer,n As Integer x=1 Do设有如下程序。要使程序的输出结果n的值为5，请将程序补充完整。 Dim x As Integer,n As Integer x=1 Do x=x+3 n=n+1 Loop Until x=______ MsgBox"n="&n

阅读下列FORTRAN程序：PARAMETER（L=3)INTEGER N（L)DATAN/3*0/DO20I=1，LDO20J=1，LN（J)=N（1) +120CO

下列程序的执行结果为Private Sub Command1_Click（) Dim p As Integer, q As Integer p=12: q=20 Call Value（p, q) Print p; qEnd SubPrivate Sub Value（ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n -

在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是 ______。

单击命令按钮时，下列程序代码的执行结果为Public Sub Procl（n As Integer,ByVal m As integer)n=

在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签，然后编写如下代码： Private x AS Integer Private Sub Command1_Click() Static y As Integer Dim 2 As Integer n=10 Z=n+2 y=y+2 X=X+2 Label1.Caption=x LabelCaption=y LabelCaption=z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是

下列程序的执行结果是（)。 Function P（N As Integer) For i=1 To N Sum=Sum+i Next i P=SumEnd Fu

在TextBox1中输入的数为5127，则下面的程序运行后，Label1显示的结果是（）。 Dim n, s As Integer n = Val（TextBox1.Text) s = 0 Do While n ＞ 0 s = s + n mod 10 n = n \ 10 Loop Label1.Text = s

11，在程序的空白处填写适当的语句（一个空白处只能填写一条语句)，使程序完成相应的计算。程序计算Sn的值，Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如，a=5，n=4时，则： Sn=5+55+555+5555 Dim a As Integer, n As Integer, Cout As Integer Dim Sn As Long，Tn As Long Count=1:Sn

斐波那契（Fibonacci)数列的构成规律是：数列的第1、2个数是1，从第3个数起，每个数是其前面两个数之和。据此，下面有求斐波那契前12项值的过程，请完善程序。 Sub Fibonacci（N As Integer，s1) s1=0 f1=1 【11】 For i=1 To N/2 Print f1；f2； s1=f1+f2 f1=f1+f2 f2= 【12】 Next i Print End

某人编写了下面的程序 Private Sub Command1_Click（)Dim a As Integer,b As Integera=InputBox（"请输入整数")b=InputBox（"请输入整数")pro apro bCall pro（a+b) End Sub Private Sub pro（n As Integer)While（n＞0) Print n Mod 10; n=n10W

在窗体上有一个名称为Command1的命令按钮，并有如下事件过程和函数过程： Private Sub Command1_Click（) Dim p as Integer p=m（1)+m（2)+m（3) Print p End Sub Private Function m（n As Integer) As Integer Static s As Integer For k=1 To n s=s+1

下列程序运行后，输出结果为______。 Sub abcd（ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click（) n%=3 Call abcd（n%) Print n% End Sub

运行下面程序,如果连续三次单击命令按钮之后，A数组共有（） 个元素；数组元素A（2)的值是（），A（5)的值是（）Option ExplicitOption Base lPrivate Sub Command1_Click（)Static A（) As Integer,N As IntegerDim I As Integer,K As IntegerK=NN=N+2ReDim Preserve A

单击命令按钮后，下列程序代码的执行结果是______ 。 Public Sub fun （Byval a （) As Integer) Static n As Integer Do a（n) = a （n) + a（n + 1) n = n + 1 Loop While n ＜ 3 End Sub Private Sub command1_ click（) Dim m As Integer, n

下列程序的执行结果为（）。 Private Sub Commandl_Click（) Dim X As Integer，y As Integer x=12：y=20 Call Value（x，y) Print X；y End Sub Private Sub Value（ByVal m As Integer，ByVal n As Integer) m=m * 2：n=n-5 Print m；n

下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click（) Dim a As Integer，n As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=