实验一顺序结构程序的设计(4学时)

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

2、“欢迎使用Visual Basic 程序设 Visual Basic 6.0” , 窗体上显示“你好” ，单击命令按钮“清除”时,清除文本框中显示的容和窗体上的容，单击命令按钮“结束”时，结束程序。通过该程序熟悉VB 的界面，了解 VB 的工作原理：事件驱动实验结果：【请将你的代码粘贴到下面】Private Sub Command1_Click()Text1.T ext = 欢迎使用 Visual Basic 6.0Form1.Print 你好 End SubPrivate Sub Command2_Click()Text1 = Form1.ClsEnd SubPrivate Sub Comm

3、and3_Click()EndEnd Sub【请将你的典型结果的截图粘贴到下面】【实验 2】分别定义八个变量，变量名为：var1 、var2 、 var3 、var4 、var5 、 var6 、 var7 、var8 ，变量的数据类型依次定义为：字符串型、整型、长整型、单精度浮点型、双精度浮点型、货币型、布尔型和日期型。按照图2-2 给出的形式为八个变量赋值，并按照图2-4 的样式进行输出。（20 分）（P15 ）通过该程序掌握变量的定义、变量名与变量值的含义。实验结果：【请将你的代码粘贴到下面】Option ExplicitPrivate Sub Form_Click()Dim var1

4、As StringDim var2 As IntegerDim var3 As LongDim var4 As SingleDim var5 As DoubleDim var6 As CurrencyDim var7 As BooleanDim var8 As Datevar1 = Hello World!: var2 = 1000var3 = 30000: var4 = 1.005var5 = 3.1415926: var6 = 100.1234var7 = True: var8 = #5/1/2015#PrintPrint 变量名 :; Tab(15); var1; T ab(30); v

5、ar2; T ab(40); var3; T ab(50); var4 Print 变量值 :; Tab(15); var1; T ab(30); var2; T ab(40); var3; T ab(50); var4Print 变量类型 :; Tab(15); TypeName(var1); Tab(30); TypeName(var2); Tab(40); TypeName(var3); T ab(50); TypeName(var4)PrintPrint 变量名 :; Tab(15); var5; T ab(30); var6; T ab(40); var7; T ab(50); va

6、r8 Print 变量值 :; Tab(15); var5; T ab(30); var6; T ab(40); var7; T ab(50); var8Print 变量类型 :; Tab(15); TypeName(var5); Tab(30); TypeName(var6); Tab(40); TypeName(var7); T ab(50); TypeName(var8)End SubPrivate Sub Form_Load()Form1.Caption = 变量的定义和赋值 Form1.FontSize = 13End Sub【请将你的典型结果的截图粘贴到下面】【实验3 】编写程序，

7、其功能为输入三角形的三边，求三角形的面积。计算公式为：S=(a+b+c)/2 ，面积 =sqr(s*(s-a)*(s-b)*(s-c)（ 20 分）（ P29 ）通过该程序掌握计算类程序的结构、赋值语句的使用程序界面如下所示实验结果：【请将你的代码粘贴到下面】Option ExplicitPrivate Sub Command1_Click()Dim a As Double, b As Double, c As DoubleDim s As Double, area As Double, r As Integera = Val(InputBox(请输入三角形边长a 的值 , 计算三角形面积程序

8、 )Text1.T ext = Str(a)b = Val(InputBox(请输入三角形边长b 的值 , 计算三角形面积程序 )Text2.T ext = Str(b)c = Val(InputBox(请输入三角形边长c 的值 , 计算三角形面积程序 )Text3.T ext = Str(c)If a + b = c Or a + c = b Or b + c = a Thenr = MsgBox(您输入的数据不符合组成三角形的条件EndElses = (a + b + c) / 2!, , 计算三角形面积程序)area = Sqr(s * (s - a) * (s - b) * (s -

9、c)MsgBox 三角形的面积是 : & Str(area), , 计算三角形面积程序 End IfEnd SubPrivate Sub command2_click()Text1.T ext = : T ext2.T ext = : T ext3.T ext = End SubPrivate Sub Form_Load()form1.Caption = 计算三角形面积程序 End Sub【请将你的典型结果的截图粘贴到下面】【实验 4】编写如图 2-10 所示的一个求“倒序数”的程序。 “倒序数”指的是：如产生的数为“ 1234 ”，那么与之对应的倒序数就是“ 4321 ”。点击“生成”按钮，

10、分别在文本框一中随机生成一个 2 位整数， 在文本框二中随机生成一个 3 位整数，在文本框三中随机生成一个4 位整数。然后点击“求倒序数”按钮，分别在文本框四、文本框五、文本框六中输出其对应的倒序数。（20 分）（P27 ）通过该程序掌握常见函数的使用实验结果：【请将你的代码粘贴到下面】Option ExplicitDim twobits As Integer, threebits As Integer, fourbits As Integer Private Sub command1_click()Randomizetwobits = Int(Rnd() * (99 - 10 + 1) +

11、10 2位随机整数threebits = Int(Rnd() * (999 - 100 + 1) + 100 3位随机整数fourbits = Int(Rnd() * (9999 - 1000 + 1) + 1000 4位随机整数Text1.T ext = Str(twobits)Text2.T ext = Str(threebits)Text3.T ext = Str(fourbits)End SubPrivate Sub command2_click()Dim tb As String, thb As String, fb As StringDim tbinv As String, thb

12、inv As String, fbinv As Stringtb = Trim(T ext1.T ext)thb = Trim(Text2.T ext)fb = Trim(T ext3.T ext)tbinv = Right(tb, 1) + Left(tb, 1)thbinv = Right(thb, 1) + Mid(thb, 2, 1) + Left(thb, 1)fbinv = Right(fb, 1) + Mid(fb, 3, 1) + Mid(fb, 2, 1) + Left(fb, 1)Text4.T ext = tbinvText5.T ext = thbinvText6.T

13、ext = fbinvEnd SubPrivate Sub form_load()Form1.Caption = 求倒序数程序 End Sub【请将你的典型结果的截图粘贴到下面】【实验 5】参照图 2-15 所示的容，编写一个由 Print 方法及其相关格式函数进行输出的程序。使用不同的分隔符（即：逗号或分号）或者格式输出函数（即： Tab() 、Spc() 、 Format() 、 Space() ）来控制 Print 方法输出的格式。（20 分）（P31 ）通过该程序掌握print方法及格式函数的使用实验结果：【请将你的代码粘贴到下面】Option ExplicitPrivate Sub

14、form_click()PrintPrint Spc(1); No.; Tab(11); Name; Tab(20); dept.Print = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =spc() 函数应用Print Spc(1); 0001; Spc(5); Lucy; Spc(5); FinancePrint Spc(1); 0002; Spc(5); Paul; Spc(5); FinancePrint Spc(1); 0003; Spc(5); Jim; Spc(6); FinancePrint Spc(1);

15、0004; Spc(5); Jacob; Spc(4); FinancePrint = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =tab() 函数应用Print T ab(2); 0005; Tab(11); Lily; T ab(20); PersonnelPrint T ab(2); 0006; Tab(11); Steven; T ab(20); PersonnelPrint T ab(2); 0007; Tab(11); Bruce; T ab(20); PersonnelPrint = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =spc() 和 tab() 函数应用Print T ab(2); 0006; Spc(5); David; Tab(20); T echnologyspc() 和 tab() 函数应用Print Spc(1); 0009; Tab(11); G