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

实 验 报 告 一课 程VB程序设计实验项目Visual Basic环境顺序选择程序设计(4学时)成 绩专业班级会计三班指导教师李缙姓 名谢玉洁学 号201531100163实验日期2016年3月18日实验目的（1）熟悉Visual Basic6.0集成开发环境（2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握常用函数的使用方法（4）掌握常用输入、输出语句实验内容一、VB环境和顺序结构【实验1】设计一个简单VB程序（20分）（实验教材P5）它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为Visual Basic 程序设计示例，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。通过该程序熟悉VB的界面，了解VB的工作原理：事件驱动实验结果：【请将你的代码粘贴到下面】Private Sub Command1_Click() Text1.Text = 欢迎使用Visual Basic 6.0 Form1.Print 你好End SubPrivate Sub Command2_Click() Text1 = Form1.ClsEnd SubPrivate Sub Command3_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 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; Tab(30); var2; Tab(40); var3; Tab(50); var4Print 变量值:; Tab(15); var1; Tab(30); var2; Tab(40); var3; Tab(50); var4Print 变量类型:; Tab(15); TypeName(var1); Tab(30); TypeName(var2); Tab(40); TypeName(var3); Tab(50); TypeName(var4)PrintPrint 变量名:; Tab(15); var5; Tab(30); var6; Tab(40); var7; Tab(50); var8Print 变量值:; Tab(15); var5; Tab(30); var6; Tab(40); var7; Tab(50); var8Print 变量类型:; Tab(15); TypeName(var5); Tab(30); TypeName(var6); Tab(40); TypeName(var7); Tab(50); TypeName(var8)End SubPrivate Sub Form_Load()Form1.Caption = 变量的定义和赋值Form1.FontSize = 13End Sub【请将你的典型结果的截图粘贴到下面】【实验3】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：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 Double Dim s As Double, area As Double, r As Integer a = Val(InputBox(请输入三角形边长a的值, 计算三角形面积程序) Text1.Text = Str(a) b = Val(InputBox(请输入三角形边长b的值, 计算三角形面积程序) Text2.Text = Str(b) c = Val(InputBox(请输入三角形边长c的值, 计算三角形面积程序) Text3.Text = Str(c) If a + b = c Or a + c = b Or b + c = a Then r = MsgBox(您输入的数据不符合组成三角形的条件!, , 计算三角形面积程序) EndElse s = (a + b + c) / 2 area = Sqr(s * (s - a) * (s - b) * (s - c) MsgBox 三角形的面积是: & Str(area), , 计算三角形面积程序 End IfEnd SubPrivate Sub command2_click() Text1.Text = : Text2.Text = : Text3.Text = End SubPrivate Sub Form_Load() form1.Caption = 计算三角形面积程序End Sub【请将你的典型结果的截图粘贴到下面】【实验4】编写如图2-10所示的一个求“倒序数”的程序。“倒序数”指的是：如产生的数为“1234”，那么与之对应的倒序数就是“4321”。点击“生成”按钮，分别在文本框一中随机生成一个2位整数，在文本框二中随机生成一个3位整数，在文本框三中随机生成一个4位整数。然后点击“求倒序数”按钮，分别在文本框四、文本框五、文本框六中输出其对应的倒序数。（20分）（P27）通过该程序掌握常见函数的使用实验结果：【请将你的代码粘贴到下面】Option ExplicitDim twobits As Integer, threebits As Integer, fourbits As IntegerPrivate Sub command1_click() Randomize twobits = Int(Rnd() * (99 - 10 + 1) + 10 2位随机整数 threebits = Int(Rnd() * (999 - 100 + 1) + 100 3位随机整数 fourbits = Int(Rnd() * (9999 - 1000 + 1) + 1000 4位随机整数 Text1.Text = Str(twobits) Text2.Text = Str(threebits) Text3.Text = Str(fourbits)End SubPrivate Sub command2_click() Dim tb As String, thb As String, fb As String Dim tbinv As String, thbinv As String, fbinv As String tb = Trim(Text1.Text) thb = Trim(Text2.Text) fb = Trim(Text3.Text) 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.Text = tbinv Text5.Text = thbinv Text6.Text = fbinvEnd SubPrivate Sub form_load() Form1.Caption = 求倒序数程序End Sub【请将你的典型结果的截图粘贴到下面】【实验5】参照图2-15所示的内容，编写一个由Print方法及其相关格式函数进行输出的程序。使用不同的分隔符（即：逗号或分号）或者格式输出函数（即：Tab()、Spc()、Format()、Space()）来控制Print方法输出的格式。（20分）（P31）通过该程序掌握print方法及格式函数的使用实验结果：【请将你的代码粘贴到下面】Option ExplicitPrivate Sub form_click() Print Print Spc(1); No.; Tab(11); Name; Tab(20); dept. Print = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = spc()函数应用 Print Spc(1); 0001; Spc(5); Lucy; Spc(5); Finance Print Spc(1); 0002; Spc(5); Paul; Spc(5); Finance Print Spc(1); 0003; Spc(5); Jim; Spc(6); Finance Print Spc(1); 0004; Spc(5); Jacob; Spc(4); Finance Print = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = tab()函数应用 Print Tab(2); 0005; Tab(11); Lily; Tab(20); Personnel Print Tab(2); 0006; Tab(11); Steven; Tab(20); Personnel Print Tab(2); 0007; Tab(11); Bruce; Tab(20); Personnel Print = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = spc()和tab()函数应用 Print Tab(2); 0006; Spc(5); David; Tab(20); Technology spc()和tab()函数应用 Print Spc(1); 0009; Tab(11); Gray;