vb题库程序设计

1、一、 程序设计 【程序设计】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!的

2、值，并将结果输出到窗体上。将结果存入变量SUM中。答案：- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum4,题目：(事件)单击窗体。 (响应)求1+2+3+100的值，并把结果输出在窗体上。结果存入变量SUM中。答案：-Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum-5,题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。答案：- Dim y As Double y = 1 Dim i As Integer For

3、i = 1 To m If i Mod 2 = 0 Then y = y * i End If Next 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 = 中等

4、 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 Next Print sum-8,题目： (事件)单击窗体。 (响应)输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。答案：-For i = 100 To 200 For j = 2 To Sqr(i) If

5、 i Mod j = 0 Then Exit For Next If j Int(Sqr(i) Then Sum = Sum + i End IfNextPrint Sum-9,题目：将一个十进制整数m转换成 r(216)进制字符串。方法：将m不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串chr函数：将ascii码转换为对应字母。答案：- Dim strDecR$, iDecR% strDecR = Do While idec 0 iDecR = idec Mod

6、 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上显示最大数与最小数的差。答案：-x = InputBox(请输入x)n = 1t = xs = xDo Until Abs(t) 0. n = n + 1 t = t

7、 * (-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 thenexit for endif endifi=i+1nextPrint sum-题目： (事件)单击窗体。 (响应)求1-100中为5或7的倍数的和。请将结果输出到窗体上,并存入所给变量SUM中。使用while.wend语句完成程序答案：-Dim

8、 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结果值输出到窗体上。 使用for.next语句完成程序-答案：-Dim i As Integerfor i = 1 to 10sum = sum + (-1) (i - 1) /(i*i)nextPrint sum-第48题 （1.0分） 题号:478-【程序设计

9、】-题目：编写函数fun，其功能是:能计算从1开始到n的 自然数中偶数的平方的和。-答案：- Dim sum As Integer, i As Integer sum = 0 For i = 2 To n Step 2 sum = sum + i * i Next fun = sum-第49题 （1.0分） 题号:208-【程序设计】-题目：请用Select语句编程计算打折后的金额？折扣方法如下: 购物300以下，无优惠（使用MsgBox显示“无优惠”）； 购物300以上，95折； 购物500以上，9折； 购物1000以上，85折； 购物5000以上，8 折?答案： Select Case n

10、 Case Is 5000 n = n * 0.8 Case Is 1000 n = n * 0.85 Case Is 500 n = n * 0.9 Case Is 300 n = n * 0.95 Case Else MsgBox 无优惠 End Select题目：将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张， 问有哪几种组合？将组合数存入变量OUT中。答案：-Dim n As IntegerDim i%, j%, k%Print 5? 1? 0.5?For i = 1 To 20 For j = 1 To 100 - i k = 100

11、- i - j If 5# * i + 1# * j + 0.5 * k = 100 Then Print i, j, k n = n + 1 End If Next j Next i out = n-题目：(事件)单击窗体。 (响应)我国现有人口为13亿，设年增长率为1%，计算多少年后增加到20亿。并将结果输出在窗体上。将结果存入变量year中。使用do while .loop语句完成程序。答案：-dim p as doubledim r as singledim n as integerr=0.01p=p+p*rn=n+1loopprint n=,nyear=n-题目：应用选择法对数组A按

12、升序排列基本思想:1）对有n个数的序列（存放在数组a(n)中），从中选出最小的数，与第1个数交换位置；2）除第1 个数外，其余n-1个数中选最小的数，与第2个数交换位置；3）依次类推，选择了n-1次后，这个数列已按升序排列。答案：- Dim i, j, imin, temp As Integer For i = 1 To n - 1 imin = i For j = i + 1 To n If a(imin) a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next i-题目： (事件)单击窗体。 (响应)

13、求一个数,它除3余2，除5余3，除7余2，请将满足上面条件的最小数保存到sum变量中。使用for.next语句完成程序答案：-Dim i As Integer For i = 2 To 1000 If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Print i Exit For End IfNext i sum = i-题目：(事件)单击窗体。 (响应)生成一个一维数组(10个数组元素依此为：15、23、72、43、96、23、3、65、88、17)，写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别

14、存入变量Max,Min,Aver中答案：-Dim a(9) As IntegerDim i, s As Integera(0) = 15a(1) = 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 9 If a(i) max Then max = a(i) End If If a(i) 500Print sum-题目：(事件)单击窗体。 (响应)已知S=1+1/4+1/9+1/16+1/25+1/100，结果输出在窗体上。

15、答案：-Dim i As Integers = 0For i = 1 To 10 s = s + 1 / (i i)NextPrint (s)-题目： (事件)单击命令按钮Command1。 (响应)计算如下表达式s的值,s=1+(1*2)+(1*2*3)+(1*2*3*6)并将结果输出到文本框Text1中。答案：Dim j As IntegerDim i As Integerj = 1s = 0For i = 1 To 6 j = j * i s = s + jNext iText1.Text = s题目：求两个数m,n的最大公约数p和最小公倍数q答案：- nm = n * m If m n

16、 Then t = m: m = n: n = t r = m Mod n Do While (r 0) m = n n = r r = m Mod n Loop p = n q = nm / n-题目：编写函数fun，函数的功能是：计算n门课程的平均值，计算结果作为函数值返回。例如，若有5门课程的成绩是：92，76，69，58，88，则函数的值为76.6。答案：- Dim i As Integer Dim y As Single For i = 1 To n y = y + a(i) Next fun = y / n-题目：(事件)单击窗体。 (响应)求200300之间既能被3整除又能被7整

17、除的数。并求出所有数之和存入变量SUM中答案：-Dim i As IntegerFor i = 201 To 300 If (i Mod 3) = 0) And (i Mod 7) = 0) Then Print (CStr(i) sum = sum + i End IfNextPrint sum-题目：(事件)单击窗体 (响应)用输入框输入一自然数，判断是正数、负数或零，并根据输入的数用消息框显示正数、负数或零。答案：-n = InputBox(输入一个自然数)If n 0 Then result = 正数ElseIf n = A And UCase(n) = 0 And n = 9 The

18、n fun = 数字Else fun = 其他End If题目：(事件)单击窗体。 (响应)求50以内所有偶数的和，并在窗体上输出出来。将结果存入变量S中。答案：-Dim i As IntegerFor i = 2 To 50 If (i Mod 2) = 0 Then s = s + i End IfNextPrint (CStr(s)-题目：(事件)单击窗体。 (响应)求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中答案：- Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Print sum-题目：(事件)双击窗体。 (响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中答案：-Dim i, j, k As IntegerFor i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If (i + 2 * j + k * 5) = 100) Then Print (CStr(i) Print (CStr(j) Print (CStr(k) n = n + 1 End If Next NextNext-题