题目
用Do...Loop循环语句,求m和n的最大公约数,以下是程序代码,
Private Sub Command1_Click()
Dim m As Long,n As Long,t As Long
m = Val(Text1.Text)
n = Val(Text2.Text)
If m < n Then
t = m:m = n:n = t
End If
Do
r = m Mod n
m = n
n = r
Loop While r 0
Label1.Caption = m
End Sub
Private Sub Command1_Click()
Dim m As Long,n As Long,t As Long
m = Val(Text1.Text)
n = Val(Text2.Text)
If m < n Then
t = m:m = n:n = t
End If
Do
r = m Mod n
m = n
n = r
Loop While r 0
Label1.Caption = m
End Sub
提问时间:2021-03-19
答案
Private Sub Command1_Click()
Dim m As Long, n As Long, t As Long
m = Val(Text1.Text)
n = Val(Text2.Text)'两个文本框中分别输入整数m和n
If m < n Then '如果m
Dim m As Long, n As Long, t As Long
m = Val(Text1.Text)
n = Val(Text2.Text)'两个文本框中分别输入整数m和n
If m < n Then '如果m
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1He has three pens.(three pens) 怎么提问?
- 2以lntroduction of a book为题写一篇英语作文
- 3计算或化简:(1)10的三次方×10四次方 (2)a·a的三次方
- 4甲、乙、丙三件商品,甲的价格比乙的价格少20%,甲的价格比丙的价格多20%;那么,乙的价格比丙的价格多_%.
- 5加上两点就能飞打一字
- 6I need some drinks for my birthday改成否定句
- 7肥皂泡在阳光照射下成彩色条纹和阳光通过小露珠形成的彩色花纹都是光的干涉吗,能不能简单的讲讲干涉的原理?
- 8什么叫隔爆水棚?隔爆水棚有哪几种分类方法?
- 9有理数加减法的混合运算
- 10将一定量的CH4与一定量O2,完全反应得燃烧产物为CO、CO2和H2O(气)
热门考点