VB编程题,1.用函数调用的方式编写求两个自然数的最大公约数.2.计算5!+4!+3!+2!+1!,按照地址传递的方法VB编程题两道,1.用函数调用的方式编写求两个自然数的最大公约数.2.计算5!+4!+3!+2!+1!,按照地
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 18:31:10
![VB编程题,1.用函数调用的方式编写求两个自然数的最大公约数.2.计算5!+4!+3!+2!+1!,按照地址传递的方法VB编程题两道,1.用函数调用的方式编写求两个自然数的最大公约数.2.计算5!+4!+3!+2!+1!,按照地](/uploads/image/z/3965901-69-1.jpg?t=VB%E7%BC%96%E7%A8%8B%E9%A2%98%2C1.%E7%94%A8%E5%87%BD%E6%95%B0%E8%B0%83%E7%94%A8%E7%9A%84%E6%96%B9%E5%BC%8F%E7%BC%96%E5%86%99%E6%B1%82%E4%B8%A4%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%E7%9A%84%E6%9C%80%E5%A4%A7%E5%85%AC%E7%BA%A6%E6%95%B0.2.%E8%AE%A1%E7%AE%975%21%2B4%21%2B3%21%2B2%21%2B1%21%2C%E6%8C%89%E7%85%A7%E5%9C%B0%E5%9D%80%E4%BC%A0%E9%80%92%E7%9A%84%E6%96%B9%E6%B3%95VB%E7%BC%96%E7%A8%8B%E9%A2%98%E4%B8%A4%E9%81%93%2C1.%E7%94%A8%E5%87%BD%E6%95%B0%E8%B0%83%E7%94%A8%E7%9A%84%E6%96%B9%E5%BC%8F%E7%BC%96%E5%86%99%E6%B1%82%E4%B8%A4%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%E7%9A%84%E6%9C%80%E5%A4%A7%E5%85%AC%E7%BA%A6%E6%95%B0.2.%E8%AE%A1%E7%AE%975%21%2B4%21%2B3%21%2B2%21%2B1%21%2C%E6%8C%89%E7%85%A7%E5%9C%B0)
VB编程题,1.用函数调用的方式编写求两个自然数的最大公约数.2.计算5!+4!+3!+2!+1!,按照地址传递的方法VB编程题两道,1.用函数调用的方式编写求两个自然数的最大公约数.2.计算5!+4!+3!+2!+1!,按照地
VB编程题,1.用函数调用的方式编写求两个自然数的最大公约数.2.计算5!+4!+3!+2!+1!,按照地址传递的方法
VB编程题两道,1.用函数调用的方式编写求两个自然数的最大公约数.2.计算5!+4!+3!+2!+1!,按照地址传递的方法编写程序
VB编程题,1.用函数调用的方式编写求两个自然数的最大公约数.2.计算5!+4!+3!+2!+1!,按照地址传递的方法VB编程题两道,1.用函数调用的方式编写求两个自然数的最大公约数.2.计算5!+4!+3!+2!+1!,按照地
第一题:
两个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