VB实验报告
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB实验报告
实验一、VB控制结构
[实验目的]
1.掌握选择语句的使用
2.掌握循环语句的使用
[实验内容]
一、VB编程基础
练习：在应用程序的代码窗口中分别输入以下四段代码，当程序运行
时在窗体上单击，分别会发生什么情况，为什么？
①Private Sub Form_Click()
I = 10
Print I
End Sub
②Private Sub Form_Click()
Dim I%
I = 10
Print I
End Sub
③Option Explicit
Private Sub Form_Click()
I = 10
Print I
End Sub
④Option Explicit
Private Sub Form_Click()
Dim I%
I = 10
Print I
End Sub
第一个程序运行的结果是：
点击一次窗体便会出现一个“10”
第二个程序的运行结果是：
也是点击一次窗体出现一个“10”
第三个程序运行的结果是：无法运行，显示变量未定义第四个程序运行的结果是：
在应用程序的代码窗口中分别输入以下两段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？
Private Sub Form_Click()
Dim n As Integer
n = n + 1
Print n
End Sub
Private Sub Form_Click()
Static n As Integer
n = n + 1
Print n
End Sub
第一个程序运行结果是：
第二个程序运行的结果是：
二、选择语句
程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。
Private Sub Text1_Change()
Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,temp
X1 = CSng(InputBox("请输入第1个数：", "输入数据")) '弹出请求输入数据x1的文本框
X2 = CSng(InputBox("请输入第2个数：", "输入数据")) '弹出请求输入数据x2的文本框
X3 = CSng(InputBox("请输入第3个数：", "输入数据")) '弹出请求输入数据x3的文本框
If X1 > X2 Then
Temp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换
End If
If X1 > X3 Then
Temp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换
End If
If X2 > X3 Then
Temp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换
End If
Print: Print
Print "输出结果：" ’在屏幕上输出“输出结果：”
Print x1,x2,x3 ’在屏幕上输出x1,x2,x3
End Sub
三、循环语句
程序3：创建应用程序。要求：单击窗体可显示一个由“*”组成的平行四边形图案
Private Sub Form_Click()
Dim m As Integer, n As Integer ’定义两个变量m,n
Cls
For m = 1 To 6
Print Tab(15 - m); For n = 1 To 8
Print "*"; ’输出8个*
Next n
Next m ’当m=1时输出14个空格之后进入下一个循环结构，当下一个循环终止的时候换行
End Sub
在运行程序并单击一次窗体后出现这样的结果：
实验二、窗体和标准控件
[实验目的]
1.掌握命令按钮、标签及文本框控件的使用方法
2.掌握复选框、单选按钮及框架控件的使用方法
3.掌握列表框和组合框控件的使用方法
4.掌握滚动条和定时器控件的使用方法
[实验内容]
一、命令按钮、标签及文本框控件的使用方法
程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。要求在运行时，两个文本框中的内容均不允许用户编辑；如果用户在“原文”的文本框中选定所需的内容，单击“复制”命令按钮，则在“输出”文本框中输出选定的内容
Private Sub Command1_Click()
Text2.Text = Text1.SelText ’将text1中的内容复制到text2中End Sub
Private Sub Command2_Click()
End '结束
End Sub
Private Sub Form_Load()
Text1.Text = "文本框是一个多功能控件，可以显示或者接收用户输入的文本信息。" '在text1中输入内容"
End Sub