vb实验教案(第3次)

第一篇：vb实验教案(第3次)

实验三 常用控件和窗体 【实验目的】

掌握常用控件的主要属性、方法、事件。

【实验内容】

1、单选按钮和复选框

(1)Caption属性为单选按钮和复选框边上的文本标

(2)Alignment属性表示标题（Caption）显示的位置，默认控件按钮在左边，标题显示在右边，值为0；反之值为1(3)Value属性用来检查单选按钮和复选框是否被选定。对于单选按钮，属性值为True表示被选定，False是缺省值，表示未被选定；复选框用属性值0、1、2分别表示未选定、选定和灰色（不允许选）

(4)单选按钮和复选框的主要事件是Click事件。

2、框架

(1)主要作用是将其他控件组合在一起，对一个窗体中的各种功能进行分类，便于识别。(2)当用框架将一个窗体上的单选按钮分组后，在一组中单选按钮进行的操作不会影响到其他组的选择。

(3)主要属性是Caption，当该属性为空时，为封闭框架。(4)框架一般不需要编写事件过程。

3、列表框和组合框

(1)列表框（对于初学者来说，使用起来不太顺手，这里简单说明一下）

列表框控件，用于显示项目列表，用户可从中选择一个或多个项目。1）属性

A.List：字符型数组，存放列表框的项目，下标是从0开始的。

属性窗口添加选项，输入下一项时，按“Ctrl+Enter”；

在程序中设置或引用时：列表框名.List（Index）。

例如：List1.List(0)=“北京”

B.ListIndex：整数，表示执行时，选中的列表项的序号，没有项目选中时为-1。只能在程序中设置或引用。例如：选择“北京”，显示在文本框中，则Text1.text=List1.List(List1.ListIndex)C.ListCount：整数，表示项目的数量，ListCount-1是最后一项的下标。只能在程序中设置或引用。

D.Selected 属性，该属性返回或设置列表框控件中的一个项目的选择状态，逻辑型，只能在程序中设置或引用。

例如：List1.Selected（0）=True E.Text：被选中的列表项的文本内容，只能在程序中设置或引用。

List1.List(List1.ListIndex)=List1.Text 2）方法

举例说明： List1.AddItem “沈阳”，4

‘ 在第4项后插入“沈阳” List1.AddItem “沈阳”

‘ 在最后出入“沈阳” List1.RemoveItem 4

‘ 删除第5项内容 List1.Clear

‘ 删除所有项目 3）Click，DblClick事件

Click事件，自动改变列表框ListIndex、Selected、Text等属性，无需另行编写代码。

1(2)组合框：一种同时具有文本框和列表框特性的控件。可以选择项目，也可以输入项目。Style属性，用以确定组合框的形式。设置值可为0，1或2，决定组合框的三种形式。

Style = 0时，可以编辑项目，响应Click，Change和Dropdown事件；

Style = 1时，可以编辑项目，响应Click，DblClick和Change事件；

Style = 2时，不可以编辑项目，响应Click．和Dropdown事件。

说明：Change事件：文本框内容改变时触发。

DropDown事件：单击下拉箭头时触发。

4、滚动条

(1)水平和垂直两种，可以作输入数据的工具，也可用来观察数据或确定位置。

(2)常用属性：Max、Min、Value、SmallChange和LargeChange(3)事件：Change和Scroll。

5、时钟控件

按一定时间间隔（Interval）产生一个计时器（Timer）事件的控件。常用属性：Interval，以0.001秒为单位。事件：Timer。

【实验步骤】

1．设计一个调色板应用程序。使用三个滚动条作为三种基本颜色的输入工具，合成的颜色显示再右边的颜色区中。当完成调色后，用两个命令按钮设置右下文本框的前景和背景颜色。如图所示。

1）设计界面：添加控件及其属性

需要3个滚动条，2个命令按钮，3个标签，2个文本框

窗体的Font属性设为小四号字，加粗（这样加载到窗体的控件也是小四号字，加粗）滚动条（HScroll），Max值设为255，Min值设为0，SmallChange为1，LargeChange为25。其他的控件属性请按下图。

2）编写代码。

