下列程序中，第一个Do语句共执行了（）次循环。 Dim i As Integer, j As Integer i = 1 Do j = 1 Do Sum = Sum + j j = j + 2 Print j; Loop Until j > 3 i = i + 2 Loop Until i > 10 Print Sum
当输入1.5，2.5，3.5，4.0下列程序执行后的输出结果为()。 DIMENSIONA(2，2) READ(*，*)A SUM=0 DO10I=1，2 DO20J=I，2 K=A(I，J)*I*J 10A(1，2)=K WRITE(*，*)A(2，1) END
有程序：DIMENSIONA（2，2）READ（*，*）ASUM=0DO10I=1，2D010J=1，210A（I，J）=A（I，J）+I+JWRITE（*，*）A（1，2）END当输入1、2、3、4时，此程序执行后的输出结果为：（）
有程序：DIMENSIONA（2，2）INTEGERA，YY=0DO20I=1，2D020J=1，2A（I，J）=I*I+J*JY=Y+A（I，J）20CONTINUEWRITE（*，*）YEND此程序运行的结果为：（）
有程序：DIMENSIONA（4，3）DATAA／3*-1．0，3*-2．0，3*-3．0，3*-4．0／S=0．0DO10K=1，4D=ABS（A（K，1））DO20J=2，3IF（ABS（A（K，J））．GT．D）D=ABS（A（K，J））20CONTINUES=S+D10CONTINUEWRITE（*，*）SEND此程序执行后的结果为：（）
Sub Inc(a As Integer) Static x As Integer x = x + a Print x; End Sub Private Sub command1_click() Inc 2 Inc 3 Inc 4 End Sub 程序运行后，单击命令按钮，输出结果为：( )( ) ( )
有如下函数过程： Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * x End Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a) End Sub 该程序的运行结果是（ ）。
有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer)secproc = 3 * y + z + 2 * xEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = 2: b = 3: c = 4Print secproc(c, b, a)End Sub该程序的运行结果是（ ）。
阅读程序：Function Fun（a As Integer)Static C b=0：b=b+2：c=c+2 F=a*b*cEnd FunctionPrivate S
单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test （x As Integer) x=x*2+1 If x ＜
阅读下列FORTRAN程序：DIMENSIONA（3，4)DATAA/3*+4.0，3*-3.0，3*-2.0，3*-1.0/S=0.0DO20K=1，3D=A（K，1
下列程序段错误的是（)。A．Dim a As Integer a=array（1,2,3,4)B．Dim a（),b（) a=array（1,2,3,4): b=
阅读下列FORTRAN77程序：INTEGER A（4,4)DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/WRITE（*，
执行以下命令序列后，显示结果是______。DIMENSIONA（2,3)A=10A（2,1)=A（1,1)*3？A（4)
下列程序的执行结果为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 -
有如下程序：Private Sub Form_Click（) Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 I
有程序：DIMENSIONA（4，3) DATAA/3*-1．0，3*-2．0，3*-3．0，3*-4．0/ S=0．0 D010K=1．4D—ABS（A（K，1)) D02
在窗体上画一个名称为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 F（a As Integer) b = 0 Static C b = b + 1 c = c + 2 F = a + b + cEnd Fu
4、下面程序段运行后，i的值为_________。 Dim i as Integer i = 4 Do i = i + 2 Loop While i ＜ 10
程序执行结果s的值是 【7】 。 Private Sub sub1（Byval p As Integer) p=p*2 End Sub Private Sub Command1_ Click（) Dim i As Integer i=3 Call sub 1 （i) if i＞4 then i=i mod 2 Print cstr（i) End Sub
执行下面程序，第一行输出结果是 （11) ，第二行输出结果是 （12) 。 Option Explicit Private Sub Form_Click（) Dim A As Integer A=2 Call Subl（A) End Sub Private Subl（x As Integer) x=x*2+1 If x＜10 Then Call Subl（x) End If x=x*2+1 Pri
5、有以下程序段： INTEGER A（5),T DATA A/1，2，3，4，5/ DO I=1，2 T=A（I) A（I)=A（6-I) A（6-I)=T ENDDO PRINT*, A（5) END 执行以上程序后，输出的A（5)的值为：
执行下列程序后，变量a的值为（)。 Dim i As Integer Dim a As Integer a=0 For i=1 To 100 Step 2 a=a+1 Next i
