用vb编程1.输入任意自然数N（N>100），要求：（1）筛选出3～N之间的素数；（2）统计出素数的个数；（3）输出素数，每行10个，每个数占用的宽度为8。界面、控件、输入方法和事件可自己设

Question

用vb编程
1.输入任意自然数N（N>100），要求：（1）筛选出3～N之间的素数；（2）统计出素数的个数；（3）输出素数，每行10个，每个数占用的宽度为8。界面、控件、输入方法和事件可自己设定。2.用“辗转相除法”求两个正整数的最大公约数。
“辗转相除法”算法的文字描述如下：
第一步：算法开始；
第二步：输入原始数据，取得所给定的自然数m和n；
第三步：将m和n中的大数放到m中，小数放到n中；
第四步：求m/n的余数r；
第五步：若r=0，则n就是所求最大公约数，转向第七步；若 r≠0，执行下一步；
第六步：使新的m值为n的值，使新的n值为r的值，返回第四步
第七步：算法结束。
界面、控件、输入方法和事件可自己设定。

Answer 1

1、
Private Sub Command1_Click()
Dim N As Integer, bF As Boolean, dt As String
Dim k As Integer, m As Integer, nn As Integer, mm As Integer, tt As String

N = InputBox("请输入N值（N>100）")
nn = 0: mm = 0: tt = ""
For k = 3 To N
bF = False
For m = 2 To k - 1
If (k Mod m) = 0 Then
bF = True
Exit For
End If
Next
If Not bF Then
nn = nn + 1
mm = mm + 1
dt = CStr(k)
tt = tt & Space(8 - Len(dt)) & dt
If mm = 10 Then
mm = 0
Print tt
tt = ""
End If
End If
Next
End Sub
2、
Private Sub Command2_Click()
Dim m As Integer, n As Integer, mm As Integer, nn As Integer
Dim k As Integer, r As Integer

m = InputBox("请输入一个自然数m")
n = InputBox("请输入一个自然数n")
mm = m: nn = n
If m < n Then
k = m: m = n: n = k
End If
Do
r = m Mod n
If r > 0 Then
m = n: n = r
End If
Loop Until r = 0

MsgBox mm & "和" & nn & "的最大公约数是" & n

End Sub