您现在的位置:首页 >> 实验指导 >> 内容

实验三 VB语言基础

时间:2009-11-16 11:21:48 点击:4013

 

一、实验目的

1.掌握VB的数据类型。重点掌握数据类型、字符类型、变体、对象类型。

2.掌握常量和变量的声明。

3.掌握VB4种运算和包含这些运算的表达式。

4.进一步熟悉VB程序设计的过程,体会编程规范。

5. 掌握常用函数的使用。

二、实验内容

(一)已知w=10x=8Y3Z=7, 试设计一个应用程序求出下列表达式的结果,并在窗体上输出。

(1)w>X ANDY=z 0RXY

(2)XZ OR wY ANDY<X

(3)NOT(W>Y AND x=z)

(4)NoT(Y<>X OR w*3>Z)

所得计算4个表达式的值的结果为:truetruetruefalse,如下图9所示。

9 表达式的结果

【提示】

设计步骤如下:

1.启动VB,选择新建工程”|”标准工程,按确定按钮,建立新的工程。

2.双击窗体窗口form1,进入代码窗口,在对象列表框中选择”form”,在过程列表框中选择”c1ick”事件。

3.在代码窗口中输入以下代码;

Private Sub form_click()

 Dim w As Integer                    '显式声明变量

 Dim x As Integer

 Dim y As Integer

 Dim z As Integer

w = 10: x = 8: y = 3: z = 7

L1 = w > x And y <= z Or x > y  'L1L2L3L4为隐式声明变量

L2 = x > z Or w = y And y < x

L3 = Not (w > y And x = z)

L4 = Not (y <> x Or w * 3 > z)

Print "L1="; L1         '显示计算结果

Print "L2="; L2

Print "L3="; L3

Print "L4="; L4

End Sub

  4.运行程序,单击窗体出现计算结果,验证自己的结果。

(二)用立即窗口验证下列表达式(立即窗口是一个立即执行语句的调试窗口,又称Debug window。该窗口主要是为用户调试程序顺设计的。一般在设计程序时不可见,只有运行程序时,才会出现在屏幕的底端,但非活动窗口,若要用调试窗口查看某个变量的值.则可中断程序并激活立即窗口,键入命令Print A,即可看到结果)

8.6<15.4

“abc””abd”

(31)(4>2)

0(42)

“abc”abcd”

153 and 62

not(26) and (62)

“a””A”xor”b””B”

7.83.2 Eqv16.87.2

16.37.0 Imp 4.519.2

【提示】

打开立即窗口的操作步骤如下:

1.选择主菜单上运行菜单中的启动命令,运行程序。

2.选择主菜单上运行菜单中的中断命令暂停程序运行。

3.单击立即窗口,即激活立即窗口,进入Debug window工作方式。

4.键入VB语言命令。例如:

Print  8.6<15.4                   

Print ”abc””abd”

则在每条语句确认后,将立即显示运算结果。所得计算表达式的值如下图10所示。

10 立即窗口中查看结果

5.关闭立即窗口,方法有如下3种:

    (1)在立即窗口键入End命令,系统会关闭立即窗口并结束程序运行。

    (2)选探主菜单运行’’菜单中的继续命令返回程序运行窗口。

    (3)单击立即窗口右上角×,立即窗口消失,其他不变。若要再见立即窗口,则选择主菜单视图菜单中的立即窗口或按“ctrl+G”组合键。

(三)日期格式化的输出,Format()函数的使用。

Format()函数在form1界面运行的结果如图11所示。

11 程序运行结果

【提示】

1.双击窗体窗口form1,进入代码窗口,在对象列表框中选择”form”,在过程列表框中选择” Activate”事件。

2.在代码窗口中输入以下代码;

Option Explicit

