期末模拟试题2及参考答案

VB期末模拟试题2一、单项选择题（每题2分，共30分）1.以下控件中不是标准控件的是（）。A．水平滚动条和垂直滚动条B．ActiveX控件C．文件列表框、目录列表框和驱动器列表框D．OLE容器2．在VisualBasic中，要使一个窗体不可见，但不从内存中释放，应使用的语句是（）。A．ShowB．HideC．LoadD．UnLoand3．VisualBasic在程序开发过程中用于使用窗体或控件对象的属性是（）。A．NameB．CaptionC．TextD．Enabled4．以下事件中，不是鼠标事件的是（）。A．DragDropB．MouseDownC．DbClickD．Change5．下面哪个属性不是标签控件的属性（）。A．AlignmentB．BorderStyleC．CaptionD．Text6．下面哪个方法是控件获得焦点的方法（）。A．GotFocusB．LostFocusC．SetFocusD．Click7．在VisualBasic中，下属（）控件可以包含其他控件。A．ImageB．TextBoxC．FrameD．CheckBox8．假定窗体上有一个Text文本框，为使它的文本内容右对齐并且没有边框，则正确的属性设备为（）。A．Text1.Alignment=1B．Text1.Alignment=2Text1.BorderStyle=0Text1.BorderStyle=1C．Text1.Alignment=1D．Text1.Alignment=2Text1.BorderStyle=1Text1.BorderStyle=09．下列哪些方法是将项目添加到ComboBox控件中（）。A．ListB．ListIndexC．AddItemD．Move10．每当窗体失去焦点时会触发的事件是（）。A．ActiveB．DeactiveC．LostFocusD．Initialize11.（）函数判断文件指针是否到了文件结束标志；（）函数返回文件的字节数；（）语句用于设置对文件“锁定”；（）语句用于设置对文件“解锁”。A．EOF、LOF、Lock、UnlockB．LOF、EOF、Lock、UnlockC．EOF、LOF、Unlock、LockD．LOF、EOF、Unlock、Lock12．顺序文件的读操作通过下列（）语句可以实现。A．Input#和Read#B．Read#和Get#C．Get#和Input##D．LineInput#和Input#13．如果准备读文件，打开顺序文件text.dat的正确语句是（）A．Opentext.datForWriteAs#1B．Opentext.datForInputAs#1C．Opentext.datForBinaryAs#1D．Opentext.datForRandomAs#114.如果准备向随机文件中写入数据，正确的语句是（）A．Print#1,recB．Write#1,recC．Put#1,,recD．Get#1,,rec15.当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（）A．在Dir1_Change()事件中加入代码Dir1.Path=Drive1.DriveB．在Dir1_Channge()事件中加入代码Drive1.Drive=Dir1.PathC．在Dirve1_Channge()事件中加入代码Dir1.Path=Drive1.DriveD．在Dirve1_Channge()事件中加入代码Drive1.Drive=Dir1.Path二、填空题（每空2分，共20分）1．在VisualBasic中设置或修改一个对象的属性的方法有两种，它们分别是和在代码窗口编程。2．VisualBasic一般用4种类型的文件保存，分别是扩展名为的窗体文件，扩展名为.bas的标准模块文件，扩展名为的类模块文件和扩展名为.vbp的工程文件。3．VisualBasic语言提供了大量的内部函数方便程序开发人员编写程序，大体上可以分为函数、数学函数、日期时间函数、函数和函数等五类。4．在VisualBasic中，“公共对话框”控件还提供打印设置对话框。使用“公共对话框”控件的方法来显示“打印”对话框。5．多重窗体指在应用中有多个窗体，各窗体之间没有绝对的关系，但存在着出现的先后顺序和的关系。6．在一个含有多重窗体的应用程序中，经常需要在启动程序时先执行一个特定的启动过程，以便先对一些数据信息进行初始化后，再根据这些数据信息显示窗体。在VisualBasic中，将这个特定的过程命名为。三、阅读程序题（共24分）1．PrivateSubCommand1_Click()x=0DoWhilex20x=(x+1)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSub文件框Text3的结果是：2.PrivateSubCommand1_Click()DimxAsIntegerStaticsAsIntegerx=Val(InputBox(请输入一个正整数=))Ifx5Thens=s*xElses=s+xEndIfText1.Text=s=&Str(s)EndSub程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。3．PrivateSubForm_Click()A=10:b=15:c=20:d=25PrintA;Spc(5);b;Spc(7);cPrintA;Spc(8);b;Space$(5);cPrintc;Spc(3);+;Spc(3);d;PrintSpc(3);=;Spc(3);c+dEndSub4．PrivateSubForm_Click()Fori%=1To3Forj%=1ToiPrintLTrim(Str(i%))+*+LTrim(Str(j%))+=;i%*j%;Nextj%PrintNexti%EndSub四、完善程序题（共10分）已知存在一名为“学生”的SQLServer数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQLServer数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图所示。程序如下，请补充完整。'声明对象变量ADOcn，用于创建与数据库的连接PrivateADOcnAsConnectionPrivateSubForm_Load()'连接SQLServer数据库DimstrDBAsStringstrDB=Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=[1]IfADOcnIsNothingThenSetADOcn=[2]ADOcn.OpenstrDBEndIfEndSubPrivateSubCommand1_Click()'增加学生记录DimstrSQLAsStringDimADOrsAs[3]RecordsetADOrs.ActiveConnection=ADOcnADOrs.Open“Select学号FromStudentsWhere学号=”+”‘“+Text1+”‘“IfNot[4]ThenMsgBox“你输入的学号已存在，不能新增加！”ElseStrSQL=”InsertIntostudents(学号,姓名,,籍贯,性别)StrSQL=strSQL+Values(”+”‘“+text1+”‘,‘“+text2+”‘,’“+text3+”‘,’“+text4+”‘)”ADOcn.Execute[5]MsgBox“添加成功，请继续！”EndIfPrivateSubCommand2_Click()UnloadMeEndSub五、编写程序题（共16分）编写一个摄氏温度与华氏温度之间转换的程序，程序运行界面图所示：要使用转换的公式是：F=9/5*C+32其中F为华氏温度，C为摄氏温度。VB期末模拟试题2参考答案一、单项选择题（每题2分，共30分）1-5BBADD6-10CCACC11-15ADBCC二、填空题（每空2分，共20分）1．在属性窗口设置2．.frm.cls3．转换随机数字符串4．ShowPrinter5．从属互相调用6．SubMain三、阅读程序题（共25分）1.262．s=6s=11s=443．说明：一行中有多个语句时各语句之间需要插入冒号“：”；Spc(n)用来在输出中插入空白字符，n为空白字符数；逗号“，”分界符分隔要显示的多个项目，每个项目之间距离一个制表符（TAB）；分号“；”表示所有的项目并列显示（尽管下一个Print语句已经换行），中间没有空格4．四、完善程序题（共10分）分析：数据库应用程序的大致框架是(1)联接后台数据库(2)联接数据库中的某张表(3)对这张表进行查询(Select)、插入(Insert)、修改(Update)、删除(Delete)操作。据此，根据题意应首先在窗体的Load事件中编写连接后台数据库的事件过程。在Command1_Click()事件过程中，首先连接数据库中的“students”数据表，然后进行查询，查询结果用MsgBox给出提示信息，再对“students”数据表进行插入(Insert)操作。答案：[1]学生；[2]NewConnection[3]New；[4]ADOrs.EOF；[5]strSQL；五、编写程序题（共15分）解答：程序代码如下：PrivateSubCommand1_Click()IfText1.TextThenText2.Text=9/5*Text1.Text+32EndIfEndSubPrivateSubCommand2_Click()IfText2.TextThenText1.Text=(Text2.Text-32)*5/9EndIfEndSub