一、程序设计
'【程序设计】
1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5"
'要求使用Do ... Loop语句来实现。
答案：Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
fun = n
2.'题目：判断一个数是否是素数。
答案：----------------------
Dim i As Integer
Prime = True
For i = 2 To Int(Sqr(m))
If m Mod i = 0 Then Prime = False: Exit For
Next i
----------------------
3,'题目：(事件)单击窗体。
' (响应)求10!的值，并将结果输出到窗体上。
将结果存入变量SUM中。
答案：----------------------
Dim i As Integer
sum = 1
For i = 1 To 10
sum = sum * i
Next
Print sum
4,'题目：(事件)单击窗体。
(响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。
答案：----------------------
Dim i As Integer
For i = 1 To 100
sum = sum + i
Next
Print sum
----------------------
5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。
答案：----------------------
Dim y As Double
y = 1
Dim i As Integer
For i = 1 To m
If i Mod 2 = 0 Then
y = y * i
End If
Next
fun = y
----------------------
6,'题目：编写函数fun，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。条件如下：
mark大于等于90显示"优秀"
mark小于90且大于等于80显示"良好"
mark小于80且大于等于70显示"中等"
mark小于70且大于等于60显示"及格"
mark小于60显示"不及格"要求使用Select语句来实现。
答案：Select Case mark
Case Is >= 90
fun = "优秀"
Case Is >= 80
fun = "良好"
Case Is >= 70
fun = "中等"
Case Is >= 60
fun = "及格"
Case Else
fun = "不及格"
End Select
7,'题目：(事件)双击窗体(响应)求100以内奇数的和，并将结果输出在窗体上。将结果存入变量SUM中
答案：----------------------
Dim i As Integer
For i = 1 To 100
If i Mod 2 = 1 Then
sum = sum + i
End If
Next
Print sum
----------------------
8,'题目： (事件)单击窗体。
' (响应)输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。答案：------------------------------------
For i = 100 To 200
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next
If j > Int(Sqr(i)) Then
Sum = Sum + i
End If
Next
Print Sum
------------------------------------
9,'题目：将一个十进制整数m转换成→r(2－16)进制字符串。
方法：将m不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec 为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串
chr函数：将ascii码转换为对应字母。
答案：----------------------
Dim strDecR$, iDecR%
strDecR = ""
Do While idec <> 0
iDecR = idec Mod ibase
If iDecR >= 10 Then
strDecR = Chr$(65 + iDecR - 10) & strDecR
Else
strDecR = iDecR & strDecR
End If
idec = idec \ ibase
Loop
TrDec = strDecR
----------------------
10,'题目： (事件)单击按钮。
(响应)随机产生N个两位正整数（N由输入对话框输入，且N>0），求出其中的最大数和最小数，并在标签框Label1上显示最大数与最小数的差。
答案：--------------------------------
x = InputBox("请输入x")
n = 1
t = x
s = x
Do Until Abs(t) < 0.00000001
n = n + 1
t = t * (-1) / n
s = s + t
Loop
Label1.Caption = "s=" & s
--------------------------------
'题目： (事件)单击窗体。
' (响应)已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值输出到窗体上。使用do
