当Form1_Click事件发生时，程序的输出结果是( )。 Private Sub Form_Click() Dim M As Integer，k As Integer，t As Integer M=5：k=7 Select Case M Case Is＜0 M=M+5 Case 1 To 10 t=M：M=k：k=t Case Else M=k Mod 3 End Select Print M，k，t End Sub

A．5 5 7

B．5 7 5

C．7 5 5

D．7 5 7

[单选题]当发生Form_Click事件时，下列程序的输出结果是( )。 Private m As Integer,n As Integer Private Sub Form_Click() Dim k As Integer，p As Integer k=6：p=60 Call sub1(k,p) Print m,n,m,k,p Call sub1(k,p) Print m,n,k,p End Sub Private Sub Form_Load() m=7 n=70 End Sub Public Sub

[单选题]下面程序执行时，输出的结果是( )。 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_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()D．im xx=Array("天天向上","清华大学","天上人间","程序设计")F．or i=LBound(a,1) to UBound(a,1)If Left(a(i),1)="天"Then Print a(i);NextE．nd SubA．天天向上B．天天向上天上人间C．出错信息D．天天向上清华大学天上人间程序设计

[单选题]下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array("天天向上"，"清华大学"，"天上人间"，"程序设计") For i=LBound(a,1)to UBound(a,1) If Left(a(i),1)="天"Then Print a(i)； Next End SubA．天天向上B．天天向上天上人间C．出错信息D．天天向上清华大学天上人间程序设计

[单选题]下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End SubA．天天向上B．天天向上天上人间C．出错信息D．天天向上清华大学天上人间程序设计

[单选题]下面程序执行的结果是______。 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() 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() I=0 DoUntil0 i=i+1 if i＞10 then Exit Do Loop Printi End SubA．0B．10C．11D．出错