3）运行：调整各个控件，使结果如例图。并保存。

2．设计一个计时器如图所示。如：在单选按钮处选择1分钟，在单击“开始”按钮后，开始计时，同时标签中显示“计时开始！”；当到选择的时间后停止计时，在标签中显示“时间到！”。默认运行的时间选择为1分钟。

1)界面设计，控件属性

1个标签，一个命令按钮，一个框架，1个时钟 一组单选按钮（3个），这个是单选按钮的控件组（要用复制粘贴，控件组名称都相同，Index

分别是0,1,2,）属性设置

时钟Timer1的Interval属性设为1000 其他属性按图设置。

2)程序代码

3.设计一个能定时的闹钟(因为设置关系可能听不到声音，但我在家里运行时听到了)1）控件： 5个标签，其中Label 1用来显示当前时间，BorderStyle为1 2个文本框，2个命令按钮，1个时钟，其中Interval属性设为1000。

2）程序代码（Time函数是当前时间，Beep是响铃，字符串提取Mid(string, start[, length])）

4.建立列表框，在列表框中有8个学生的姓名（其中要有4名学生的姓名通过AddItem方法添加），当选定学生的姓名后选择“显示学生籍贯”按钮，或双击姓名，都可在文本框上显示该学生的籍贯。

1)控件：一个列表框，一个文本框、一个命令按钮和标签

属性窗口：列表框的list属性中输入 李宁 张伟 王春华 关红梅

5.在窗体上绘图，如图所示。

Form_Paint是窗体重绘事件，窗体改变大小等都会触发

每改变一次窗体大小，所绘制的图如下，在Form_Paint事件中编写程序代码。

窗体坐标系左上角(-300, 200)，右下角(300,-200)，所绘图都以原点为中心，园半径为100，直线和正方形右上角（点）坐标为（100,100）。

程序代码

运行出结果后，可以将代码中画图的一些参数改变一下，再运行看结果

如：Case 4 Circle(0,0),100,Rgb(0,255,0),-0.9,-2.3 这样就可以出现绿色的扇形了。

第二篇：vb实验教案 -

实验一 VB集成开发环境和简单程序设计

一、本次课主要内容

1． 练习Visual Basic6.0的安装与重新安装。2． 启动和退出Visual Basic 6.0。3． 认识VB6.0的工作界面。

4． 编写显示“欢迎使用Visual Basic6.0”的窗体程序。

P 1 5． 按照Visual Basic编写程序的基本步骤建立一个用于“商品销售计划”的窗体程序。

二、教学目的与要求 1．熟悉VB6.0的安装；

2．学习怎样启动和退出Visual Basic；

3．熟悉Visual Basic的工作环境，为以后的程序设计作好准备； 4．理解Visual Basic中对象和类的概念。5．学习用属性窗口设置对象属性的方法。

6．初步学习在代码编辑器中输入程序代码的基本操作。7．基本掌握用Visual Basic编写程序的基本步骤。8．了解Visual Basic联机帮助的使用方法。

三、教学重点难点 VB语言程序的上机步骤

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验2。

实验一 VB集成开发环境和简单程序设计

1． Visual Basic 6.0有多种类型的窗口，若想在设计时看到代码窗口，如何操作？

2． 如何使各窗口显示或不显示？ 3． 如何对工具箱添加选项卡？

4．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到多少个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？

5．在窗体上画一个命令按钮，然后通过属性窗口设置下列属性： Caption：这是命令按钮 Font：宋体 粗体 三号 Visible：False Style：1-Graphical

6、参考实验教材“实验一”和“实验二”的实验过程编写程序。

P 2

教学后记：

实验二 顺序结构程序设计

一、本次课主要内容

1.实验Visual Basic中三种除法运算符（/、、Mod）的区别。2．掌握表达式的书写，并能阅读出表达式的运行结果。3．设计一个简单的计数器。

二、教学目的与要求

1．掌握Visual Basic数据类型的基本概念。2．掌握变量，常量的定义规则。

3．掌握Visual Basic各种运算符的功能及表达式的构成和求值方法。4．掌握Visual Basic的基本语句。

三、教学重点难点

