网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下面程序的执行结果是（ ）。 Private Sub Command1Click（ ） a=10 For k=1 To 5 Step-I a=a-k Next k Print a；k End Sub
A.-5 6
B.-5 -5
C.10 0
D.10 1
参考答案
更多 “ 下面程序的执行结果是（ ）。 Private Sub Command1Click（ ） a=10 For k=1 To 5 Step-I a=a-k Next k Print a；k End SubA.-5 6B.-5 -5C.10 0D.10 1 ” 相关考题
考题
有如下程序，该程序的执行结果是【 】。Private Sub Command1_lick()For i= 1 To 4x= 4For j =1 To 3x =3For k=1 To 2X= K+5Next kNext jNext iPrint xEnd Sub
考题
（ 27 ）下面程序执行时，在窗体上显示的是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 SubA ） 3B ） 5C ） 7D ）9
考题
（ 30 ）下面程序的输出结果是Private Sub Command1_Click()ch$= ” ABCDEF ”proc chPrint chEnd SubPrivate Sub proc(ch As String)S= ””For k=Len(ch) To 1 Step-1s=sMid(ch,k,1)Next kch=sEnd SubA ） ABCDEFB ） FEDCBAC ） AD ） F
考题
下列程序 Option Base 1 Const upl = 10 Private Sub Form_click() Dim a(upl) As Integer k = －1 For i = 1 To upl a(i) = i * k k = －1 * k Next i For i = 1 To 10 Print a(i); Next End Sub 运行时输出的结果是 () 。
A. 1 3 5 7 9 10B. -1 -3 -5 -7 -9C. -1 2 -3 4 -5 6 -7 8 -9 10D. 1 -2 3 -4 5 -6 7 -8 9 -10
考题
阅读以下程序：Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1Do While k ＜= nm=m+2k = k + 1LoopPrint mEnd Sub单击窗体程序的执行结果是【 】。
考题
下面程序的执行结果是（ ）。Private Sub Command1Click（ ）a=10For k=1 To 5 Step-Ia=a-kNext kPrint a；kEnd SubA.-5 6B.-5 -5C.10 0D.10 1
考题
执行下面的程序，消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=StrMid(S，i，1)Next iMsgBox StrEnd Sub
考题
下面程序的输出结果是【 】。Private Sub Form_Click()i=0Do Until 0i=i+1if i＞10 then Exit DoLoopPrint iEnd Sub
考题
下列程序的运行机结果是【 】。Private Sub Form_ Click()Dim k As Integern= 5m= 1k= 1Dom=m+2k= k+1Loop While k＜=nPrint mEnd Sub
考题
阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是A．3B．9C．14D．21
考题
下面程序的执行结果是Private Sub Commandl_Click()a=1OFor k=l To 5 Step一1a=a--kNext kPrint a；kEnd SubA．一5 6B．一5—5C．10 0D．10 1
考题
在窗体上有一个命令按钮，然后编写如下事件过程： Private Sub Command1Click（ ） Dim a(5)As String For i=1，To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是（ ）。A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息
考题
执行下面的程序，消息框里显示的结果是 【 】 。Private Sub Form_Click()Dim Str As String， K As IntegerStr="ab"For k=Len(Str) TO 1 Step-1Str=Str Chr(Asc(Mid(Str，k，1))+k)Next kMsgBox StrEnd Sub
考题
执行下面的程序，消息框的输出结果是 【 】。Option BaselPrivate Sub Commandl Click()Dim a(10)，P(3)As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iMsgBox kEnd sub
考题
下面程序的输出结果是【 】。Private Sub Form_Click()i＝0Do Until 0i＝i＋1if i10 then Exit DoLoopPrint iEnd Sub
考题
有如下程序，该程序的执行结果是【 】。Private Sub Command1 Click()For i=1 To 4x=4For j=1 To ix =3For k=1 To 2x= x + 5Next kNext jNext iPrint xEnd Sub
考题
下面程序执行时，在窗体上显示的是。Private Sub Commandl_ClickDim a(10)For k=1 TO 10a(k)=11-kNext kPrinta(a(3)＼a(7)Mod a(5))End SubA．3B．5C．7D．9
考题
执行下面的程序，消息框的输出结果是【 】。Option Base1Private Sub Command1_Click( )Dim a(10)，P(3)As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iMsgBox kEnd sub
考题
下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=sMid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F
考题
执行下面的程序，消息框里显示的结果是( )。Private Sub Form_Click()Dim Str As String,S As String,k As IntegerS=StrFor k=Len(Str) To 1 Step -1S=S (Mid(Str,k,1)Next kEnd Sub
考题
阅读下列程序： Private Sub Command1_Click() Dim i As Integer, k As Integer k=2 For i=1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function单击命令按钮，执行程序，输出结果是( )。A．2 3 4B．3 4 5C．5 6 7D．3 5 6
考题
窗体上有一个名为Command1的命令按钮，并有如下程序： Private Sub Command1Click（ ） Dim a(10)，x％ Fork=1 To 10 a(k)=Int(Rnd*90+10) x=x+a(k)Mod 2 Next k Print X End Sub 程序运行后，单击命令按钮，输出结果是（ ）。A.10个数中奇数的个数B.10个数中偶数的个数C.10个数中奇数的累加和D.10个数中偶数的累加和
考题
窗体上有一个名为Command1的命令按钮，并有如下程序：Private Sub Command1Click（ ）Dim a(10)，x％Fork=1 To 10a(k)=Int(Rnd*90+10)x=x+a(k)Mod 2Next kPrint XEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A.10个数中奇数的个数B.10个数中偶数的个数C.10个数中奇数的累加和D.10个数中偶数的累加和
考题
某人设计了下列程序用于计算并输出5!(5的阶乘):Private Sub Command1_Click()t=0For k=5 To 2 Step -1t=t*kNext kPrint tEnd Sub执行程序时,发现结果是错误的。下列修改方案中能够得到正确结果的是_______A. 把t=0改为t=1B. 把For k=5 To 2 Step -1改为For k=5 To 1 Step -1C. 把For k=5 To 2 Step -1改为For k=1 To 5D. 把Next改为Next t
考题
执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STRCHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUBA．ABCEB．ABCDC．ABDBD．ABFB
考题
（25）下面程序的执行结果是Private Sub Command 1 Click()a=10For k=1 To 5 Step-1a=a-kNext kPrint a; kEnd SubA）-5 6B）-5 -5C）10 0D）10 1
考题
单选题下面程序执行时在窗体上显示的是（）。 Private Sub Command1_Click（） Dim a（10） For k=1 to 10 a（k）=11-k Next k Print a（a（3）/a（7）Mod a（5）） End SubA
3B
5C
7D
9
热门标签
最新试卷
