VB中职生专项试题及参考答案

VB中职生专项试题及参考答案考试时间：______分钟总分：______分姓名：______一、选择题（每小题2分，共20分）1.下列VB变量名中，合法的是（）A.3nameB.student_nameC.IfD.x+y2.要在文本框中显示多行文本，应将其（）属性设置为True。A.MultiLineB.ScrollBarsC.EnabledD.Visible3.执行语句`Fori=2To6Step2`，循环体执行的次数是（）A.2次B.3次C.4次D.5次4.以下控件中，用于接收用户输入文本的是（）A.LabelB.TextBoxC.CommandButtonD.Timer5.语句`Dima(3)AsInteger`定义的一维数组a，其下标范围是（）A.0到3B.1到3C.0到2D.1到26.以下事件中，窗体加载时触发的是（）A.ClickB.LoadC.UnloadD.Resize7.要实现“当点击按钮时弹出提示框”，应使用（）方法。A.MsgBoxB.InputBoxC.PrintD.Input8.以下运算符中，优先级最高的是（）A.+B.ModC.>D.And9.语句`Ifx>0Andx<10Then`中，`And`的作用是（）A.逻辑与B.逻辑或C.逻辑非D.比较运算10.以下过程定义中，正确的是（）A.SubMySub(xAsInteger)B.FunctionMyFun(xAsInteger)AsStringC.SubMySubxAsIntegerD.FunctionMyFunxAsInteger二、填空题（每空2分，共20分）1.VB中，声明整型变量的关键字是______。2.循环语句`DoWhilei<5`中，循环条件是______。3.要将标签Label1的背景色设置为红色，应设置其______属性为vbRed。4.函数`Len("VB程序设计")`的返回值是______。5.语句`Open"data.txt"ForOutputAs#1`的作用是______。6.要在窗体上显示文字“欢迎使用VB”，可使用______方法。7.数组`a(1To5)`中，最后一个元素的下标是______。8.事件过程`PrivateSubCommand1_Click()`中，Click表示______事件。9.语句`DimbAsBoolean`定义的是______类型变量。10.要实现“点击按钮后窗体隐藏”，应执行语句______。三、判断题（每小题1分，共10分）1.VB中，变量名可以包含空格。（）2.窗体的Caption属性用于显示窗体的标题。（）3.For循环中的Step步长可以为负数。（）4.数组的下标必须从1开始。（）5.MsgBox函数只能返回“确定”或“取消”两种值。（）6.If语句的ElseIf部分可以省略。（）7.文本框的Locked属性为True时，用户可编辑文本。（）8.程序运行时，窗体的Show方法会触发Load事件。（）9.逻辑表达式`Not(x>0)`等价于`x<=0`。（）10.Sub过程可以有返回值。（）四、程序阅读题（每小题5分，共15分）1.阅读以下代码，写出程序运行后文本框Text1中显示的结果。```vbPrivateSubCommand1_Click()DimsAsString,iAsIntegers=""Fori=1To3s=s&Str(i)NextiText1.Text=sEndSub```2.阅读以下代码，写出程序运行后标签Label1中显示的结果。```vbPrivateSubForm_Load()DimaAsInteger,bAsIntegera=5:b=2a=a+bb=a-ba=a-bLabel1.Caption="a="&a&",b="&bEndSub```3.阅读以下代码，写出程序运行后窗体上显示的内容。```vbPrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To2Forj=1To3Printi*j;NextjPrintNextiEndSub```五、程序完善题（每空5分，共15分）1.以下程序实现“计算1到10之间奇数的和”，请补全代码。```vbPrivateSubCommand1_Click()DimsumAsInteger,iAsIntegersum=0Fori=1To10If______Then'补全条件判断sum=sum+iEndIfNextiLabel1.Caption="奇数和为："&sumEndSub```2.以下程序实现“读取文本文件data.txt的内容并显示在标签中”，请补全代码。```vbPrivateSubCommand1_Click()DimstrAsStringOpen"data.txt"ForInputAs#1______'补全读取文件内容语句Close#1Label1.Caption=strEndSub```3.以下程序实现“判断输入的年份是否为闰年”，请补全代码。（闰年条件：能被4整除但不能被100整除，或能被400整除）```vbPrivateSubCommand1_Click()DimyearAsIntegeryear=Val(Text1.Text)If______Then'补全闰年判断条件Label1.Caption="是闰年"ElseLabel1.Caption="不是闰年"EndIfEndSub```六、编程题（共20分）设计一个“简易计算器”界面，实现以下功能：1.界面包含：两个文本框Text1、Text2（用于输入数字），一个标签Label1（用于显示运算结果），四个命令按钮Command1（加）、Command2（减）、Command3（乘）、Command4（除）。2.要求：-在Text1和Text2中输入数字后，点击“加”按钮，将两数之和显示在Label1中；-点击“减”按钮，显示Text1减Text2的差；-点击“乘”按钮，显示两数之积；-点击“除”按钮，显示Text1除以Text2的商（注意除数为0时的提示）；-点击“除”按钮时，若Text2为0，弹出提示“除数不能为0”。请编写完整的VB代码实现上述功能。试卷答案一、选择题1.B解析：变量名需以字母开头且不能是关键字，B符合规则。2.A解析：MultiLine属性设置为True时文本框可显示多行。3.B解析：循环变量i取2、4、6，共3次。4.B解析：TextBox用于接收用户输入文本。5.C解析：数组下标默认从0开始，0到2共3个元素。6.B解析：Load事件在窗体加载时触发。7.A解析：MsgBox方法用于弹出提示框。8.C解析：比较运算符>优先级高于算术运算符和逻辑运算符。9.A解析：And表示逻辑与，需同时满足两个条件。10.A解析：Sub过程定义需用As指定参数类型，B是Function过程。二、填空题1.Integer解析：VB中声明整型变量用Integer关键字。2.i<5解析：循环条件为i小于5时继续循环。3.BackColor解析：BackColor属性用于设置控件背景色。4.5解析：Len函数返回字符串长度，"VB程序设计"含5个汉字。5.以输出模式打开data.txt文件解析：ForOutput表示以写入方式打开文件。6.Print解析：Print方法在窗体或控件上显示文本。7.5解析：数组下标从1到5，最后一个元素下标为5。8.鼠标单击解析：Click事件由鼠标单击触发。9.布尔解析：Boolean类型变量存储True/False值。10.Me.Hide解析：Hide方法用于隐藏当前窗体。三、判断题1.×解析：变量名不能包含空格。2.√解析：Caption属性用于显示窗体标题。3.√解析：Step步长可为负数，实现倒序循环。4.×解析：数组下标默认从0开始。5.×解析：MsgBox可返回多种值（如确定、取消、是、否）。6.√解析：If语句的ElseIf部分可根据需要省略。7.×解析：Locked为True时用户不可编辑文本。8.√解析：Show方法会触发窗体的Load事件。9.√解析：Not运算符取反，x>0的否定即x<=0。10.×解析：Sub过程无返回值，Function过程才有。四、程序阅读题1."123"解析：循环中Str(i)将数字转为字符串并连接，空格由Str函数自动添加。2."a=2,b=5"解析：通过交换算法，a和b的值互换，最终a=2，b=5。3.123246解析：外层循环i=1时，内层j=1、2、3输出1、2、3；i=2时输出2、4、6，Print换行。五、程序完善题1.`iMod2<>0`解析：奇数除以2余数不为0，用Mod运算判断。2.`Input#1,str`解析：Input#语句从文件中读取一行内容到变量str。3.`(yearMod4=0AndyearMod100<>0)Or(yearMod400=0)`解析：闰年条件为能被4整除但不能被100整除，或能被400整除。六、编程题```vbPrivateSubCommand1_Click()Dimnum1AsDouble,num2AsDoublenum1=Val(Text1.Text)num2=Val(Text2.Text)Label1.Caption=num1+num2EndSubPrivateSubCommand2_Click()Dimnum1AsDouble,num2AsDoublenum1=Val(Text1.Text)num2=Val(Text2.Text)Label1.Caption=num1-num2EndSubPrivateSubCommand3_Click()Dimnum1AsDouble,num2AsDoublenum1=Val(Text1.Text)num2=Val(Text2.Text)Label1.Caption=num1*num2EndSubPrivateSubCommand4_Click()Dimnum1AsDouble,num2AsDoublenum