《vb题库-程序设计.docx》由会员分享，可在线阅读，更多相关《vb题库-程序设计.docx（12页珍藏版）》请在三一文库上搜索。
1、实用标准文档一、程序设计 【程序设计】1 .题目：编写函数fun,函数的功能是：计算两个正整数的最大公约数,并显示.如:两个数为15、20,结果显示5要求使用Do . Loop语句来实现.答案：Do r = m Mod nIf r = 0 Then Exit Do m = n n = rLoop fun = 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 sum5,题目：编写函数 fun ,函数的功能是：求1至ij m之间的偶数之积答案：Dim y As Doubley = 1文案大全实用标准文档Dim i As IntegerFor i = 1 To mIf
3、 i Mod 2 = 0 Theny = y * iEnd IfNextfun = y6,1题目：编写函数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
4、Elsefun =不及格End Select7,1题目：事件双击窗体响应求100以内奇数的和,并将结果输出在窗体上.将结果存入变量SUM中答案：Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum 8,1题目：事件单击窗体.1 响应输100-200之间所有素数,并将这些数求和,求和结果存入所给变量SUM答案：For i = 100 To 200For j = 2 To Sqri文案大全实用标准文档If i Mod j = 0 Then Exit For NextIf j Int(S
5、qr(i) ThenSum = Sum + iEnd IfNextPrint Sum 9,题目：将一个十 进制整数m转换成 -r2 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 -
6、10 & strDecRElsestrDecR = iDecR & strDecREnd Ifidec = idec ibaseLoopTrDec = strDecR10,题目：事件单击按钮.响应随机产生N个两位正整数N由输入对话框输入,且N0,求出其中的 最大数和最小数并在标签框Label1上显示最大数与最小数的差.答案：x = InputBox请输入 xn = 1t = xs = xDo Until Abst 0,00000001n = n + 1t = t * -1 / ns = s + tLoopLabel1.Caption = s= & s题目：事件单击窗体. 响应s=1+1/3!+
7、1/5!+1/7!+1/9!,请将s结果值输出到窗体上.使用 do文案大全实用标准文档while.loop 语句完成程序答案：Dim i As Integeri = 1p = 1Do While i 3000 thenexit forendif endif i=i+1 nextPrint sum,题目：事件单击窗体., 响应求1-100中为5或7的倍数的和.请将结果输出到窗体上,并存入所给变量 SUM中.使用 while.wend语句完成程序答案：Dim i As Integeri = 1While i 0d = n Mod 10文案大全实用标准文档s = s + d * d * dn = n
8、 / 10Wendfun = 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) A (i - 1) /(i*i)nextPrint sum第48题 1.0分 题号:478 ,1【程序设计】,题目：编写函数fun ,其功能是：能计算从1开始到n的,自然数中偶数的平方的和.答案：Dim sum As Integer, i As Integersum
9、 = 0For i = 2 To n Step 2sum = sum + i * iNext文案大全实用标准文档fun = sum第49题 1.0分题号:208【程序设计】题目：请用Select语句编程计算打折后的金额？折扣方法如下：购物300以下,无优惠使用 MsgBox显示“无优惠购物300以上,95折；购物500以上,9折；购物1000以上,85折；购物5000以上,8折？答案： Select Case n Case Is 5000n = n * 0.8Case Is 1000n = n * 0.85Case Is 500 n = n * 0.9Case Is 300 n = n * 0
10、.95Case ElseMsgBox 无优惠 End Select,题目：将一弓K面值为100元的人民币等值换成 100张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 - i k=100 - i - jIf 5# * i + 1# * j + 0.5 * k = 100 Then Print i, j, k n = n + 1End If文案大全实用标准文档Next jNext i out
11、= n题目：(事件)单击窗体.(响应)我国现有人口为 13亿,设年增长率为1%计算多少年后增加到20亿.并将结果输出在窗体上.将结果存入变量 year中.使用dowhile .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,请将满足上面条件的最小数保存到s
12、um变量中.使用for.next 语句完成程序答案：Dim i As IntegerFor i = 2 To 1000文案大全实用标准文档If 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 I
13、ntegerDim 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 = 0Fori = 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 =
14、 s + 1 / (i 人 i)NextPrint (s) 题目：事件单击命令按钮 Command! 响应计算如下表达式 s的值, s=1+1*2+1*2*3+ +1*2*3* *6 并将结果输出到文本框 Text1中.文案大全实用标准文档答案：Dim j As IntegerDim i As Integer j = 1S = 0Fori = 1 To 6j = j * is = s + jNext iText1.Text = s题目：求两个数 m,n的最大公约数p和最小公倍数q答案：nm = n * mIf m n Then t = m: m = n: n = t r = m Mod nDo
15、 While (r 0) m = n n = r r = m Mod nLoop p = n q = nm / n ,题目：编写函数fun,函数的功能是：计算 n门课程的平均值,计算结果作为函数值返回.例如,假设有5门课程的成绩是：92, 76, 69, 58, 88,那么函数的值为 76.6.答案：Dim i As IntegerDim y As SingleFor i = 1 To n y = y + a(i)Nextfun = y / n ,题目：(事件)单击窗体.,( 响应)求200300之间既能被3整除又能被7整除的数.并求出所有数之和存入变量SUM中答案：Dim i As Inte
16、gerFor i = 201 To 300If (i Mod 3) = 0) And (i Mod 7) = 0) Then Print (CStr(i) sum = sum + iEnd IfNextPrint sum文案大全实用标准文档题目：事件单击窗体响应用输入框输入一自然数,判断是正数、负数或零,并根据输入的数用消息框显示正数、负数或零.答案：n = InputBox输入一个自然数If n 0 Thenresult =正数Elself n = A And UCasen = 0 And n = 9 Thenfun =数字Elsefun = 其他End If题目：事件单击窗体. 响应求50
17、以内所有偶数的和,并在窗体上输出出来.将结果存入变量S中.答案：Dim i As IntegerFor i = 2 To 50If i Mod 2 = 0 Then文案大全实用标准文档s = s + iEnd IfNextPrint (CStr(s)题目：(事件)单击窗体.( 响应)求100以内偶数的和,并将结果输出在窗体上.将结果存入变量SU所答案：Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum题目：(事件)双击窗体.(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一
18、枚),求出其所有的换法,把结果输出在窗体上.将所有的换法的数目存入变量N中答案：Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If (i + 2 * j + k * 5) = 100) ThenPrint (CStr(i)Print (CStr(j)Print (CStr(k) n = n + 1End IfNextNextNext,题目：编写函数 fun其功能是：根据整型形参m计算如下公式的值：y=1/2 + 1/4 + 1/6 + .+ 1/2m 例如：假设 m=9 那么应输出：1.41448412698413答案：Dim y As DoubleDim i As IntegerFor i = 1 To my = y + 1 / (2 * i)Nextfun = y题目：编写函数fun其功能是：根据整型形参m,计算如下公式的值：文案大全实用标准文档y=1+ 1/3 + 1/5 + 1/7 + . +1/(2m+1)例如：假设 m=9那么应输出：2.133255答案：Dim y As DoubleDim i As Integer y = 1For i = 1 To my = y + 1 / (2 * i + 1)Nextfun = y文案大全