2012春VisualBasic程序设计复习指导

2012春《VisualBasic程序设计》复习指导
一、课程考核说明
《VisualBasic程序设计》课程是中央电大计算机网络技术等专业选修省管课程。

课程教学总学时数为72学时，4学分。

本课程的考核由两部分构成：平时形成性考核（占总成绩的30%）和期末考试（占总成绩的70%）。

形成性考核主要考核学生平时的学习情况，包括平时作业成绩及实验的完成，面授课的参与，答疑以及小组活动的表现，自主学习等。

终结性考核占课程总成绩的的70%，采取卷面考试的形式；试题考察内容参考教学大纲，考察要求覆盖面广，并适当突出重点。

省管课程考试形式为全开卷，由省校统一组织命题。

试题兼顾各个能力层次，熟练掌握60%，掌握占30%，了解占10%。

试题的难易程度和题量适当。

答题时限：90分钟。

二、考核内容及要求
第一章可视化编程理论概述:
1．可视化编程的概念和特点
2．VB集成开发环境，VB工程及应用程序框架
3．Visual Basic 与其它可视化程序的区别
第二章 VB可视化编程初步
1．赋值语句、MsgBox语句或函数的使用；变量定义和声明。

2．窗体、标签、命令按钮和文本框的常用属性、方法和事件；
3．对象及对象的属性、方法和事件的概念，事件过程和事件驱动；
4．时钟控件的属性，事件及基本应用
第三章应用程序接口设计及代码编写
1．菜单、多窗体设计、MDI多文档窗体的设计
2．单选钮、复选框、控件列表框控件、组合框控件、通用对话框控件的常用属性，常用事件及使用方法
3．常用内部函数，一些常用数学函数及字符串处理函数，日期函数，格式化函数的使用方法
4．运算符和表达式；算术运算符，关系运算符，逻辑运算符及字符串连接符的使用；
运算符的优先级
5．常用数据类型，变量的作用域，变量的生存期；常量的定义和使用；命名规则
6．流程控制语句；顺序结构，选择结构，循环结构常用语句及分析
第四章 VB高级语言技巧
1.数组的基本概念、静态及动态数组的声明、控件数组的建立及使用
2.过程和函数的定义，区别及调用
2.参数传递机制基本概念及使用
3.键盘使用技巧:KeyPress事件、KeyDown和KeyUp事件
4．鼠标使用技巧:MouseMove、MouseDown、MouseUp事件
第五章文件处理应用程序设计方法
1.驱动器、目录列表、文件列表三个控件的主要属性；
2.文件处理相关语句和函数的用法
3.顺序、二进制、随机文件的打开、读、写、关闭的方法。

第六章图形图像和多媒体应用程序设计方法
1.理解坐标系统的概念，坐标系的度量，与坐标系统相关的几个重要属性，当前坐标，
及自定义坐标的方法
2、Picture和Image控件的常用属性及使用，line和shape控件的使用
3、MMC控件的常用属性和使用
4.绘图方法：画点，直线和矩形，圆与椭圆；图像处理的基本方法
第七章数据库应用程序设计方法
1．VB数据对象及数据库访问机制概述
2．ADO对象模型（connecttion和recordset等）
3．数据控和可视化数据管理器的使用；数据库绑定的几种方法
4．报表设计相关工具和使用
第八章网络应用程序设计方法
1．Winsock控件的属性，事件，方法及使用
2．基于socket的通信过程和基于Winsock的开发模式
第九章调试及错误处理
1．程序错误分类，常用程序调试方法及调试技巧
2．On Error语句的使用
第十章COM和Activex应用
COM和Activex相关概念
三、典型例题分析
（一）填空：
1.参数传递有方式和方式。

2．表达式13\2-2^3*5 MOD 6的值是。

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

4．如果要每隔0.5s产生一个Timer事件，则Interval属性应设置为。

5．程序的运行结果和程序员的设想有出入时产生的错误称为。

6．Winsock控件主要用来编制基于TCP/IP或协议的网络应用程序。

如果
希望得到本地计算机的IP地址，可以使用Winsock控件的属性。

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

8．过程级变量是指在声明的变量，窗体级或模块级变量是指窗体或模块的代码声明段用或声明的变量，在全局变量在整个应用程序中有效，一般在标准模块中使用语句声明。

参考答案：
1. 按地址按值
2．2
3．1
5.逻辑错误
6.Dim R(-2To 2,0 To 4) As Integer
7. UDP LocalIP
8．过程内部Dim Private Public
（二）选择
1．如果对象的名称为Mytext，而且对象有一个属性Text,那么在代码中引用该属性的正确格式是（）。

A．Text.Mytext B.Mytext.text C.Mytext.(Text) D.Mytext*Text
2．如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True。

A．Locked B.MultiLine C.TabStop D.Visible
3．对于窗体级变量，下列说法中错误的是（）。

A．所在窗体的各子程序都可以访问
B．其他窗体的子程序不能访问
C．所在窗体的子程序不能访问用Private定义的窗体级变量
D．一定要在所在窗体的通用区内定义
4．用下面的语句所定义的数组的元素的个数是（）。

Dim A(-3 to 5 ) as Integer
A．6 B. 7 C. 8 D. 9
5．以下的属性和方法中，可重定义坐标系的是（）。

A．Drawstyle属性 B.DrawWidth属性
C．Scale方法 D.ScaleMode属性
6．如果准备读文件，打开顺序文件“text.dat”的正确语句是（）。

