案例一：使用ADO控件
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
一个简单的数据库浏览程序
让学生在已有VB和ACCESS数据库的基础上，掌握如何使用ADO控件实现用VB界面浏览ACCESS数据库，从而认识二者之间的连接。
1. ADO数据控件与数据库相关的部分属性。
2. 使用ADO控件实现简单的数据浏览。
主要源码：
Private Sub Text1_Change()
a = Adodc1.Recordset.AbsolutePosition
b = Adodc1.Recordset.RecordCount
Adodc1.Caption = "当前记录号: " & a & "/" & b
End Sub
案例二：
结构化程序设计的含义、顺序结构案例、选择结构的案例
1. 复习行if……else……then；iif（x,y,z）;块if的结构
2. iif、行if与块if的相互转化。
3. 判断奇偶数案例（判定、清除、退出按钮、文本框显示数字）
4.
函数
excel方差函数excelsd函数已知函数 2 f x m x mx m 2 1 4 2拉格朗日函数pdf函数公式下载
值计算案例（块if）
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
If x >= 0 Then
y = 1 + x
Else: y = 1 - 2 * x
End If
Text2.Text = y
End Sub
实例三：奇偶数判断、函数计算、加法计算器
在上机环境中，实现三个小实例，实现选择结构的运用。
1. 代码编写的常见问题。
2. if结构和错误写法。
3. 控件的灵活运用。
主要源码：
x = Val(Text1.Text)
If x Mod 2 = 0 Then
Label2.Caption = "它是偶数。"
Else Label2.Caption = "它是奇数"
End if
x = Val(Text1.Text)
If x >= 0 Then y = 1 + x Else y = 1 - 2 * x
Text2.Text = y
案例四：If语句的嵌套
1. 在已有if简单句法结构的基础上，掌握if的嵌套使用。
2. 将if的嵌套，转化成elseif多分支。
If……then
Elseif……then
Else……
End if
1.代码编写的常见问题。
2.elseif结构和错误写法。
补充：
1. 铁路托运行李费用的计算。
2. 商场的促销打折。
3. 电费的计算。
案例五：
多分支select……case案例
1． 结合elseif多分支，掌握select……case的结构及执行流程。
2． 利用select……case进行案例设计。
不同时期机票优惠率的打折计算。
主要源码:
m = Val(Text1.Text)
n = Val(Text2.Text)
Select Case m
Case Is <= 5, 10, 11
If n < 20 Then r = 20 Else r = 30
Case 7 To 9
If n < 20 Then r = 5 Else r = 15
Case Else
r = 10
End Select
Label5.Caption = Str(r) & "%"
案例六：
Select case实例
设计一个判断元音和辅音字母的程序，来深入理解select case 在程序设计中的应用。
1. Select case的应用。
2. 加以深入创新。
主要源码：
Select Case zimu
Case "a", "A"
Label2.Caption = "很高兴，这是元音字母。"
Case"A", "a""e", "E""I", "i""O", "o" "u", "U"
Case Else
Label2.Caption = "呵呵，这是辅音字母。"
End Select
案例七：
循环结构的理解及for语句的结构
1. 关于循环结构的理解
2. for语句的结构及执行过程。
3. for语句的结构。
4. for练习实例。
For语句的嵌套使用，打印九九表。
小案例：
1.1+2+3……100的和。
2.输出1000以内能被37整除的自然数。
Private Sub Command1_Click()
a = ""
For n = 1 To 1000
If n Mod 37 = 0 Then
a = a & Str(n) & Chr(13) & Chr(10)
End If
Next
Text1.Text = a
End Sub
3.For语句的嵌套使用，打印九九表。
案例八：
For语句的案例运用
1. 打印九九表。
2. 打印100以内能被5整除的数及其个数。
3. 九九表中的格式设定的理解。
4. 换行符的有效运用。
过程源码：
Private Sub Form_Load()
Show
FontSize = 12
Print Tab(25); "九九表"
Print
Print "*";
For i = 1 To 9
Print Tab(6 * i); i;
Next i
Print
For j = 1 To 9
Print j;
For k = 1 To 9
m = j * k
Print Tab(6 * k); m;
Next k
Print
Next j
End Sub
案例九：
用滚动条调节颜色RGB的实例、下拉菜单设计
1． HScroll的属性的应用（value等）
2． 子过程的调用。
3． RGB函数的使用。
1. HScroll的属性的应用（value等）
2. 子过程的调用。
3. RGB函数的使用。
1. HScroll的属性的应用（value等）
2. 子过程的调用。
3. RGB函数的使用
子过程源码：
Private Sub changecolor()
Text1.BackColor =RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
案例十：
奖学金的评比
1． 数据控件的使用，实现数据库的访问。
2． 利用vb和access的结合，实现数据库中数据的运算选择。
3． 通过Data控件的属性设置，实现数据库的连接。
4． 通过recordset记录集实现对数据库的访问。
5． 命令按钮实现事件的激发。
Private Sub Command1_Click()
Command1.Enabled = False
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
zcj = zcj + Data1.Recordset.Fields("成绩").Value
i = i + 1
Data1.Recordset.MoveNext
Loop
pingjun = zcj / i
Data1.Recordset.MoveFirst
Print "姓名", "学号", "成绩", "等级"
Do While Data1.Recordset.EOF = False
Select Case Data1.Recordset.Fields("成绩").Value
Case Is > pingjun * 1.1
Print Data1.Recordset.Fields("学号").Value,
……
Print "一等奖"
Case Is > pingjun * 1.05
……
Print "二等奖"
Case Else
……
End Select
Data1.Recordset.MoveNext
Loop
案例十一：
数据库访问案例
1. 熟悉access表的基本操作。
2. 使用数据控件实现recordset及其fields的访问。
3. 通过分支语句实现数据的分类。
案例要求：设某校
规定
关于下班后关闭电源的规定党章中关于入党时间的规定公务员考核规定下载规定办法文件下载宁波关于闷顶的规定
，超过全班平均成绩10%者可以享受一等奖学金，超过全班平均成绩5%者可以享受二等奖学金。试编写一个程序，使用数据空间，建立与存放学生成绩的Access数据库的连接，设数据库中包括“学号”、“姓名”、“成绩”三个字段。程序执行后，输出奖学金等级一览表。
案例十二：
公共对话框的使用案例
1. 公共对话框控件的使用。
2. 掌握公共对话框控件的属性并实现其与文本框的组合使用。
3. 了解公共对话框的种类。
案例的主要程序代码
要求：建立一个frame和四个command按钮数组，一个文本框，按钮数组作用分别是“打开”、“另存为”、“颜色”、“字体”。点击相应按钮，可以在文本框中显示对话框返回的文件名称。
案例十三：
下拉式菜单与公共对话框的综合案例
1． 下拉菜单编辑器的使用
2． 下拉菜单快捷键的使用
3． 通过下拉菜单实现公共对话框的调用。
下拉菜单练习要求：
开始——（打开、另存为、打印、退出）
字体——（字号、类型、颜色）
字号——12、24、48
案例十四：
动态变化字体案例
1．timer控件的使用。
2．通过timer控件控制字体的运动。
3．通过command控件控制字体的变化。
Private Sub Command1_Click()
If Command1.Caption = "pause" Then
Command1.Caption = "continue"
Timer1.Enabled = False
Else
Command1.Caption = "pause"
Timer1.Enabled = True
End If
End Sub
Private Sub Option1_Click()
Label1.FontName = "宋体"
End Sub
Private Sub Option2_Click()
Label1.FontName = "黑体"
End Sub
Private Sub Option3_Click()
Label1.FontName = "隶
书
关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf
"
End Sub
Private Sub Option4_Click()
Label1.FontName = "楷体_GB2312"
End Sub
Private Sub Timer1_Timer()
If Label1.Left + Label1.Width > 0 Then
Label1.Move Label1.Left - 100
Else
Label1.Left = Form1.ScaleWidth
End If
End Sub
案例十五：
弹出式菜单与select分支的综合运用
1. 复习select case的使用。
2. 弹出式菜单的设计与实现。
主要命令：
If Button = 1 Then
PopupMenu ziti, 4 Or 2
End If
案例十六：
消息对话框和输入信息对话框的使用案例
1. 掌握input对话框的使用。
2. 掌握msgbox对话框的使用。
3. input和msgbox的综合运用。
Msgbox消息框的主要参数：
参数1——出现按钮
参数2——图标类型
参数3——默认按钮
输入框实例：
Private Sub Command1_Click()
Dim h As Integer
h = (InputBox("信息
内容
财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容
", "对话框标题", "默认内容"))
End Sub
消息框实例：
Private Sub Command1_Click()
Dim h As Integer
h = MsgBox("消息内容", 3 + 32 + 0, "对话框标题")
End Sub
案例十七：
数据控件使用案例
1. 数据控件的属性（connect\databasename\recordsource\BOFAction\
EOFAction）
2. 数据控件对数据库的访问。
3. 主要源码：
Private Sub Text1_Change()
a = Adodc1.Recordset.AbsolutePosition
b = Adodc1.Recordset.RecordCount
Adodc1.Caption = "当前记录号: " & a & "/" & b
End Sub
案例十八：
综合案例总结
1. 将所学案例整理总结。
2. 利用所学技能知识将以往独立的案例整理综合在一起。
浙公网安备 33021202002483