VB的各种运算符的功能及表达式的构成

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验3。

P 3

实验二 顺序结构程序设计

1．实验Visual Basic中三种除法运算符（/、、Mod）的区别。按以下步骤执行：

P 4（1）在窗体上画5个标签、5个文本框和一个命令按钮。5个标签的标题分别为：“被除数”、“除数”、“浮点除（/）”、“整数除（）”和“余数除（Mod）”，把5个文本框清为空白，把命令按钮的标题设置为“执行除法运算”，如图6所示。

图6

除法运算符实验（界面设计）

（2）编写命令按钮的事件过程： Private Sub Command1_Click()Dim diviD, diviS As Single diviD = Val(Text1.Text)diviS = Val(Text2.Text)Text3.Text = Str(diviD / diviS)Text4.Text = Str(diviD diviS)Text5.Text = Str(diviD Mod diviS)End Sub

（3）按F5或单击工具栏上的“启动”按钮运行程序，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结

果。例如，在第一、第二个文本框中分别输入124和3，然后单击命令按钮，结果如图7所示。

P 5

图7

除法运算符试验（运行情况）

2．先用手工计算下列表达式的值，然后在立即窗口中试验这些表达式的输出结果。

(1)8*3*62(2)7/6*3.2/2.15*(4.3+2.8)(3)344*4.0^3/1.6(4)653 Mod 2.6*Fix(3.7)(5)“abc” + “345” & “257”(6)279.37 + “0.63” = 280(7)4>8 And 4 = 5(8)True Or Not(8+3 >= 11)(9)8 > 4 Or 5 < 9(10)(True And False)Or(True Or False)3．设x,y,z均为布尔型变量，其值分别为： x=True Y=True Z=False 求下列表达式的值：

(1)x Or y And z(2)Not x And Not y(3)x Xor y Or z(4)Not x Eqv Not y(5)(Not y Or x)And(y Or z)(6)x Or Not y Imp z 要求：先手工计算，再上机验证。

教学后记：

P 6

实验三 选择结构程序设计

一、本次课主要内容

1．编程求解一元二次方程的根。

2．按要求编写程序实现税务部门征收所得税的纳税金额。

二、教学目的与要求

1.掌握逻辑表达式的正确书写形式。2.掌握单分支与多分支语句的使用。3.熟悉“选择”结构程序设计。

三、教学重点难点

逻辑表达式的正确书写形式

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验4。

P 7

实验三 选择结构程序设计

1．求解一元二次方程的根。

2．税务部门征收所得税，规定如下：（1）收入在800元以内，免征；

（2）收入在800~1000元以内，超过200元的部分纳税5%；（3）收入在1000~2000元以内，超过1000元的部分，纳税8%；（4）当收入达到2000元或超过时，纳税10%； 编程实现上述操作。（1）编写程序代码：

（2）程序运行

程序运行后，单击窗体，在输入对话框中输入收入数，程序将输出纳税金额。例如输入1560，运行情况如图30所示。

P 8

图30 纳税运行情况

3．输入x、y、z三个数，按从大到小的次序显示。要求：对输入数据应有测试手段，可以通过IsNumeric函数对文本框中的数进行测试。若输入的数有非数字字符，显示“不能转换成数值”，提示再输入。当输入的三个数全部都是数字字符后再转换成数值型，然后进行大小比较。

4．某市公用电话收费标准如下：市话通话时间在3分钟以下，收费0.50元；3分钟以上，则每超过1分钟加收0.15元；在7:00-19:00之间通话者，按上述收费标准全价收费；在其他时间通话者一律接收费标准的半价收费。试计算某人在T时间通话S分钟，应缴多少电话费。

5．设在窗体上已经建立一个文本框Text1，两个命令按钮Commmand1和Command2，说明执行以下语句后，各控件将显示什么内容？

Text1.Text = Command1.Caption Command1.Caption = Command2.Caption Command2.Caption = Text1.Text Text1.Text = Command1.Caption & Command2.Caption 6．下面程序段的输出是什么？

