.一、 程序设计 【程序设计】1.题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：两个数为15、20，结果显示5要求使用Do . Loop语句来实现。答案：Do r = m Mod n If r = 0 Then E*it 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: E*it For Ne*t i-3,题目：(事件)单击窗体。 (响应)求10!的值，并将结果输出到窗体上。将结果存入变量SUM中。答案：- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Ne*t Print sum4,题目：(事件)单击窗体。 (响应)求1+2+3+100的值，并把结果输出在窗体上。结果存入变量SUM中。答案：-Dim i As Integer For i = 1 To 100 sum = sum + i Ne*t 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 Ne*t 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 Select7,题目：(事件)双击窗体(响应)求100以奇数的和，并将结果输出在窗体上。将结果存入变量SUM中答案：- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Ne*t Print sum-8,题目： (事件)单击窗体。 (响应)输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。答案：-For i = 100 To 200 For j = 2 To Sqr(i) If i Mod j = 0 Then E*it For Ne*t If j Int(Sqr(i) Then Sum = Sum + i End IfNe*tPrint Sum-9,题目：将一个十进制整数m转换成 r(216)进制字符串。方法：将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由输入对话框输入，且N0，求出其中的最大数和最小数，并在标签框Label1上显示最大数与最小数的差。答案：-* = InputBo*(请输入*)n = 1t = *s = *Do Until Abs(t) 0.00000001 n = n + 1 t = t * (-1) / n s = 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 3000 thene*it for endif endifi=i+1ne*tPrint sum-题目： (事件)单击窗体。 (响应)求1-100中为5或7的倍数的和。请将结果输出到窗体上,并存入所给变量SUM中。使用while.wend语句完成程序答案：-Dim i As Integer i = 1 While i 0 d = n Mod 10 s = s + d * d * d n = n / 10 Wend fun = s-第46题 1.0分 题号:490-【程序设计】-题目： (事件)单击窗体。 (响应)sum=1-1/4+1/9-1/16+1/25.-1/100, 请将sum结果值输出到窗体上。 使用