网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
（32）运行下列程序，结果是
Private Sub Command32_Click()
f0=1:f1=1:k=1
Do While k<=5
f=f0+f1
f0=f1
f1=f
k=k+1
Loop
MsgBox "f="&f
End Sub
A）f=5
B）f=7
C）f=8
D）f=13
参考答案
更多 “ （32）运行下列程序，结果是Private Sub Command32_Click()f0=1:f1=1:k=1Do While k=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox "f="fEnd SubA）f=5B）f=7C）f=8D）f=13 ” 相关考题
考题
运行下列程序，结果是Private Sub Command32_Click()f0=1:f1=1:k=1Do While k=5f=f0+f1f0=flf1=fk=k+1LoopMsgBox“f=”＆fEnd SubA．f=5B．f=7C．f=8D．f=13
考题
下列程序的运行结果是( )。 PriVate Sub Form_CUCk() Dimk As Integ＜er n=5 m=1 k=1 Do m=m+2 k=k+1 Loop Until k＞n Printm End SubA．1B．12C．11D．32
考题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim aS，b$，c$，k％a=”ABCD”b=”123456”c=””k=1Do While k=Len(a) Or k=Len(b)If k=Len(a)Thenc=cMid(a，k，1)End IfIf k=Len(b)Thenc=cMid(a，k，1)End Ifk=k+1LoopPrint cEnd Sub运行程序，单击命令按钮，输出结果是( )。A．123456ABCDB．ABCDl23456C．D6C584A321D．A182C3D456
考题
在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：Private Sub Command 1_Click()Dim aa=Array(1,2，3，4)i=3：i=1Do While i=0s=s+a(i)*ji=i-1j=j*10LoopPrint sEnd Sub运行上面的程序，单击命令按钮，则输出结果是( )。A．4321B．123C．234D．1234
考题
阅读以下程序：Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1Do While k ＜= nm=m+2k = k + 1LoopPrint mEnd 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运行程序时，输出的结果是【 】
考题
在窗体上画一个命令按钮，然后编写如下程序：Dim k As Longk=1Do While numLoopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As LongMsgBox rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为( )。
考题
某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为【 】。Private Sub Form_Click()Dim k as Integer， n as Integer，m as Integern=10 ：m=1 : k=1Do While k＜=nm=m*2k=k+1LoopMsgBox mEnd 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() k=0 Do While k ＜ 70 k=k+2 k=k*k+k a=a+k Loop Text1．Text=a End Sub 程序运行后，文本框中显示的是A．20B．32C．44D．78
考题
下列程序段的运行结果是：Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I＞n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。A．3B．5C．6D．8
考题
阅读下列程序： 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) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后，单击命令按钮输出结果是A．234B．345C．567D．356
考题
下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End SubA．1B．12C．11D．32
考题
阅读下列程序。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运行程序时，输出的结果是【 】。
考题
运行下列程序，显示的结果是Private Sub Command34_Click()i=0Doi=i+1Loop While i10MsgBox iEnd SubA．0B．1C．10D．11
考题
阅读以下程序：Prlvate Sub Form_Click()Dim k，n，m As Integern=10m=1k=1Do While k＜=nm=m*2k＝k+1LoopPrint mEnd Sub程序运行后，单击窗体，输出结果为【 】。
考题
为某个窗体编写如下事件，单击窗体，消息框显示的结果为【 】。Private Sub Form_Click( )Dim k As Integer ,n As Integer ,m As Integern=10:m=1:k=1Do While k＜=nm=m*2k=k+1LoopMsgBox mEnd 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
考题
以下程序运行后输出的结果是 ______。 Option Base 1 Private Sub Form_Click() Dim A(20) For K=1 To 20 A(K)=K^2 Next K Print A(K) End SubA．20B．441C．400D．出错信息
考题
运行下列程序，结果是（ ）。 PrivateSub Command32_click f0=1：fl=1：k=1Do While k=5f=f0+f1 f0=fl fl=f k=k+1 Loop MsgBox”f=”＆f End SubA.f=5B.f=7C.f=8D.f=13
考题
下列程序的运行结果是( )。 Private Function myfun(m, n) Do While m ＞ n Do While m＞n:m=m-n:Loop Do while n＞m:n=n-m:Loop Loop myfun=m End Function Private Sub Command1_Click() Print myfun(9, 8) End SubA．2B．1C．4D．3
考题
下列程序的运行结果是（ ）。Private Function myfun(m，n)Do while mnDo While mn：m=m-n：LoopDo While nm：n=n-m：LoopLoopmyfun=mEnd FunctionPrivate Sub Command1_Click（ ）print myfun(9，8)End SubA.2B.1C.4D.3
考题
运行下列程序，结果是（ ）。PrivateSub Command32_clickf0=1：fl=1：k=1Do While k=5 f=f0+f1f0=flfl=fk=k+1LoopMsgBox”f=”＆fEnd SubA.f=5B.f=7C.f=8D.f=13
考题
下列程序运行后的输出结果是 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．* * * * * *
考题
下列程序运行后的输出结果是______。Private Sub f(k，s)s=1For j=1 To ks=s*jNextEnd SubPrivate Sub Command1_Click()Sum=0For i=1 To 3Call f(i，s)Sum=Sum+sNextPrint SumEnd Sub
热门标签
最新试卷