Visual Basic程序设计重修考试试题（含详细答案）

VisualBasic程序设计重修考试试题（含详细答案）考试说明：本试卷满分100分，考试时间90分钟，闭卷考试。题型包含选择题、填空题、程序阅读题、编程应用题，适合VB程序设计课程补考、重修使用。一、单项选择题（每题2分，共20分）1.在VisualBasic中，窗体文件的扩展名是（）A..vbp  B..frm  C..bas  D..cls2.VB中声明整型变量的关键字是（）A.String  B.Single  C.Integer  D.Boolean3.下列合法的VB变量名是（）A.123num  B.num_1  C.num-1  D.Dim4.表达式5Mod2+3\2的运算结果是（）A.1  B.2  C.3  D.45.若要让文本框控件禁止输入内容，需要设置的属性是（）A.Enabled  B.Visible  C.Locked  D.ReadOnly6.VB中循环语句Fori=1To10Step2的循环次数是（）A.10次  B.5次  C.9次  D.6次7.能够返回字符串长度的VB内置函数是（）A.Mid()  B.Len()  C.Left()  D.Val()8.下列VB逻辑表达式中，结果为True的是（）A.3>5And2<4  B.3>5Or2<4  C.Not(2<1)  D.以上都是9.单击窗体触发的事件过程名是（）A.Form_Load  B.Form_Click  C.Form_DblClick  D.Form_KeyPress10.退出For循环的语句是（）A.ExitFor  B.ExitDo  C.EndFor  D.Stop二、填空题（每空2分，共20分）1.VB中，定义符号常量需要使用________关键字。2.表达式Int(3.8)的结果是________，Int(-2.3)的结果是________。3.赋值语句a=a+1的作用是________。4.分支结构中，多条件判断可以使用________语句实现。5.数组Dimarr(1To5)定义的数组包含________个元素。6.清除窗体所有输出内容的方法是________。7.将字符串转换为数值的函数是________，将数值转换为字符串的函数是________。8.DoLoop循环中，________语句用于直接结束本次循环，进入下一次循环。三、程序阅读题（每题10分，共30分）题目1：阅读下列程序代码，写出运行结果PlainText

PrivateSubForm_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+i

Nexti

Prints

EndSub题目2：阅读下列程序代码，写出运行结果PlainText

PrivateSubForm_Click()

DimaAsInteger,bAsInteger,tAsInteger

a=10

b=20

Ifa>bThen

t=a

a=b

b=t

EndIf

Printa,b

EndSub题目3：阅读下列程序代码，写出运行结果PlainText

PrivateSubForm_Click()

DimstrAsString

str="VB程序设计"

PrintLen(str)

PrintMid(str,3,2)

EndSub四、编程应用题（每题15分，共30分）题目1：编写VB程序，计算1~100之间所有偶数的累加和，通过窗体单击事件输出结果。题目2：编写VB程序，输入一个学生的百分制成绩（0-100），判断并输出成绩等级。规则：90-100为优秀，80-89为良好，70-79为中等，60-69为及格，60以下为不及格。参考答案及详细解析一、单项选择题答案及解析1.答案：B解析：.vbp为工程文件，.frm为窗体文件，.bas为标准模块文件，.cls为类模块文件。2.答案：C解析：String为字符串类型，Single为单精度浮点型，Integer为整型，Boolean为布尔型。3.答案：B解析：VB变量名必须以字母开头，只能由字母、数字、下划线组成，不能使用系统关键字。A数字开头、C含特殊符号、D为关键字，均不合法。4.答案：B解析：运算符优先级：整除\>取模Mod。5Mod2=1，3\2=1，总和为2。5.答案：C解析：Locked属性设为True时，文本框锁定，禁止手动输入修改；Enabled为False时控件禁用变灰，Visible控制控件显示隐藏，无ReadOnly属性。6.答案：B解析：循环取值为1、3、5、7、9，共5次循环。7.答案：B解析：Len()获取字符串长度，Mid()截取子串，Left()左截取字符串，Val()字符串转数值。8.答案：C解析：A选项假And真=假；B选项假Or真=真；C选项Not假=真，因此BC均正确，最优答案为C。9.答案：B解析：Form_Load为窗体加载事件，Form_Click为窗体单击事件，Form_DblClick为双击事件。10.答案：A解析：ExitFor强制退出For循环，ExitDo退出Do循环，EndFor无此语句，Stop为终止程序运行。二、填空题答案及解析1.Const解析：VB中使用Const声明全局或局部符号常量。2.3、-3解析：Int函数为向下取整，无论正负，均取不大于原数的最大整数。3.将变量a的值自增1解析：先读取a原有数值，加1后重新赋值给a，是最常用的自增语句。4.SelectCase解析：多分支条件判断优先使用SelectCase语句，比多层If语句更简洁。5.5解析：数组下标从1到5，包含1、2、3、4、5共5个元素。6.Cls解析：窗体.Cls方法可清除窗体上所有Print输出的文本内容。7.Val()、Str()解析：Val实现字符串转数值，Str实现数值转字符串。8.ContinueDo解析：用于DoLoop循环，跳过本次剩余代码，直接执行下一轮循环。三、程序阅读题答案及解析题目1运行结果：15解析：程序实现1到5的累加运算，s=1+2+3+4+5=15，循环结束后输出累加结果。题目2运行结果：10 20解析：初始a=10，b=20，条件a>b不成立，不执行交换语句，变量值保持不变。题目3运行结果：6运行结果第二行：程序解析：中文汉字在VB中单个字符计为1个长度，"VB程序设计"共6个字符；Mid(str,3,2)从第3位开始截取2个字符，结果为“程序”。四、编程应用题参考答案（完整可运行代码）题目1参考答案PlainText

PrivateSubForm_Click()

DimiAsInteger,sumAsInteger

sum=0'初始化累加和为0

Fori=2To100Step2'遍历1-100所有偶数

sum=sum+i'累加偶数

Nexti

Print"1到100所有偶数和为：";sum'输出结果

EndSub解析：通过步长2直接遍历所有偶数，简化循环运算，最终结果为2550。题目2参考答案PlainText

PrivateSubForm_Click()

DimscoreAsSingle

score=Val(InputBox("请输入学生百分制成绩："))

'判断成绩合法性

Ifscore<0Orscore>100Then

Print"输入成绩不合法！"

ElseIfscore>=90Then

Print"成绩等级：优秀"

ElseIfscore>=80Then

Print"成绩等级：良好"

ElseIfscore>=70Then

Print"成绩等级：中等"

ElseIfscore>=60Then

Print"成绩等级：及格"

Else

Print"成绩