如何编程实现求两个数的最大公约数

启动vb6，执行ctrl+n组合键，在新建工程中选择标准exe文件，点击打开按钮进入窗体界面。

选择form1，拖动周围的正方形调节窗体的大小，直至合适为止，修改boderstyle属性值为4-fixed。修改startupposition属性值为屏幕中心。修改caption属性值为求两个数的最大公约数。

在工具箱里双击frame控件，在窗体上创建frame1对象，并修改frame1的caption属性值为空，调整其大小使其适应窗体的布局。

在窗体上创建四个标签控件，修改label1的caption属性值为“求两个数的最大公约数”，修改label2的caption属性值为“数m”，label3caption属性值为“数n”，label4的caption属性值为“结果”。

分别选择label1-label4设置他们的font属性值，字体设置为王羲之书法字体，字形为常规，字号为小三，并调整他们的位置。

在工具箱里双击文本框控件，依次在窗体上创建三个text控件，分别修改text1-text3的text属性值为为空，并调节他们的位置布局。

接着在frame1上创建两个按钮控件，分别修改commmand1和commmand2的caption属性值为“计算”、“退出”。

双击任意控件进入代码区域，在代码区域中对象选择通用，过程选择声明，接着输入自定义函数内容。

Function MaxGY(x As Integer, y As Integer)‘maxgy是函数名称’

Dim Temp As Integer “声明temp为一个临时的整形变量”

Temp = x Mod y  “temp接受x除以y的余数”

If Temp = 0 Then“对temp进行判定是否为0，为0说明能够除尽”

MaxGY = y

Else

MaxGY = MaxGY(y, Temp)“递归调用函数maxgy”

End If

End Function

双击commmand1进入代码区域，对象选择commmand1，过程选择click输入代码为Text3.Text = MaxGY(Text1.Text, Text2.Text)，调用函数maxgy。

双击退出按钮进入代码区域输入代码为end，接着点击启动按钮进行编译测试，出现错误提示，由提示可知是vb保留字输入错误，进行改正。

再次点击启动按钮进行编辑测试，又一次出现提示，提示内容为“未找到方法或数据成员”，则说明对象的属性出现错误，再次进行改正，直至无误为止。

程序通过后会出现窗体文件，接下来就可以验证算法是否正确了，输入具体的数据进行验证即可。

执行文件-生成工程，在弹出对话框中输入“公约数”，使其生成可执行文件，接着执行文件-保存工程命令，将窗体和工程依次保存即可。