VB实验一 实验报告.docx

1、VB实验一 实验报告实 验 报 告 一课 程VB程序设计实验项目Visual Basic环境顺序选择程序设计(4学时)成 绩专业班级姓 名学 号实验日期实验目的（1）熟悉Visual Basic6.0集成开发环境（2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握选择控制结构（If、Select case）语句实现程序分支（4）掌握控制结构相关控件（单选按钮、复选框）（5）能综合运用选择及循环控制结构解决较复杂的问题实验内容一、VB环境和顺序结构【实验1】设计一个简单VB程序（10分）它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为

2、Visual Basic 程序设计示例，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。实验结果：【实验1 代码】Private Sub Command1_Click()Text1.Text = Visual Basic的程序设计示例Form1.Print 你好End SubPrivate Sub Command2_Click()Text1.Text = 清除文本框中的内容Form1.Cls 清除窗体上打印的内容End SubPrivate

3、 Sub Command3_Click()EndEnd Sub【实验1 典型结果】【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c) （20分）程序界面如下所示实验结果：【实验2 代码】Private Sub Command1_Click()Dim a As Integer, b%, c%Dim s As Integera = Text1.Text: b = Text2.Text: c = Text3.Texts = (a + b + c) / 2Text4.Text = Sqr(s * (s

4、- a) * (s - b) * (s - c)End SubPrivate Sub Command2_Click()EndEnd Sub【实验2 典型结果】 【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序） （15分）实验结果：【方法1 代码】Private Sub Form_Click()Dim a, b, c, d, ea = Int(Rnd * 900 + 100)c = Right(a, 1) & Mid$(a, 2, 1) & Left(a, 1)Print a; Tab(20

5、); cEnd SubPrivate Sub Form_Load()Print 随机数, Tab(20); 逆序数End Sub【方法1 典型结果】【方法2 代码】Private Sub Form_Click()Dim a, c, b, d, ea = Int(Rnd * 900 + 100)b = a 100: c = (a Mod 100) 10: d = a Mod 10e = d * 100 + c * 10 + bPrint a; Tab(20); eEnd SubPrivate Sub Form_Load()Print 随机数, Tab(20); 逆序数End Sub【方法2 典型

6、结果】二、选择结构【实验3】输入一年份，判断它是否为闰年，并显示有关信息。判断闰年的条件为：1.能被4整除，但不能被100整除，2.或者能被400整除（注意各个条件表达式的括号） （20分） 实验结果：【实验3 代码】Private Sub Command1_Click()Dim year As Integeryear = InputBox(请输入年份)If year Mod 4 = 0 And year Mod 100 0 Or year Mod 400 = 0 ThenMsgBox year & 是闰年ElseMsgBox year & 不是闰年End IfEnd Sub【实验3 典型结果

7、】【实验4】任意输入三个数，求三个数中最大数和最小数 （15分）实验结果：【实验4 代码】Private Sub Command1_Click()Dim a%Dim b%Dim c%a = Text1.Text: b = Text2.Text: c = Text3.TextIf a b Then Text4.Text = a: Text5.Text = bElse Text4.Text = b: Text5.Text = aEnd IfIf c a Then Text4.Text = cElse Text4.Text = Text4.TextEnd IfIf c c And a + c b A

8、nd b + c a ThenIf a = b And b = c ThenPrint 是等边三角形ElseIf a = b Or b = c Or a = c ThenPrint 是等腰三角形ElsePrint 是一般三角形End IfElsePrint 不是三角形End IfEnd Sub【实验5 典型结果】【选做2】求解分段函数，要求输入x的值，输出计算得到的y值 （5分）实验结果：【选做2 代码】Private Sub Form_Click()Text1.Text = Val(InputBox(请输入一个数)x = Text1.TextSelect Case xCase Is = 2000Text2.Text = 3 * xCase Is = 500, Is = 1000, Is 2000Text2.Text = 2 * xEnd SelectEnd Sub【选做2 典型结果】实验小结1. 遇到的问题：2. 对课程的建议：