Visual Baic程序设计实验报告03.docVIP

云南大学数学与统计学实验教学中心 实验报告 课程：名称： 实验编号：学院：数学与统计学院 专业： 统计学（投资决策分析） 年级：一、目的1.了解VB可视化编程的基本步骤 2.能编写简单的几个程序 二、内容第3章VisualBasic程序设计教程，习题3，二、编程题1-6 三、环境 四Label1 Caption Label1标题 Label2 Caption Label2的标题 Command1 Caption 输入三门课的成绩 命令按钮标题 2. 输入三角形两边及夹角（以角度为单位），求三角形的第三边和面积，如图所示。 设三角形两边及夹角分别为a,b,⊙,三角形第三边c=√(a^2+b^2-2abcos⊙),三角形的面积s=0.5absin⊙. 代码为： 对象名称 属性名称 属性值 说明 Form1 Caption Form1 窗体标题 Label1 Caption 输入三角形一条边a的值 Label1标题 Label2 Caption 输入三角形一条边b的值 Label2的标题 Label3 Captiao 输入三角形两边夹角⊙的值 Label3的标题 Label4 Caption 三角形第三边c的值 Label4的标题 Label5 Caption 三角形的面积s的值的值 Label5的标题 Command1 Caption 计算 命令按钮标题 3.输入三角形三条边a、b、c的值，计算并输出三角形的面积，如图所示。 海伦公式s=√p(p-a)(p-b)(p-c),其中p=1/2*(a+b+c) 对象名称 属性名称 属性值 说明 Form1 Caption Form1 窗体标题 Label1 Caption 输入三角形一条边a的值 Label1标题 Label2 Caption 输入三角形一条边b的值 Label2的标题 Label3 Captiao 输入三角形一条边c的值 Label3的标题 Label4 Caption Label4的标题 Command1 Caption 计算 命令按钮标题 4.用InputBox函数输入 一个摄氏温度值，将它转换为相应的华氏温度值并输出；用InputBox函数输入一个华氏温度值，将它转换为相应的摄氏温度值并输出，如图所示。 对象名称 属性名称 属性值 说明 Form1 Caption Form1 窗体标题 Label1 Caption Label1标题 Command1 Caption 摄氏转华氏 命令按钮标题 Command2 Caption 华氏转摄氏 命令按钮标题 5.在文本框中输入3种商品的单价、数量，计算并输出总金额，如图所示。 对象名称 属性名称 属性值 说明 Form1 Caption Form1 窗体标题 Label1 Caption 输入第一种商品的单价 Label1标题 Label2 Caption 输入第二种商品的单价 Label2的标题 Label3 Captiao 输入第三种商品的单价 Label3的标题 Label4 Caption 数量 Label4的标题 Label5 Caption 数量 Label5的标题 Command1 Caption 计算 命令按钮标题 6.设计一个12小时制的指针动态时钟，如图所示。 要求：1）既有动态指针，又有时、分、秒的数字显示；2）单击“校时”命令按钮，用InputBox函数按照时间格式输入一个12小时制的两位的时、分、秒值，用这个时间去设置指针式动态时钟的时针、分针、和秒针在钟面上的位置。 提示： 程序代码： Private Sub Command1_Click() Dim h As Integer, m As Integer, s As Integer h = InputBox(输入当前的时数, 输入窗口, 0) m = InputBox(输入当前的分数, 输入窗口, 0) s = InputBox(输入当前的秒数, 输入窗口, 0) Timer1.Enabled = True t = h : m : s Time = Format(t, hh:mm:ss) r1 = Line1.Y1 - Line1.Y2 r2 = Line2.Y1 - Line2.Y2 r3 = Line3.Y1 - Line3.Y2 End Sub Dim r1 As Single, r2 As Single, r3 As Single Dim sita1 As Si