vb用子函数求两书最大公约数
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/30 01:27:31
![vb用子函数求两书最大公约数](/uploads/image/z/7805879-71-9.jpg?t=vb%E7%94%A8%E5%AD%90%E5%87%BD%E6%95%B0%E6%B1%82%E4%B8%A4%E4%B9%A6%E6%9C%80%E5%A4%A7%E5%85%AC%E7%BA%A6%E6%95%B0)
vb用子函数求两书最大公约数
vb用子函数求两书最大公约数
vb用子函数求两书最大公约数
vb用子函数求两书最大公约数
一题:
两个TextBox,一个Command.
Option Explicit
Private Function MaxModNum _
(ByVal a As Long, ByVal b As Long) _
As Long
Dim c As Long
c = 1
Do While c > 0
c = a Mod b
a = b
b = c
DoEvents
Loop
MaxModNum = a
End Function
Private Sub Command1_Click()
If IsNumeric(Text1.Text) = False _
Or IsNumeric(Text2.Text) = False _
Then
MsgBox "请输入有效数字."
Exit Sub
End If
MsgBox "它们的最大公约数:" & _
MaxModNum(Text1.Text, Text2.Text)
End Sub
第二题:
一个Command.
Option Explicit
Private Sub MyFunc _
(ByVal n As Integer, ByRef Sum As Long)
Dim a, ts As Long
Sum = 0
Do While n > 0
ts = 1
For a = 1 To n
ts = ts * a
DoEvents: Next
Sum = Sum + ts
n = n - 1
DoEvents
Loop
End Sub
Private Sub Command1_Click()
Dim Sum As Long
MyFunc 5, Sum
MsgBox Sum
End Sub
一帆风顺吉星到 万事如意福临门 财源广进