vb实验教案.doc

实验1 简单VB程序设计【实验目的】1 学习怎样启动和退出VB，熟悉VB的工作环境。2 学习用属性窗口设置对象属性及用代码设置对象属性的方法。3 学习如何用对象（窗体和控件）建立界面及在代码编辑器中输入程序代码的基本操作。4 基本掌握用VB开发应用程序的一般步骤。【实验环境】VB6.0 奔腾586【实验内容】1. 启动和退出VB2. 打开和关闭窗口3. 设置窗体属性4. 设置控件属性5. 设计简单界面6. 开发一个简单的应用程序【实验步骤】1. 启动和退出VB（1）可用以下方法启动VB法1 用“开始”菜单的“程序”命令。法2 用“开始”菜单的“运行”命令。（2）可用以下方法退出VB法1 单击主窗口右上角的“关闭”按钮。法2 执行“文件”菜单的“退出”命令。2. 打开和关闭窗口（1）打开工程资源管理器窗口法1 单击工具栏上的“工程资源管理器”按钮。法2 执行“视图”菜单中的“工程资源管理器”命令。法3 CTRL+R（2）打开窗体设计器窗口法1 执行“视图”菜单中的“对象窗口”命令。法2 SHIFT+F7法3 在工程资源管理器窗口中选择要打开的窗体，然后单击该窗口顶部的“查看对象”按钮。（3) 激活属性窗口法1 按F4键法2 单击工具栏上的“属性窗口”按钮。法3 执行“视图”菜单中的“属性窗口”命令。（4) 关闭窗口法1 单击窗口右上角的关闭按钮。法2 ALT+F43. 设置窗体属性（1） 激活窗体，打开属性窗口。（2） 在属性窗口中双击“Caption”属性条，输入“窗体属性设置实验”。（3） 在属性窗口中选择“BackColor”属性条，然后单击右端的箭头，在所显示的调色板中选择一种颜色。（4） 在属性窗口中选择“DrawStyle”属性条，然后单击右端的箭头，在下拉显示的列表中选择“Dot”。（5） 在属性窗口中，把Top，Left，Height，Width属性的值分别设置为500，1000，3000，4000，观察窗体的变化。4. 设置控件属性在窗体上建立两个命令按钮(名称)分别为Command1和Command2, Command2按钮的Font属性设置见图1.1,其余各项属性设置用代码实现如下:Private Sub Form_Click() Command1.Caption=”确定”Command1.FontName=”黑体”Command1.FontSize=2Command1.Fontbold=TrueCommand1.FontItalic=TrueCommand1.FontUnderline=TrueCommand1.Enabled=FalseCommand2.Enabled=TrueCommand2.Caption=”取消”End Sub 图1.1 Font属性对话框5. 设计简单界面设计一个简单计算器面板步骤如下：（1） 把窗体的Caption属性设置为“简易计数器”。（2） 在窗体上画一个文本框，把它的Text属性设置为空白。（3） 在窗体上画16个命令按钮，适当调整其大小和位置，然后在属性窗口中把它们的属性分别设置为1，2，3，4，5，6，7，8，9，0，.，C，+，-，*，/。如图1.2所示。 图1.2 简易计数器 6. 开发一个简单的应用程序编写一个输入字符进行转换的程序。转换规则是，将其中的大写字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成“*”。（1） 建立界面在窗体上画两个标签，两个文本框，两个命令按钮，通过属性窗口把两个标签的Caption属性分别设置为“输入字符串”和“转换”，把两个文本框的Text属性设置为空白，把两个命令按钮的Caption属性分别设置为“清屏”和“结束”，将窗体的Caption属性设置为“大小写字母转换”。完成后的界面如图1.3所示。 图1.3 界面设计（2） 编写代码打开代码窗口，选定文本框1，对该控件编写如下代码： Private Sub Text1_KeyPress (KeyAscii As Integer)Dim aa As String * 1aa = Chr$(KeyAscii)Select Case aaCase A To Zaa = Chr$(KeyAscii + 32)Case a To zaa = Chr$(KeyAscii - 32)Case Case Elseaa = *End SelectText2.Text = Text2.Text & aaEnd Sub分别选定两个命令按钮,编写如下代码:Private Sub Command1_Click () 清屏按钮 Text1.Text=”Text2.Text=”End SubSub Command2_Click() 结束按钮 EndEnd Sub(3) 运行程序解释运行模式：法1 单击“启动”按钮开始运行程序。法2 选择“运行”菜单的“启动”命令或按F5键。编译运行模式：选择“文件”菜单的“生成exe”命令。(4) 保存程序步骤1：选择“文件”菜单的“Form1另存为”命令，在“保存在”文本框选择保存的文件夹，在“文件名”文本框输入文件名。步骤2：选择“文件”菜单的“工程另存为”命令，在“保存在”文本框选择保存的文件夹，在“文件名”文本框输入文件名。再次保存时，若以原文件名保存，则利用“保存Form”，“保存工程”命令，也可利用“保存”工具栏按钮。【实验报告】开发一个简单的应用程序。程序要求：在屏幕上开辟一个窗口，窗口的下部有三个按钮，其中左边按钮中标有“显示”，中间按钮中标有“清除”，右边按钮中标有“结束”。当用鼠标单击左边按钮时，屏幕上部的文本框中显示“欢迎使用Visual Basic 6.0”；如果单击中间按钮，则清除文本框中显示的内容；而如果单击右边的按钮，则结束程序。程序结果如下图1.4。 图1.4 程序结果实验2 VB基本语言【实验目的】1 掌握变量，常量的定义规则及VB基本输入输出函数和语句的功能和用法。2 熟悉选择结构和循环结构程序设计，灵活使用各种控制语句。3 掌握数组的定义方法，及数组元素的引用，赋值，输入和输出。【实验环境】VB6.0 奔腾586【实验内容】1. 使用VB基本输入输出函数和语句及控制结构编写程序。2. 使用数组编写程序。【实验步骤】1. 使用VB基本输入输出函数和语句及控制结构编写程序1程序要求：从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号，成绩，并根据成绩按下面的规定输出对该学生的评语。成绩 80100 6079 5059 4049 039评语 Very good Good Fair Poor Fail程序如下：Private Sub Form_Click() n=InputBox(“请输入姓名”) s=InputBox(“请输入分数”) If s=80 ThenMsgbox ” 姓名” & n &”,分数” & s & ”,VeryGood” ElseIf s=60 And s=50 And s=40 And s=0 And s=39 ThenMsgbox ” 姓名” & n &” ,分数” & s & ”, Fail”End IfEnd Sub 程序运行后，单击窗体，在下图2.1，2.2所示对话框分别输入姓名和成绩，程序将在输出对话框中输出适当的评语。结果如图2.3所示。 图2.1 输入对话框1 图2.2 输入对话框2图2.3 程序执行结果2使用VB基本输入输出函数和语句及控制结构编写程序2程序要求：在屏幕上开辟一个对话框，对话框的下部有三个按钮，其中左边按钮中标有“是”，中间按钮中标有“否”，右边按钮中标有“取消”（3）。对话框内提示语为“请确认此数据是否正确”，对话框标题“数据检查对话框”，显示“X”图标（16），并把第一个按钮作为默认活动按钮（0）。对话框见图2.4。如果选择“是”，则返回值为6，在信息框中显示6的平方，见图2.5。如果选择“否”，则返回值为7，在信息框中显示“请重新输入”。见图2.6。程序如下：Private Sub Form_Click()Dim msg, title As Stringmsg = 请确认此数据是否正确title = 数据检查对话框x = MsgBox(msg, 19, title)If x = 6 ThenMsgBox (x * x)ElseIf x = 7 ThenMsgBox (请重新输入)End IfEnd Sub程序运行后，单击窗体，结果如图2.4所示。 图2.4 对话框 图 2.5 信息框1 图2.6信息框23. 使用数组编写程序程序要求：定义10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即第1元素与第10元素互换，第2元素与第9元素互换分别输出数组原来各元素的值和对换后各元素的值。程序如下：Option Base 1Private Sub Form_Click()arr = Array(1, 3, 5, 7, 9, 2, 4, 6, 8, 10)Print 原来数组:For i = 1 To 10Print arr(i);Next iPrintFor i = 1 To 5For j = 6 To 10t = arr(i)arr(i) = arr(j)arr(j) = tNext jNext iPrint 对换后的数组For i = 1 To 10Print arr(i);Next iEnd Sub程序运行后，单击窗体，结果如图2.7所示。 图2.7 程序运行结果【实验报告】编写程序，试验Msgbox函数的功能。程序要求：在屏幕上开辟一个对话框，对话框的下部有三个按钮，其中左边按钮中标有“终止”，中间