单项选择题

下面程序执行时，输出的结果是( )。
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 Sub

A．50 10
B．50 9
C．57 10
D．59 9
<上一题 目录 下一题>
热门 试题

单项选择题
有以下程序： Option Base 1 Dimair()As Integer Private Sub Form_Click() Dimi As Integer,j As Integer ReDimalt(3，2) Fori=1 To 3 Forj=1 To 2 alt(i，j)=i*2+j Nextj Nexti ReDimPreservearr(3，4) Forj=3 To 4 alt(3，j)=j+9 Nextj Print arr(3，2)；arr(3，4) End Sub 程序运行后，单击窗体，输出结果为( )。
A．8 13
B．0 13
C．7 12
D．0 0
单项选择题
有如下函数过程： FunctiOngyS(By Val X As Integer，ByValy As Integer)As Integer DOWhiley＜＞0 reminder=x Mody X=y y=reminder Loop gys=x End FunctiOn 以下是调用函数的事件过程，该程序的运行结果是，( )。 PriVate Sub Command7_Click() Dima As Integer Dimb As Integer a=100 b=25 x=gys(a，B. PrintX End Sub
A．0
B．25
C．50
D．100
相关试题