下列程序的运行结果是________。Dim a%(3,3),i%,j%For i=1 to 3a(I,i)=1:a(I,4-i)=1next iFor i=1 to 3For j=1 to 3Print a(I,j);next jPrintnext i

相似题目

• 以下程序的输出结果是 _____ 。Dim aa=Array（1，2，3，4，5，6，7）For i=Lbound（a） To Ubound（a）a（i）=a（i）* a（i）Next iPrint a（i）

  查看最佳答案

• 有以下程序，程序的运行结果是 _________ 。 #include void main() { char ch='Z'; ch=(ch-'A'+1)%26+'A'; putchar(ch); }

  查看最佳答案

• 下列程序的执行结果为________Option Base 0Private Sub Command1_Click()Dim aa = Array(a, b, c, d, e, f, g)Print a(1); a(3); a(5)End sub

  查看最佳答案

• 设有如下程序代码 ： Dim a% Public b%, c% Private Sub Form_Click() Dim b% Print a; b; c End Sub Private Sub Form_Load() Dim a% a = 5 b = 8 c = 10 End Sub 运行程序时单击窗体 ， 则在窗体上显示的是 ________ 。

  查看最佳答案

• 运行下面程序，如果输入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=

  查看最佳答案

• 运行下面程序，如果输入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 s As Integer, i As Integer i = 1: s = 1 Do i =i + s Loop Until s >20 Print i, s

  查看最佳答案

• 假定有如下的程序段： Dim intVar As Integer intVar = True Print intVar 则输出的结果是 _________ 。

  查看最佳答案

• 下列程序的执行结果是 _ ________ __ 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

  查看最佳答案

• 以下Visual Basic代码的运行结果为________。Dim a as Integer，b as Boolean ,c as Stringb=Truea=bc=ab= c + 1print a,b,c

  查看最佳答案

• 编写如下程序：Private Sub Command1_Click()Dim score As Integerscore = 90If score > 80 Thenr = 5ElseIf score > 60 Thenr = 3Elser = 1End IfPrint rEnd Sub程序运行后，单击命令按钮Command1，输出结果为（______）。

  查看最佳答案

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

  A．A(5)=5 B．A(5)=10 C．A(5)=20 D．A(5)=40

  查看最佳答案

• 下列程序段的执行结果为______。Dim M（10), N（10)I=3For T = 1 To 5M（T) = TN（I) = 2 * I + TNext

  下列程序段的执行结果为______。 Dim M(10), N(10) I=3 For T = 1 To 5 M(T) = T N(I) = 2 * I + T Next T Print N(I)； M(I) A． 3 11 B．3 15 C．11 3 D．15 3

  查看最佳答案

• 下列程序段的执行结果为______。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 3 For N=1 To 3 If N=M 0r N=3-M+1 Then A(M，N)=1 Else A(M，N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M， N)； Next N Print Next M A．1 0 0 0 1 a 0 0 1 B．1 1 1 1 1 1 1 1 1 C．0 0 0 0 0 0 0 0 0 D．1 0 1 0 1 0 1 0 1

  查看最佳答案

• 若输入000051，下列程序的运行结果为______。main（){unsigned int a； scanf（"%o"，&a)； printf（

  若输入000051，下列程序的运行结果为______。 main(){ unsigned int a； scanf("%o"，&a)； printf("%o\n"，getbits(a))；}getbits(value)unsigned int value；{ int i，j，m，n； unsigned int z，a，q； z=0； for(i=1；i＜=15；i+=2) { q=1； for(j=1；j＜=(16-i-1)/2；j++) q=q*2； a=value＞＞(16-i)； a=a＜＜15； a=a＞＞15； z=z+a*q； } return(z)；} A．6 B．51 C．51 D．10

  查看最佳答案

• 以下程序段运行的结果是 ______。Dim a（-1 To 5)As BooleanDim flag As Booleanflag=FalseDim i A

  以下程序段运行的结果是 ______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print j A．20 B．7 C．35 D．8

  查看最佳答案

• 下列程序段的执行结果为______ 。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(4) N= 3 A(1) =1 For K=0 To N-1 For L=1 To K+1 X=K+2 -L A(X)=A(X)+A(X-1) If K＜N-1 Then Exit For Print A(X)； Next L Next K A． 1 2 1 B．1 2 3 C．2 4 6 D．1 3 1

  查看最佳答案

• 以下程序段运行的结果是______。Dim a（-1 To 5) As BooleanDim flag As Booleanflag = FalseDim i

  以下程序段运行的结果是______。Dim a(-1 To 5) As BooleanDim flag As Booleanflag = FalseDim i As IntegerDim j As IntegerDo Until flag = True For i=-1 To 5 j=j+1 If a(i)= False Then a(i)= True Exit For End If If i = 5 Then flag = True End If NextLoopPrint j A．20 B．7 C．35 D．8

  查看最佳答案

• 阅读下列程序,第二行的运行结果是________,第三行的运行结果是_______,第五行的运行结果是_________。 class A{ float a; static float b; void setA（）; } }

  查看最佳答案

• 下面程序片段的运行结果是____ 。 int a[6],i; for（）; }

  A．-4 0 4 0 4 B．-4 0 4 0 3 C．-4 0 4 4 3 D．-4 0 4 4 0

  查看最佳答案

• 下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，设数组中有10个元素。完成下列程序。 Private Sub Backward（a（))Dim i As Integer, Tmp As IntegerFor i=1 To 5 Tmp=a（i) ______ ______Next i End Sub

  查看最佳答案

• 单击命令按钮后，下列程序代码的执行结果是______ 。 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

  查看最佳答案

• 下列程序段运行结束后，消息框中的输出结果是_______。 Dim C As Boolean A=Sqr（3) B=Sqr（2) C=a＞b MsgBox C

  A．-1 B．0 C．False D．True

  查看最佳答案

• 下面程序运行时，若输入395，则输出结果是_______________。 Private Sub Command1_Click（) Dim x% x = InputBox（"请输入一个3位整数") Print x Mod 10, x 100, （x Mod 100) 10 End Sub

  A．3 9 5 B．5 3 9 C．5 9 3 D．3 5 9

  查看最佳答案