执行下面程序段后，输出的结果为（ ）。Dim m(5) As Integers = 0For i = 0 To 5m(i) = 5Next iFor j = 0 To 5s = s + m(j)Next jPrint s
运行下面程序，如果输入80，则输出结果是_____。 Dim a As Integer, i As Integer a = InputBox(input a:) If a > 60 Then i = 1 If a > 70 Then i = 2 If a > 80 Then i = 3 If a > 90 Then i = 4 Print i=
以下程序段的运行结果是( )。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
执行下列程序后，输出的结果是： Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a - b b = t + a Fun1 = t + b End Function Private Sub Command1_Click() Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x - 1))), x - 1) End Sub
下面程序：Function a(x)Static b As Integerb = b + x ^ 2Print bEnd FunctionPrivate Sub Command1_Click()Dim c%c = a(2)End Sub单击两次命令按钮，第二次显示的结果是（ ）。
下列程序段的运行结果为（ ）。 Dim a Dim s%, i% a = Array(1, 2, 3, 4, 5) For i = 1 To 3 s = s + a(i) ^ 2 Next i Print s
运行下面程序，如果输入80，则输出结果是_____。Dim a As Integer, i As Integera = InputBox(\input a:\)If a > 60 Then i = 1If a > 70 Then i = 2If a > 80 Then i = 3If a > 90 Then i = 4Print \i=
写输出下面程序的运行结果 _ _。 Dim a() As Integer Private Sub Command1_Click() ReDim a(1 To 5) For i = 1 To 5 a(i) = i Next i ReDim a(1 To 10) For i = 6 To 10 a(i) = 2 * i Next i For i = 1 To 10 Print a(i); Next i End Sub
下面程序段的运行结果为________。 Dim s As Integer, i As Integer i = 1: s = 1 Do i =i + s Loop Until s >20 Print i, s
下列程序的执行结果是 _ ________ __ Dim a(5) As String Dim b As Integer Dim I As Integer For I = 0 To 5 a(I) = I + 1 Print a(I); Next I
下列程序段的运行结果是（ ）。Dim A As Integer , B As IntegerA = 15B = 4Print 4 + A B
下列程序段的执行结果为 ______。 Dim A(10)，B(5) For i=1 To 10 A(i)=i Next i For j=1 To 5 B(j)=j*20 Next j A(5)=B(2) Print"A(5)="；A(5)
下列程序段的执行结果为______。Dim A（3，3)For M=1 To 3For N=1 To 3If N=M 0r N=3-M+1 Then A（M，
下列程序段的执行结果为（)。Dim A（3，3)For M=1 To 3For N=1 To 3If N=M Or N=3-M+1 Then A（M, N)=
以下程序段运行的结果是 ______。Dim a（-1 To 5)As BooleanDim flag As Booleanflag=FalseDim i A
下列程序段的执行结果为______ 。Dim A（4)N= 3A（1) =1For K=0 To N-1For L=1 To K+1 X=K+2 -L A（X
以下程序段运行的结果是______。Dim a（-1 To 5) As BooleanDim flag As Booleanflag = FalseDim i
下列程序段的执行结果是（）。 Dim x As Integer x = 76 Select Case x Case Is ＞= 60 Form1.Print "及格" Case Is ＞ 75 Form1.Print "良好" Case Is ＞= 90 Form1.Print "优秀" Case Else Form1.Print "不及格" End Select
下面程序段的执行结果是（）。 Dim M（10) For i=1 To 10 M（i)=11-i Next i X=6 Print M（2+M（X))
单击命令按钮时，下列程序的执行结果是（)。 Private Sub Command1_Click（) Dim a As Integer，b As Integer，C As Integer a=3 b=4 c=5 Print SecProc（c，b，a) End Sub Function FirProc （x As Integer，y As Integer，z As Integer) FirProc
执行下面程序，第一行输出结果是 （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
以下程序段的作用是计算数据的和，数据的个数是可变的。请填空。 Private Sub Command1_Click（)Dim a As Integera=0Sum a, 1, 5, 2Print "sum of 3 = "; aa = 0Call Sum（a, 1, 3, 5, 7, 9)Print "sum of 5 = "; aEnd SubPrivate Sub Sum（x As integ
下列程序段的输出结果为（）。 Dim A（5) For i=1 to 5 A（i)=i*i Next i Print A（i)
下列段的执行结果为（）Dim A（）For I=2 To 4 For J=4 To 5 A（）=I*J Next J Next I Print A（）+A（）+A（）
