vb教程

说明1、以下是本课程所有练习内容，同学打印出来，作为课前预习，尽量充分利用上课时间编写程序。

要交的作业会在系统作业中有说明。

2、所有需要提交的作业，把文件压缩后，用学号命名，交到系统里。

3、课上同学进度不一致，有较早做完作业的同学，可以尝试做课后其他习题，本作业中大部分习题都已经给出来了代码，即答案，所以同学学习还是比较浅显的，应该尝试自己写代码。

4、在做编程题时，同学可先尝试不看答案自己写，不会写时再看答案。

另外实现一个题目可以有不同的编写方式，不必拘泥于答案。

实验1 熟悉VB环境实验题目：简单Visual Basic编程环境实验目的：熟悉简单的VB编程环境，熟悉主要对象及其属性。

实验步骤：1．理解可视化、事件驱动，不需要交作业，如课上没时间，课下理解。

（必须看，看不懂可以在后面学习过程中慢慢体会）2．VB的启动和退出（掌握一种你认为容易的方式即可）3．熟悉VB的主窗口，标题栏和菜单栏。

熟悉“新建工程”、“打开工程”、“保存工程”、“工程另存为”。

熟悉视图下面的菜单。

熟悉课本P7 1.1工具栏图标的含义。

（必须看，看不懂可以在后面学习过程中慢慢体会）4．熟悉窗体设计器、工程资源管理窗口、属性窗口、工具箱窗口。

（必须看，看不懂可以在后面学习过程中慢慢体会）5．理解VB的对象。

对象有属性、事件、方法，其含义，在哪里设置属性，在哪里编写事件。

6．窗体对象主要的属性和事件。

7．标准控件和ActiveX控件，如何找到和使用这些控件。

8．课本P29，习题2.5，2.79．如何选中一个控件？如何选中多个控件？如何进行控件的大小对齐？10．设计一个计算器面板，代码不要求编写，窗体属性需要设置。

保存工程，工程名字Cal.vbp 窗体名称frmcal.frm. 改作业要提交。

实验2 建立简单的VB应用程序实验题目：简单Visual Basic编程环境实验目的：熟悉简单的VB编程环境，熟悉主要对象及其属性。

使用VB的语句编写简单的程序。

实验步骤：1、vb中的语句，语句的类型。

自学，与之前学过的C语言语句类似，但是有些不同。

2、熟悉课本P42，程序的保存、装入和运行，能够熟练程序的保存，打开和关闭。

3、Vb工程包括哪些文件？P424、什么是可执行文件，如何生成可执行文件。

5、例题3.1：在窗体上画一个文本框和三个命令按钮：单击Command1，文本框内显示“欢迎使用Visual Basic 6.0”，字体大小为12；单击Command2，清空文本框内容；单击Command3，程序结束运行。

1）建立可视化用户界面：在窗体上建立三个命令按钮，一个文本框。

2）设置界面特性；3）编写代码。

Private Sub Command1_Click()Text1.FontSize = 12Text1.Text = "欢迎使用Visual Basic 6.0 "End SubPrivate Sub Command2_Click()Text1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub3、习题3.3:在窗体上画一个文本框和三个命令按钮：单击Command1，文本框消失；单击Command2，文本框重现，并在文本框内显示“vb程序设计”，字体大小为16；单击Command3，程序结束运行；运行程序，然后保存，工程文件保存为myprog.vbg,myprog.frm；生成可执行文件myprog.exe；退出vb6.0，运行可执行文件。

代码：Private Sub Command1_Click()Text1.Visible = FalseEnd SubPrivate Sub Command2_Click()Text1.Visible = TrueText1.Text = "vb程序设计"Text1.FontSize = 16End SubPrivate Sub Command3_Click()EndEnd Sub4、习题3.8程序运行期间，在窗体Form1上的文本框Text1中输入一行文字，如：程序设计，单击“显示”按钮Command1，把文本框的内容显示为窗体标题；单击“清除”按钮Command2，清除文本框内容。

代码：Private Sub Command1_Click()Form1.Caption =Text1.TextEnd SubPrivate Sub Command2_Click()Text1.Text = ""End Sub实验3 VB的数据类型、运算符与表达式实验题目：Visual Basic的语言基础实验目的：掌握各基本数据类型和相关运算操作。

思考题：1．在VB中，对于没有赋值的变量，系统默认值是什么（不同数据类型有不同的默认值）？实验步骤：1、字符串定义一个字符串变量 dim x as string *102、数值及其类型，其他数值类型，了解。

3、常量和变量。

系统常量及变量的定义。

如 Dim Number as Integer4、变量的作用域：局部变量、模块变量和全局变量的作用域不同。

5、常用内部函数：转换函数、数学函数、日期时间函数、字符串函数、Shell函数，要求看明白，不强记，用到时能想起来。

6、运算符与表达式，与C语言中类似。

