《2022年程序设计题上海海事vb题库 .pdf》由会员分享，可在线阅读，更多相关《2022年程序设计题上海海事vb题库 .pdf（13页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、试卷编号： 8247 所属语言： Visual Basic 试卷方案： VB_程序设计试卷总分： 93 分共有题型： 1 种一、 程序设计共 93 题（共计 93 分）第 1 题 （1.0 分）题号 :52 - 【程序设计】- 题目：编写函数fun ，函数的功能是：计算两个正整数的 最大公约数，并显示。如： 两个数为15、20，结果显示5 要求使用Do . Loop语句来实现。- 注意：请在指定的事件内编写代码 代码只能写在两行标识之间 不得修改已有代码 保存时不得修改窗体和工程文件的名称及路径，否则后果自负。- Private Function fun(m As Integer, n As
2、Integer) As Integer Dim r% If m n Then r = m: m = n: n = r *Program* * End * End Function Private Sub Form_Load() Show Print fun(15, 10) NJIT_VB End Sub Private Sub NJIT_VB() Dim i As Integer Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & in.dat For Input A
3、s #fIn fOut = FreeFile Open App.Path & out.dat For Output As #fOut For i = 1 To 10 Step 2 Line Input #fIn, a(i) Line Input #fIn, a(i + 1) Print #fOut, Trim(Str(fun(Val(a(i), Val(a(i + 1) Next Close #fIn Close #fOut End Sub 答案： Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 第 3 题 （ 1.0
4、 分）题号 :465 - 【程序设计】- 题目：判断一个数是否是素数。- 答案：- 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 - 第 5 题 （ 1.0 分）题号 :157 - 【程序设计】名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 13 页 - - - - - - - - - - 题目： ( 事件 )
5、 单击窗体。 (响应 )求 10! 的值，并将结果输出到窗体上。 将结果存入变量 SUM中。- 答案：- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum - 第 11题（1.0 分）题号 :151 - 【程序设计】- 题目： ( 事件 ) 单击窗体。 (响应 )求1+2+3+,+100的值，并把结果输出在窗体上。 结果存入变量 SUM 中。- 答案：- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum - 第 13 题（1.0
6、分） 题号 :483 - 【程序设计】- 题目：编写函数fun ，函数的功能是：求1 到 m 之间的偶数之积。- 答案：- Dim y As Double y = 1 Dim i As Integer For i = 1 To m If i Mod 2 = 0 Then y = y * i End If Next fun = y - 第 22 题（1.0 分）题号 :245 - 【程序设计】- 题目：编写函数fun ，函数的功能是：根据一个百分制 成绩 mark（整数），显示对应五级制的评定。条件如下：mark 大于等于 90 显示 优秀 mark 小于 90 且大于等于80显示 良好 mar
7、k 小于 80 且大于等于70显示 中等 mark 小于 70 且大于等于60显示 及格 mark小于 60 显示 不及格 要求使用 Select语句来实现。- 注意：请在指定的事件内编写代码 代码只能写在两行标识之间 不得修改已有代码 保存时不得修改窗体和工程文件的名称及路径，否则后果自负。- 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 13 页 - - - - - - - - - Private Function fun(mark As Integer) As S
8、tring *Program* * End * End Function Private Sub Form_Load() Show Print fun(90) NJIT_VB End Sub Private Sub NJIT_VB() Dim i As Integer Dim s As String Dim a(10) As Integer Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & in.dat For Input As #fIn fOut = FreeFile Open App.Path & o
9、ut.dat For Output As #fOut For i = 1 To 10 Line Input #fIn, s a(i) = Val(s) Print #fOut, fun(a(i) Next Close #fIn Close #fOut End Sub 答案： Select Case mark Case Is = 90 fun = 优秀 Case Is = 80 fun = 良好 Case Is = 70 fun = 中等 Case Is = 60 fun = 及格 Case Else fun = 不及格 End Select 第 25 题（1.0 分） 题号 :153 - 【程
10、序设计】- 题目： ( 事件 )双击窗体。 (响应 ) 求 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 - 第 28 题 （1.0 分）题号 :20 - 【程序设计】- 题目： ( 事件 ) 单击窗体。 (响应 ) 输出100-200 之间所有素数， 并将这些数 求和，求和结果存入所给变量SUM 中。- 注意：请在指定的事件内编写代码。- 答案：- For i = 100 To
11、 200 For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next If j Int(Sqr(i) Then Sum = Sum + i End If Next Print Sum -名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 13 页 - - - - - - - - - - 第 29题（1.0 分）题号 :470 - 【程序设计】- 题目：将一个十进制整数m转换成r(2 16) 进制字符串。 方法：将m不断除 r 取
12、余数，直到商为零，以反序得到结果。 下面写出一转换函数，参数idec 为十进制数，ibase 为要转 换成数的基（如二进制的基是2，八进制的基是8等） ， 函数输出结果是字符串- 答案：- 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 & strDecR End If idec = idec ibase Loop TrDec = strDe
13、cR - 第 30 题 （1.0 分）题号 :25 - 【程序设计】- 题目： ( 事件 ) 单击按钮。 (响应 ) 随机产生N个两位正整数 （N由输入对话框 输入，且N0） ，求出其中的最大数和最小 数，并在标签框 Label1 上显示最大数与最 小数的差。- 注意：请在指定的事件内编写代码。- 答案：- x = InputBox(请输入 x) n = 1 t = x s = x Do Until Abs(t) 0.00000001 n = n + 1 t = t * (-1) / n s = s + t Loop Label1.Caption = s= & s - 第 35 题（1.0 分
14、）题号 :487 - 【程序设计】- 题目： ( 事件 ) 单击窗体。 (响应 ) 已知s=1+1/3!+1/5!+1/7!+1/9!,请将 s 结果值 输出到窗体上。使用do while.loop语句完成程序- 答案：- Dim i As Integer i = 1 p = 1 Do While i 3000 then exit for endif endif i=i+1 next Print sum - 第 38 题（1.0 分） 题号 :496 - 【程序设计】- 题目： ( 事件 ) 单击窗体。 (响应 ) 求 1-100 中为 5 或 7 的倍数的和。请将结果 输出到窗体上, 并存入
15、所给变量SUM 中。 使用while.wend语句完成程序- 答案：- Dim 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 Integer for i = 1 to 10 sum = sum +
16、(-1) (i - 1) /(i*i) next Print sum - 第 48 题（1.0 分）题号 :478 - 【程序设计】- 题目：编写函数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 - 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6
17、 页，共 13 页 - - - - - - - - - 第 49题（1.0 分）题号 :208 - 【程序设计】- 题目：请用Select语句编程计算打折后的金额？ 折扣方法如下: 购物 300 以下，无优惠（使用 MsgBox显示“无优惠”） ； 购物 300 以上， 95 折； 购物 500 以上， 9 折； 购物 1000 以上， 85 折； 购物 5000 以上， 8 折? - 答案： Select Case n Case Is 5000 n = n * 0.8 Case Is 1000 n = n * 0.85 Case Is 500 n = n * 0.9 Case Is 300
18、n = n * 0.95 Case Else MsgBox 无优惠 End Select 第 56题（1.0 分）题号 :473 - 【程序设计】- 题目：将一张面值为100 元的人民币等值换成100 张 5元、 1元和 0.5 元的零钞，要求每种零钞不少于1张， 问有哪几种组合？将组合数存入变量OUT中。- 答案：- Dim n As Integer Dim 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 Th
19、en Print i, j, k n = n + 1 End If Next j Next i out = n - 第 57 题（1.0 分） 题号 :485 - 【程序设计】- 题目： (事件 ) 单击窗体。 (响应 ) 我国现有人口为 13 亿， 设年增长率为1% ， 计算多少年后增加到20 亿。并将结果输出 在窗体上。将结果存入变量year 中。 使用 do while .loop语句完成程序。- 答案：- dim p as double dim r as single dim n as integer p=1300000000 r=0.01 do while p a(j) Then i
20、min = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next i - 第 61 题（1.0 分） 题号 :495 - 【程序设计】- 题目： ( 事件 ) 单击窗体。 (响应 ) 求一个数 ,它除 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 Fo
21、r End If Next i sum = i - 第 63 题（1.0 分） 题号 :143 - 【程序设计】- 题目： (事件 ) 单击窗体。 (响应 ) 生成一个一维数组 (10 个数组元素依此为： 15、23、 72、43、96、23、3、65、88、17) ， 写程序求出这个数组中的最大值、最小值和平 均值，并输出在窗体上。 将最大值，最小值，平均值分别存入变量 Max,Min,Aver中- 答案：- Dim a(9) As Integer Dim i, s As Integer a(0) = 15 a(1) = 23 a(2) = 72 a(3) = 43 a(4) = 96 a(
22、5) = 23 a(6) = 3 a(7) = 65 a(8) = 88 a(9) = 17 max = a(0) min = a(0) s = 0 For i = 0 To 9 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 13 页 - - - - - - - - - If a(i) max Then max = a(i) End If If a(i) 500 Print sum - 第 68 题（1.0 分）题号 :131 - 【程序设计】- 题目： (事件 ) 单
23、击窗体。 (响应 ) 已知S=1+1/4+1/9+1/16+1/25+,+1/100 ， 结果输出在窗体上。- 答案：- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i i) Next Print (s) - 第 72 题（1.0 分）题号 :505 - 【程序设计】- 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 13 页 - - - - - - - - - 题目： ( 事件 ) 单击命令按钮 Command
24、1 。 (响应 ) 计算如下表达式 s 的值 , s=1+(1*2)+(1*2*3)+,+(1*2*3*,*6) 并将结果输出到文本框Text1 中。- 注意：请在指定的事件内编写代码。- 答案： Dim j As Integer Dim i As Integer j = 1 s = 0 For i = 1 To 6 j = j * i s = s + j Next i Text1.Text = s 第 73题（1.0 分）题号 :464 - 【程序设计】- 题目：求两个数m,n 的最大公约数 p 和最小公倍数q - 答案：- nm = n * m If m n Then t = m: m =
25、 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 - 第 75 题（1.0 分） 题号 :475 - 【程序设计】- 题目：编写函数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 - 第 78 题
26、（1.0 分）题号 :130 - 【程序设计】- 题目： (事件 ) 单击窗体。 (响应 ) 求 200300 之间既能被3 整除又能被7 整除的数。 并求出所有数之和存入变量SUM 中- 答案：- Dim i As Integer For i = 201 To 300 If (i Mod 3) = 0) And (i Mod 7) = 0) Then Print (CStr(i) sum = sum + i End If Next Print sum - 第 79 题 （1.0 分）题号 :19 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - -
27、 - - - - 名师精心整理 - - - - - - - 第 10 页，共 13 页 - - - - - - - - - - 【程序设计】- 题目： ( 事件 ) 单击窗体 (响应 )用输入框输入一自然数，判断是 正数 、 负数 或 零，并根据输入的数用消息框显示 正数 、负数 或 零。- 注意：请在指定的事件内编写代码。- 答案：- n = InputBox(输入一个自然数 ) If n 0 Then result = 正数 ElseIf n = A And UCase(n) = 0 And n = 9 Then fun = 数字 Else fun = 其他 End If 第 88题（1.
28、0 分）题号 :146 - 【程序设计】- 题目： ( 事件 )单击窗体。 (响应 ) 求 50 以内所有偶数的和，并在窗体上输出出来。 将结果存入变量 S中。- 答案：- Dim i As Integer For i = 2 To 50 If (i Mod 2) = 0 Then s = s + i End If Next Print (CStr(s) - 第 89 题（1.0 分） 题号 :154 - 【程序设计】- 题目： ( 事件 )单击窗体。 (响应 ) 求 100以内偶数的和，并将结果输出在窗体上。 将结果存入变量 SUM 中- 答案：- Dim i As Integer For
29、i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Print sum - 第 91 题（1.0 分）题号 :137 - 【程序设计】- 题目： (事件 ) 双击窗体。 (响应 ) 把一元钞票换成一分、二分和五分的硬币 （每种至少有一枚），求出其所有的换法， 把结果输出在窗体上。 将所有的换法的数目存入变量N中- 答案：- Dim i, j, k As Integer For i = 1 To 100 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理
30、- - - - - - - 第 12 页，共 13 页 - - - - - - - - - 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 Next Next - 第 93题（1.0 分）题号 :479 - 【程序设计】- 题目：编写函数fun 其功能是：根据整型形参m，计算 如下公式的值：y=1/2 1/4 1/6 .1/2m 例如：若m=9 ，则应输出： 1.41448412698413 - 答案：- Dim y As Double Dim i As Integer For i = 1 To m y = y + 1 / (2 * i) Next fun = y - 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 13 页 - - - - - - - - -