VB实验一 实验报告-2017(1)

实验报告一
课程VB程序设计实验项目Visual Basic环境
顺序选择程序设计(4学时)
成绩
专业班级指导教师
姓名学号实验日期
实验目的
（1）熟悉Visual Basic6.0集成开发环境
（2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握常用函数的使用方法
（4）掌握常用输入、输出语句
实验内容
一、VB环境和顺序结构
【实验1】设计一个简单VB程序（20分）
它由一个窗体、一个文本框和3个命令按钮组成。

窗体的标题为"Visual Basic 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。

通过该程序熟悉VB的界面，了解VB的工作原理：事件驱动
实验结果：
【请将你的代码粘贴到下面】
Private Sub Command1_Click()
T ext1.T ext = "欢迎使用Visual Basic 6.0"
Print "你好"
End Sub
Private Sub Command2_Click()
T ext1.T ext = ""
Cls
End Sub
Private Sub Command3_Click()
End
End Sub
【请将你的典型结果的截图粘贴到下面】
【实验2】分别定义八个变量，变量名为：var1、var2、var3、var4、var5、var6、var7、var8，变量的数据类型依次定义为：字符串型、整型、长整型、单精度浮点型、双精度浮点型、货币型、布尔型和日期型。

按照图2-2给出的形式为八个变量赋值，并按照图2-4的样式进行输出。

（20分）
通过该程序掌握变量的定义、变量名与变量值的含义。

实验结果：
【请将你的代码粘贴到下面】
Option Explicit
Private Sub Form_Click()
Dim var1 As String
Dim var2 As Integer
Dim var3 As Long
Dim var4 As Single
Dim var5 As Double
Dim var6 As Currency
Dim var7 As Boolean
Dim var8 As Date
var1 = "Hello World": var2 = 1000
var3 = 30000: var4 = 1.005
var5 = 3.1415926: var6 = 100.1234
var7 = True: var8 = #5/1/2015#
Print
Print "变量名："; T ab(15); "var1"; T ab(30); "var2"; T ab(40); "var3"; T ab(50); "var4"
Print "变量值："; T ab(15); var1; T ab(30); var2; T ab(40); var3; T ab(50); var4
Print "变量类型："; T ab(15); TypeName(var1); T ab(30); TypeName(var2); T ab(40); TypeName(var3); T ab(50); TypeName(var4)
Print
Print "变量名："; T ab(15); "var5"; T ab(30); "var6"; T ab(40); "var7"; T ab(50); "var8"
Print "变量值："; T ab(15); var5; T ab(30); var6; T ab(40); var7; T ab(50); var8
Print "变量类型："; T ab(15); TypeName(var5); T ab(30); TypeName(var6); T ab(40); TypeName(var7); T ab(50); TypeName(var8)
End Sub
Private Sub Form_Load()
Form1.Caption = "变量的定义与赋值"
Form1.FontSize = 13
End Sub
【请将你的典型结果的截图粘贴到下面】
【实验3】编写程序，其功能为输入三角形的三边，求三角形的面积。

计算公式为：S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分）
通过该程序掌握计算类程序的结构、赋值语句的使用
程序界面如下所示
实验结果：
【请将你的代码粘贴到下面】
Option Explicit
Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double
Dim s As Double, area As Double
a = Val(T ext1)
b = Val(T ext2)
c = Val(T ext3)
s = (a + b + c) / 2
area = Sqr(s * (s - a) * (s - b) * (s - c))
T ext4.T ext = area
End Sub
Private Sub Command2_Click()
End
End Sub
【请将你的典型结果的截图粘贴到下面】
【实验4】编写如图2-10所示的一个求“倒序数”的程序。

“倒序数”指的是：如产生的数为“1234”，那么与之对应的倒序数就是“4321”。

点击“生成”按钮，分别在文本框一中随机生成一个2位整数，在文本框二中随机生成一个3位整数，在文本框三中随机生成一个4位整数。

然后点击“求倒序数”按钮，分别在文本框四、文本框五、文本框六中输出其对应的倒序数。

（20分）
通过该程序掌握常见函数的使用
实验结果：
【请将你的代码粘贴到下面】
【请将你的典型结果的截图粘贴到下面】
【实验5】参照图2-15所示的内容，编写一个由Print方法及其相关格式函数进行输出的程序。

使用不同的分隔符（即：逗号或分号）或者格式输出函数（即：T ab()、Spc()、Format()、Space()）来控制Print方法输出的格式。

（20分）
通过该程序掌握print方法及格式函数的使用
实验结果：
【请将你的代码粘贴到下面】
【请将你的典型结果的截图粘贴到下面】
【加分1】超级玛丽游戏，实现变大、变小、左右移动、发射子弹的功能。

（加分20分，最高100分）
通过该程序掌握定时器及三角函数的使用
实验结果：
【请将你的代码粘贴到下面】
【请将你的典型结果的截图粘贴到下面】
【加分2】求一元二次方程的根，方程的系数a、b、c使用inputbox函数输入，方程的两个根使用MsgBox语句输出。

（加分10分，最高100分）
通过该程序掌握inputbox和msgbox的使用
实验结果：
【请将你的代码粘贴到下面】
【请将你的典型结果的截图粘贴到下面】
实验小结
1.遇到的问题：
2.对课程的建议：。