VB实验报告3次光电.docVIP

VB实验报告3次 实验一：实验名称: Visual Basic 基础知识练习 日期：2011-3-15 一、 实验目的 1．掌握VB 6.0启动、退出的方法，熟悉VB 6.0集成开发环境界面组成。 2．掌握Visual Basic的基本语法 3．掌握Visual Basic中的输入输出设计 4．掌握Visual Basic中的常用标准控件 二、 实验内容： 1. 输入一个秒数，转化为时分秒的形式。 2. 自由落体公式为S=1/2gt2+v0t请用InputBox输入v0及t的值，并计算出S的值。 3. 鸡兔同笼问题：已知鸡和兔的总头数为h=23，总脚数为f=56，求鸡兔各有多少只？ 三、 实验环境： 1 硬件要求：计算机（CPU: Pentium III 600MHz以上；RAM：256M以上；硬盘空间：4G以上） 2 操作系统： WindowsXP 3 软件要求：Visual Basic6.0 四、实验步骤及程序编写： 1打开visual Basic6.0 2 设计界面 3 编写代码： （1） Private Sub Command1_Click() Dim sec sec = Val(Text1.Text) Label2.Caption = sec 秒= sec \ 3600 小时 (sec Mod 3600) \ 60 分钟 sec Mod 3600 Mod 60 秒 End Sub （2） Private Sub Command1_Click() Const g# = 9.81 Dim v0#, t#, s# v0 = Val(InputBox(请输入v0：, 自由落体初速度, 4.8)) t = Val(InputBox(请输入t：, 自由落体经历时间, 0.5)) s = 1 / 2 * g * t ^ 2 + v0 * t Label1.Caption = 当v0= v0 ,t= t 时, s= s End Sub （3） Private Sub Command1_Click() MsgBox 鸡的个数为： (23 * 4 - 56) / 2 vbCrLf 兔子的个数为： 23 - (23 * 4 - 56) / 2, vbOKOnly, 鸡兔同笼 End Sub 4 调试、运行 五、程序调试及实验总结 掌握了建立、编辑及运行一个简单的VB 6.0应用程序的全过程。 掌握了使用消息框和输入框并能编写简单的程序。 掌握了使用常用标准控件。 （可自行发挥） 六、教师评语 实验二：实验名称: Visual Basic控制结构 2011-3-31 一、实验目的 1．掌握单行IF使用 2. 熟悉块IF的应用 3. 掌握select case语句 4. 掌握for-next、do(while/until)-loop，语句的应用 二、实验内容 1.判断输入的字符的种类。 若是数字，则提示为数字；若是小写字母，则提示此字母为小写字母，并将该字母转换为大写字母；若为大写字母，则提示此字母为大写字母，并将该字母转换为小写字母；否则输出其他字符。 2. 某般空公司规定：在7-9月订票超过20张优惠票价的15%，订票在20张以下优惠票价的5%，在1-4，11，12月如订票超过20超过20张优惠票价的30%，订票在20张以下优惠20%。编程实现票价的计算。 3. 输出1-100以内的素数（约数只有1及其本身的数） 三、 实验环境： 1 硬件要求：计算机（CPU: Pentium III 600MHz以上；RAM：256M以上；硬盘空间：4G以上） 2 操作系统： WindowsXP 3 软件要求：Visual Basic6.0 四、实验步骤及程序编写： 1打开visual Basic6.0 2 设计界面 3 编写代码： （1） Private Sub Command1_Click() Dim i As String i = InputBox(请输入一个字符:) If i = a And i = z Then MsgBox i 是小写字母，转化为大写字母是： Chr(Asc(i) - 32), , 字符判别 或 UCase(i) ElseIf i = A And i = Z Then MsgBox i 是大写字母，转化为小写字母是： LCase(i), , 字符判别 或 Chr(Asc(i) + 32) ElseIf i = 0 And i = 9 Then MsgBox i 是数字, , 字符判别 Else MsgBox i 是其他字符, , 字符判别 End If End