1、中央广播电视大学2004-2005第一学期VB程序设计试题2005年1月一、 单项选择题：1 为了保存一个Visual Basic应用程序，下列说法正确的是（）A. 只保存窗体文件（.frm）B. 只保存工程文件（.vbp）C. 分别保存工程文件和标准模块文件（.bas）D. 分别保存工程文件、窗体文件和标准模块文件2 语句Print 5 *55/5的输出结果是（）A.5 B.25 C.0 D.13下列可作为Visual Basic 变量名的是（）A.A(A+B) B.Alpha C.4ABC D.AB4标准SQL语言本身不提供的功能是（）A.数据表定义 B.查询C.修改、删除 D.绑定到数据
2、库5以下4个控件中，不属于数据绑定控件的是（）A.Text控件 B.OLE控件 C.Option控件 D.Image控件6在窗体上按下鼠标左键时产生的事件是（）A.KeyDown B.MouseUp C.MouseMove D.MouseDown7下列控件中不能响应Click事件的是（）A.Frame B.Label C.Form D.Timer8下列语句语法正确的是（）A.a=1 b=2 c=3 B.a=1 ：b=2 ：c=3C.a=1, b=2, c=3 D.a=1 ；b=2 ；c=39确定一个控件在窗体上位置的属性是（）A.Width或Height B.Width和HeightC.Top
3、或Left D.Top和Left10Kill语句在VB语言中的功能是（）A.清内存 B.清病毒 C.删除磁盘上的文件 D.格式化硬盘11要清除列表框的所有内容，可用来实现的方法是（）A.RemoveItem B.Cls C.Clear D.以上均不可以12如下数组声明语句，正确的是（）A.Dim a3,4 As Integer B.Dim a(3,4) As IntegerC.Dim a(n,n) As Integer D.Dim a(3 4) As Integer13下列控件中，没有Caption属性的是（）A.框架 B.列表框 C.复选框 D.单选按钮14如果准备读文件，打开顺序文件“te
4、xt.dat”的正确语句是（）A.open “text.dat” for write As # 1B.open “text.dat ” For Binary As # 1C.open “text.dat ” For Input As # 1D.open “text.dat” For Random As # 115当Winsock控件处于关闭状态时，其State属性的值是（）A.1 B.0 C.2 D.6二、 填空题（）1 Visual Basic开发环境总是处于下列的三种模式之一，它们是： 、 和 。而集成环境的标题栏总是显示 。2表达式16/22-3*7 MOD 9的值是 。3算术式，写成V
5、B表达式为 。4要使文本框控件可以接受多行文本，需将其属性Multiline设置为 。5VB坐标系的默认单位是 ，除此之外，用户还可以选用其它的度量单位，这需要通过对象的 属性来实现。6以窗体Form1的中心为圆心，画一个半径为800的圆的语句是 。7列表框控件中最后一项的序号等于ListCount属性减 。8在Visual Basic中，除了可以指定某个窗体作为启动对象之外，还可以指定 作为启动对象。9闰年的条件是：年号（Y）能被4整除，但不能被100整除；或者年号能被400整除。表示该条件的逻辑表达式是 。10设某个程序中要用到一个二维数组，要求数组名为A,类型为整型，第一维下标从-1到2
6、，第二维下标从-1到1，则相应数组声明语句为 。11COM对象有两种类型接口，即用户自定义接口和 。三、 阅读程序题阅读下列程序并写出程序运行结果1 Private Sub Form_Click() Dim x As Integer Static y As Integer X=x+1 Y=y+1 Form1.Print “x=”; x, “y=”; y End Sub写出程序运行时连续单击三次窗体后，Form1上的输出结果。2 Private Sub Command1_Click() Dim s As Double Dim I As Integer S=5 I=1 Do While i Sca
7、leHeight Then 2 Else 3 End IfFor r1=0 To rPicture1. 4 Next End SubPrivate Sub Command2_Click()5 End Sub2 已知存在一名为“学生”的SQL Sever数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图2所示。程序如
8、下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn AS ConnectionPrivate Sub Form_Load()连接SQL Server数据库 dim strDB AS String strDB=”Provider = SQLOLEDB; LSF; User ID=sa ; Password=; Database= 1 ” If ADOcn Is Nothing Then Set ADOcn= 2 ADOcn.Open strDBEnd IfEnd SubPrivate Sub Command1_Click()增加学生记录Dim strSQL
9、As StringDim ADOrs As 3 RecordsetADOrs.ActiveConnection= ADOcnADOrs.Open “Select 学号 From Students Where 学号=” +” ” + Text1 +” ”If Not 4 ThenMsgBox “您输入的学号已存在，不能新增加！”Else strSQL=”Insert Into students(学号，姓名，籍贯，性别)” strSQL=strSQL + Values (“ +” ”+ text1 +” , “ + text2 + “ , “ + text3 + “ , “ + text4 + “
10、 )”ADOrs.Execute 5 MsgBox “添加成功，请继续！”End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub五、 编写程序题编写一工资调整程序。若基本工资大于等于元，工资增加，若小于元大于元，则工资增加；若小于元则工资增加。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图所示。答案：一、 单项选择题二、填空题设计模式运行模式中断模式当前模式（-b + sqr(b2 - 4*a*c)）/ (2*a)4True5缇（Twips） ScaleMode
11、6Circle(ScaleWidth/2, ScaleHeight/2),8007Main子过程9Y MOD 4=0 And Y MOD 1000 OR Y MOD 400=010Dim A(-1 To 2, -1 To 1) As Integer11标准接口三、阅读程序题X=1 y=1x=1 y=2x=1 y=32四、完善程序题2Circle(X,Y), r1, RGB(255 * Rnd ,255 * Rnd, 255 * Rnd)Picture1.Cls学生New ConnectionNew;ADOrs.EOF;strDB;五、编写程序题Private Sub Command1_Click() Dim x As Integer, y As Single X= Val(Text1.text) Select Case x Case Is=800 Y=x*1.2 Case Is = 600 Y=x*1.15 Case Else Y= x* 1.1 End Select Label1.Caption =y End SubPrivate Sub Command2_Click() Unload meEnd Sub
