VisualBasic程序设计方案考试及答案2

1、Visual Basic 程序设计模拟试题及答案(二)、单项选择题 (每小题 2 分，共 30 分)1后缀为 bas 的文件表示 VB 的()。A 类模块文件B 窗体文件C.工程文件D 标准类模块文件2 无论何种控件，共同具有的属性是()。B Caption 属性D Autosize 属性Mytext ，而且对象有一个属性Text，那么在代码中引用该属性的正确A. Text属性C Name 属性3 如果对象的名称为 格式是 ()。A. Text. Mytext B.Mytext. TextC. Mytext. (Text) D.Mytext*Text( )。4在设计动画时，用时钟控件来控制动画

2、速度的属性是A EnabledB.IntervalC TimerD Move5要在窗体上显示“欢迎您！ ”，使用的语句是 ()A Formcaption -”欢迎您！”B Forml caption - “欢迎您！”C Forml. print ”欢迎您！”D Form print “欢迎您！ ”6关于语句行，下列说法正确的是()。A 一行只能写一条语句B 长度不能超过255个字符C.每行的酋字符必须大写D 一条语句可以分多行书写7下列正确的赋值语句是 ()。A x+y= 20B y=x+20C. 3x=y D. s= n *r*r&如果希望以模态方式显示窗体Forml，下列正确的语句

