以下这段在FORM的CLICK事件中的程序运行后的结果是（）.

CurrentX=1500

CurrentY=500

Line-（3000，2000）

Line-（1500，2000）

Line-（1500，500）

[单选题]下面程序运行后的结果是( )。 Private Sub Form_Click() Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End SubA．6B．72C．144D．432

[单选题]下面程序运行结果是( )。 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() For I=3 to 1 step-1 Print Spc(10-I)； For j=1 to 2*I-1 print"*"; Next j Print Next I End SubA．***** *** *B．* *** *****C． * *** *****D． * *** *****

[单选题]下列程序的运行结果是 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() 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() 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．天天向上清华大学天上人间程序设计

[单选题]当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 SubA．5 5 7B．5 7 5C．7 5 5D．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()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．天天向上清华大学天上人间程序设计