VB实验报告03.doc

2011－20学年第学期 实 验 报 告 实验课程名称 VB程序设计 专 业 班 级 学 生 姓 号 学 生 姓 名 实验指导老师 浙江大学城市学院实验报告 课程名称 VB程序设计基础 实验项目名称 程序设计基础 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求 掌握常用函数的使用；理解并掌握InputBox、MsgBox函数的使用；熟练掌握赋值语句的使用。掌握顺序结构的应用程序的编程过程。 二. 实验内容和原理 【练习-1】设计一个函数计算器。其功能要求如下： （1）运行的界面如图所示。有12个命令按钮。每使用一个函数按钮前，先单击“清除”按钮，文本框和标签框中的内容清空。 （2）Sin、Cos、Sqr、Int、Chr、Asc等函数将文本框中的数据作为函数的输入参数，单击这些函数命令按钮，在标签框中显示其函数值。 （3）单击“Rnd”按钮，用Rnd函数产生一随机数，显示在标签框中。 （3）单击“Date”按钮在标签框中显示系统日期；单击“Time”按钮在标签框中显示系统时间； （4）单击“InputBox”按钮，弹出一对话框，提示输入姓名，当用户输入后，再将输入信息显示在标签框中。单击“MsgBox”按钮，将文本框中的内容通过一信息框显示出来，要求信息框提供给用户的有“是”、“否”、“取消”3个按钮，根据用户的不同选择，将函数返回结果显示在标签框中。 部分命令按钮的提示代码如下： Sin命令按钮的事件过程可以写作： Const pi = 3.1415926 Dim x As Single, fx As Single x = Val(Text1.Text) ‘注意类型转换函数 fx = Sin(x * pi / 180) Label1.Caption = Str(fx) ‘注意类型转换函数 Asc命令按钮的事件过程可以写作： Label1.Caption = Str(Asc(Text1.Text)) ‘注意类型转换函数 MsgBox命令按钮的事件过程可以写作： Dim n As String n = MsgBox(你输入的数据是 Text1.Text, 3 + 32 + 0, 数据检查) Label1.Caption = Str(n) Rnd命令按钮的事件过程可以写作： Randomize Label1.Caption = Str(Rnd) 请完整写出所有命令按钮的事件过程。 上机实践 调试运行以上程序，运行界面参考如上图。 Const pi = 3.1415926 Private Sub Command1_Click() Dim x As Single, fx As Single x = Val(Text1.Text) fx = Sin(x * pi / 180) Label3.Caption = Str(fx) End Sub Private Sub Command2_Click() Dim x As Single, fx As Single x = Val(Text1.Text) fx = Cos(x * pi / 180) Label3.Caption = Str(fx) End Sub Rnd命令按钮的事件过程可以写作: Private Sub Command3_Click() Label3.Caption = Str(Rnd) End Sub Private Sub Command4_Click() Dim x As Single, fx As Single x = Val(Text1.Text) fx = Sqr(x) Label3.Caption = Str(fx) End Sub Private Sub Command5_Click() Dim x As Single x = Val(Text1.Text) Label3.Caption =str( Int(x)) End Sub Private Sub Command6_Click() Dim x As Integer x = Val(Text1.Text) Label3.Caption = C