A．open “text.dat” For wirte 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
7．执行Form1.Scale (0, 10)-(10, -10)语句后，Form1窗体坐标系x轴和y轴的正方向是（）。

A．向右和向上B．向左和向下
C．向右和向下D．向左和向上
8．使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（）A．Execute B．CommandType C．ActiveConnection D．Open
9．用来从数据库表中删除记录的SQL命令是（）。

A．where B．select C．update D．delete
10．要发送数据，通常使用Winsock控件的（）。

A．Listen方法B．GetDate方法
C．Accept方法D．SendData方法
参考答案：1 B 2 A 3 C 4D 5 C 6C
7．A 8．A 9.D 10.D
（三）读程序，写出程序运行结果
1.在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事
Private Function fun(ByVal m As Integer)
If m Mod 2 = 0 Then
fun = 2
Else
fun = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5
s = s + fun(i)
Next
Print s
End Sub
程序运行后,单击命令按钮,则窗体上显示的是:
2．Private Sub Command1_Click()
Dim x As Integer
Static s As Integer
X=Val(InputBox(“请输入一个正整数=”))
If x<5 Then
S=s*x
Else
S=s+x
End If
Text1.text=”s=” & str(s)
End Sub
程序运行时连续3次单击Command1，且设输入的数据为5、4、3时，分别写出文本框Text1的值。

3. Private Sub Form_Click()
Dim I As Integer, j As Integer
Dim c As Integer
c = 1
For I = 1 To 3
For j = 1 To 2
c = c + 3
Next j
Next I
Print c
End Sub
文件框Text1的输出结果是：
4．Private Sub Command1_Click()
Dim n As Integer,y As Integer,x As Integer
X = 1
Do While x < 20
n = n + 1
y = x + y
x = x * (x + 1)
Loop
Text1.Text = n
Text2.Text = x
Text3.Text = y
End Sub
写出程序运行时单击Command1后，文件框Text1、Text2和Text3的输出结果。

5．如下事件过程：
Private sub form_Click()
Dim x as integer , n as integer
X=1
N=0
Do while x<28
X=x*3
N=n-1
Loop
Print x,n
End sub
程序运行后，单击窗体，输出结果是
6.Function F(a As Integer)
B=0
Static c
B=b+1
C=C+1
F=a+b+c
End Fuction
Private Sub Command1_Click()
Dim a As Integer
A=2
For i=1 to 3
Print F(a)
Next i
End Sub
写出程序运行时，单击命令按钮在窗体上的输出结果。

参考答案
1．7
2. S=5
S=20
S=60
3．19
4. 3
42
9
5．81 4
6．４
５
６
（四）程序完善题：
1．.已知存在一名为“学生”的SQL Sever数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。

请编写一个简单的应用程序，向students 表中添加学生记录。

程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。

其运行界面如图2所示。

程序如下，请补充完整。

‘声明对象变量ADOcn，用于创建与数据库的连接
Private ADOcn AS Connection
Private 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 strDB
End If
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.Execute [5]
MsgBox “添加成功，请继续！”
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
答案：
［１］学生
［２］New Connection
［３］New;
［４］ADOrs.EOF;
［５］strDB;
2．假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。

现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。

当点击退出按钮(Command2)
时关闭本窗体。

图1用Access创建的学生基本情况数据表
图2 查询程序运行界面
程序如下，请补充完整。

Private ADOcn As Connection
Private Sub Form_Load()
[1]
ADOcn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\学生.MDB"
End Sub
Private Sub Command1_Click()
Dim strSQL As String
Dim ADOrs As [2] Recordset
ADOrs.ActiveConnection = ADOcn
strSQL = "Select * From 学生基本情况Where 学号=" + " ' " + Text1 + " ' "
.[3]
If [4] ADOrs.EOF Then
Text2 = ADOrs.Fields("学号")
Text3 = ADOrs.Fields("姓名")
Text4 = ADOrs.Fields("籍贯")
Else
MsgBox "要查询的学号不存在，请重新输入!", vbOKOnly, "信息提示"
Text1 = ""
[5]
End If
End Sub
Private Sub Command2_Click()
UnLoad Me
End
参考答案：[1] Set ADOcn = New Connection [2] New [3] ADOrs.Open strSQL
[4] Not [5]Text1.SetFocus
（五）编程题：
1.请根据下列描述编写购物优惠程序。

某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；
在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。

程序运行结果如图1所示。

程序运行界面如图6所示。

参考答案：Private Sub Command1_Click()
Dim x As Single, y As Single
x = V al(Text1.Text)
If x < 100 Then
y = x
Else
If x < 200 Then
y = 0.95 * x
Else
y = 0.9 * x
End If
Text2.Text = y
End If
End Sub
2.请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：
（1）收入在1200元以内，扣税3%；
（2）收入在1200-4000元内，1000元以上部分扣税15%，
（3）收入在4000-5000元内，4000元以内按（2）的方法扣税，4000元以上部分，扣税20%，
（4）当收入达到5000元以上，扣税25%。

程序运行界面如图所示。

参考答案：
Private Sub Command1_Click()
Dim x As Integer, tax As Single
x = Val(Text1.Text)
If x < 1200 Then
tax = x * 0.03
Else
If x <= 4000 Then
tax = (x - 1000) * 0.15
Else
If x <= 5000 Then
tax = (x - 1000) * 0.15 + (x - 4000) * 0.05
Else
tax = x * 0.25
End If
End If
End If
Text2.Text = tax
End Sub。