3、是()。A. Forml. Show B.Forml. Show 0C. Forml. Show l D .以下都不正确9对于定时器 ( Timer) 控件，设置其定时是否开启的属性是 ()。A IndexB TagC Enabled D Left l0 多窗体程序是由多个窗体组成，在缺省情况下， VB 在应用程序执行时，总是把 ( 指定为启动窗体。A .不包含任何控件的窗体B .设计时的第一个窗体C.包含控件最多的窗体D .命名为Frml的窗体11. Dim l As Integer 则运行时变量 I 的初始值是 ()。A0B1C -1 D 空值12. 使用ADO数据模型时，建立 Recor

4、dset和Conn ection对象连接的属性是(A ExecuteB OpenC.ActiveConnection D.CommandType13. 下列关于变量的说法不正确的是()。A .局部变量是指那些在过程中用Dim语句或Static语句声明的变量R.局部变量的作用域仅限于声明它的过程C. 静态局部变量是在过程中用Staric语句声明的D. 局部变量在声明它的过程执行完毕后就被释放了14. 下列数据对象模型中采用OLE DB 访问数据库的是 ()。A DAOBADOC.RDO DRDO 和 ADO15为了在运行时把 d:pic 文件夹下的图形文件 a.jpg 装入图片框 Picture

5、l 中，所使用 的语句为 ()A. Picturel.Text= LoadPicture(a”.jpgd: ”)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.全局变量在

6、整个应用程序中有效，一般在标准模块中使用 ，语句声明。19若窗体 Forml 左上角坐标为 (0，600)，右下角的坐标为( 800- 200)。则 X 轴 的正向向 ，Y 轴的正向向 。20将图片框的 AutoSize 属性设置成 时可使图片框根据图片调整大小。21Winsock 控件主要用来编制基于 或协议的网络应用程序。22. VB中.Access敷据库属于 .(说明是哪种数据库类型)23VB 应用程序与数据库进行通信的主要机制称为 24.设某个程序中要用到一个二维散组，要求数组名为A类型为字符串类型，第一维下标从 l 到 3，第二维下标从 -1 到 2则相应的数组声明语句为 25列表框

7、控件中最后一项的序号等于ListCount 属性减 三、阅读程序题(共 25 分)阅读下列程序并写出程序运行结果26(6 分)Private Sub Command1_Click()Dim Suml As Integer, Sum2 As IntegerSuml = O ：Sum2=2For i =1 T0 2For j=1 To iSum2=Sum2*jNext jSuml = Suml+Sum2Next iPrint SumlEnd Sub 写出程序运行时单击 Commandl 按纽后， Forml 上的输出结果27( 6 分)Privaie Sub Commandl_Click()Do

8、While x<50x=(x+1)*(x+2)n=n+lLoopTextl. Text = Str(n)Text2. Text = Str(x)End Sub 写出程序：运行时单击 Commandl 按纽后 textl 和 text2 上的输出结果。 28(6 分)Private Sub Form_Click()a =3： b=4Print "A=" ； a； "B=" bCall mult(a)Print "A="a ； "B=" bEnd SubPrivate Sub mult(x)x=3+xb=5+bE

9、nd Sub写出程序运行后，单击窗体时的输出结果29. (7 分)Privale Sub CommandI_CLick()Static b As IntegerDim l As IntegerI=1Dob=b+lI=I+lLoop While I<=4Textl. Text=bText2. Text=IEnd Sub写出程序运行时两次单击 Commandl 按纽后，文本框 Text1、 Text2 上的输出结果四、完善程序题(共 10 分)30假设在 C 盘根目录中存在一个名为“学生 MDB 的 Access 数据库，其中包含一 张名为“学生基本情况”的数据表，表中存放了学生的基本信息，

10、如图 1 所示。现在要求利用 VB 编写一个数据库记录增加程序， 程序的运行界面如图 2 所示， 基 本逻辑是：分别在 Textl 、Text2、Text3 中输入学号、姓名、籍贯信息，然后点击“保存”按 钮(Commandl)将该记录添加到数据库中。如果数据库中已经存在相同的学号信息，则程序 应提示用户 “记录已存在， 请重新输入” ，并将焦点置于 Textl 上，等待用户修改或重新输入。 当点击退出按钮 (Command2) 时关闭本窗体。re 1程序如下，请补充完整.Private Sub Form_Load()1 " Provider = Microsoft. Jet. OL

11、EDB.4.0 ; Dataource =学生.mdb; PersistSecurity lnfo= False"End SubPrivate Sub Comma ndl_Click()Dim strSQL As Stri ng2 -3 = ADOc nDim ADOrs As New RecordsetADOrs. ActiveCo nn ection = ADOc nstrSQL="Select * from 学生基本情况 Where 学号='"+ Textl+"'"ADOrs. Ope n 4lf Not ADOrs .

12、EOF ThenMsgBox "学号已经存在，请重新输入！”，vbOKOnly , ”信息提示”ElseTextl. SetFocusstrSQL="Insert Into学生基本情况(学号，姓名，籍贯) ”srrSQL=strSQL+"Values (”'+Textl+"'，”'+Text2+"',”'+Text3+"')".Execute strSQLMsgBox "添加成功！ ",vbOKOnly,"信息提示”End IfEnd SubPri

13、vate Sub Comma nd2_Click()Un load MeEnd Sub五、编写程序题(共15分)31.编写简单的工资计算程序，要求在 Textl、Text2、Text3中分别输入基本工资、奖金、 扣款，单击“计算”按钮(Commandl)后，首先计算。应发工资”(Text4)，然后根据“应发工资”计算个人所得税(Text5).最后计算出实发工资(Text6).(1) 应发工资=基本工资+奖金-扣款(2) 个人所得税的计算规则假设为： 当应发工资在1000元以内部分(含1000元).不扣所得税， 当应发工资大干1000，但小于等于4000元时，超过1000元的部分按15%计算所得

14、 税。 当应发工资大于 4000.按20%扣税，程序运行结果如图3所示。囹3Visual Basic程序设计（二）试题答案及评分标准单项选择题（每小题2 分，共 30 分）1D2C3B4B5C6D7B8C9C10B11.A12.C13.D14B15B填空题（每小题 2分，共20 分）16F1171618Public19右上20True21TCP/IPUDP22本地数据库23数据库引擎24Dim A(l TO 3,-1 TO 2) As String251三. 阅读程序置l共25分)26. (6 分)627. (6分)3 18228. (6分)A=3B=4A=6B=429(7 分)10 520 5四. 完善程序题 (共 10 分)30. 1 ADOcn. Open2 Dim ADOrs As New Recordsei3 ADOrs, ActiveConnection4 strsoL5 ADOcn.五. 编写程序题 (共 15 分)Private Sub Commandl_Click()Text4=Val(Text1)+Val(Text2) - Val(Text3)If Val(Te