vb试题库程序设计说明书Word格式文档下载.docx

1、 sum = sum + i5,求1到m之间的偶数之积。 Dim y As Double y = 1 For i = 1 To m If i Mod 2 = 0 Then y = y * i End If fun = y6,根据一个百分制成绩mark（整数），显示对应五级制的评定。条件如下：mark大于等于90显示优秀mark小于90且大于等于80显示良好mark小于80且大于等于70显示中等mark小于70且大于等于60显示及格mark小于60显示不及格要求使用Select语句来实现。Select Case mark Case Is = 90 fun = = 80= 70= 60 Case

2、ElseEnd Select7,（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。将结果存入变量SUM中 If i Mod 2 = 1 Then8, （事件）单击窗体。 （响应）输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。-For i = 100 To 200 For j = 2 To Sqr（i） If i Mod j = 0 Then Exit For If j Int（Sqr（i） Then Sum = Sum + iNextPrint Sum9,将一个十进制整数m转换成 r（216）进制字符串。方法：将m不断除 r 取余数，直到商为零，

3、以反序得到结果。下面写出一转换函数，参数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 & idec = idec ibase Loop TrDec = strDecR10, （事件）单击按钮。

4、（响应）随机产生N个两位正整数（N由输入对话框输入，且N0），求出其中的最大数和最小数，并在标签框Label1上显示最大数与最小数的差。-x = InputBox（请输入x）n = 1t = xs = xDo Until Abs（t） 0.00000001 n = n + 1 t = t * （-1） / n s = s + tLabel1.Caption = s= & s （响应）已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值输出到窗体上。使用do while.loop语句完成程序 i = 1p = 1Do While i 3000 then exit for endifi

5、=i+1nextPrint sum （响应）求1-100中为5或7的倍数的和。使用while.wend语句完成程序 i = 1 While i 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语句完成程序for i = 1 to 10sum = sum + （-1） （i - 1） /（i*i）第48题 （1.0分） 题号:478编写函数fun，其功能是:能计算从1开始

6、到n的 自然数中偶数的平方的和。 Dim sum As Integer, i As Integer sum = 0 For i = 2 To n Step 2 sum = sum + i * i fun = sum第49题 （1.0分） 题号:208请用Select语句编程计算打折后的金额？折扣方法如下: 购物300以下，无优惠（使用MsgBox显示“无优惠”）； 购物300以上，95折； 购物500以上，9折； 购物1000以上，85折； 购物5000以上，8 折? Select Case n 5000 n = n * 0.8 1000 n = n * 0.85 500 n = n * 0.

7、9 300 n = n * 0.95 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 - i - j If 5# * i + 1# * j + 0.5 * k = 100 Then Print i, j, k Next j out = n （响应）我国现有人口为13亿，设年增长率为1

8、%，计算多少年后增加到20亿。并将结果输出在窗体上。将结果存入变量year中。使用do while .loop语句完成程序。dim p as doubledim r as singledim n as integerp=1300000000r=0.01do while p a（j） Then imin = j temp = a（i） a（i） = a（imin） a（imin） = temp （响应）求一个数,它除3余2，除5余3，除7余2，请将满足上面条件的最小数保存到sum变量中。 For i = 2 To 1000 If i Mod 3 = 2 And i Mod 5 = 3 And i

9、 Mod 7 = 2 Then Print iNext i sum = 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） = 23a（2） = 72a（3） = 43a（4） = 96a（5） = 23a（6） = 3a（7） = 65a（8） = 88a（9） = 17max = a（0）min = a（0

10、）s = 0For i = 0 To 9 If a（i） max Then max = a（i） If a（i） 500 （响应）已知S=1+1/4+1/9+1/16+1/25+1/100，结果输出在窗体上。 s = s + 1 / （i i）Print （s） （事件）单击命令按钮Command1。 （响应）计算如下表达式s的值,s=1+（1*2）+（1*2*3）+（1*2*3*6）并将结果输出到文本框Text1中。Dim j As Integerj = 1For i = 1 To 6 j = j * i s = s + jText1.Text = s求两个数m,n的最大公约数p和最小公倍数q nm = n * m If m n Then t = m: m = n: n = t Do While （r 0 Then result = ElseIf n = A And UCase（n） 0 And n 9Else （响应）求50以内所有偶数的和，并在窗体上输出出来。将结果存入变量S中。For i = 2 To 50 If （i Mod 2） = 0 Then s = s + i （响应）