电大试题 vb 2005年1月

中央广播电视大学2004—2005学年度第一学期“开放专科”期末考试 软件信息、软件网站计算机(应用)专业 Visual Basic程序设计 试题

2005年1月

一、单项选择题(每小题2分，共30分)

1．为了保存一个Visual Basic应用程序，下列说法正确的是( ) A. 只保存窗体文件(．frm) B. 只保存工程文件(．Vbp)

C. 分别保存工程文件和标准模块文件(．bas)

D．分别保存工程文件、窗体文件和标准模块文件 2．语句Print 5* 5＼5／5的输出结果是( ) A. 5 B．25 C. 0 D．1

3．下列可作为Visual Basic变量名的是( ) A．A(A+B) B．Alpha C. 4ABC D. ABΠ

4．标准SQL语言本身不提供的功能是( ) A. 数据表定义 B．查询

C．修改、删除 D．绑定到数据库

5．以下4个控件中，不属于数据绑定控件的是( ) A. Text控件 B. OLE控件

C．Option控件 D．Image控件

6．在窗体上按下鼠标左键时产生的事件是( ) A．KeyDown B．MouseUp C. MouseMove D．MouseDown

7．下列控件中不能响应Click事件的是( ) A．Frame B．Label C. Form D．Timer

8．下列语句语法正确的是( )

A．a=l b＝2 c=3 B．a=l:b=2：c=3

C．a=1，b=2，c=3 D．a=1；b=2；c=3 9．确定一个控件在窗体上位置的属性是( ) A. Width或Height B．Width和Height C．Top或Left D. Top和Left

10．KILL语句在VB语言中的功能是( ) A. 清内存 B. 清病毒

C. 删除磁盘上的文件 D．格式化硬盘

11．要清除列表框的所有内容，可用来实现的方法是( ) A．RemoveTtem B．Cis C. Clear D. 以上均不可以

12．如下数组声明语句，正确的是( )

A．Dim a[3，4] As Integer B．Dim a(3，4) As Integer C. Dim a(n，n) As Integer D．Dim a(3 4) As Integer 13．下列控件中，没有Caption属性的是( ) A. 框架 B. 列表框

C. 复选框 D．单选按纽

14．如果准备读文件，打开顺序文件\"text．dat\"的正确语句是( ) A．open\"text.dat\"For wrire As#1 B．open\"text.dat\" For Binary As #1 C. open\"text．dat\"For Input As#1 D．open\"text．dat\"For Random As#1 15．当Winsock控件处于关闭状态时，其State属性的值是( ) A．1 B．0

C. 2 D. 6

二、填空题(每空1分，共15分)

1．Visual Basic开发环境总是处于下列的三种模式之一，它们是：________、________和_______，而集成环境的标题栏总是显示_______。

2．表达式16/2-2∧3*7 MOD 9的值是_______。 3．算术式，写成VB表达式为_______________

4．要使文本框控件可以接受多行文本，需将其属性Multiline设置为________。

5．VB坐标系的默认单位是____________，除此之外，用户还可以选用其它的度量单位，这需要通过对象的___________属性来实现。

6．以窗体Form1的中心为圆心，画一个半径为800的圆的语句是______________________________________。

7．列表框控件中最后一项的序号等于ListCount属性减____________________。

8．在VisualBasic中，除了可以指定某个窗体作为启动对象之外，还可以指定_________作为启动对象。 9．闰年的条件是：年号(Y)能被4整除，但不能被100整除；或者年号能被400整除。表示该条件的逻辑表达式是

10．设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从-1到2，第二维下标从-1到1，则相应数组声明语句为_____________________________。

11．COM对象有两种类型接口，即用户自定义接口和__________________。

三、阅读程序题(每小题5分，共20分) 阅读下列程序并写出程序运行结果 1．Private Sub Form_Click() Dim x As Integer Static y As Integer x＝x+1 y=y+l

Forml．Print“x＝”；x，“y＝”；y End Sub

写出程序运行时连续单击三次窗体后，Forml上的输出结果。

2．Private Sub Command1_Click() Dim s AS Double Dim i As Integer s＝5 i=1

Do While i<9 i＝i+2 s=s+i Loop

Text1．Text=3 End Sub

文件框Text1的输出结果是：

3．Private Sub Form_Click() Dim i as integer，j as integer Dim c as integer c＝0

For i＝1 To 3 For j=1 to 3 c=c+1 Next j Next i

Print c End Sub

写出程序运行时单击窗体后，c的输出结果：

