大学Visual Basic期末考试试题（含详细答案）-1

大学VisualBasic期末考试试题（含详细答案）考试说明：本试卷满分100分，考试时间90分钟，闭卷考试；适用于大学计算机公共课、VB程序设计基础课程期末考核。一、单项选择题（共20题，每题2分，共40分）1.VisualBasic的编程机制是（）A.面向过程B.事件驱动C.面向机器D.结构化编程2.下列不属于VB标准控件的是（）A.文本框B.命令按钮C.树形视图D.标签3.VB中，窗体的默认启动事件是（）A.ClickB.LoadC.GotFocusD.Activate4.下列变量名中，符合VB命名规则的是（）A.123aB.a_123C.a*bD.dim5.VB中，定义整型变量的关键字是（）A.StringB.IntegerC.SingleD.Boolean6.表达式5Mod2的运算结果是（）A.0B.1C.2D.37.表达式Int(3.8)的值是（）A.3B.4C.3.8D.0.88.VB中，赋值语句正确的是（）A.x+y=10B.10=xC.x=10D.x==109.若a=3，b=5，执行语句a=b:b=a后，a、b的值分别为（）A.3、5B.5、3C.5、5D.3、310.下列循环语句中，属于先判断后执行的是（）A.DoWhile...LoopB.Do...LoopWhileC.For...NextD.以上都不是11.VB中，用来结束当前过程的语句是（）A.EndB.ExitSubC.StopD.Break12.文本框控件中，用来设置只读属性的参数是（）A.EnabledB.VisibleC.LockedD.ReadOnly13.能够获取系统当前时间的函数是（）A.DateB.TimeC.NowD.Timer14.表达式"abc"&"123"的结果是（）A.abc123B.abc123C.报错D.123abc15.分支语句If...EndIf属于（）结构A.顺序B.选择C.循环D.跳转16.VB数组下标默认的起始值是（）A.0B.1C.-1D.随机17.命令按钮的Caption属性作用是（）A.设置按钮名称B.设置按钮显示文本C.设置按钮颜色D.设置按钮大小18.下列逻辑表达式中，结果为True的是（）A.3>5B.5>3And2>4C.3<5Or2>4D.Not(1=1)19.Fori=1To10Step2循环的执行次数是（）A.10次B.5次C.4次D.11次20.VB工程文件的后缀名是（）A..frmB..vbpC..basD..exe二、填空题（共10空，每空2分，共20分）1.VB中，布尔型数据的两个取值是________和________。2.清除文本框Text1中所有内容的语句是________。3.表达式Sqr(16)的值是________。4.定义一维数组a，包含10个元素，下标从0开始的语句是________。5.双重循环中，________循环优先执行。6.标签控件________属性可以自动调整大小适配文本内容。7.实现强制退出For循环的语句是________。8.字符串长度检测函数是________。三、程序阅读题（共2题，每题8分，共16分）1.阅读下列程序，写出运行结果PlainText

PrivateSubCommand1_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+i

Nexti

Prints

EndSub2.阅读下列程序，写出运行结果PlainText

PrivateSubForm_Load()

DimaAsInteger,bAsInteger,tAsInteger

a=10

b=20

Ifa>bThen

t=a

a=b

b=t

EndIf

Printa,b

EndSub四、编程应用题（共2题，每题12分，共24分）1.编写VB程序，实现功能：点击命令按钮，输入一个正整数，判断该数是否为偶数，在窗体上输出判断结果。2.编写VB程序，利用For循环计算1~100之间所有奇数的和，并将结果输出在窗体上。参考答案及详细解析一、单项选择题答案及解析1.B解析：VB是典型的事件驱动型编程语言，程序运行依靠鼠标点击、键盘输入等事件触发代码执行。2.C解析：文本框、命令按钮、标签均为VB基础标准控件，树形视图属于ActiveX扩展控件，需要手动添加。3.B解析：窗体加载时优先触发Load事件，是窗体默认启动事件；Click为点击事件，Activate为激活事件。4.B解析：VB变量名首字符必须为字母，不能以数字开头、不能包含特殊符号、不能使用系统关键字。5.B解析：Integer为整型，String为字符串型，Single为单精度浮点型，Boolean为布尔型。6.B解析：Mod为取余运算，5除以2商2余1，结果为1。7.A解析：Int函数为向下取整，直接舍去小数部分，Int(3.8)=3。8.C解析：VB赋值语句格式为【变量=表达式】，左侧必须是变量，右侧是数值或表达式，无==赋值格式。9.C解析：顺序赋值语句，先执行a=b，a变为5，再执行b=a，b沿用更新后的a值5，最终a、b均为5。10.A解析：DoWhile...Loop为先判断条件，条件成立再执行循环体；Do...LoopWhile为先执行后判断。11.B解析：ExitSub用于结束当前子过程；End用于结束整个程序，Stop为暂停程序。12.C解析：Locked属性设为True时，文本框内容只读无法编辑；ReadOnly并非VB文本框标准属性。13.B解析：Time函数获取当前系统时间，Date获取日期，Now获取日期+时间。14.A解析：&为字符串连接符，直接拼接两个字符串，结果为abc123。15.B解析：If分支语句根据条件选择执行代码，属于选择结构。16.A解析：VB数组默认下标从0开始，可通过OptionBase语句修改起始下标。17.B解析：Caption属性为控件显示的文本，Name属性为控件的名称标识。18.C解析：Or逻辑或运算，只要一个条件成立结果即为真，3<5成立，故整体为True。19.B解析：循环变量取值1、3、5、7、9，共执行5次。20.B解析：.vbp为工程文件，.frm为窗体文件，.bas为模块文件，.exe为可执行文件。二、填空题答案1.True、False2.Text1.Text=""3.44.Dima(9)AsInteger5.内层6.AutoSize7.ExitFor8.Len()三、程序阅读题答案及解析1.运行结果：15解析：程序实现1到5的累加运算，s=1+2+3+4+5=15，循环结束后输出累加结果。2.运行结果：1020解析：初始a=10，b=20，判断条件a>b不成立，不执行交换语句，变量值保持不变，直接输出原值。四、编程应用题参考答案（完整可运行代码）1.判断偶数程序PlainText

PrivateSubCommand1_Click()

DimnAsInteger

'输入正整数

n=Val(InputBox("请输入一个正整数"))

'判断是否为偶数

IfnMod2=0Then

Printn&"是偶数"

Else

Printn&"不是偶数"

EndIf

EndSub解题思路：通过InputBox获取用户输入数据，Val函数转换为数值型，利用Mod取余运算判断能否被2整除，结合If分支输出结果。2.计算1~100奇数和程序PlainText

PrivateSubCommand2_Click()

DimiAsInteger,sumAsInteger

sum=0

'遍历1到100所有数字

Fori=1To100