网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or 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 0 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
参考答案
更多 “ 下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or 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 MA．1 0 0 0 1 0 0 0 1B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0 1 0 1 ” 相关考题
考题
下列程序段的执行结果是Dim A(3,3)For M = 1 To 3For N = 1 To 3If N = M Or N = 3 - M + 1 ThenA(M,N) = 1Else A(M,N) = 0 End IfNext NNext MFor M = 1 To 3For N = 1 To 3Print A(M,N)Next NPrint Next MA. 1 0 0 0 1 0 0 0 1 B. 1 1 1 1 1 1 1 1 1C. 0 0 0 0 0 0 0 0 0 D. 1 0 1 0 1 0 1 0 1
考题
有如下事件过程：Private Sub Command1_Click（）Dim m As Integer, n As Integerm=2: n=1Print "m="; m; "n="; nCall TOD（m, n）Print "m="; m; "n="; nEnd SubSub TOD（x, y）x=x ^ 2y=y ^ 3End Sub程序运行后，输出的结果为（ ）。A．m＝2，n＝1m＝1，n＝2B．m＝2，n＝1m＝4，n＝1C．m＝1，n＝2m＝1，n＝4D．m＝1，n＝2m＝2，n＝4
考题
有如下程序，运行时输出的结果是 ______。 Option Base 1 Private Sub Command1_Click() Dim a(3,3) As Integer For m=1 To 3 For n=1 To 3 a(m-1，n-1)=m+n+1 Next n Next m For m=0 To 2 For n=0 To 2 Print a(n,m)； Next n Print Next m End SubA．0 1 2 1 2 3 2 3 4B．3 4 5 4 5 6 5 6 7C．1 3 5 3 5 7 5 7 9D．2 4 6 4 6 8 6 8 10
考题
（ 24 ）在窗体上画 1 个命令按钮，并编写如下事件过程：Private Sub Command1_Click()Dim a(3,3)For m=1 To 3For n=1 To 3If n=m Or n=4-m Thena(m,n)=0End IfPrint a(m,n);Next nPrintNext mEnd Sub运行程序，单击命令按钮，窗体上显示的内容为A ）2 0 00 4 00 0 6B ）2 0 40 4 04 0 6C ）2 3 03 4 00 0 6D ）2 0 00 4 50 5 6
考题
运行下列程序段，其中“n=n+1”语句被执行的次数是( )。Dim m%, n%For m = 1 To 3For n = 1 To 6 Step 2n = n + 1Print nNextNextA、 3B、 6C、 9D、 18
考题
下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or 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 MA．1 0 0 0 1 0 0 0 1B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0 1 0 1
考题
在窗体上画1个命令按钮，并编写如下事件过程iPrivate Sub Commandl—Click()Dim a(3，3)For m=1 T0 3F0r n=1 To 3If n=m Or n=4-m Thena(m，n)=m+nElsea(m，n)：0End IfPrint a(m，n)；Next nPrimNext mEnd Sub运行程序，单击命令按钮，窗体上显示的内容为A．2 0 0B．2 0 4C．2 3 0D．2 0 0
考题
下列程序段的执行结果为Dim A(3，3)For M=1 To 3For N=1 To 3If N=M Or N=3-M+1 ThenA(M,N) =1ElseA(M,N) =0End IfNext NNext MFor M=1 To 3For N=1 To 3Print A(M,N)Next NPrintNext MA．1 0 0 0 1 0 0 0 0B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D． 1 0 1 0 1 0 1 0 1
考题
有如下事件过程： Private Sub Command1_Click( ) Dim m AS Integer，n AS Integer m=2：n=1 Print "m="；m；"n="；n Call TOD(m，n) Print "m="；m；"n="；n End Sub Sub TOD(x，y) x=x^2 y=y^3 End Sub 程序运行后，输出的结果为A．m=2，n=1 m=1，n=2B．m=2，n=1 m=4，n=1C．m=1，n=2 m=1，n=4D．m=1，n=2 m=2，n=4
考题
下列程序段的执行结果为______。 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 11B．3 15C．11 3D．15 3
考题
有如下程序，该程序的执行结果为______。 Dim k As Integer n=5 m=1 k=1 Do While k ＜= n m=m*2 k=k+1 Loop Print mA．1B．5C．32D．40
考题
阅读下面的程序： Private Sub Form_Click() Dim m，n As Integer m=InputBox("请输入M的值") m=Val(m) m1=m n=InputBox("请输入N的值") n=Val(n) n1=n Do While n＜＞0 remin=m Mod n m=n n=remin Loop Print m1，n1，m End Sub 程序运行后，单击窗体，在对话框中分别输入16和24，则程序在窗体上的输出结果为A．16 24 4B．16 24 8C．24 16 6D．24 16 8
考题
下列程序段的执行结果为______。 Dim n As Integer n=10 While n ＜＞ 0 n=n-1 Wend Print "n="; nA．n=0B．n=1C．FalseD．n=-1
考题
下列程序段的执行结果是( )。Dim A(3,3)For M=1 To 3For N=1 To 3If N=M Or N=3-M+1 ThenA(M,N)=1ElseA(N,N)=0End IfNext NNext MFor M=1 To 3For N=1 To 3Print A(M,N)Next NPrintNext MA．1 0 0 0 1 0 0 0 1B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0 1 0 1
考题
下列程序段的执行结果为 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or 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 MA．1 0 0 0 1 0 0 0 0B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0 1 0 1
考题
下面程序的运行结果是( )。 include main() {int a,s,n,m; a=2;s=0;n=1;m=1; while(m
下面程序的运行结果是( )。 include＜stdio.h＞ main() {int a，s，n，m； a=2；s=0；n=1；m=1； while(m＜=4){n=n*a；s=s+n；++m；} printf("s=%d"，s)； }
考题
下列程序段执行后，执行的结果是______ 。 Dim M(10) Dim N(10) i=3 For j = 1 To 5 M(j) = j N(i) = 2 * i + j Next j Print N(i); M(i)A．12 4B．11 3C．3 11D．10 2
考题
阅读以下程序:includeclass kk{int m;public:static int n;kk(){m=0;1void setvalu
阅读以下程序： #include＜iostream.h＞ class kk { int m； public： static int n； kk() { m=0； 1 void setvalue() { m++； n++； } void output() { cout＜＜"m="＜＜m＜＜",n="＜＜n＜＜endl； } }； int kk::n； void main() { kk obj1，obj2； obi1．Setvalue()； obj1．output()； obj2．setValue()； Obj2．output()； } 该程序的执行结果是( )。A．m=1，n=1B．m=l，n=l m=1，n=1 m=1,n=2C．m=1，n=1D．m=1，n=1 m=2，n=1 m=2，n=2
考题
单击命令按钮后，下列程序代码的执行结果是______。Public Sub fun (a As Integer, b As Integer, c As Integer)Doa=b+ cn=n+1Loop While n ＞ 3End SubPrivate Sub command1_ click()Dim m As Integer, n As Integer, i As IntegerFor i = 0 To 2: m = n + 1: Next iFor i = 1 To 2: Call fun (m, n, i): Next iFor i = 0 To 3Print m;Next iEnd Sub
考题
以下程序段的执行结果是 ______。 Dim A(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 3 - m + 1 Then A(m, n) =m + n 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 mA． 1 1 1 1 1 1 1 1 1B．2 0 4 0 4 0 4 0 6C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0 1 0 1
考题
下列程序段的执行结果为( )。 Dim m(10),n(10) I=3 For I=1 to 5 M(t)=t N(I)=2*I+t Next t Print n(I);m(I)A．3 11B．3 15C．11 3D．15 3
考题
以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。Private Sub Command1_Click()Dim A(3，3)For M=1 To 3For N=1 To 3If N=M Or【 】ThenA(M，N)=1Else【 】=0End IfNext NNext MFor M=1 To 3For N=1 To 3Print A(M，N)；Next NPrintNext MEnd Sub
热门标签
最新试卷