VisualBasic程序设计试题及答案2.doc

Visual Basic程序设计模拟试题及答案（二）一、单项选择题（每小题2分，共30分）1后缀为bas的文件表示VB的( )。 A类模块文件 B窗体文件 C工程文件 D标准类模块文件2无论何种控件，共同具有的属性是( )。 AText属性 BCaption属性 CName属性 DAutosize属性3如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是( )。 A. Text. Mytext B.Mytext. Text C. Mytext. (Text) D.Mytext*Text4在设计动画时，用时钟控件来控制动画速度的属性是( )。 AEnabled B.IntervalCTimer DMove5要在窗体上显示“欢迎您！”，使用的语句是( ) AFormcaption -”欢迎您！” BFormlcaption -“欢迎您！” CForml. print”欢迎您！” DFormprint“欢迎您！”6关于语句行，下列说法正确的是( )。 A一行只能写一条语句 B长度不能超过255个字符 C每行的酋字符必须大写 D一条语句可以分多行书写7下列正确的赋值语句是( )。 Ax+y= 20 By=x+20 C3x=y D. s= *r*r8如果希望以模态方式显示窗体Forml，下列正确的语句是( )。 A. Forml. Show B.Forml. Show 0 CForml. Show l D以下都不正确9对于定时器( Timer)控件，设置其定时是否开启的属性是( )。 AIndex BTag CEnabled DLeftl0多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把(指定为启动窗体。 A不包含任何控件的窗体 B设计时的第一个窗体 C包含控件最多的窗体 D命名为Frml的窗体11. Dim l As Integer则运行时变量I的初始值是( )。 A0 B1 C-1 D空值12使用ADO数据模型时，建立Recordset和Connection对象连接的属性是( AExecute BOpen C.ActiveConnection D.CommandType13.下列关于变量的说法不正确的是( )。 A局部变量是指那些在过程中用Dim语句或Static语句声明的变量 R局部变量的作用域仅限于声明它的过程 C静态局部变量是在过程中用Staric语句声明的 D局部变量在声明它的过程执行完毕后就被释放了14.下列数据对象模型中采用OLE DB访问数据库的是( )。 ADAO BADO C.RDO DRDO和ADO15为了在运行时把d:pic文件夹下的图形文件a.jpg装入图片框Picturel中，所使用的语句为( ) A. Picturel.Text= LoadPicture(”d:pica.jpg”) B. Picturel.Picture =LoadPicture(d:pica.jpg) C. Picturel. Picture =LoadPicture(d:pica.jpg) D. Picturel.Picture =Load(”dlpica.jpg”)二、填空题（每小题2分，共20分） 16.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按_键 17表达式8+13 Mod 2*4+3的值是_ 18.全局变量在整个应用程序中有效，一般在标准模块中使用_，语句声明。 19若窗体Forml左上角坐标为(0，600)，右下角的坐标为（800- 200）。则X轴的正向向_，Y轴的正向向_。 20将图片框的AutoSize属性设置成_时可使图片框根据图片调整大小。 21Winsock控件主要用来编制基于_或_协议的网络应用程序。 22. VB中Access敷据库属于_（说明是哪种数据库类型） 23VB应用程序与数据库进行通信的主要机制称为_ 24设某个程序中要用到一个二维散组，要求数组名为A类型为字符串类型，第一维下标从l到3，第二维下标从-1到2则相应的数组声明语句为_ 25列表框控件中最后一项的序号等于ListCount属性减_三、阅读程序题（共25分） 阅读下列程序并写出程序运行结果 26(6分) Private Sub Command1_Click() Dim Suml As Integer, Sum2 As Integer Suml = O：Sum2=2 For i =1 T0 2 For j=1 To i Sum2=Sum2*j Next j Suml = Suml+Sum2 Next i Print Suml End Sub 写出程序运行时单击Commandl按纽后，Forml上的输出结果 27（6分） Privaie Sub Commandl_Click() Do While x50 x=(x+1)*(x+2) n=n+l Loop Textl. Text = Str(n) Text2. Text = Str(x) End Sub 写出程序：运行时单击Commandl按纽后textl和text2上的输出结果。 28（6分） Private Sub Form_Click() a =3：b=4 Print A=；a；B=; b Call mult(a) Print A=;a；B=; b End Sub Private Sub mult(x) x=3+x b=5+b End Sub 写出程序运行后，单击窗体时的输出结果 29.（7分） Privale Sub CommandI_CLick() Static b As Integer Dim l As Integer I=1 Do b=b+l I=I+l Loop While I=4 Textl. Text=b Text2. Text=I End Sub 写出程序运行时两次单击Commandl按纽后，文本框Text1、Text2上的输出结果四、完善程序题（共10分）30假设在C盘根目录中存在一个名为“学生MDB的Access数据库，其中包含一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。 现在要求利用VB编写一个数据库记录增加程序，程序的运行界面如图2所示，基本逻辑是：分别在Textl、Text2、Text3中输入学号、姓名、籍贯信息，然后点击“保存”按钮(Commandl)将该记录添加到数据库中。如果数据库中已经存在相同的学号信息，则程序应提示用户“记录已存在，请重新输入”，并将焦点置于Textl上，等待用户修改或重新输入。当点击退出按钮(Command2)时关闭本窗体。程序如下，请补充完整Private Sub Form_Load()1 Provider = Microsoft. Jet. OLEDB.4.0 ；Dataource =学生.mdb；Persist Security Info= FalseEnd SubPrivate Sub Commandl_Click()Dim strSQL As String2 3 = ADOcnDim ADOrs As New RecordsetADOrs. ActiveConnection = ADOcnstrSQL=Select * from 学生基本情况 Where 学号= + Textl+ ADOrs. Open 4 lf Not ADOrsEOF Then MsgBox 学号已经存在，请重新输入！，vbOKOnly，信息提示ElseTextl. SetFocusstrSQL=Insert Into学生基本情况（学号，姓名，籍贯）”srrSQL=strSQL+Values（+Textl+，+Text2+,+Text3+）5 Execute strSQL MsgBox 添加成功！,vbOKOnly,信息提示End IfEnd Sub Private Sub Command2_Click() Unload Me End Sub五、编写程序题（共15分）31.编写简单的工资计算程序，要求在Textl、Text2、Text3中分别输入基本工资、奖金、扣款，单击“计算”按钮( Commandl)后，首先计算。应发工资”(Text4)，然后根据“应发工资”计算个人所得税(Text5)最后计算出实发工资(Text6) (1)应发工资=基本工资+奖金-扣款 (2)个人所得税的计算规则假设为：当应发工资在1000元以内部分（含1000元）不扣所得税，当应发工资大干1000，但小于等于4000元时，超过1000元的部分按15%计算所得税。当应发工资大于4000按20%扣税，程序运行结果如图3所示。Visual Basic程序设计（二）试题答案及评分标准一、单项选择题（每小题2分，共30分）1D 2C 3B 4B 5C6D 7B 8C 9C 10B11.A 12.C 13.D 14B 15B二、填空题（每小题2分，共20分）16F1171618Public19右 上20True21TCP/IP UDP22本地数据库23数据库引擎24Dim A(l TO 3,-1 TO 2) As String251三、阅读程序置l共25分）26.（6分）627.（6分）3 18228,（6分）A=3 B=4A=6 B=429（7分）10 520 5 .四.完善程序题 (共 10分)30. 1 ADOcn. Open 2 Dim ADOrs As New Recordsei 3 ADOrs, ActiveConnection 4 strsoL 5 ADOcn.五.编写程序题(共 15分)Private Sub Commandl_Click() Text4=Val(Text1)+Val(Text