网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
6、下列程序段的执行结果为（）。 x = 6 For k = 1 To 10 Step -2 x = x + k Next k Print k; x
A．-1 6
B．-1 16
C．1 6
D．11 31
参考答案和解析
D
更多 “6、下列程序段的执行结果为（）。 x = 6 For k = 1 To 10 Step -2 x = x + k Next k Print k; xA．-1 6B．-1 16C．1 6D．11 31” 相关考题
考题
设k为整型变量,且有以下程序段: if(k0) then if k>5 then if k2 then x:=3 else x:=4 用case语句改写上述程序,执行效果一样的是( )。
Acase k of 1,2:x:=4; 3,4,5:x:=3; 8,9,10:x:=1; 6,7:x:=0 endBcase k of 1:x:=4; 2,3,4,5:x:=3; 8,9,10:x:=1; 6,7:x:=0 endCcase k of 1,2:x:=4; 3,4,5:x:=3; 9,10:x:=1; 6,7,8:x:=0 endDcase k of 1,2,3:x:=4; 4,5:x:=3; 8,9,10:x:=1; 6,7:x:=0 end
考题
（35）有下列程序段，单击命令按钮执行程序后，输出结果是 。Option Base 1Private Sub Commandl_Click() Dim x x=Array(23,-5,17,38,-31.46,11,8,5,-4) s1=0 s2=0 For k=1 To 10 If(x(k)0)Then s1=sl+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA.148 B.40 C.-40 D.3.7
考题
（23）下列程序运行时输出的结果是 Option Base 1 Const a=10 Priate Sub Form_Click() Dim x(a) As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub A.1 3 5 7 9 10 B.-1 -3 -5 -7 -9 C.-1 2-3 4-5 6-7 8-9 10 D.1-2 3-4 5-6 7-8 9-10
考题
下列程序的执行后,X的结果为()。 Private Sub Command1_Click( ) x=0 For i=1 to 3 x=1 For j=1 to 4 x=2 For k=1 to 5 x = x ＋ 2 Next k Next j Next i Print x End Sub
A. 12B. 24C. 36D. 48
考题
下列程序段的执行结果为()。 K=0 For J=1 to 2 For I = 1 to 3 K =I＋1 Next I For I = 1 to 7 K = K＋1 Next I Next J Print K
A. 6B. 10C. 11D. 16
考题
阅读下列程序。Option Base 1Private Sub Form. Click()Dim x(3,3)For j=l to 3For k=l to 3If j=k then x(j,k)=lIf j＜＞k then x(j,k)=kNext kNext jCall fun(x())End SubPrivate Sub fun(x() )For j=1 to 3For k=1 to 3Print x(j,k);Next kNext jEnd Sub运行程序时，输出结果为【 】
考题
下列程序的运行结果为【 】。A="1"B="2"A=Val (@A@+Val (@B@B=Val ("12")If A＜＞B Then Prink A-B Else Print B-A(11)阅读下列程序:Option Base 1Private Sub Form. Click()Dim x(3,3)For j=1 to 3For k=1 to 3If j=k then x(j,k)=1If j＜＞ k then x(j,k)=3Next kNext jCall fun(x())End SubPrivate Sub fun(a())For j=l to 3For k=1 to 3Print a (j.k);Next kNext jEnd Sub运行程序时，输出的结果是【 】
考题
下列程序段的执行结果为______。 K=0 For J = 1 To 2 For I = 1 To 3 K=I+1 Next I For I = 1 To 7 K=K+1 Next I Next J Print KA． 10B．6C．11D．16
考题
阅读下列程序。Option Base 1Private Sub Form CliCk()Dim x(3,3)For j=1 to 3For k=1 to 3If j=k then x(j,k)=1If j＜＞ k then x(j,k)=3Next kNext jCall fun(x())End SubPrivate Sub fun(a())For j=1 to 3For k=1 to 3Print a (j,k)；Next kNext jEnd Sub运行程序时，输出的结果是【 】。
考题
阅读下列程序。Option Base 1Private Sub Form. _Click()Dim x(3,3)For j=1 to 3For k=l to 3If j=k then x(j,k)=1If j＜＞k then x(j,k)=kNext kNext iCall fun(x())End SubPrivate Sub fun(x())For j=1 to 3For k=1 to 3Print x(j,k)；Next kNext jEnd Sub运行程序时，输出结果为【 】。
考题
下列程序段的执行结果为 ______。 N=10 For K=N To 1 Step-1 X=Sqr(K) X=X-2 Next K Print X-2A．-3B．-1C．1D．1.16228
考题
执行下面的程序后，输出的结果是 K=1 For j=1 To 4 X=X - 1: y=0 For k=1 To 4 X=X + 1: y=y + 1 Next k Next j Print X；yA．1 4B．13 4C．12 8D．20 6
考题
有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)＞0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA．148B．40C．-40D．3.7
考题
下列程序段的执行结果为______ 。 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 KA． 1 2 1B．1 2 3C．2 4 6D．1 3 1
考题
下列程序段的执行结果为 I=4 x=5 Do I=I + 1 X=K^2 Loop Until I＞=7 Print"I="；I Print"x="；xA．I=4 x=258694B．I=7 x=256987C．I=6 x=365840D．I=7 x=390625
考题
下面程序运行后输出是 ______。 Private Sub Form_Click() for i=1 to 4 x=1 for i=1 to 3 x=3 for k=1 to 2 x=x+6 next k next j next i print x End SubA．7B．15C．157D．538
考题
下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k，"*") Print x Next End SubA．* * * * * *B．1 * 2 * 3 *C．3 * 2 * * 1 * * *D．* * * * * *
考题
下列程序段的执行结果为 ______。 N=10 For K=N To 1 Step -1 X=Sqr(K) X=X-2 Next K Print X-2A．-3B．-1C．1D．1.16227765
考题
有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_Click() Dim x x=Array(23，-5，17，38，-31，46，11，8，5，-4) s1=0 s2=0 For k=1 To 10 If(x(k)＞0)Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA．148B．40C．-40D．3.7
热门标签
最新试卷