谁能帮我做个vb小程序

来源：百度知道 编辑：UC知道 时间：2024/06/15 04:48:16
1.从键盘输入两个大于一小于一百的整数，计算这两个数的最小公倍数和最大公约数

2.从键盘上输入一个两位数字进行分解质因数

一个按钮四个Textbox
Private Sub Command1_Click()

Dim X As Long, Y As Long, K As Long
a = CInt(Text1)
b = CInt(Text2)
X = IIf(a >= b, a, b) 'x存入最大值
Y = IIf(a <= b, a, b) 'y 存入最小值
Do While Y <> 0 '辗转相除法
K = X Mod Y
X = Y: Y = K
Loop
Text3 = X '最大公约数
Text4 = a * b / X '最小公倍数

End Sub

Private Sub Command1_Click()
Dim X As Long, Y As Long, K As Long
a = CInt(Text1)
b = CInt(Text2)
X = IIf(a >= b, a, b) 'x存入最大值
Y = IIf(a <= b, a, b) 'y 存入最小值
Do While Y <> 0 '辗转相除法
K = X Mod Y
X = Y: Y = K
Loop
Text3 = X '最大公约数
Text4 = a * b / X '最小公倍数
End Sub

Public Function MaxGYS(ByVal m As Integer, ByVal n As Integer) As Integer
Dim mn%, r%, t%
If n <= 0 Or m <= 0 Then
MsgBox "数据不在范围之中"
End
Else
mn = m * n
If m < n Then