Private Sub Form_Activate()

   Dim MyTime As Date, MyDate As Date

   FontSize = 12

   Rem 显示系统当前日期和时间

   Print Format(Now, "yyyymmdd  hh小时mm分钟ss")

   Print Format(Now, "yymd  h小时m分钟s")

   Print Format(Now, "ddddd,dddd,mmmm,dd,yyyy  hh:mm")

   Rem 以系统预定义的格式显示系统当前日期

   Print Format(Date, "ddddd,ddd,mmm,dd,yyyy")

   MyTime = #5:06:08 PM#

   MyDate = #4/25/2003#

   Rem 显示日期MyTimeMyDate

   Print Format(MyDate, "mm/dd/yyyy")

   Print Format(MyDate, "m-d-yy")

   Print Format(MyDate, "mmmm/dddd/yyyy")

   Print Format(MyDate, "ddddd")

   Rem 显示时间MyTime

   Print Format(MyTime, "h-m-sAM/PM")

   Print Format(MyTime, "hh:mm:ssA/P")

   Print Format(MyTime, "h小时m分钟sAM/PM")

   Print Format(MyTime, "hh小时:mm分钟:ssA/P")

End Sub

3.运行程序,窗体出现计算结果,验证自己的结果。

(四)编程完成下列计算:

输入摄氏温度转为华氏温度,输入华氏温度转为摄氏温度。要求在文本框中输入数字,单击华氏转摄氏按钮将华氏文本框中的数字自动计算转化为摄氏温度后,显示在摄氏文本框中;单击摄氏转华氏按钮将摄氏文本框中的数字自动计算转化为华氏温度后,显示在华氏文本框中。

已知华氏温度与摄氏温度之间转换的公式是:

F=C*9/5+32   摄氏温度转化为华氏温度,F为华氏

C=(F-32)*5/9 ’华氏温度转化为摄氏温度,C为摄氏

1、屏幕界面如图12所示:

12 程序界面

提示

(1)Text文本框存放的String类型,为了程序正常运行,应通过Val()函数将字符串转换为数值类型。

(2)上述公式中右边的变量F、C应该是有值的,该值可通过Text1、Text2分别赋值获得。例对文本框1(Text1)输入的摄氏温度,要在文本框2显示转换后的华氏温度。

在代码窗口中输入以下代码;

 Dim C!, F!     '使用变量
Private Sub Command1_Click()
C = Val(Text1.Text)
F = C * 9 / 5 + 32
Text2.Text = F
End Sub

Private Sub Command2_Click()
F = Val(Text2.Text)
C = (F - 32) * 5 / 9
Text1.Text = C
End Sub

也可以不用F、C变量,直接利用文本框实现,例如对命令按钮Command2的代码:

Private Sub Command2_Click()

Text1. Text = 5 / 9 * (Val(Text2. Text) - 32)   '不使用变量,直接使用文本框

End Sub

运行结果两者的效果相同。

练习:

1、用InputBox输入圆半径r和圆柱高h,求周长、圆面积和圆柱体积并输出结果。输出可选用PrintMsgBox,结果前要有文字说明。

提示计算公式:圆周长=2πr,圆面积=πr2,圆柱体积=圆面积×h

Private Sub Command3_Click()
Dim r!, h!, l!, s!, v!
Const Pi = 31.14159265
r = Val(InputBox("
请输入圆的半径:"))
h = Val(InputBox("
请输入圆柱高:"))
l = 2 * r * Pi
s = Pi * r ^ 2
v = s * h
MsgBox "
半径为" & r & "高为" & h & "的圆的周长为" & l & ",面积为" & s & ",圆柱体积为" & v
End Sub 

2、我国有13亿人口,按人口年增长0.8%计算,多少年后我国人口超过26亿。
【提示】已知年增长率r=0.8%,求人数超过26亿的年数n公式为:


其中:Log(x)为对数函数

 


作者:Admin  
  • VB程序设计学习网站(赣南师范学院) © 2008 版权所有 All Rights Reserved.
  • 地址:江西省赣州市经济技术开发区 赣南师范学院数学与计算机科学学院 邮政编码:341000
    Email:ZQ188@163.com 技术支持QQ:87319633 移ICP备10086号
  • GnsySjxy! V2.4