有程序：DIMENSIONA（2，2）INTEGERA，YY=0DO20I=1，2D020J=1，2A（I，J）=I*I+J*JY=Y+A（I，J）20CONTINUEWRITE（*，*）YEND此程序运行的结果为：（）

相似题目

• 下列程序中，第一个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

  A . 10 B . 20 C . 5 D . 7

  查看最佳答案

• 当输入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

  A . 4.0 B . 5.0 C . 6.0 D . 7.0

  查看最佳答案

• 有程序：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时，此程序执行后的输出结果为：（）

  A . 6 B . 5 C . 7 D . 4

  查看最佳答案

• 有程序：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此程序执行后的结果为：（）

  A . 15.0 B . 12.0 C . 9.0 D . 10.0

  查看最佳答案

• 有程序：DIMENSIONA(2，2)INTEGERA．YY=0D0201=1，2D020J=1，2A(1，J)=I*I+J*JY=Y+A(1，J)20CONTINUEWRITE(*，*)YEND此程序运行的结果（）

  A . 16 B . 20 C . 27 D . 30

  查看最佳答案

• 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

  阅读程序： Function Fun(a As Integer) Static C b=0：b=b+2：c=c+2 F=a*b*c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 2 Print Fun(A) ； Next End Sub 运行上面的程序，单击命令按钮，输出结果为 A．8 16 B．9 18 C．10 20 D．7 14

  查看最佳答案

• 单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test （x As Integer) x=x*2+1 If x ＜

  单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test (x As Integer) x=x*2+1 If x ＜ 6 Then Call Test(x) End If x-x*2+1 Print x; End Sub Private Sub Command1_ Click () Test 2 End Sub A．23 47 B．5 11 C．10 22 D．23 29

  查看最佳答案

• 阅读下列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

  阅读下列FORTRAN程序： DIMENSION A(3，4) DATA A/3*+4.0，3*-3.0，3*-2.0，3*-1.0/ S=0.0 DO 20 K=1，3 D=A(K，1) DO 10J=2，4 IF(A(K，J)＜D) D=A(K，J) 10 CONTINUE S=S+D 20 CONTINUE WRITE(*，*) S END A．-15.0 B．-12.0 C．9.0 D．6.0

  查看最佳答案

• 下列程序段错误的是（)。A．Dim a As Integer a=array（1,2,3,4)B．Dim a（),b（) a=array（1,2,3,4): b=

  下列程序段错误的是()。 A．Dim a As Integer a=array(1,2,3,4) B．Dim a(),b() a=array(1,2,3,4): b=a C．Dim a As Variant a=array(1,"aSd",true) D．Dim a()As Variant a=array(1,2,3,4)

  查看最佳答案

• 阅读下列FORTRAN77程序：INTEGER A（4,4)DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/WRITE（*，

  阅读下列FORTRAN77程序： INTEGER A(4,4) DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/ WRITE(*，100)F(A，3) 100 FORMAT(1X，F4.1) END FUNCTION F(B，N) INTEGER B(N，N) F=0.0 DO 10 K=1，N 10 F=F+B(K，K) END 上述程序运行后，输出结果为()。 A．19.0 B．9.0 C．8.0 D．18.0

  查看最佳答案

• 执行以下命令序列后，显示结果是______。DIMENSIONA（2,3)A=10A（2,1)=A（1,1)*3？A（4)

  A．.T. B．10 C．30 D．.F.

  查看最佳答案

• 下列程序的执行结果为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 -

  A．20 1220 15 B．12 2012 25 C．24 1512 20 D．24 1212 15

  查看最佳答案

• 有如下程序：Private Sub Form_Click（) Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 I

  有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。 A．12 B．30 C．24 D．18

  查看最佳答案

• 有程序：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

  有程序：DIMENSIONA(4，3) DATA A/3*-1．0，3*-2．0，3*-3．0，3*-4．0/ S=0．0 D0 10 K=1．4D—ABS(A(K，1)) D020J=2.3IF(ABS(A(K，J))．GT．D)D=ABS(A(K，J)) 20 CONTINUE S=S＋D 10 CONTINUE WRITE(*,*)SEND 此程序执行后的结果为： A．15.0 B．12.0 C．9.0 D．10.0

  查看最佳答案

• 在窗体上画一个名称为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 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是

  A．10 10 10 B．30 30 30 C．30 30 10 D．10 30 30

  查看最佳答案

• 有如下程序：Function F（a As Integer) b = 0 Static C b = b + 1 c = c + 2 F = a + b + cEnd Fu

  有如下程序： Function F(a As Integer) b = 0 Static C b = b + 1 c = c + 2 F = a + b + c End Function Private Sub Command1_Click() Dim a As Integer a = 2 For i=1 To 3 Print F(a)； Next i End Sub 运行上面的程序，单击两次命令按钮，在窗体上输出结果为 A．4 4 4 B．4 5 6 C．5 7 9 D．11 13 15

  查看最佳答案

• 4、下面程序段运行后，i的值为_________。 Dim i as Integer i = 4 Do i = i + 2 Loop While i ＜ 10

  A．6 B．8 C．10 D．12

  查看最佳答案

• 程序执行结果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．1 B．5 C．4 D．2

  查看最佳答案

• 执行下列程序后，变量a的值为（)。 Dim i As Integer Dim a As Integer a=0 For i=1 To 100 Step 2 a=a+1 Next i

  A．1 B．10 C．50 D．100

  查看最佳答案