实验报告一课程VB程序设计实验项目Visual Basic环境顺序选择程序设计(4学时)成绩专业班级土木工程1306班指导教师姓名学号实验日期实验目的（1）熟悉Visual Basic6.0集成开发环境（2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握常用函数的使用方法（4）掌握常用输入、输出语句实验内容一、VB环境和顺序结构【实验1】设计一个简单VB程序（20分）它由一个窗体、一个文本框和3个命令按钮组成。
窗体的标题为"Visual Baidc 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。
通过该程序熟悉VB的界面，了解VB的工作原理：事件驱动实验结果：【请将你的代码粘贴到下面】Private Sub Command1_Click()ClsForm1.Caption = "你好"T ext1.T ext = "欢迎使用visual basic"End SubPrivate Sub Command2_Click()ClsT ext1.T ext = ""Form1.Caption = ""End SubPrivate Sub Command3_Click()EndEnd Sub【请将你的典型结果的截图粘贴到下面】【实验2】分别定义八个变量，变量名为：var1、var2、var3、var4、var5、var6、var7、var8，变量的数据类型依次定义为：字符串型、整型、长整型、单精度浮点型、双精度浮点型、货币型、布尔型和日期型。
按照图2-2给出的形式为八个变量赋值，并按照图2-4的样式进行输出。
（20分）通过该程序掌握变量的定义、变量名与变量值的含义。
实验结果：【请将你的代码粘贴到下面】Private Sub Form_Click()Dim var1 As Stringvar1 = "Hello Word"Dim var2 As Integervar2 = 1000Dim var3 As Longvar3 = 300000Dim var4 As Singlevar4 = 1.005Dim var5 As Doublevar5 = 3.1415926Dim var6 As Currencyvar6 = 100.1234Dim var7 As Booleanvar7 = TrueDim var8 As Datevar8 = #1/5/2015#Form2.PrintForm2.Print "变量名:", "var1", "var2", "var3", "var4"Form2.Print "变量值:", var1, var2, var3, var4Form2.Print "变量类型:", "String", "Integer", "Long", "Single"Form2.PrintForm2.Print "变量名:", "var5", "var6", "var7", "var8"Form2.Print "变量值:", var5, var6, var7, var8Form2.Print "变量类型:", "Double", "Currency", "Boolean", "Date"End Sub【请将你的典型结果的截图粘贴到下面】【实验3】编写程序，其功能为输入三角形的三边，求三角形的面积。
计算公式为：S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分）通过该程序掌握计算类程序的结构、赋值语句的使用程序界面如下所示实验结果：【请将你的代码粘贴到下面】Private Sub Command1_Click()Dim a As SingleDim b As SingleDim c As Singlea = T ext1.T extb = T ext2.T extc = T ext3.T extDim s As Singles = (a + b + c) / 2Dim ss As Singless = Sqr(s * (s - a) * (s - b) * (s - c))T ext4.T ext = ssEnd SubPrivate Sub Command2_Click()EndEnd Sub【请将你的典型结果的截图粘贴到下面】【实验4】编写如图2-10所示的一个求“倒序数”的程序。
“倒序数”指的是：如产生的数为“1234”，那么与之对应的倒序数就是“4321”。
点击“生成”按钮，分别在文本框一中随机生成一个2位整数，在文本框二中随机生成一个3位整数，在文本框三中随机生成一个4位整数。
然后点击“求倒序数”按钮，分别在文本框四、文本框五、文本框六中输出其对应的倒序数。
（20分）通过该程序掌握常见函数的使用实验结果：【请将你的代码粘贴到下面】第一种：Private Sub Command1_Click()Dim i%i = Int(Rnd * 99) + 1T ext1.T ext = ii = Int(Rnd * 999) + 1T ext2.T ext = ii = Int(Rnd * 9999) + 1T ext3.T ext = iEnd SubPrivate Sub Command2_Click()T ext4.T ext = StrReverse(T ext1.T ext)T ext5.T ext = StrReverse(T ext2.T ext)T ext6.T ext = StrReverse(T ext3.T ext) End Sub第二种：Private Sub Command1_Click()Dim i%i = Int(Rnd * 99) + 1T ext1.T ext = ii = Int(Rnd * 999) + 1T ext2.T ext = ii = Int(Rnd * 9999) + 1T ext3.T ext = iEnd SubPrivate Sub Command2_Click()Dim t1, t2, t3 As StringDim newT1, newT2, newT3 As Stringt1 = T ext1.T extt2 = T ext2.T extt3 = T ext3.T extnewT1 = Right(t1, 1) + Left(t1, 1)newT2 = Right(t2, 1) + Mid(t2, 2, 1) + Left(t2, 1)newT3 = Right(t3, 1) + Mid(t3, 3, 1) + Mid(t3, 2, 1) + Left(t3, 1)T ext4.T ext = newT1T ext5.T ext = newT2T ext6.T ext = newT3End Sub第三种：Private Sub Command1_Click()Dim i%i = Int(Rnd * 99) + 1T ext1.T ext = ii = Int(Rnd * 999) + 1T ext2.T ext = ii = Int(Rnd * 9999) + 1T ext3.T ext = iEnd SubPrivate Sub Command2_Click()Dim t1, t2, t3 As IntegerDim newT1, newT2, newT3 As Stringt1 = T ext1.T extt2 = T ext2.T extt3 = T ext3.T extnewT1 = (t1 Mod 10) & (t1 \ 10)newT2 = (t2 Mod 10) & ((t2 Mod 100) \ 10) & (t2 \ 100)newT3 = (t3 Mod 10) & ((t3 Mod 100) \ 10) & ((t3 \ 100) Mod 10) & (t3 \ 1000)T ext4.T ext = newT1T ext5.T ext = newT2T ext6.T ext = newT3End Sub【请将你的典型结果的截图粘贴到下面】【实验5】参照图2-15所示的内容，编写一个由Print方法及其相关格式函数进行输出的程序。
使用不同的分隔符（即：逗号或分号）或者格式输出函数（即：T ab()、Spc()、Format()、Space()）来控制Print方法输出的格式。
（20分）通过该程序掌握print方法及格式函数的使用实验结果：【请将你的代码粘贴到下面】Private Sub Form_Click()Form1.PrintForm1.Print Spc(1); "NO.", "Name", "Dept."Form1.Print"========================================"Form1.Print Spc(1); Format$(1, "000#"), "Lucy", "Finance"Form1.Print Spc(1); Format$(2, "000#"), "Paul", "Finance"Form1.Print Spc(1); Format$(3, "000#"), "Jim", "Finance"Form1.Print Spc(1); Format$(4, "000#"), "Jacob", "Finance"Form1.Print"========================================"Form1.Print Spc(1); Format$(5, "000#"), "Lily", "Personnel"Form1.Print Spc(1); Format$(6, "000#"), "Steven", "Personnel"Form1.Print Spc(1); Format$(7, "000#"), "Bruce", "Personnel"Form1.Print"========================================"Form1.Print Spc(1); Format$(8, "000#"), "David", "T echnology"Form1.Print Spc(1); Format$(9, "000#"), "Gray", "T echnology"Form1.Print Spc(1); Format$(10, "000#"), "Kala", "T echnology"End Sub【请将你的典型结果的截图粘贴到下面】实验小结1.遇到的问题：2.对课程的建议：。