实验1实验报告.docVIP

安徽机电职业技术学院实验报告 课程 名称 VisualBasic程序设计 实验名称 实验1 VB基本的语句 系部 电气选修 班级 过自3082 姓名 李保华 学号 1305083089 实验 时间 2010年 月 日 时 分～ 时 分 地点 VB实验室 机位 28 评语 指导教师：王军 成绩 一、实验目的 1、学会使用if语句和rand（）函数 2、学会使用inputbox（）函数，msgbox语句 3、学会使用表达式运算符和 二、实验内容 1、从键盘输入三角形的三条边a,b,c，算出三角形的面积然后print输出 2、利用inputbox函数输入三个参数a,b,c,作为aX2+bX+c=0的参数将方程的根在msgbox中输出 3、从键盘输入三角形的两条边a，b和角C输出三角形的面积 4、从键盘输入三个数a,b,c将三个数中最大的数输出 5、从键盘输入三个数a,b,c将三个数按从大到小的顺序输出 6、在text1和text2中产生两个1~9中的数，将两个数的积在第三个文本框中输出 7、在窗体中输出一个由6个8组成的等边三角形 三、实验步骤 1、代码 1、从键盘输入三角形的三条边a,b,c，算出三角形的面积然后print输出 Private Sub Form_Click() a = Val(InputBox(请输入a的值:)) Print 边a的值:; a b = Val(InputBox(请输入b的值:)) Print 边b的值:; b c = Val(InputBox(请输入c的值:)) Print 边c的值:; c t = 1 / 2 * (a + b + c) s = Sqr(t * (t - a) * (t - b) * (t - c)) Print 三角形的面积s=; s End Sub 2、利用inputbox函数输入三个参数a,b,c,作为aX2+bX+c=0的参数将方程的根在msgbox中输出 Private Sub Form_Click() a = Val(InputBox(请输入a的值:)) Print a的值:; a b = Val(InputBox(请输入b的值:)) Print b的值:; b c = Val(InputBox(请输入c的值:)) Print c的值:; c X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a) X2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a) Print X1=; X1, X2=; X2 MsgBox X1= X1 x2= X2 Print End Sub 3、从键盘输入三角形的两条边a，b和角C输出三角形的面积 Private Sub Form_Click() a = Val(InputBox(请输入a的值:)) Print 边a的值:; a b = Val(InputBox(请输入b的值:)) Print 边b的值:; b c = Val(InputBox(请输入c的值:)) Print 角C的值:; C S=1 / 2 * a * b * Sin(C) Print 三角形的面积S=” ;S 4、从键盘输入三个数a,b,c将三个数中最大的数输出 Private Sub Form_Click() a = Val(InputBox(请输入a的值:)) Print a的值:; a b = Val(InputBox(请输入b的值:)) Print b的值:; b c = Val(InputBox(请输入c的值:)) Print c的值:; c If a = b And a = c Then Print a End If If c = a And c = b Then Print c End If If b = c And b = a Then Print b End If End Sub 5、从键盘输入三个数a,b,c将三个数按从大到小的顺序输出 Private Sub Command1_Click() a = Val(InputBox(请输入a的值:)) Print a的值:; a b = Val(InputBox(请输入b的值:)) Print b的值:; b c = Val(InputBox(请输入c的值:)) Print c的值:; c If a = b And a = c Then If b = c Then Print a b c Else Print a c b End If End If If b = c And b = a Then If a = c T