几个常用算法，帮忙调试一下，在线等候，立即给分！不够在加（每题20分，还有2000多分）

Question

求最大公约数
Private Function GCD(I1 As Long, I2 As Long) As Long
   If I1 = 0 Then
     GCD = I2
   Else
     GCD = GCD(I2 Mod I1, I1)
   End If
End FunctionPrivate Sub Command1_Click()
Dim a As Long, b As Long
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = GCD(a, b)
End Sub

Answer 1

最小公倍数：
(a * b) / GCD(a, b)

Answer 2

求阶乘的函数：
Private Function JieCheng(N As Long) As Double
    If N = 0 Then
        JieCheng = 1
    Else
        JieCheng = N * JieCheng(N - 1)
    End If
End Function

Answer 3

private sub command_click()
dim a(9),temp as int
for i=0 to 9
  a(i)=val(texti(i).text
   for i=0 to 9
    for j= o to9-i-1
     if a(j)>a(j+1) then 
     temp=a(j):a(j)=a(j+1):a(j+1)=temp
     end if
    next j
  next i
next i
end sub

Answer 4

第5题：我在窗体上做了三个textbox 和一个按钮！设置三个文本框的text属性为空
按钮代码如下：Private Sub Command1_Click()
Dim i As Single
Dim j As Single
Dim s As Single
i = Val(Text1.Text)
j = Val(Text2.Text)
s = Int(i / j)
s = i - s * j
Text3.Text = s
End Subtext3显示结果

Answer 5

这是课后的题啊！！看来是楼主的VB不是很好，所以跑来叫我们帮忙做题啊，呵呵  ^O^

Answer 6

第6题窗体上有一个按钮和一个textbox!按钮代码如下！Private Sub Command1_Click()
Dim s As String
s = Len(Text1.Text)
MsgBox "输入字符串的长度为" & s, vbOKOnly, "提示"
Text1.Text = ""
End Sub

Answer 7

第三题：
For i = 1 To 7
    Print String(Abs(i - 4), " ") + String((3 - Abs(i - 4)) * 2 + 1, "*")
Next i
第四题：
排序方法很多，不过只有很少量的话，可以用list控件排序。
设定list1.sort=true
然后把10个数依次加入后再依次读出
For i = 1 To 10
    List1.AddItem Format(shu(i), "00000000")
Next i
For i = 0 To List1.ListCount - 1
    shu(i) = Val(List1.List(i))
Next i第五题：
c= a mod b第六题
直接使用len(string1)或者lenb(string1)

Answer 8

第八题
n = 456
s = Trim(Str(n))
For i = 1 To Len(s)
    Print String(Val(Mid(s, i, 1)), "*")
Next i

Answer 9

第七题Dim s As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
s = CStr(Text1.Text)
l = 0
k = 0
j = 0For i = 1 To Len(Text1.Text)
    l = Val(Mid(s, i, 1))
 
If (l >= Asc("0") And l <= Asc("9")) Then
   j = j + 1
ElseIf (l >= Asc("A") And l <= Asc("z")) Then
   k = k + 1
Else
   l = l + 1End If
Next i
 s1 = MsgBox("输入字符串中有" & j & "个数据" & k & "个字符" & "其它的符号" & l, vbOKOnly, "提示")如果有问题可以找我！42409201 （注明csdn)