下列程序的执行结果是( )。 Privaae Sub Form_Activate Dim score(3)As Integer,total As Integer Dim aa_score As Variant score(1)=50:score(2)=14:score(3)=36 total=0:i=0 For Each aa_score In score i=i+1 total=total+aa_score Print i,aa_score,total Next End Sub

A．1 0 0 2 50 50 3 14 64 4 36 100

B．1 50 50 2 14 64 3 36 100

C．0 50 50 1 14 64 2 36 100 3 36 100

D．0 0 0 1 50 50 2 14 64

[单选题]下面程序执行的结果是______。 Private Sub Form_ Click() A＄=“123”：B＄=“456” C=Val(A＄)+Val(B＄) Print C/100 End SubA． 123B．3C．5D．579

[单选题]下面程序执行的结果是( )。 Private Sub Form_Click() AS="123"：B$="456" C=Val(A$)+Val(B$) Print C/100 End SubA．123B．3C．5D．579

[单选题]下面程序执行时，输出的结果是( )。 Private Sub Form_Click() DimiASInteger,j As Integer i=10 Do i=i+j forj=10 toistep-3 i=i+j nextj Loop Whilei＜50 Printi;j End SubA．50 10B．50 9C．57 10D．59 9

[单选题]下列程序的运行结果是( )。 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

[单选题]下列程序的运行结果是 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

[单选题]下面程序运行结果是( )。 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End SubA．_35_2510B．25102510C．_35_35_D．2510_35_

[单选题]下列程序运行时输出的结果是( )。 Private Sub Form_Click() Dima a=Array("天天向上"，"清华大学"，"天上人间"，"程序设计") forI=Lbound(a，1) to Ubound(a，1) ifleft(a(i)，1)="天"then print a(i)； nextI End SubA．天天向上B．天天向上天上人间C．出错信息D．天天向上清华大学天上人间程序设计

[单选题]下面的程序运行结果是( )。 Private Sub Form_Click() I=0 DoUntil0 i=i+1 if i＞10 then Exit Do Loop Printi End SubA．0B．10C．11D．出错

[单选题]下面的程序运行结果是( )。 Private Sub Form_Click() i=0 Do i=i+1 if i＞10 then Exit Do Loop Until i＜10 Print i End SubA．0B．1C．10D．11

[单选题]运行下列程序，单击窗体后输出的结果是( )。Private Sub Form_Click()D．im aD．im s As Integer, i As Integera = Array(1, 2, 3, 4, 5, 6)s = 1F．or i = 5 To 1 Step -2s = s * a(i)Next iPrint sE．nd SubA． 15B． 48C． 120D． 720