当前位置:首页 >> 学科竞赛 >>

vb本科06072B答案及评分标准


答案及评分标准本科补考
一、单项选择题(每题 1 分,共 40 分) 1 C 11 B 21 C 31 D 2 A 12 C 22 D 32 A 3 A 13 C 23 B 33 D 4 C 14 D 24 C 34 B 5 A 15 D 25 A 35 D 6 A 16 B 26 D 36 A 7 D 17 D 27 C 37 A 8 C 18 D 28 A 38 A 9 D 19 C 29 C 39 B 10 D 20 B 30 C 40 B

二、程序填空题(每空 2 分,共 20 分) (1)z=x (3)Int(Rnd*11)+10 (5)1 (7)a (9)n=1 (2)y=z (4)x Mod 2<>0 或 x Mod 2 或 x Mod 2=1 (6)x (8)Next a 或 Next (10)n+SumN(n-1)

三、读程序,写出程序的运行结果(每题 5 分,共 20 分) 1、 2、

3

0

135

评分标准:结果在同一行 1 分,数值 正确一个给 2 分。

评分标准:结果在同一行 2 分,数值 正确一个给 1 分。

3、

A

4、

M=2 评分标准:有”M=”给 2 分,后面数 字正确给 3 分

1

四、写程序(每题 10 分,共 20 分) 1、计算 1 到 200 所有 3 的倍数的数之和,即 s=3+6+9+……+198,结果显示在图片框 Picture1 中(要求: 将所使用变量声明为整型) Private Sub Command1_Click() Dim i As Integer, sum As Integer (变量声明正确给 2 分) sum = 0 For i = 3 To 200 Step 3 (For 语句正确给 3 分) sum = sum + i (计算表达式正确给 3 分) Next i Picture1.print sum (输出语句正确给 2 分) End Sub 2、编写一个子程序 Sushu,该程序的功能是判断其参数 x 是否为素数,如果是素数则子程序返回值为 True,否则返回值为 False。请将 Sushu 子程序补充完整。总体评分标准:只要书写的程序能够完成相应功 能则给满分。 Private Function Sushu(x As Integer)As Boolean Dim MyA As Integer For MyA=2 To x-1 (For 语句正确给 2 分) If x Mod MyA=0 Then Exit For (If 语句正确给 2 分) Next MyA If MyA=x Then (If 语句正确给 2 分) Sushu=True (子程序名称赋值正确给 2 分) Else Sushu=False (子程序名称赋值正确给 2 分) End If End Function

2


赞助商链接
相关文章:
vb现科06072B
vb本科06072B答案及评分标... 2页 1财富值 公共东科VB(A) 暂无评价 6页 ...( A. DragMode B. DragIcon C. Stretch 后,B 有( D. Picture )个元素 ...
06072电路试题(B)答案
06072电路试题(B)答案 试卷试卷隐藏>> 学年第二学期《电路原理》期末考试试题(...《电路原理》期末考试试题(B) 参考答案及评分标准 填空题( 一、 填空题(每空...
06072B试卷
2页 免费 vb本科06072B答案及评分... 2页 1下载券 土质学土力学与基础工程...选择题(40 分)(一)A 型题:请在学院标准答题纸的选择题部分的相应位置作答...
VB参考答案与评分标准
vb本科06072B答案及评分... 2页 1下载券 vb现科06072B答案及评分... 2页...《Visual Basic 程序设计(语种代号:211)(A)卷》 参考答案及评分标准一. 单项...
VB程序设计_B答案及评分标准
vb本科06072B答案及评分... 2页 1下载券喜欢此文档的还喜欢 flash作品及评价...上​学​期​期​末​V​B​程​序​设​计​试​卷​...
施工技术试题B卷06072
施工技术试题A卷06072 暂无评价 10页 免费 《建筑施工技术》期末考试... 2页...卷□ B 卷√ C 卷□ 本科√ 专科 □ 年级 (考试时间 120 分钟) 题号 ...
06072数电试卷B
06072数电试卷B 隐藏>> 2006~ 中国矿业大学 2006~2007 学年第 二 学期 《数字电子技术》试卷(B)卷 数字电子技术》试卷( ) 电子技术考试时间: 考试时间:100...
电子08PLC答案及评分标准B
电子08PLC答案及评分标准B_理学_高等教育_教育专区。电子 07PLC 答案及评分标准...(梯形图 3 分,示意图 2 分) 解: I0.3 SHR B EN ENO VB20 移位前 ...
本科计算机VB课后习题(二级考证)
9.B 19.B 10.A 20.A 三、填空题 1.上、下、左、左 2.缇、无关 3....", vbYesNo, "删除文件") If yesno = vbYes Then Kill fn End If File1...
VB大专期末考试题B卷含答案
《Visual Basic 期末考试题》试卷 B 试题号 得分一二三四总分 核分人签名得分 评卷人 一.填空题 (每空 0.5 分,共 20 分) 1.VB 是微软公司出品的一个...
更多相关标签: