【单选题】输入两个整数M,N,求它俩的最大公约数。Private Sub Command1_Click()Dim m%, n%,t%,x% m = Val(InputBox("请输入第1个数m:")) n = Val(InputBox(“请输入第2个数n:”)) If m < n Then t=m: m=n: n=t For y=n To 1 Step -1 If Then Print ...
A.
y Mod m = 0 And y Mod n = 0
B.
m Mod y = 0 And n Mod y = 0
C.
m Mod y = 0 or n Mod y = 0
D.
y Mod m = 0 or y Mod n = 0
【单选题】下列程序段执行结果为 m=5 n=-6 If Not X〉0 Then m=n-3 Else n=m+3 Print m-n;n-m
【单选题】输入两个整数M,N,求它俩的最大公约数。 Private Sub Command1_Click() Dim m%, n% ,t%,x% m = Val(InputBox(" 请输入第1个数m:")) n = Val(InputBox( “ 请输入第2个数n: ” )) If m < n Then t=m: m=n: n=t For y=n To 1 Step -1 If Then ...
A.
m Mod y = 0 And n Mod y = 0
B.
y Mod m = 0 And y Mod n = 0
C.
y Mod m = 0 or y Mod n = 0
D.
m Mod y = 0 or n Mod y = 0
【单选题】运行下列程序,单击窗体,则输出结果是。Private Sub Form_Click()M = 5If M >= 0 Then N = 1If M >= 1 Then N = 2If M >= 2 Then N = 3Print N;End Sub
【判断题】小儿只能用低浓度的(0.5%)麻黄碱,不能多滴以免引起不良反应。亦可以用热蒸汽吸入,使鼻塞减轻。
【单选题】下列程序运行时输入的值分别为100、10,则执行结果为( )。 Dim m As Integer, n As Integer m = InputBox("输入第一个数") n = InputBox("输入第二个数") If n * m = 0 Then MsgBox "两数都不能为0" End If If m 0 Print m