（1）If(2 * 2 = 5)<(2 * 2 = 4)Then Print “True is greater then false.” Else Print “False is greater then true.” End If（2）a = 0 If a > = 7 Then a = 1 Print “Watch Out”, a End If（3）a = 0 If a > = 7 Then a = 1 End If Print “Watch Out”, a

P 9 教学后记：

实验四 循环结构程序设计

P 10

一、本次课主要内容 1．计算阶乘。

2．编程实现勾股定理中三个数的关系是a2＋b2 = c2。3．编程求完全数。

二、教学目的与要求

1.熟悉分支转移结构程序设计，灵活使用有关语句。2.熟悉循环结构程序设计，灵活使用各种循环语句。3.能够正确阅读嵌套循环，及正确使用嵌套循环。

三、教学重点难点

循环结构程序设计及相关语句的用法

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验5。

实验四 循环结构程序设计

P 11 1.计算阶乘

2．勾股定理中三个数的关系是a2＋b2 = c2。编写程序，输出30以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。

（1）编写程序

（2）程序运行后，单击窗体，将输出30以内满足关系的整数a，b，c的组合，同时显示相应的a*a，b*b，c*c，结果如图36所示。

图36

程序执行结果

3．如果一个数的因子（不包括本身）之和等于这个数本身，则称这样的数为“完全数”。例如，整数28的因子为1，2，4，7，14，其和1＋2＋4＋7＋14 = 28，因此28是一个完全数。试编写一个程序，从键盘上输出正整数N和M，输出N和M之间的所有完全数。

程序如下：

程序运行后，单击窗体，在两个输入对话框中分别输入N 和M的值，即可输出N和M之间的“完全数”。假定输入的N和M的值分别为2和1000，则结果如图37所示。

P 12

程序执行结果

4．编程计算由下列公式确定的s值，其中n是用户输入的正整数，注意选用合适的变量类型。

（1）s = 12 + 22 + 32 + „ + n2（2）s = 11×22×33ׄ×nn（3）s = 1 + 1×2 + 1×2×3 + „ + 1×2×3ׄ×n 5．用While„Wend语句计算2n，请尝试用不同形式的Do„Loop语句和For„Next语句重写该程序。

教学后记：

实验五 VB的常用控件

一、本次课主要内容

1．设置文本框Text1中内容的字体、字型和颜色。

2．如果单击“添加”按钮，就将在文本框和组合框中输入或选择的内容插入空格后连接成一个字符串添加到List1中；如果单击“去除”按钮，就将List1中选中的项删除；如果单击“清空”按钮，就将List1中所有的项目全部删除。

3．将定时器计时开始后度过的总秒数换算为时、分、秒(取2位小数)显示。4．将复选框的选中状态（Value属性值）转换为逻辑值后赋值给图片框的AutoSize属性，决定图片框是否自动改变大小以显示全部图形；将复选框的选中状态（Value属性值）转换为逻辑值后赋值给图像框的Stretcch属性，决定图形是否自动缩放以适应图像框大小。

二、教学目的与要求

1.掌握单选按钮、复选框和框架的使用方法。2.掌握列表框控件和组合框控件的使用方法。3.掌握时钟控件的使用方法。

4.掌握图片框控件和图像框控件的使用方法。

三、教学重点难点 常用控件的使用方法

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验6。

P 13

P 14

实验五 VB的常用控件

1．设计界面（程序一到四）2．设置属性 3．编写程序代码 4.调试运行 第一题：

运行结果：

第二题：

运行结果：

P 15

第四题：

运行结果：

5.利用时钟控件和图像控件编写一个自动红绿灯模拟程序。要求在晚上21:00到早晨7:00全亮，其余时间红、黄、绿灯自动切换。

教学后记：

实验六 数组

一、本次课主要内容

1.定义一个固定大小的一维数组，并为数组元素赋值，最后将数组元素输出到窗体上。

P 16 2.请编写程序，完成将一个6×8的矩阵分别按行和列的顺序放到一维数组中。3.随机产生10个数，按升序（降序）排列输出

二、教学目的与要求 1.掌握数组的基本概念。2.掌握数组的声明、应用。3.掌握控件数组。

4.掌握如何利用数组解决与数组相关的常用算法（特别是排序算法）。

三、教学重点难点

