作业帮 > 综合 > 作业

VB编程题,对于任2个整数,求其最大公约数

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 21:54:45
VB编程题,对于任2个整数,求其最大公约数
窗体中做三个文本框,分别放A,B,及A、B的最大分约数.
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Do
r = a Mod b
a = b
b = r
Loop Until r = 0
Text3.Text = a
End Sub
再问: 先绘制一个正方形,其四个顶点是(1000,1000),(2000,1000),(2000,2000),(1000,2000),当使用此程序的人用鼠标点击此正方形内时,此正方形向右平移500个单位