一、 程序设计 【程序设计】1.题目:编写函数fun,函数的功能是:计算两个正整数的最大公约数,并显示。如:两个数为15、20,结果显示5要求使用Do . Loop语句来实现。答案:Do r = m Mod n If r = 0 Then Exit Do m = n n = rLoopfun = n2.题目:判断一个数是否是素数。答案:- 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中。答案:-