单项选择题

窗体上有一个名称为Command1的命令按钮，并有如下程序：　　Private Sub Command1 Click() 　　x=15 　　Do While x>0 　　 x=x-3 　　 x=IIf(Int(x／5)=x／5，x+2，x) 　　Loop 　　Print x 　　End Sub 　　程序运行后，单击命令按钮Command1，输出结果为( )。

A．0
B．-1
C．-2
D．-_3

<上一题目录下一题>

热门试题

单项选择题

在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1 KeyPress(KeyAscii As Integer) If Chr(KeyAscii)<> Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1 Click() Dim m As String，i As Integer For i=Len(ss)To 1 Step-1 m=m+Mid(SS，i，1) Next Text1．Text=UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是( )。

A．NUMtBER l00
B．REBMUN
C．REBM UN l00
D．001 REBMUN

单项选择题

设有以下函数过程： Function fun(a As Integer，b As Integer) Dim c As Integer If a c=a：a=b：b=C End IF c=0 Do c=c+a Loop Until c Mod b=0 fun=c End Function 若调用函数fun时的实际参数都是自然数，则函数返回的是( )。

A．a、b的最大公约数
B．a、b的最小公倍数
C．a除以b的余数
D．a除以b的商的整数部分

相关试题