4．Function F(a As Integer) b＝0 Static c b＝b+l c=c+1 F＝a+b+c End Function

Private Sub Command1_Click() Dim 9 A3 Integer a＝2

For i＝1 To 3 Print F(a) Next i End Sub

写出程序运行时，单击命令按钮在窗体上的输出结果。

四、完善程序题(每题10分，共20分)

1． 1． 创建一个绘图程序。当程序运行时，单击“开始”按纽，在Picture控件上画出随机彩色同

心圆，单击“清屏”按钮，则图像消失。要求坐标度量单位为毫米，边线的宽度为2像素，绘制的圆不超出窗体。程序运行界面如图1所示。

图1

程序如下，请补充完整。 Private Sub Command1_Cliek()

Dim X As Integer，Y As Integer，r As Integer，r1 As Integer，i As Integer ScaleMode=6 DrawWidth＝[1]

X=Picture1，ScaleWidth／2 Y＝Picture1．ScaleHeight／2 If ScaleWidth>ScaleHeight Then [2] Else

[3] End if

For r1＝0 To r Picture1．[4] Next End Sub

Private Sub Command2_Cliek() [5]

End Sub

2． 2． 已知存在一名为“学生”的SQLServer数据库，其中的\"students\"数据表用来存储学生的基本

情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQLServer数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图2所示。

程序如下，请补充完整。

’声明对象变量ADOcn，用于创建与数据库的连接 Private ADOcn As Connection Private Sub Form_Load() ‘连接SQLServer数据库 Dim strDB As String

strDB＝\"Provider=SQLOLEDB; LSF；User ID＝sa; Password=；Database ＝[1] \"

If ADOcn is Nothing Then Set ADOcn＝[2]

ADOcn．Open strDB End lf End Sub

Private Sub Command1_Click() ’增加学生记录 Dim strSQL As String

Dim ADOrs As[3]____________Recordset ADOrs．ActiveConnection=ADOcn

ADOrs．Open\"Select学号From Students Where学号=\"+\"’\"+Text1+\"’\" If NOt[4]__________________Then

MsgBox“你输入的学号已存在，不能新增加！” Else

StrSQL=”Insert Into students(学号，姓名，，籍贯，性别) StrSQL＝strSQL+Values(“+”，“+text1+”‘，’“+text2+”‘，’“+text3+” ‘，’“+text4+”’)”

ADOrs．Exeeute[5]_____________ MsgBox“添加成功，请继续!” End lf

Private Sub Command2_Click() Unload Me

End Sub

五、编写程序题(共15分)

编写一工资调整程序。若基本工资大于等于800元，工资增加20％，若小于800元大于600元，则工资增加15％；若小于600元则工资增加10％。要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。程序运行界面如图3所示。

试卷代号：223l

中央广播电视大学2004—2005学年度第一学期“开放专科”期末考试

软件信息、软件网站计算机(应用)专业 Visual Basic程序设计

试题答案及评分标准

(供参考)

2005年1月

一、单项选择题(每小题2分，共30分) 1．D 2．B 3．B 4．D 5．C 6．D 7．D 8．B 9．D 10. C 11．C 12. B 13．B 14．C 15. B

二、填空题(每空1分，共15分)

1．设计模式 运行模式 中断模式 当前模式 2．6

3．(-b+sqr(b∧2-4*a*c))／(2*a) 4．True

5．缇(或Twips) ScaleMode

6．Circle(ScaleWidth／2，ScaleHeight／2)，800 7． 1

8．Main子过程

9．Y MOD 4＝0 And Y MOD 100<>0 OR Y MOD 400=0 10．Dim A(-1 TO 2，-1 To 1) As Integer 11．标准接口

三、阅读程序题(每小题5分，共20分) 1．x=1 y＝l x=l y＝2

x=l y=3 2． 29 3． 9 4． 4

四、完善程序题(每题10分，共20分) 1． [1]2

[2]r＝Y [3]r＝X

[4]Circle (X，Y)，r1，RGB(255 * Rnd，255 * Rnd，255 * Rnd) [5]Picture1．C1s 2．

[1]学生；

[2]New Connection [3]New；

[4]ADOrs．EOF； [5]strDB：

五、编写程序题(共15分) 参考答案：

Private Sub Command1_Click() Dim x As Integer, y As Single x=Val(Text1．Text) Select Case x Case If>＝800

y=x * 1.2

Case lf>＝600 y=x*1.15

Case Eise y=x * 1.1 End Select

Label1．Caption=y End Sub

Private Sub Command2_Click() Unload Me End Sub