利用数组解决与数组相关的常用算法

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验7。

实验六 数组

第一题：

P 17

Dim a(0 To 9)As Integer '定义一个大小为10的整形数组 '数组赋值命令按钮事件过程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“请输入数组元素” & i + 1 & “/” & “10”, “数组赋值”))Next i End Sub '显示数组元素命令按钮事件过程 Private Sub Command2_Click()For i = 0 To 9 Print a(i)Next i End Sub

第二题： Option Base 1 Dim a%(6, 8), b%(), c%()'定义一个二维数组(6x8)和两个动态数组 '将二维数组按行存储到一维数组b中 Private Sub Command1_Click()k = 1 For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

b(k)= a(i, j): k = k + 1 Next j Next i Text2.Text = “" '将按行存放后的一维数组b的元素显示到文本框中 For i = LBound(b)To UBound(b)Text2.Text = Text2.Text & Format(b(i), ”@@@@“)Next i End Sub '将二维数组按列存储到一维数组c中 Private Sub Command2_Click()k = 1 For j = LBound(a, 2)To UBound(a, 2)For i = LBound(a, 1)To UBound(a, 1)c(k)= a(i, j): k = k + 1 Next i Next j Text3.Text = ”“ '将按列存放后的一维数组c的元素显示到文本框中 For i = LBound(c)To UBound(c)Text3.Text = Text3.Text & Format(c(i), ”@@@@“)Next i End Sub '窗体载入事件过程 Private Sub Form_Load()Text1.Text = ”“: Text2.Text = ”“: Text3.Text = ”“ '二维数组初始化

For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)

P 18

a(i, j)= Int(90 * Rnd)X)*(pz))End Sub Private Sub cmdJs_Click()Dim a!, b!, c!, w!a = Val(txtA.Text)b = Val(txtB.Text)c = Val(txtC.Text)If a > b + c Or b > a + c Or c > a + b Then MsgBox ”输入的三条边不能构成一个三角形！" Else Call area(a, b, c, w)txtMj.Text = Str(w)End If End Sub 第二题：

P 23

Private Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer Dim r As Integer r = x Mod y Do While r <> 0 x = y y = r r = x Mod y Loop gcd = y End Function Private Sub Command1_Click()Dim a As Integer, b As Integer a = Val(Text1.Text): b = Val(Text2.Text)x = gcd(a, b)Text3.Text = x End Sub

第三题：

Private Function prime(x)As Boolean If x < 2 Then prime = False Exit Function

End If For i = 2 To Sqr(x)If x Mod i = 0 Then prime = False Exit Function End If Next prime = True End Function

Private Sub Form_Click()For a = 200 To 1000-2 b = a + 2 If prime(a)And prime(b)Then Debug.Print a, b c = a + b End If Next Print c End Sub

教学后记：

P 24

P 25

实验八 等级考试专题及考查

一、本次课主要内容

进行一次等级考试的模拟测试。

二、教学目的与要求

1.熟悉等级考试中程序题的答题过程。

2.掌握利用VB内部函数、表达式、控制结构等知识进行较复杂的编程。

三、教学重点难点 等级考试的复杂题型

四、教学方法和手段 实验室机房电脑上机

五、作业与习题布置

1.认真完成和按时提交考查任务；

2.自行复习，准备下学期初的国二VB考试。

实验八 等级考试专题及考查

P 26 1．登陆等级考试系统，选做VB的基础知识和程序题（包括程序改错，程序填空、程序设计）

2.每个同学都把自己等级考试中随机抽到的题目抄写下来，互相传阅，最后把不同类型的题目做个归纳总结。

教学后记：

第三篇：VB大实验[范文]

综 合 性 实

实 验 名 称: 通讯录管理系统

专 业 班 级: 数字1201班

学 生 姓 名:马晓军

学 号：201225070125 指 导 教 师：王云侠

验 需求分析：

通讯录管理系统是针对系统服务对象的具体要求设计的，能够输入所有人员的

相关信息，实现人员的分类管理和查询。主要设计了以下几大功能：(1)新建、修改、删除通讯录记录(2)能根据姓名进行模糊查询(3)能根据电话查询某人(4)方便的浏览逐条记录 运行环境：

