丁衍珍Visual Basic实验报告3Word文档格式.docx

1、实验报告填写说明、填写一律用钢笔或圆珠笔填写或打印，要求字迹工整，条理清晰。、“实验题目”可以填写章节名称或用文字表述。、“实验目的”要逐条列出，“实验内容”以简练的文字进行概括。、“附注”处填写实验注意事项或调试过程，以及实验中出现的异常情况和解决方法。、“教师批阅”处由课任老师填写评语，给出实验成绩，并作为平时成绩，参与期末成绩总评。 2011 年10月 16日实验项目：实验三 顺序结构程序设计实验目的：1掌握常量和变量、表达式的基本概念和正确书写格式。2掌握赋值语句和常用函数的正确使用方法。3掌握输入、输出对话框（InputBox和MsgBox）的基本使用方法实验仪器：计算机一台 （CP

2、U：AMD P320 主频：2.10 GHz 内存：2.00 GB 软件：VB6.0 操作系统：windows XP 专业版 软件：VB6.0）实验步骤（或程序清单：）第1小题：假设有变量a=2,b=5,c=4,d=3,e=6，编写程序，计算表达式a+bc and d*a=e的值，将结果打印在窗体上。程序设计代码如下：Private Sub Form_Click（）a = 2b = 5c = 4d = 3e = 6Print 结果为：Print a + b c And d * a = ePrintEnd Sub截图如下：运行结果截图如下：第2小题：编写程序，界面如下图所示。使得单击一次按钮可以

3、产生一个60,90之间的随机数并显示在标签1上，再求出该数的正弦值，将结果写在标签2上。（提示:为了防止两次运行程序的随机数序列相同，调用Rnd之前先用Randomize语句进行初始化）。界面设计截图如下代码设计如下：Private Sub Command1_Click（）RandomizeLabel1.Caption = 60 + Int（90 - 60 + 1） * Rnd）Label2.Caption = Sin（Label1.Caption）代码截图如下：第3小题：编写计算圆面积和球体积的程序，程序运行界面如下图所示。要求输出结果只保留四位小数；如果半径的输入不合法，例如含有非数值字符

4、，应该用MsgBox报告输入错误。判断输入值是否为数值类型可用函数IsNumber（）界面设置截图如下Dim a As Integera = Text1.TextIf a = 0 Thenr = MsgBox（错误!, 48, 错误提示Print rElseLabel1.Caption = Format（3.1415926 * a * a, 0.0000Label2.Caption = Format（4 * 3.1415926 * a * a * a） / 3, End If代码设计截图如下：运行结果截图1：2：3：第4小题: 小王有存款 A 元（用 textbox 输入），年利率 P （用

5、textbox 输入），存储时间为 T 年（用 INPUTBOX 函数输入）。试编程求本利合计最后的总金额S=A*（1+P）T）。界面设置截图如下：Dim t As Integer您的本利合计为：Print Val（Val（Text1.Text） * Val（1 + Text2.Text） t）Private Sub Form_load（）t = Val（InputBox（请输入存储时间：, 时间）运行结果运行如下：第5小题：Print方法练习：编写打印下面图案的程序。提示： 1、若用户在Form_load（） 事件中编写显示图形的过程，必须将form窗体的Autoredraw属性修改为Tru

6、e，否则没有办法显示。2、只需要切换到中文输入状态，然后鼠标指向软键盘按右键选择“特殊字符”，就可以输入，Tab（n） 的功能是在指定的位置显示输出信息。Spc（n）的功能是在Print的输出中跳过N个空格。界面设计截图如下ClsPrivate Sub Form_click（）Print Tab（8）; Print Tab（7）;Print Tab（6）;Print Tab（5）; Print Tab（4）;Print Tab（3）;Print Tab（2）;_; Space（1）;Print Tab（1）;代码截图如下附注附注（续）实验结果分析：注意实验要求，按实验要求正确设计窗口，注意书写代码的格式，以及输入正确的代码。教师批阅：