vb题库程序设计(20210119130504)

1、vb题库程序设计一.程序设计【程序设计】1. 题目：编写函数fun,函数的功能是：计算两个正整数的最大公约数，并显示。如: 两个数为1认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 i3, 题目：（事件）单击窗体。（响应）求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到m之间的偶数之积。 答案：Dim y As DoubleY = 1Dim i As IntegerFor i = 1 To mIf i Mod 2

3、 = 0 Theny = y * iEnd IfNextfun = y6, 题目：编写函数fun,函数的功能是：根据个百分制成绩m吐k （整数），显示对应五级制的评定。条 件如下：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 Elsefun =不

4、及格End Select7, 题目：（事件双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。将结果存入变量SUM中答案：Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum题目：(事件)单击窗体。(响应)输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。答案：For i = 100 To 200For j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNextIf j Int(Sqr(i) ThenSum =

5、Sum + iEnd IfNextPrint Sum9,题目：将个十进制整数m转换成一r（2 16）进制字符串。方法：将m不断除r取余数，直到商为零，以反序得到结果。下面写出转换函数，参数idee为十进制 数，ibase为要转换成数的基（如二进制的基是2,八进制的基是8等），函数输出结果是字符串chr函数：将ucii码转换为对应字母.答案：Dim strDecR$, iDecR%strDecR =Do While idee 0iDecR = idee Mod ibaseIf iDecR = 10 ThenstrDecR = Chr$（65 + iDecR - 10） & strDecRElse

6、strDecR = iDecR & strDecREnd Ifidee = idee ibaseLoopTrDec = strDecR 10,题目：（事件）单击按钮。（响应）随机产生N个两位正整数（N由输入对话框输入，且N0）,求出其中的最大数和最小数，并在标签框Labe 11上显示最大数与最小数的差。答案：x = InputBox（请输入 x）n = 1Do Until Abs(t) n = n + 1t = t * (-1) / n s = s + tLoopH ft f.=s二 & s题目：(事件)单击窗体。(响应)已知s=l+l/3!+1/51+1/71+1/9!,请将s结果值输出到窗

7、体上。使用do while. loop语句完成程序答案：Dim i As Integeri = 1P = 1Do While i 3000 thenexit forend ifendifi二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题（分）题号:490【程序设计】 题目：（事件）单击窗体。（响应

8、）已知 sum=l-l/4+l/9-l/16+l/25. -1/100,请将sum结果值输出到窗体上。使用for. next语句完成程序答案：Dim i As Integerfor i = 1 to 10sum = sum +(T) * (i - 1) / (i*i)nextPrint sum第48题（分）题号:478【程序设计】题目：编写函数fum其功能是:能计算从1开始到n的 自然数中偶数的平方的和。答案：Dim sum As Integer, i As Integer sum = 0For i = 2 To n Step 2sum = sum + i * iNextfun = sum第4

9、9题（分）题号:208【程序设计】 趣目：请用Select语句编程计算打折后的金额折扣方法如下：购物300以下，无优惠（使用MsgBox显示“无优惠”；购物300以上，95折：购物500以上，9折；购物1000以上，85折；购物5000以上，8折 答案： Select Case nCase Is 5000n = n *Case Is 1000n = n *Case Is 500n = n *Case Is 300n = n *Case ElseMsgBox 无优惠End Select题目：将张面值为100元的人民币等值换成100张5元、1元和元的零钞，要求每种零钞不少于1张, 问有哪几种组合将

10、组合数存入变量OUT中。答案:Dim n As IntegerDim i%, j% k%Print 5For i = 1 To 20For j = 1 To 100 k = 100 -If 5a * iPrint+ It? * j + * k = 100 Then i J kNext jNext iout = n题目：(事件)单击窗体。(响应)我国现有人口为13亿，设年增长率为1%,计算多少年后增加到20亿。并将结果输出在窗体上。将结果存入变量year中。使用do while . loop语 句完成程序。答案：dim p as doubledim r as singledim n as int

11、egerp=p-p*r n=n-lloop print year=n题目：应用选择法对数组A按升序排列基本思想：1) 对有n个数的序列(存放在数组a(n)中)，从中选出最小的数，与第1个数交换位置;2) 除第1个数外，其余n-l个数中选最小的数，与第2个数交换位置：3) 依次类推，选择了 n-l次后，这个数列已按升序排列。答案：Dim i, j, imin, temp As IntegerFor i = 1 To n - 1imin = iFor j = i + 1 To nIf a(imin) a(j) Then imin = jNext jtemp = a(i)a(i) = a (imin

12、)admin) = tempNext i题目：（事件）单击窗体。（响应）求个数，它除3余2,除5余3,除7余2,请将满足上面条件的最小数保存到sum变量中。使用for. next语句完成程序答案：Dim i 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),写程序求出这个数组中的最人值、最小

13、值和平均值，并输出在窗体上。将最人值，最小值，平均值分别存入变 量Max, Min, Aver 中答案：Dim a(9) As IntegerDim i, s As Integera(0) = 15a(l) = 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=l+l/

14、4+l/9+l/16+l/25十+1/100,结果输出在窗体上。答案：Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i * i)题目:（事件）单击命令按钮Commandlo（响应）计算如下衣达式s的值，NextPrint (s)s=l+(l*2) + (1*2*3)+ (1*2*3*6)并将结果输出到文本框Textl中。答案：Dim j As IntegerDim i As Integerj = 1s = 0For i = 1 To 6j = J * is = s + jNext i=s题目：求两个数m,n的最人公约数p和最小公倍数q答案：n

15、m = n * mIf m n Then t = m: m = n: n = tr = m Mod nDo While (r 0)m = nn = rr = m Mod nLoopp = nq = nm / n趣目：编写函数fun,函数的功能是：计算n门课程的平均值，计算结果作为函数值返回。 例如，若有5门课程的成绩是：92, 76, 69, 58, 88,则函数的值为。答案：Dim i As IntegerDim y As SingleFor i = 1 To ny = y + a(i)Nextfun = y / n题目：(事件)单击窗体。(响应)求200300之间既能彼3整除又能被7整除的

16、数。并求出所有数之和存入变量SUM中答案：Dim i As IntegerFor i = 201 To 300If (i Mod 3) = 0) And (i Mod 7) = 0) ThenPrint (CStr(i)sum = sum + iEnd If题目：（事件）单击窗体（响应）用输入框输入自然数，判断是正数、负数或零，并根据输入的数用消息框显示正数、负数或零。答案：n = InputBox（输入个自然数）If n 0 Thenresult =正数Elself n = Y And UCase （n） = 0 And n = 9 Thenfun =数字”Elsefun = ”其他”End

17、 If题目：（事件）单击窗体。（响应）求50以内所有偶数的和，并在窗体上输出出来。将结果存入变量S中。答案：Dim i As IntegerFor i = 2 To 50If （i Mod 2） = 0 Thens = s + iEnd IfNextPrint （CStr（s）题目：(事件)单击窗体。(响应)求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中答案：Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum题目：(事件)双击窗体。(响应)把-元钞票换成-分、二分和五分的硬币每种至少有一枚)，求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量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其功能是：根