WINDOWS XP系统；VB6.0 3开发工具和编程语言：

Visual Basic6.0语言 4 系统设计

1.在下面窗口实现信息的浏览，新建，删除以及修改，按确定执行操作，按取消则放弃操作。

系统主窗体

代码：

Private Sub CmdAdd_Click()Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdChange.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Text8.Locked = False Text1.SetFocus Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount

End Sub Private Sub CmdChange_Click()CmdAdd.Enabled = False CmdDel.Enabled = False CmdChange.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Text8.Locked = False Text1.SetFocus Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdDel_Click()x = MsgBox(“确定要删除当前记录吗？”, vbYesNo + vbQuestion, “确认”)If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Adodc1.Refresh End If Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub

Private Sub CmdEsc_Click()Adodc1.Refresh

CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdFind_Click()Form2.Show

End Sub Private Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdLast_Click()Adodc1.Recordset.MoveLast CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdN_Click()Dim n As Integer n = Text9.Text Adodc1.Recordset.Move n Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdNext_Click()Adodc1.Recordset.MoveNext CmdFirst.Enabled = True CmdPre.Enabled = True If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast CmdNext.Enabled = False CmdLast.Enabled = False End If

Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub

Private Sub CmdOk_Click()Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Text1.Locked = True Text2.Locked = True

Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True Text7.Locked = True Text8.Locked = True Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub CmdPre_Click()Adodc1.Recordset.MovePrevious CmdNext.Enabled = True CmdLast.Enabled = True If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = False End If Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub Private Sub Form_Load()CmdFirst.Enabled = False CmdPre.Enabled = False CmdNext.Enabled = True CmdLast.Enabled = True CmdAdd.Enabled = True CmdDel.Enabled = True CmdChange.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False Label9.Caption = “记录：” & Adodc1.Recordset.AbsolutePosition & “/” & Adodc1.Recordset.RecordCount End Sub 2.选择要查询的条件，输入查询的信息，按下查询按钮即可显示查询结果，按下返回按钮返回上级窗口。

查询界面窗体

代码：

Private Sub CmdBack_Click()Form1.Show Unload Me End Sub Private Sub CmdFind_Click()Dim str As String str = “ Select * From person ”

str = str & “Where person.” & Combo1.Text & “ Like '” & Text1 & “% '” Adodc1.RecordSource = str Adodc1.Refresh End Sub Private Sub Form_Load()Combo1.AddItem “姓” Combo1.AddItem “名” Combo1.AddItem “手机” Combo1.AddItem “地址” Combo1.AddItem “公司” Combo1.AddItem “所在组” Text1.Text = "" End Sub 5 系统运行及测试；参考文献;

[1]龚培曾，杨志强Visual Basic程序设计教程（第3版），高等教育出版社，2001/12 7心得体会：

1.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在程序入门阶段还是应该重视概念的学习、多请教老师、多与同学交流解决问题的方法、多与他人进行讨论问题，所有VB问题都会弄懂的。

2.VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想就在这时形成的,良好的程序设计习惯也在这个阶段养成。

3.课前预习,认真听课并适当做些笔记,课后要认真复习消化所学内容,完成作业。4.最后，本学期我VB程序设计能顺利完成，我最要感谢的是我的王云侠老师，本身VB程序设计是很门让人枯燥乏味的课程，而且让我们感觉很难的课程；但是，值得我们幸运的是，我们遇到一位颇有责任心、有耐心、讲课通俗易懂的好老师——王老师，加上她平日的热情、耐心认真地指导；最终，使得我的通讯录管理系统综合实验很顺利的完成了；更使我懂得了，只要认真、用心、踏实地学习VB程序设计，我们一定会把VB学好的。

第四篇：电子商务 ( 第3次 )[定稿]

第3次作业

一、填空题（本大题共40分，共 10 小题，每小题 4 分）1.是指计算机系统软件或硬件方面出现问题，导致计算机整个系统或某些软件无法正常使用。

2.网络店铺是指一家企业开设的网站，企业通过网站销售________和________。

3.垂直B2B电子市场可以分为两个方向，即________和________。