7、调试教材75页习题4.8；8、例题：（验证三种除法操作）实验4 数据输入与输出方法实验题目：数据输入输出方法实验目的和要求：掌握vb 中窗体的输入输出操作：1．应用Print 方法实现数据输出，tab 函数和sps 函数； 2．应用InpuBox 函数实现数据输入；3. 试验MsgBox 函数和MsgBox 语句的作用； 思考题：1.使用InpuBox 函数输入数据的类型？2.vb 中实现数据输出可以采用哪几种方法？ 实验步骤：1、 P79，例题5.1，用print 方法输出：Private Sub Form_Click() Print: PrintFontName = "黑体" ' 字体类型为"黑体" FontSize = 16 ' 字体大小为16Print " 姓名"; Tab(8); "年龄"; Tab(16); "职务"; Print Tab(24); "单位"; Tab(32); "籍贯" PrintPrint "张得功"; Tab(8); 25; Tab(16); "科长"; Tab(24); "劳动科"; Tab(32); "北京" Print "李得胜"; Tab(8); 32; Tab(16); "处长"; Tab(24); "科研处"; Tab(32); "上海" End Sub代码：Private Sub Command1_Click() Dim bcs#, cs#bcs# = Val(Text1.Text) cs# = Val(Text2.Text)Text3.Text = Str$(bcs / cs) Text4.Text = Str$(bcs \ cs) Text5.Text = Str$(bcs Mod cs) End Sub2、P86，习题5.4：键盘输入（inputbox）4个数，计算并输出(msgbox)其和与平均值。

Private Sub form_Click()Dim a1, a2, a3, a4, sum#, average#msg1$ = "请输入第一个数"msg2$ = "请输入第二个数"msg3$ = "请输入第三个数"msg4$ = "请输入第四个数"msg5$ = "数据录入"a1 = InputBox(msg1, msg5, "1")a2 = InputBox(msg2, msg5, "2")a3 = InputBox(msg3, msg5, "3")a4 = InputBox(msg4, msg5, "4")sum = Val(a1) + Val(a2) + Val(a3) + Val(a4)average = sum / 4msg$ = "和为:" + Str(sum) + Chr$(13) + Chr$(10) + "平均值为:" + Str(average)MsgBox msg$End Sub3、P99，课后习题5.6：鸡兔同笼问题：笼中有若干只鸡、兔，输入总头数h,总脚数f，求鸡、兔各多少只？实验5 常用标准控件实验题目：标准控件的使用实验目的和要求：掌握vb常用标准控件的使用操作：标签、文本框、命令按钮、复选框、单选钮、组合框、列表框、图片框、框架、、计时器和滚动条；实验内容：1．完成教材141页习题6.12（加图片框、框架、单选钮）。

2．完成教材141页习题6.13（加滚动条）。

思考题：1. 标签和文本框的区别？2．框架的作用？实验步骤：1、学习标签、文本框、图片框、图像框的常用属性。

练习P105，例题6.5。

2、学习按钮控件的属性和事件。

练习P116，例题6.73、学习选择控件—--复选框和单选按钮的属性和事件。

练习P119，例题6.8和例题6.94、学习列表框和组合框控件的属性、事件和方法。

练习P124，例题6.10，P126，例题6.115、学习滚动条属性和事件练习P130，例题6.126、学习计时器的使用，练习P132，例题6.137、学习框架的使用。

练习P135，例题6.15.8、学习焦点与Tab顺序9、P141，课后习题6.12：实现秒表计时，在标签上显示经过的秒数。

10、习题6.13：实验6 VB 的控制结构实验题目：选择结构、分支结构的使用实验目的：掌握VB 的选择结构和分支结构。

实验内容：1．完成教材171页习题7.10（分别用选择结构、分支结构两种方法实现）。

2．应用选择结构，完成教材170页习题7.3； 3. 应用分支结构，完成教材170页习题7.4； 思考题：1. 块结构if 语句与Case 语句的区别？ 实验步骤:1、 学习选择控制结构的几种句式，练习P145，例题7.1.2、 学习多分枝控制结构，练习P151，例题7.2.3、 P171，课后习题7.10：将百分制成绩转换为对应的评语： [80,100]-“good ”;[60,80）-“fair ”; [0,60) -“fail ”;Dim ch$, msg$ Dim sPrivate Sub Command1_Click() n = InputBox("请输入学号") s = InputBox("请输入分数") ch$ = Chr$(13) + Chr$(10)msg$ = "学号" & n & "，分数为" & s Select Case sCase Is >= 80MsgBox msg & ch & "good", , "good" Case Is >= 60MsgBox msg & ch & "good", , "fair" Case Is >= 0MsgBox msg & ch & "fair", , "fail" End Select End SubPrivate Sub Command2_Click() If s >= 80 ThenPrint msg & ch & "good" ElseIf s >= 60 And s < 80 Then Print msg & ch & "fair" ElseIf s >= 0 ThenPrint msg & ch & "fail" End If End Sub4、习题7.4：实验7 循环结构程序设计实验题目：循环结构程序设计实验目的：了解并掌握Visual Basic 的循环结构的语法。