高中数学的算法设计(两个提问)

1、
第一步，给定一个正实数r
第二步，计算以r为半径的圆的面积S=∏r^2
第三步，得到圆的面积S

2、
第一步，给定一个大于1的正整数n
第二步，依次以2～（n-1）的整数d为除数去除n，检查余数是否为0。若是，则d是n的因数；若不是，则d不是n的因数
第三步，在n的因数中加入1和n
第四步，得到n的所有因数

1
Dim r
Private Sub Command1_Click()
r = Text1.Text
s = 3.14 * r * r
Print s
End Sub

2
Dim n, i, a
Private Sub Command1_Click()
n = Text1.Text
i = n
Do While i <= n And i <> 0
If n Mod i = 0 Then Print i
i = i - 1
Loop
End Sub
这里是用的是text和print，希望对你有所帮助啦！