下面过程运行之后，则变量J的值为( )。 Private Sub Fun() Dim f AS Integer J-5 Do J=J*2

A．3

B．10

C．9

D．7

[单选题]下面过程运行之后，则变量J的值为( )。 Private Sub Fun() Dim J As Integer J=5 Do J=J+2A．3B．7C．9D．11

[单选题]下面过程运行之后，则变量J的值为( )。 Private Sub Fun() Dim J As Integer J＝5 Do J＝J*2A．3B．10C．9D．7

[单选题]运行下面程序代码后，变量J的值为______。 Private Sub Fun () Dim J as Integer J=10 DO J=J+3 Loop While J＜19 End SubA．10B．13C．19D．21

[单选题]运行下面程序代码后，变量J的值为______。 Private Sub Fun() Dim J as Integer J=10 Do J=J+3 Loop While J＜19 End SubA．10B．13C．19D．21

[单选题]运行下面程序代码后，变量J的值为______。Private Sub Full () Dim j as Integer J=10 DO J=J+3 Loop While J<19 End SubA．10B．13C．19D．21

[单选题]下面程序运行后的结果是( )。 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 Commandl_click()D．im a As Integer，b As Integera=InputBox(“请输入整数”)b=InputBox(“请输入整数”)pro apro bC．allpro(a+B)E．nd SubPrivate Sub pro(n As Integer)While(n>0)Print n Mod 10；n=n＼10WendPrintE．nd Sub此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序

[单选题]下面程序运行之后，变量x的值是（）。A . 2B . 3C . 4D . 6

[单选题]下列程序运行时输出的结果是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 Command1_Click()D．im FirStr As StringF．irSt="abcdef"Print Pat(FirStr)E．nd SubPrivate Function Pat(xStr As String) As StringD．im tempStr As String，strLen As IntegertempStr=""strLen=Len(xStr)i=1D．o While i＜=Len(xStr)-3tempStr=