4.B2B电子商务从大的类别来说可以分为两大类：一类是 ________ ,另一类是________。

5.EDI就是按照商定的协议，将商业文件标准化和格式化，并通过计算机网络，在贸易伙伴的计算机网络系统之间进行数据交换和自动处理。俗称“________”。

6.全球定位系统是一种基于________的跟踪系统，据此能判断GPS设备所在的位置。

7.电子商务通用交易过程包括：交易前的准备、________、________、合同的履行和支付过程。

8.对于社交商务网站的攻击一般指窃取和非法使用用户的________，这些私密信息可能被直接使用，也可能被非法出售。

9.________是指原来从事目录邮购的企业，将产品发布方式转移到互联网成为电子零售商。

10.不管是网络市场还是其他的各种市场都具有3大功能：________、促进与交易相关的信息、商品、服务和资金的交换；提供________以提升市场效率。

二、名词解释题（本大题共42分，共 7 小题，每小题 6 分）1.商业模式

2.网络零售商

3.第三方支付 4.支付接口

5.价值诉求

6.搜索引擎优化

7.信息中介

三、简答题（本大题共18分，共 3 小题，每小题 6 分）1.简述电子商务安全管理制度的内容。

2.简述第三方B2B电子商务平台的特点。

3.简述社交购物的主要模式。

答案：

一、填空题（40分，共 10 题，每小题 4 分）

1.参考答案：

系统故障

解题方案：

评分标准：

2.参考答案： 商品、服务

解题方案：

评分标准：

3.参考答案：

上游，下游

解题方案：

评分标准：

4.参考答案：

第三方B2B电子商务平台，企业B2B电子商务平台。

解题方案：

评分标准：

5.参考答案： 无纸化贸易

解题方案：

评分标准：

6.参考答案： 卫星技术

解题方案：

评分标准：

7.参考答案：

交易磋商、签订合同与办理手续

解题方案：

评分标准：

8.参考答案：

匹配买方和卖方、制度支持

解题方案：

评分标准：

9.参考答案： 邮购商

解题方案：

评分标准：

10.参考答案：

匹配买方和卖方、制度支持 解题方案：

评分标准：

二、名词解释题（42分，共 7 题，每小题 6 分）

1.参考答案：

商业模式是指开展商务活动的方法，企业就此获得利益，维持生存和发展。它另一层含义，那就是企业在一条价值链中处于什么地位。也就是说，企业通过什么方式为产品或是服务提升价值。

解题方案：

评分标准：

2.参考答案：

网络零售商是指在网络上开展零售业务的厂商。

解题方案：

评分标准：

3.参考答案：

第三方支付就是一些和国内外各大银行签约、并具备一定实力和信誉保障的第三方独立机构提供的交易支持平台。

解题方案：

评分标准：

4.参考答案：

支付接口就是第三方支付平台提供的一段代码，商务需要将该代码配置到自己的服务器上去，并设置一些相关的接口参数。

解题方案：

评分标准：

5.参考答案：

企业从落实商业模式中可以得到的利益，这些利益包括无形的、难以量化的利益。

解题方案：

评分标准：

6.参考答案：

搜索引擎优化，是通过对网站栏目结构和网站内容等基本要素的优化设计，提高网站对搜索引擎的友好性，使得网站中尽可能多的网页被搜索引擎收录，并且在搜索结果中获得好的排名效果，从而通过搜索引擎的自然检索获得尽可能多的潜在客户。

解题方案：

评分标准：

7.参考答案：

在网络世界有些中介专门提供信息或是控制信息。这样的网络中介称为信息中介。信息通过信息中介在买卖双方之间流动。信息中介其实也是一种网站，它们收集巨量的信息，进行加工整理，然后在提供信息的一方与需要信息的一方进行撮合。

解题方案：

评分标准：

三、简答题（18分，共 3 题，每小题 6 分）

1.参考答案：

电子商务安全管理制度是用文字形式对各项安全要求所做的规定，它是保证企业电子商务取得成功的重要基础，是企业电子商务人员安全工作的规范和准则。企业在参与电子商务伊始，就应当形成一套完整的、适应于网络环境的安全管理制度。这些制度应当包括人员管理制度、保密制度、跟踪审计制度、系统维护制度、数据备份制度、病毒定期清理制度等。

