1、一、 程序设计 【程序设计】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!的值，
2、并将结果输出到窗体上。将结果存入变量 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
3、To mIf i Mod 2 = 0 Theny = 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 = “
4、良好“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
5、200For j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNextIf j Int(Sqr(i) ThenSum = Sum + iEnd IfNextPrint Sum-9,题目：将一个十进制整数 m 转换成 r(216)进制字符串。方法：将 m 不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec 为十进制数，ibase 为要转换成数的基（如二进制的基是 2，八进制的基是 8 等） ，函数输出结果是字符串chr 函数：将 ascii 码转换为对应字母。答案：-Dim strDecR$, iDecR%strDecR = “
6、Do While idec = 10 ThenstrDecR = Chr$(65 + iDecR - 10) & strDecRElsestrDecR = iDecR & strDecREnd Ifidec = idec ibaseLoopTrDec = strDecR-10,题目： (事件)单击按钮。(响应)随机产生 N 个两位正整数（N 由输入对话框输入，且 N0） ，求出其中的最大数和最小数，并在标签框 Label1 上显示最大数与最小数的差。答案：-x = InputBox(“请输入 x“)n = 1t = xs = xDo Until Abs(t) 3000 thenexit for
7、 endifendifi=i+1nextPrint sum-题目： (事件)单击窗体。 (响应)求 1-100 中为 5 或 7 的倍数的和。请将结果输出到窗体上,并存入所给变量 SUM中。使用 while.wend 语句完成程序答案：-Dim i As Integeri = 1While i 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 结果值输出到窗体上。
8、使用 for.next 语句完成程序-答案：-Dim i As Integerfor i = 1 to 10sum = sum + (-1) (i - 1) /(i*i)nextPrint sum-第 48 题 （1.0 分） 题号:478-【程序设计】-题目：编写函数 fun，其功能是:能计算从 1 开始到 n 的 自然数中偶数的平方的和。-答案：-Dim sum As Integer, i As Integersum = 0For i = 2 To n Step 2sum = sum + i * iNextfun = sum-第 49 题 （1.0 分） 题号:208-【程序设计】-题目：
9、请用 Select 语句编程计算打折后的金额？折扣方法如下: 购物 300 以下，无优惠（使用 MsgBox 显示“无优惠” ） ； 购物 300 以上，95 折； 购物 500 以上，9 折； 购物 1000 以上，85 折； 购物 5000 以上，8 折?答案： Select Case nCase Is 5000n = n * 0.8Case Is 1000n = n * 0.85Case Is 500n = n * 0.9Case Is 300n = n * 0.95Case ElseMsgBox “无优惠“End Select题目：将一张面值为 100 元的人民币等值换成 100 张
10、5 元、1 元和 0.5 元的零钞，要求每种零钞不少于 1 张， 问有哪几种组合？将组合数存入变量 OUT 中。答案：-Dim n As IntegerDim i%, j%, k%Print “5? 1? 0.5?“For i = 1 To 20For j = 1 To 100 - ik = 100 - i - jIf 5# * i + 1# * j + 0.5 * k = 100 ThenPrint i, j, kn = n + 1End IfNext jNext iout = n-题目：(事件)单击窗体。 (响应)我国现有人口为 13 亿，设年增长率为 1%，计算多少年后增加到 20 亿。
11、并将结果输出在窗体上。将结果存入变量 year 中。使用 do while .loop 语句完成程序。答案：-dim p as doubledim r as singledim n as integerp=1300000000r=0.01do while p a(j) Then imin = jNext jtemp = a(i)a(i) = a(imin)a(imin) = tempNext i-题目： (事件)单击窗体。 (响应)求一个数,它除 3 余 2，除 5 余 3，除 7 余 2，请将满足上面条件的最小数保存到 sum 变量中。使用 for.next 语句完成程序答案：-Dim i
12、As IntegerFor i = 2 To 1000If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 ThenPrint iExit ForEnd IfNext isum = i-题目：(事件)单击窗体。 (响应)生成一个一维数组(10 个数组元素依此为：15、23、72、43、96、23、3、65、88、17)，写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver 中答案：-Dim a(9) As IntegerDim i, s As Integera(0) = 15a(1)
13、= 23a(2) = 72a(3) = 43a(4) = 96a(5) = 23a(6) = 3a(7) = 65a(8) = 88a(9) = 17max = a(0)min = a(0)s = 0For i = 0 To 9If a(i) max Thenmax = a(i)End IfIf a(i) 500Print sum-题目：(事件)单击窗体。 (响应)已知 S=1+1/4+1/9+1/16+1/25+1/100，结果输出在窗体上。答案：-Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i i)NextPrint (s)-题目： (事件)单击命令按钮 Command1。 (响应)计算如下表达式 s 的值,s=1+(1*2)+(1*2*3)+(1*2*3*6)并将结果输出到文本框 Text1 中。
