下面程序运行结果是( )。 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 Sub

A．_35_2510

B．25102510

C．_35_35_

D．2510_35_

[单选题]下列程序的运行结果是 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( )D．im a As Integera = 1F．or i = 1 To 5C．all fun1(a)Next iPrint aE．nd SubPrivate Sub fun1(x)y = 2D．ox = x + yLoop Until x > 10E．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．5B．1 2 3 4 5C．19D．7

[单选题]下列程序运行时输出的结果是 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() 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() 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 xx = 0Do While x < 10x = x £« 3LoopMsgBox x运行下列程序：Private Sub form_Click( )D．im xx = 0D．o While x < 10x = x + 3LoopMsgBox xE．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．0B．3C．10D．12

[单选题]运行下列程序：Private Sub Form_Click()D．im sum As IntegerD．im i As Integersum = 0F．or i =12.4 To3.1 Step -3.8sum = sum + iNext iD．ebug.Print sumE．nd Sub单击窗体后，则在立即窗口上输出结果是()。A．15B．- 0.7C．24D．0