VB期末模拟试题1一、单项选择题（每题2分，共30分）1．在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（）。
A、窗体设计器B、代码编辑器窗口C、属性窗口D、工程资源管理器窗口2．窗体的Load事件的触发时机是（）A、用户单击窗体时B、窗体被加载时C、窗体显示之后D、窗体被卸载时3．与传统的程序设计语言相比，Visual Basic最突出的特点是（）A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术4．无论何种控件，共同具有的属性是（）。
A．Text属性B．Caption属性C．Name属性D．Autosize属性5．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（）A、Text.MytextB、Mytext.TextC、Mytext.(Text)D、Mytext*Text6．按照变量的作用域可将变量划分为（）A、公有、私有、系统B、全局变量、模块级变量、过程级变量C、动态、常数、静态D、Public、Private、Protected7．可获得字符的ASCII码的函数是（）。
A、ValB、FixC、AscD、Chr8．要退出Do…Loop循环，可使用的语句是（）。
A、ExitB、Exit ForC、End DoD、Exit Do9．把数值型转换为字符串型需要使用的函数是（）。
A、ValB、StrC、AscD、Chr10．关于语句行，下列说法正确的是（）。
A、一行只能写一条语句B、一条语句可以分多行书写C、每行的首字符必须大写D、长度不能超过255个字符11．设置对象的边框类型的属性是（）A、DrawstyleB、BorderstyleC、DrawWidthD、ScaleMode12.为了清除图片框Picture1中的图形，应采取的正确方法是（）A、选择图片框，然后按Del键B、执行语句Picture1.Picture = LoadPicture("")C、执行语句Picture1.Picture = ""D、选择图片框，在属性窗口中选择Picture属性条，然后按回车键13．要绘制不同形状的图形，需要设置Shape控件的（）属性A、ShapeB、BorderstyleC、FillStyleD、Style14．要绘制多种式样的直线，需要设置Line控件的（）属性A、ShapeB、BorderstyleC、FillStyleD、Style15．如果准备读文件，打开顺序文件”text.dat”的正确语句是（）A、open "text.dat" For wrire As # 1B、open "text.dat" For Binary As # 1C、open "text.dat" For Input As # 1D、open "text.dat" For Random As # 1二、填空题（每题2分，共20分）1．Winsock控件主要用来编制或UDP协议的通讯程序。
2．若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150），则X轴的正向向右，Y轴的正向向。
3．图像框对象的Stretch属性设置为时，图像框可自动改变大小以适应其中的图形。
4．用Dim A(5,5)语句声明二维数组后，数组A的元素共有个。
5．设CurrentX=50,CurrentY=100，执行指令“Line(100,20)-Step(300,500)”后，CurrentY = 。
6．使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体移出内存，被调用的窗体中的属性等已处于。
7．将下列数学式子写成Visual Basic运算表达式。
sss---：。
a)())((csb8．将1≤ x <12写成Visual Basic逻辑表达式。
9．设A=2，B=3，C=4，D=5。
表达式Not A<=C Or 4*C = B^2 And B<>A+C的值为。
10．VB中的程序错误类型主要有编译错误、等三种。
三、阅读程序题（共25分）阅读下列程序并写出程序运行结果1．Private Sub Form_Click()Static Sum As IntegerFor I = 1 To 2Sum = Sum + INext IPrint SumEnd Sub点击窗体两次后，变量Sum的值是：2．Private Sub Form_Click()Dim a,c As IntegerFor a=1 To 5c=a+1Print cNext aEnd Sub变量C的结果依次为：3．Private Sub Command1_Click()Dim A(1 To 5) As IntegerDim b As IntegerFor b = 1 To 5A(b)=bNext bText1.Text=A(b-2)End Sub文本框Text1的结果是：4．Private Sub Command1_Click()Text1.Text=2Text2.Text=3Text3.Text=Text1.Text+Text2.TextText4.Text=Val(Text1.Text)+Val(Text2.Text)End Sub文件框Text3和Text4的结果分别是：四、完善程序题（共10分）1．已知SQL Server数据库管理系统中存在名称为“学生”的数据库，其中的“students”数据表的结构及初始记录如表1所示。
要求使用ADO对象和MSFlexGrid控件设计数据库列表显示程序。
程序的设计界面和运行结果如图1、图2所示。
图1图2程序如下，请补充完整。
'声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As Connection'ReadFromTable过程Private Sub ReadFromTable()Dim strtmp As StringDim ADOrs As [1]ADOrs.ActiveConnection = ADOcnADOrs.Open [2]MSFlexGrid1.ClearMSFlexGrid1.Rows = 0MSFlexGrid1.Cols = 3strtmp = "学号" + vbTab + "姓名" + vbTab + "专业"MSFlexGrid1.AddItem strtmpDo While Not ADOrs.EOFstrtmp = ADOrs("学号") + vbTab + ADOrs("姓名") + vbTab + ADOrs("专业")MSFlexGrid1.AddItem strtmp[ 3]LoopMSFlexGrid1.FixedCols = 0MSFlexGrid1.FixedRows = 1End SubPrivate Sub Form_Load()'定义数据库连接字符串Dim strDB As String'用于连接SQL Server数据库，其中:'Server为服务器名称'User ID为登录账号'Password为登录口令'Database为具体的数据库名strDB = "Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database =学生"'如果还没有建立与数据库的连接，则用以下代码创建。
If ADOcn Is Nothing ThenSet ADOcn = [4]ADOcn.Open [ 5] '连接SQL Server数据库End IfReadFromTable '调用过程显示students表中的记录End SubPrivate Sub Command1_Click()Unload MeEnd Sub五、编写程序题（共15分）请根据下列描述编写购物优惠程序。
某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。
在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。
程序运行结果如图1所示。
图1模拟试题1参考答案一、单项选择题（共30分）1．D 2．B 3．C 4．C 5．B 6．B 7．C 8．D9．B 10．B 11．B 12．B 13．A 14．B 15．C二、填空题（共20分）1．TCP/IP（或者回答TCP协议）2．上3．False4．365．5206．无效状态7．Sqr(s*(s-a)*(s-b)*(s-c))8．x>=1 And x<129．False10．实时错误逻辑错误三、阅读程序题（共25分）1．程序运行后，单击窗体两次后，Sum的值是：6。
2．程序运行后，单击窗体，输出结果为：2、3、4、5、63．程序运行后，单击Command1按钮，文件框对象Text1的结果为：44．程序运行后，单击Command1按钮，文件框对象Text3、Text4的结果分别为23、5四、完善程序题（共10分）（1）New Recordset；（2）"select * from students order by 学号"；（3）ADOrs.MoveNext；（4）New Connection；（5）strDB；五、编写程序题（共15分）Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(Text1.Text)If x < 100 Theny = xElseIf x < 200 Theny = 9.5 * xElseIf x < 300 Theny = 0.9 * xElseIf x < 500 Theny = 0.8 * xElsey = 0.7 * xEnd IfEnd IfEnd IfEnd IfText2.Text = y End Sub。