单项选择题
下列程序的输入值分别为100,10则执行结果为非作歹______ 。
m=Val (inputbox (“请输入数学1”) )
n=Val (inputbox (“请输入数学2”) )
If n*m=0 Then
MsgBox “两数能不能为0”
Exit Sub
If m<n Then
t=m: m=n: n=t
End If
End If
DO
R=m Mod n
m=n
n=f
Loop While r<>0
Print m
A.10
B.100
C.50
D.250
点击查看答案
<上一题
目录
下一题>
热门
试题
单项选择题
单击命令按钮时,下列程序代码的执行结果为______ 。Public Function MyFune(m As Integer,n As Integer) As Integer Do While m<>n Do While m>n m=m-n Loop Do While m<n n=n -m Loop Loop MyFunc=mEnd FunctionPrivate Sub Command1_Click() Print MyFunc(24, 18)End Sub
A.2
B.4
C.6
D.8
点击查看答案
单项选择题
有如下函数:Private Function firstfunc(x As Integer, y As Integer) As Integer Dim n As Integer Do While n <= 4 x=x +y n=-+1 Loop firstfunc = x End Function调用该函数的事件过程如下:Private Sub Command1_lick() Dim x As Integer Dim y As Integer Dim n As Integer Dim z As Integer x=1 y=1 For n = 1 To 3 z = firstfunc(x, y) Next n Print z End Sub该事件过程的执行结果是 ______。
A.1
B.3
C.16
D.9
点击查看答案
相关试题
以下程序用于求s=1+(1+2)+(1+...
下列程序的运行机结果是 【15】 。 Pr...
下列程序的作用是求所有小于或等于30的自...
有如下程序: Private Sub Command1_C...
有程序如下: Sub subP(b() As Inte...