下列程序段的执行结果是（）。 X=5：Y=5：Z=6 WriteLine（"E（{0}）"， X+Y*Z）
以下程序段的运行结果是( )。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
下列程序执行中后，变量x的值为（ ） Dim a,b,c,d As Single Dim x As Single a=100 b=20 c=1000 If b>a Then d=a:a=b:b=d End if If b>c Then x=b ElseIf a>c Then x=c Else x=a End If
下面程序段的运行结果为________。 Dim s As Integer, i As Integer i = 1: s = 1 Do i =i + s Loop Until s >20 Print i, s
下列程序段的执行结果为________。Dim M(10), N(10)i= 4For j = 1 To 7M(j) = jN(i) = 2 * i + jNext jPrint N(i); M(i)
Dim x As Single, y As SinglePrivate Sub Command1_Click()x = x + 1y = y + 1Call test2End SubPrivate Sub test2()Dim x As Singlex = x + 20y = y + 20Print x, yEnd Sub以上程序的执行结果是( )( )
下列程序的执行结果是 _ ________ __ 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 M（10), N（10)I=3For T = 1 To 5M（T) = TN（I) = 2 * I + TNext
设 int x=0,y=-1;则执行下列程序段的输出结果为（）;
设有如下程序。要使程序的输出结果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
下列程序段的执行结果为______。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（4)N= 3A（1) =1For K=0 To N-1For L=1 To K+1 X=K+2 -L A（X
下列程序执行后，变量X的值为（）。 Dim a，b，C，d As Single Dim X As Single f1=10 b=30 c=400 If b＞fl Then d=fl：fl=b：b=d End If If b＞C Then X=b Else If fl＞c Then X=c Else X=a End If
下列程序执行后，变量x的值为（)。Dim a , b , c , d , x As Single a = 200 : b = 100 : c = 50
执行以下语句后显示结果为（）Dim x As Integer x=1If x Then Print x Else Print x-1
下面程序段的执行结果是（）。 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
下面程序段的执行结果是（）。 Dim A（5) As Interger For i=1 To 5 A（i)=i*i Next i Print A（i-1)
下列程序的执行结果为（）。 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
下面段的功能是（）Dim X As New FileSystemObject For Each Mydri in X.Drives Debug.Print Mydri.DriveLetter Next Mydri
