你好

a=a+”A”
b=b+”B”
Textl=a
Text2=b
End Sub
写出程序运行时连续单击三次窗体后，文本框Textl和Text2显示结果。
2．(6分)
Private Sub Commandl_Click()
Dim A(1 To 5) As integerO
Text4= ADOrs.Fields(“籍贯”)
Else
MagBox“要查询的学号不存在，请重新输入！”，vbOKOnly，“信息提示”
Textl=“”
Textl.SetFocus
End If
End Sub
中央广播电视大学2007—2008学年度第二学期“开放专科’期末考试visualBasic程序设计 试题
2008年7月
1、Visual Basic是一种面向对象的可视化编程语言，采取了( )的编程机制。
A.事件驱动 B.按过程顺序执行 。
C.从主程序开始执行 D.按模块顺序执行
10.VB中将数据库分为本地数据库、___________和__________三种类型。
三、阅读程序题(共25分)
阅读下列程序并写出程序运行结果 ·
1．(6分)
Private Sub Form_Click()
Static a As String
Dim b As String
strSQL=“Select * Form 学生基本情况 Where 学号=“+”‘“+Text1+”‘“ [5]______________________________
If Not ADOre.EOF Then
Text2=ADOrs.Fields(“学号”)
Text3= ADOrs.Fields(“姓名”)
Private Sub Command2_Click()
UnLoad Me
End
五，编写程序题(共15分)
编写一工资调整程序。若基本工资大于等于2000元，增加工资20%，若小于2000元大
于1500元，则增加工资15%，若小于1500元则增加工资10%．要求在文本框Textl中输入人某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资．程序运行界面如图4所示．
[1]_________________________________________________________
[2]_________________________”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\学生.MDB”
3．计时器控件响应的事件是_______________。
4．为了在运行时把当前路径下的图形文件pictureflower.jpg装入图片框Picturel，所使用的语句为__________________．
5．VB中的程序错误类型主要有编译错误、_______、_______等三种。
Dim x As Integer
For i=1 T0 5
A(i)=i
Next i
i=1
Do While x<5
A(i)=A(i)+x
X=x+2
i=i+1
Loop
Text1.text=A(1)
Text2.Text=A(3)
B.局部变量的作用域仅限于声明它的过程
C.静态局部变量是在过程中用Static语句声明的
D.局部变量在声明它的过程执行完毕后就被释放了
4．工程文件的扩展名是( )。
A．.frm B．.bas C．.vbp D．.frx
14．ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是( )．
mand B.Connection
C.Recordset D.Field
15．要发送数据，通常使用Winsock控件的( ).
5．要在窗体的标题内显示“myfrm”，使用的语句是（ ）
A.Form.caption="myfrm"
B.Form1.caption="myfrm"
C.Forml.Print"myfrm"
D.Form.Print"myfrm"
6．在VB中，下列变量名不合法的是( )。
据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名，籍贯信息，否则提示用户“记录不存在”并使Textl获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。
程序如下，请补充完整。
Private ADOcn As Connection
Private Sub Form_Load()
6．数据库应用程序属于一种非常典型的首后台软件结构，而前后台之间进行通信的主要机制称为_______________。
7．用DimA(4，4)语句声明二维数组后，数组A的元素共有_______个。
8．欲设置定时器的时间间隔为2秒，则属性Interval的值为_________。
9．若窗体Forml左上角坐标为(0，600)，右下角的坐标为(800,-200),则X轴的正向向__________，Y轴的正向向_________。
A.Caption B.lndex
C.Tag D.没有参数
12．如果要在窗体代码编辑器的“通用”部分定义私有Sub过程，用正确的语句是(
A.Public Sub
B.private Sub
C.Public Fuຫໍສະໝຸດ ction Y=Y+j
Next j
X=X+Y
Next i ，
Print X
End Sub
写出程序运行时单击命令按钮后，窗体Form1上的输出结果。
4．(7分)
Function F(a As Integer，b As Integer) As Integer
四、完善程序题(共10分)
假设用Access创建了一个名为“学生．MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本情况，如图1所示。
现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：
首先文本框(Textl)中输入希望查询的学生学号，然后点击“查询’按钮(Commandl)，如果数
2、Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（ ）
A.设计模式 B.执行模式 C.中断模式 D.编写代码模式
3．下列关于变量的说法不正确的是( )．
A.局部变量是指哪些在过程中用Dim语句或Static语句声明的变量
End Sub
Private Sub Command1_click()
Dim strSQL As String
Dim ADOrs As [3]_______________________Recordset
ADOrs.ActiveConnection=[4]______________________________________
End Sub
写出程序运行时单击窗体后，Forml上的输出结果。
3．(6分)
Private Sub Command1_Click()
Dim X As Integer,Y As integer
X=1:Y=1
For i=1 To 3
For j=1 to i
A.SendData方法 B. Listen方渣
C.Accept方法 D.GetDete方抉
二、填空题(每小题2分，共20分)
1．一个VB应用程序可以包含___________个vbp文件。
2．表达式7+15＼2*3 Mod 2的值是____________。
D.Private Function
13．下列叙述不正确的是( )．
A.注释语句是非执行语旬，仅对程序的有关内容起注释作用，客观存在不被解释和编译
B.注释语句不能放在代码中的任何位置
C.注释语句可以放在代码中的任何位置
D.代码中加入注释语句的目的是提高程序的可读性
8．要利用公用对话框控件来显示“打开文件”对话框，需要调用控件的（ ）方法。
A.ShowPrinter B.ShowOpen
C.ShowSave D.ShowColor
9．确定一个控件在窗体上位置的属性是( )．
A.Width和Height B.Width或Height
A.file_1 B.file
C.file-1 D.file_l_2
7．要从For…Next循环中退出循环；，应使用( )语句。
A.Exit B.Exit For
C.Continue D.Stop Loop
C.Top和Left D.Top或left
10．如果希望以模态方式显示窗体Forml，下列正确的语句是(
a.Forml.Show O B. Forml.Show
C.Forml.Show l D．以上都不正确
11．如果创建了命令按钮的拄件数组，那么Click事件的参数是( )。
F=a+b
End Function
Private Sub Form_ClickO
Dim a As Integer,b As Integer，z As Integer
a=2： b=3
z=F(a，b)