一、程序设计'【程序设计】1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。
如：'两个数为15、20，结果显示"5"'要求使用Do ... Loop语句来实现。
答案：Dor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopfun = n2.'题目：判断一个数是否是素数。
答案：----------------------Dim i As IntegerPrime = TrueFor i = 2 To Int(Sqr(m))If m Mod i = 0 Then Prime = False: Exit ForNext i----------------------3,'题目：(事件)单击窗体。
' (响应)求10!的值，并将结果输出到窗体上。
将结果存入变量SUM中。
答案：----------------------Dim i As Integersum = 1For i = 1 To 10sum = sum * iNextPrint sum4,'题目：(事件)单击窗体。
(响应)求1+2+3+……+100的值，并把结果输出在窗体上。
结果存入变量SUM中。
答案：----------------------Dim i As IntegerFor i = 1 To 100sum = sum + iNextPrint sum----------------------5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。
答案：----------------------Dim y As Doubley = 1Dim i As IntegerFor i = 1 To my = y * iEnd IfNextfun = y----------------------6,'题目：编写函数fun，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。
条件如下：mark大于等于90显示"优秀"mark小于90且大于等于80显示"良好"mark小于80且大于等于70显示"中等"mark小于70且大于等于60显示"及格"mark小于60显示"不及格"要求使用Select语句来实现。
答案：Select Case markCase Is >= 90fun = "优秀"Case Is >= 80fun = "良好"Case Is >= 70fun = "中等"Case Is >= 60fun = "及格"Case Elsefun = "不及格"End Select7,'题目：(事件)双击窗体(响应)求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中答案：----------------------Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum----------------------8,'题目： (事件)单击窗体。
' (响应)输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。
答案：------------------------------------For i = 100 To 200For j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNextIf j > Int(Sqr(i)) ThenSum = Sum + iEnd IfNext------------------------------------9,'题目：将一个十进制整数m转换成→r(2－16)进制字符串。
方法：将m不断除 r 取余数，直到商为零，以反序得到结果。
下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串chr函数：将ascii码转换为对应字母。
答案：----------------------Dim strDecR$, iDecR%strDecR = ""Do While idec <> 0iDecR = idec Mod ibaseIf iDecR >= 10 ThenstrDecR = Chr$(65 + iDecR - 10) & strDecRElsestrDecR = iDecR & strDecREnd Ifidec = idec \ ibaseLoopTrDec = strDecR----------------------10,'题目： (事件)单击按钮。
(响应)随机产生N个两位正整数（N由输入对话框输入，且N>0），求出其中的最大数和最小数，并在标签框Label1上显示最大数与最小数的差。
答案：--------------------------------x = InputBox("请输入x")n = 1t = xs = xDo Until Abs(t) < 0.00000001n = n + 1t = t * (-1) / ns = s + tLoopLabel1.Caption = "s=" & s--------------------------------'题目： (事件)单击窗体。
' (响应)已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值输出到窗体上。
使用do while...loop语句完成程序答案：----------------------Dim i As Integeri = 1p = 1Do While i <= 9p = p * iIf i Mod 2 = 1 Thens = s + 1 / pi = i + 1LoopPrint ssum=s----------------------'题目： (事件)单击窗体。
' (响应)求从100到1000之间所有是3的倍数的数之和，当和大于3000时，停止计算并输出和。
请将结果输出到窗体上,并存入所给变量SUM中。
使用for...next语句完成程序答案：----------------------Dim i As Integersum=0for i=100 to 1000if i mod 3=0 thensum=sum+iif sum>3000 thenexit forendifendifi=i+1nextPrint sum----------------------'题目： (事件)单击窗体。
' (响应)求1-100中为5或7的倍数的和。
请将结果输出到窗体上,并存入所给变量SUM中。
使用while...wend语句完成程序答案：----------------------Dim i As Integeri = 1While i <= 100If i Mod 5 = 0 Or i Mod 7 = 0 ThenSum = Sum + iEnd Ifi = i + 1WendPrint Sum----------------------'题目： (事件)单击窗体。
' (响应)求出100以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM中。
答案：----------------------Dim i As IntegerDim j As IntegerDim k As IntegerDim b As Booleanb = FalseFor i =2 To 100j = CInt(Sqr(i))For k = 2 To jIf i Mod k = 0 Thenb = TrueEnd IfNextIf b = False Thensum = sum + iEnd IfNextPrint sum----------------------'题目：(事件)单击窗体。
' (响应)求1!+2!+3!+……+10!的值，并在窗体上输出。
结果存入变量L中。
答案：----------------------Dim i As IntegerDim s As LongDim j As Integers = 1For i = 1 To 10s = s * il = l + sNextPrint Str(l)----------------------'题目：编写函数fun，函数的功能是：求一个四位数的各位数字的立方和答案：----------------------Dim d As Integer, k As Integer, s As IntegerWhile n > 0d = n Mod 10s = s + d * d * dn = n / 10Wendfun = s----------------------第46题（1.0分）题号:490'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目： (事件)单击窗体。
' (响应)已知sum=1-1/4+1/9-1/16+1/25...-1/100,' 请将sum结果值输出到窗体上。
' 使用for...next语句完成程序'-------------------------------------------------答案：----------------------for i = 1 to 10sum = sum + (-1) ^ (i - 1) /(i*i)nextPrint sum----------------------第48题（1.0分）题号:478'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：编写函数fun，其功能是:能计算从1开始到n的' 自然数中偶数的平方的和。