Visual Basic程序设计期末考试试题（闭卷）

VisualBasic程序设计期末考试试题（闭卷）考试时长：90分钟满分：100分适用专业：计算机相关、机电、经管等通识专业说明：本试卷共五大题型，所有答案均写在答题纸上，写在试卷上无效。一、单项选择题（本大题共20小题，每小题2分，共40分）在每小题列出的四个备选项中只有一个是符合题目要求的，请将其选出。1.VisualBasic的工程文件扩展名是（）A..frmB..vbpC..basD..exe2.下列不属于VB标准控件的是（）A.文本框B.命令按钮C.通用对话框D.标签3.能够唯一标识窗体或控件对象的属性是（）A.CaptionB.NameC.TextD.Index4.窗体的边框样式固定、不可拖动调整大小，应设置BorderStyle属性值为（）A.0B.1C.2D.35.下列合法的VB变量名是（）A.123numB.num_1C.num-1D.Dim6.VB中定义整型变量的关键字是（）A.SingleB.IntegerC.StringD.Boolean7.表达式5Mod2+5\2的运算结果是（）A.2B.3C.4D.58.数学式√(x+y)在VB中正确的表达式是（）A.Sqr(x+y)B.Sqrt(x+y)C.(x+y)^1/2D.Sqrx+y9.若x=3，y=5，表达式x>yAndx+y>6的结果是（）A.TrueB.FalseC.1D.010.赋值语句正确的是（）A.x+y=10B.10=xC.x=x+1D.Dimx=511.下列语句中，可以实现多分支选择结构的是（）A.If…ThenB.SelectCaseC.For…NextD.Do…Loop12.For循环语句中，循环终止的条件是（）A.循环变量大于终值（步长为正）B.循环变量等于终值C.循环变量小于终值D.执行完固定次数自动终止13.要提前退出For循环，使用的语句是（）A.ExitSubB.ExitForC.EndForD.Break14.VB数组下标默认的起始值是（）A.0B.1C.-1D.随机15.定义数组Dima(1To5)AsInteger，该数组包含的元素个数是（）A.4B.5C.6D.不确定16.子程序过程和函数过程的主要区别是（）A.参数个数不同B.函数过程有返回值，子程序无返回值C.调用方式不同D.书写格式不同17.文本框控件中，用来设置只读属性的参数是（）A.LockedB.EnabledC.VisibleD.ReadOnly18.单击窗体触发的事件是（）A.Form_LoadB.Form_ClickC.Form_KeyPressD.Form_MouseMove19.能够清除文本框所有内容的语句是（）A.Text1.ClearB.Text1.Text=""C.ClsD.Text1.Del20.下列关于局部变量的说法正确的是（）A.在整个工程中有效B.在当前窗体所有过程有效C.仅在定义的过程内有效D.全局变量优先级高于局部变量二、填空题（本大题共10空，每空2分，共20分）1.VB程序的三种基本结构是顺序结构、__________、__________。2.常量Pi=3.14159的定义语句为：__________。3.表达式Int(-3.8)的结果是__________。4.双重循环中，外层循环执行3次，内层循环执行4次，循环体总共执行__________次。5.定义动态数组需要使用__________语句重定义数组大小。6.函数过程的返回值需要通过__________语句传递。7.标签控件显示文字的属性是__________，文本框显示文字的属性是__________。8.DoWhile循环是__________（先判断后执行/先执行后判断）的循环结构。三、程序阅读题（本大题共2小题，每小题6分，共12分）写出下列程序段的运行输出结果。1.程序段1PlainText

PrivateSubCommand1_Click()

DimsAsInteger,iAsInteger

s=0

Fori=1To5

IfiMod2=0Then

s=s+i

EndIf

Nexti

Prints

EndSub运行结果：__________2.程序段2PlainText

PrivateSubCommand2_Click()

Dima(1To3)AsInteger

DimiAsInteger,tAsInteger

a(1)=10

a(2)=20

a(3)=30

t=a(1)

a(1)=a(3)

a(3)=t

Printa(1);a(2);a(3)

EndSub运行结果：__________四、程序填空题（本大题共2空，每空4分，共8分）下列程序功能：计算1~100所有整数的累加和，请补充完整代码。PlainText

PrivateSubCommand3_Click()

DimsumAsLong,iAsInteger

sum=0

Fori=1To__________

sum=__________

Nexti

Print"累加和为：";sum

EndSub五、编程应用题（本大题共2小题，共20分）1.基础编程题（10分）编写VB程序，实现功能：输入一个学生的考试分数（0-100），判断并输出成绩等级。等级规则：90~100为优秀，80~89为良好，60~79为及格，0~59为不及格。要求：使用If多分支结构实现，通过输入框录入分数，窗体输出等级。2.循环编程题（10分）编写VB程序，利用For循环计算并输出1~20之间所有能被3整除的数的总和。参考答案及评分标准一、单项选择题（每小题2分，共40分）1.B2.C3.B4.B5.B6.B7.B8.A9.B10.C11.B12.A13.B14.A15.B16.B17.A18.B19.B20.C二、填空题（每空2分，共20分）1.选择结构、循环结构2.ConstPi=3.141593.-44.125.ReDim6.函数名（或Function函数名）7.Caption、Text8.先判断后执行三、程序阅读题（每小题6分，共12分）1.6（解析：累加1-5中的偶数2、4，和为6）2.302010（解析：交换数组第一个和第三个元素）四、程序填空题（每空4分，共8分）第一空：100第二空：sum+i五、编程应用题（共20分）1.基础编程题（10分）参考代码PlainText

PrivateSubCommand1_Click()

DimscoreAsSingle

score=Val(InputBox("请输入学生考试分数（0-100）"))

Ifscore>=90Andscore<=100Then

Print"成绩等级：优秀"

ElseIfscore>=80Then

Print"成绩等级：良好"

ElseIfscore>=60Then

Print"成绩等级：及格"

Else

Print"成绩等级：不及格"

EndIf

EndSub评分标准：变量定义正确2分，输入语句正确2分，分支判断逻辑正确4分，输出格式规范2分。2.循环编程题（10分）参考代码PlainText

PrivateSubCommand2_Click()

DimsumAsInteger,iAsInteger