网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
7、下列程序段的运行结果为（）。 Dim m（10) For i = 0 To 9 m（i) = 2 * i Next i Print m（m（3))
A．12
B．6
C．0
D．4
参考答案和解析
A
更多 “7、下列程序段的运行结果为（）。 Dim m（10) For i = 0 To 9 m（i) = 2 * i Next i Print m（m（3))A．12B．6C．0D．4” 相关考题
考题
下面是用冒泡法将5个整数按升序排列，请将程序补充完整。Sub GASR（）Dim mm=Array（10, 1, 5, 6, 7）For i=0 To 3For j= 【13】If m（i） =m（j） Then【14】m（i） =m（j）m（j） =tEnd IfNext j【15】For i=0 To 4Print m（i）Next iEnd Sub
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Sub BTC（oldCopy（） As Integer, newCopy（） As Integer）Dim i As IntegerFor i=LBound（oldCopy（） ） To UBound（oldCopy（） ）newCopy（i） =oldCopy（i）Next iEnd SubPrivate Sub Command1_Click（）Dim m（10） As Integer, n（10） As IntegerFor i=1 To 10m（i） =i iNext iCall BTC（m, n）Print n（5）End Sub程序运行后，单击命令按钮输出结果为（ ）。A．0B．2C．10D．25
考题
有如下程序：Private Sub Command1_Click（）Dim k As Integer, m As IntegerDim p As Integerk=4: m=1p=PC（k, m） : Print p;p=PC（k, m） : Print pEnd SubPrivate Function PC（a As Integer, b As Integer）Static m As Integer, i As Integerm=0: i=2i=i + m + 1m=i + a + bPC=mEnd Function程序运行后，输出的结果为（ ）。A．4 6B．6 6C．8 8D．10 12
考题
下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i，i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print xA．3B．4C．5D．6
考题
下列程序运行后，输出结果为( )。 Dim a() a＝Array(1,3,5,7,9) s＝0 For i＝1 To 4 s＝s*10+a(i) Next i Print sA．1357B．3579C．7531D．9753
考题
（20）运行下列语句后，输出的结果是 Option Base 1 Dim a i=1 A=Array(1,-2,9,0,-1,9) Do K=a(i) For m=10 To k Step -2 Next m Print n+m i=i+1 Loop While Abs(m+n)27A.3 27 -8 B.3 -8 27 C.-8 27 3 D.-8 3 27
考题
（25）下列程序段的输出结果是 Dim M(5,5),S(5) For i=1 To 5 S(i)=0 For j=1 To 5 M(i,j)=i+j S(i)=S(i)+M(i,j) Next j Next i For Each x In S Print x； Next xA.20 23 24 35 40 B.20 25 30 35 40 C.20 23 25 35 40 D.20 25 35 40 45
考题
下列程序段的执行结果为______。 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
考题
有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC(k，m)：Print p； p=PC(k，m)：Print p End Sub Private Function PC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i + m + 1 m=i + a + b PC=m End Function 程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12
考题
有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4:m=1 p=PPC(k,m):Print op； p=PPC(k.m):Print op End Sub Private Function PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0:i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12
考题
下列程序执行后的输出结果是______。 main() { int m[][3]={1,4,7,2,5,8,3,6,9} int i,k=2 for(i=0;i＜3;i++) {print("%d",m[k][i]);} }A．456B．258C．369D．789
考题
下列程序段的输出结果为( )。 Dim M(5,5), S(5) For i = 1 To 5 S(i) = 0 For j = 1 To 5 M(i, j) = i + j S(i) = S(i) + M(i, j) Next j Next i For Each x In S Print x; Next xA．2023 24 3540B．2025 30 3540C．2023 25 35 40D．2025 354045
考题
请阅读程序： Private Sub Form. Click（ ） m=1 For i=4To 1 Step-1 Print Str(m)；m=m+1 For j=1 To i Print"*"： Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是（ ）。A.1**** 2*** 3** 4*B.4**** 3*** 2** 1*C.**** *** ** *D.* ** *** ****
考题
下列程序执行后，执行的结果是______ 。 Dim M(2) For i = 1 To 2 M(i) = 0 Next i k=2 For i = 1 To k For j = 1 To k M(j) = M(i) + 1 Print M(k): Next j Next IA．1234B．0123C．223D．2345
考题
下列程序段执行后，执行的结果是______ 。 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
考题
单击一次命令按钮之后，下更程序代码的执行结果为______ 。 Public Sub Proc(a() As Integer) Static i As Integer Do a(i) = a(i) + a(i + 1) i=i+1 Loop While i ＜ 2 End Sub Private Sub Command1_Cliek() Dim m As Integer Dim i As Integer Dim x(10) As Integer For i = 0 To 4 x(i) = i + 1 Next i For i = 1 To 2 Call Proc (x) Next i For i = 0 To 4 Print x(i); Next i End SubA．3 4 7 5 6B．3 5 7 4 5C．1 2 3 4 5D．1 2 3 5 7
考题
单击命令按钮后，下列程序代码的执行结果是______。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
考题
单击一次命令按钮后，下列程序的执行结果为Private Sub Command1_Click()Dim m As Integer，I As Integer，x(10) As IntegerFor I=0 To 4：x(I)=I+1：Next IFor I=1 TO 2：Call Prioc(x)：Next IFor I=0 TO 3：Print x(I)；：Next IEnd SubPrivate Sub Prioc(a()As Integer)Static I As IntegerDoa(I)=a(I)+a(I+1)I=I+1Loop While I＜2End SubA．3 4 7 5B．3 5 7 4C．1 2 3 4D．1 2 3 5
考题
在窗体上画一个命令按钮，然后编写如下事件过程： Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer) Dim i AS Integer For i=LBound(oldCopy( ))To UBound(oldCopy( )) newCopy(i)=oldCopy(i) Next i End Sub Private Sub Command1 _ Click( ) Dimm(10) As Integer，n(10)As Integer For i=1 To 10 m(i) =i*i Next i Call BTC(m，n) Print n(5) End Sub 程序运行后，单击命令按钮输出结果为A．0B．2C．10D．25
考题
运行下列语句后，输出的结果是( )。 Option Base 1 Dim a i=1 a=Array(l, -2, 9, 0, -1, 9) Do k=a(i) For m = 10 To k Step -2 n=k+m Next m Print n+m i=i+1 Loop While Abs(m+n) ＜＞ 27A．3 27-8B．3-8 27C．-8 27 3D．-8 3 27
考题
下列程序段的输出结果为( )。 Dim M(5, 5), S(5) For i=1 To 5 S(i)=0 For j=1 To 5 M(i, j)=i+j S(i)=S(i)+M(i, j) Next j Next i For Each x In S Print x; Next xA．20 23 24 35 40B．20 25 30 35 40C．20 23 25 35 40D．20 25 35 40 45
考题
请阅读程序． 0ption Base 1 Private Sub Fo,m Click（ ） Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i=1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单。旨窗体，则输出结果是（ ）。A.5 7 6 8B.6 8 7 9C.7 9 8 10D.8 10 8 11
考题
运行下述语句后，输出的结果是( )。 Option Base 1 Dim a i=1 a = Array(1,-2,9,0,-1,9) Do k = a(i) For m = 10 To k Step -2 n=k+m Next m Print n + m i=i+1 Loop While Abs(m + n)＜＞27A．3 27-8B．3-8 27C．-8 27 3D．-8 3 27
考题
有如下程序：Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：Print opEnd SubPrivate Function，PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i+m+1 m=i+a+b PPC=mEnd Function程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12
考题
下列程序段的执行结果为( )。 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
考题
运行下列语句后，输出的结果是( )。 Option Base 1 Dim a i=1 a=Array(1,-2,9,0,-1,9) Do k=a(i) For m=10 To k Srep -2 n=k+m Next m Print n+m i=i+1 Loop While Abs(m+n)＜＞27A．3 27-8B．3-8 27C．-8 27 3D．-8 3 27
考题
下列程序段的执行结果为______。 Dim m(3,3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i,i)=i Next For i=0 T0 3 For j=0 To 3 x=x+m(i, j) Next Next Print xA．3B．4C．5D．6
考题
以下程序段的输出结果是（） int a[7]={9，15，7，-3，0，11，15}，m，n，i；for（m=n=0，i=1；i7；i++） if（a[i]a[m]）m=i； elseif（a[i]printf（"%d，%d/n"，m，n）A、15，-3B、6，3C、1，3D、2，4
热门标签
最新试卷
