单选题
下面程序的执行结果是（ ）。
下面程序的执行结果是（ ）。
Private Sub Command1_Click()
a = 10
For k = 1 To 5 Step -1
a = a - k
Next k
Print a; k
End Sub
发布于 2022-05-11 10:17:45
登录后免费查看答案
关注者
0
被浏览
15
1 个回答
推荐阅读
-
下列程序执行时，在窗体上显示的是（ ）。Private Sub Command1_Click( )Dim a(10)For k=1 To 10a(k)=11-kNext kPrint a(a(3)\a(7)Mod a(5))End Sub
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名为Command1的命令按钮，然后编写以下程序：Private Sub Command1_Click()Dim a(10) As IntegerFor k = 10 To 1 Step -1a(k) = 20 - 2 * kNext kk = k + 7Print a(k - a(k))End Sub运行程序，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览15 1答案
-
下列程序的输出结果是（ ）。Private Sub Command1_Click( )ch＄="ABCDEF"proc ch∶Print chEnd SubPrivate Sub proc(ch As String)s=“ “For k=Len(ch) To 1 Step -1s=s&Mid(ch,k,1)Next kch=sEnd Sub
2022-05-11 关注 0 浏览12 1答案
-
下面程序的输出结果是（ ）。Private Sub Co mmand1＿Click（）ch$＝＂ABCDEF＂proc ch Print chEnd SubPrivate Sub proc（ch As Stri ng）S＝＂＂For k ＝Len（ch）To 1Step －1s ＝s ＆Mid（ch ，k ，1）Next kch ＝sEnd Sub
2022-05-11 关注 0 浏览13 1答案
-
下面程序的输出结果是（ ）。Private Sub Co mmand1＿Click（）Ch$＝＂ABCDEF＂proc ch ：Print chEnd SubPrivate Sub proc（ch As Stri ng）s ＝＂＂For k ＝Len（ch）To 1Step －1s ＝s ＆Mid（ch ，k ，1）Next kch ＝sEnd Sub
2022-05-11 关注 0 浏览10 1答案
-
在窗体上画一个名为Command1的命令按钮，然后编写以下程序：Private Sub Command1 Click（ ）Dim a(10)As IntegerFork=10 To 1 Step-1a(k)=20-2*kNext kk=k+7Print a(k-a(k))End Sub运行程序，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览14 1答案
-
下面程序执行时，在窗体上显示的是（ ）。Private Sub Co mmand1＿Click（）Di ma（10）For k ＝1To 10a（k）＝11kNext kPrint a（a（3）＼a（7）Mod a（5））End Sub
2022-05-11 关注 0 浏览13 1答案
-
窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command1_Click()Dim a(10), x%For k = 1 To 10a(k) = Int(Rnd * 90 + 10)x = x + a(k) Mod 2Next kPrint xEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览13 1答案
-
窗体上有一个名为command1的命令按钮，并有下面的程序：private sub comand1_click()dim arr(5) as integerfor k=1 to 5arr(k)=knext kprog arr()for k=1 to 5print arr(k)next kend subsub prog(a() as integer)n=ubound(a)for i=n to 2 step -1for j=1 to n-1if a(j)t=a(j):a(j)=a(j+1):a(j+1)=tend ifnext jnext iend sub程序运行时，单击命令按钮后显示的是
2022-05-11 关注 0 浏览15 1答案
-
窗体上有一个名为Command1的命令按钮，并有下面的程序：Private Sub Command1 Click（ ）Dim arr(5)As Integer ．For k=1 To 5art(k)=kNext kprog art（ ）For k=1 T0 5Print art(k)；Next kEnd SubSub prog(a（ ）As Integer)n=UBound(a)For i=n To 2 step-1if a(j)<A(J十1)THENt=a(j)：a(1)=a(j+1)；a(j+1)=tEnd IfNext jNext iEnd Sub程序运行时，单击命令按钮后显示的是（ ）。
2022-05-11 关注 0 浏览16 1答案
