怎么编写vb程序求两个数的最大公约数

知识问答 2022-04-01 15:21:18 admin

下面编写的VB程序，是利用Sub子程序递归调用方式计算两个数M、N的最大公约数，其中M>N，且N≠0。

操作方法

【步骤01】

启动VB程序，在“新建工程”界面选择【标准 EXE】，点击【打开】，进入工程页面后，再将最右端下方属性窗口中Form1的“Caption”的内容改为“Sub子程序的递归调用——求两个数的最大公约数”

【步骤02】

单击最左端工具栏中的【TextBox】,在窗体上拖动变成十字线的鼠标指针画出合适的文本框大小，或者是双击【TextBox】，会在窗体中自动出现文本框，自己拖动文本框调节大小和位置，重复操作建立三个文本框

【步骤03】

单击最左端工具栏中的【Label】,在窗体上拖动变成十字线的鼠标指针画出合适的标签大小，或者是双击【Label】，会在窗体中自动出现标签，自己拖动标签调节大小和位置，重复操作建立三个标签

【步骤04】

单击最左端工具栏中的【CommandButton】,在窗体上拖动变成十字线的鼠标指针画出合适的控制按钮大小，或者是双击【CommandButton】，会在窗体中自动出现控制按钮，自己拖动控制按钮调节大小和位置，建立两个控制按钮

【步骤05】

单击“Text1”，在最右端下方的属性窗口中将“Text"的内容“Text1”删除并置空，还可单击“Font”的内容“宋体”后面的“...”按钮，调节文本框中内容的字体、字形和大小，Text2与Text3文本框重复相同操作

【步骤06】

单击“Label1”，在最右端下方的属性窗口中将“Caption"的内容“Label1”改为“请输入m的值”，Label2标签“Caption”的内容“Label2”改为“请输入n的值”，Label3标签“Caption”的内容“Label3”改为“m和n的最大公约数是”，除此还可分别在其属性窗口中单击“Font”的内容“宋体”后面的“...”按钮，调节标签中内容的字体、字形和大小

【步骤07】

单击“Command1”,在最右端下方的属性窗口中将“Caption"的内容“Command1”改为“计算”，还可单击“Font”的内容“宋体”后面的“...”按钮，调节控制按钮中内容的字体、字形和大小；“Command2”在最右端下方的属性窗口中将“Caption"的内容“Command2”改为“结束”，其余操作相同

【步骤08】

双击“编写程序”的图标，进入编程：
Public Sub gcds(m As Integer, n As Integer, k As Integer)
If (m Mod n) = 0 Then
k = n
Else
Call gcds(n, m Mod n, k)
End If
End Sub
双击“计算”按钮，进入编程：
Private Sub Command1_Click()
Call gcds(Val(Text1.Text), Val(Text2.Text), k%)
Text3.Text = k
End Sub
再双击“结束”按钮，进入编程：
Private Sub Command2_Click()
End
End Sub