vb题库程序设计(共13页).docx

一、 程序设计 【程序设计】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中。答案：-