2022年程序设计题上海海事vb题库 .pdf
《2022年程序设计题上海海事vb题库 .pdf》由会员分享,可在线阅读,更多相关《2022年程序设计题上海海事vb题库 .pdf(13页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
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 +
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2022年程序设计题上海海事vb题库 2022 程序设计 上海 海事 vb 题库
限制150内