解题方案：

评分标准：

2.参考答案：

1.交易模式多样化、交易撮合自动化； 2.产品提供个性化、组合化； 3.发现买方与卖方的过程高效化； 4.价格发现动态化、多样化； 5.交易支持复杂化。

解题方案：

评分标准：

3.参考答案：

1.购物推荐、购物排名及评价； 2.团购；

3.购物社区及购物俱乐部； 4.购物伙伴模式；

5.基于位置的购物活动。

解题方案：

评分标准：

第五篇：工作总结.第3次

班长工作总结

到今天，这个学期的工作告一段落了。当了一个学期的班长，有很多收获和感慨。对这个学期的工作做一个总结，从学习，生活，工作三个方面。

在学习上我自认为很惭愧，不如班上的很多同学。我们班有的是学霸，我们寝室就有两个。虽然我的闹钟定的是早上6点半起床，但都会赖一会床，总会听到他们出门的声音。据我所知，他们每天早上都会去晨读，晚上还要锻炼。坚持了这么久的人，值得我们学习。我希望她们的坚持可以带动更多的同学，学习和运动应该是我们生活必须的一部分。到班上课的情况，在刚开始的时候大家都保持的很好。大学生活刚开始，每个人都充满了期待和动力，都会准时来上课。在这里，要表扬我们的刘振鹏同学，他主要负责监督同学到班上课的考勤。他能做到每天点名，作好记录。到后来，有人翘课，旷课。主要是毛概和职业生涯规划这两门课程，有的人在点名后走了，上课的时候溜了，我都看的很清楚。不过，只是很多少一部分的人，而且这样的情况不多，所以我只会发个短信询问一下。大学学习靠的是自觉和自律，我希望大家可以继续保持我们的热情和积极投入到学习中。

在生活上，我们举办了一系列的活动。四次团组织生活，团课，男女混合篮球赛，年级羽毛球赛，元旦联谊晚会。我想这些活动最成功的是加强了班上同学的认识和交流，给同学们展现自己的舞台，锻炼了自己的能力。当然，一个活动有成功的地方，也会有不足。有些安排没有到位，同学们的需求不能满足等等。感谢大家对我的包涵和支持，我会带着这些宝贵经验继续前进。

在生活上，我是一个很随意很懒惰的人。甚至有点得过且过的感觉。但对待工作，我会很认真的去完成我该做和能做的事情，有点好强吧。回想这个学期的工作，是个忙碌的过程，有很多很多的事情需要处理。但结果，我认为还是不错的。希望能够得到同学们的肯定。

我想用这几个词来形容我们班的班干部，负责，尽职，尽力，低调。每个班干部都知道自己的职责在哪，安排的工作都会很尽力的去完成，做好自己该做的事情就好了。给位组长大人也很给力，时时帮助班长的工作。寝室长功不可没，通知事情到位，积极参加活动，虽然不算班干部，但你们履行了班干部的职责。这次晚会台前和幕后都能看到班干部的声影，如果没有他们的付出，这次晚会也不会这么成功了。组织委员王尚昌的节目负责，前期工作几乎都是他准备的，找人，排节目。他的能力和表现值得我们学习。我们的副班长刘振鹏，可以很放心的把事情交给他去办，租衣服，音乐调控，他没有说半个不字。还有其他为这次晚会表演节目的同学，你们的付出得到观众的掌声回报了。希望下次，我们能办的更好。班委和同学们合作，需要磨合，需要沟通，需要理解，虽然有些不愉快，但我们收获了经验和教训。

虽然说是金子总会发光的，但需要有个人去发现你啊！班干部要为同学做实事，但并不是每件事情都能够亲力亲为，我们的班干部少了一种主动性，其实很多事情可以找同学帮忙的，大家团结一起，可能会事半功倍。让我们五班更加团结吧！

如果下学期，我还是酒店管理的班长，我会更加努力做好这份工作。

新的一年快要来临，祝福大家新年快乐！

至此

14级酒店管理

吴术宝

2015年3月25日