关于VB的2道题目知道的麻烦回答下

不会

我确信上面的答案没有正确的。
求公倍数和公约数有专门的算法。
人为财死，我为分亡
有分我就会。

测试通过
1、
Private Sub Form_Click()
Dim a(9) As String
Dim i, n
For i = 0 To 9
a(i) = InputBox("请输入第" & i + 1 & "字符串：")
Next
For i = 0 To 9
If IsNumeric(Right(a(i), 1)) Then n = n + 1
Next
If n > 0 Then
MsgBox ("有" & n & "个是数字字符结尾")
Else
MsgBox ("都没有")
End If

End Sub

2、

Private Sub Form_Click()
a = Int(Rnd * 999 + 100)
b = Int(Rnd * 99 + 10)

For i = b To 1 Step -1
If a Mod i = 0 And b Mod i = 0 Then
MsgBox ("最大公约数为" & i & " 最小公倍数为" & a * b / i)
Exit For
End If
Next

End Sub

第一题可以判断结尾是不是1-9的ASCⅡ的编码
第二题
比如数：A B
你可以让A，B满足>99且<1000
并且让一个变量I=I+1（I初试为0）
如果I/A和I/B都为整数 就是最小公倍数
让一个变量J=J-1（J初始为A）
如果A/J和B/J都为整数 就是最大公约数