Visual Basic语言基础 实验

Visual Basic语言基础 实验

一、实验目的
(1)掌握Visual Basic的数据类型和变量定义方法。
(2)正确使用Visual Basic的运算符和表达式。
(3)掌握Visual Basic中数据输入、输出的方法。
(4)掌握Visual Basic常用函数的使用方法。
(5)学会用赋值语句构造简单的顺序结构程序。
二、相关知识
1．VB的数据类型
    VB提供了丰富的数据类型，所有的数据都具有数据类型，如果数据的数值和数据类型不匹配，就会出现错误或者造成内存空间的浪费。VB将数据类型分为标准数据类型和自定义类型。
    标准数据类型包括数值型数据类型、非数值型数据类型和变体数据类型。其中数值型数据类型包括整型、长整型、单精度型、双精度型、货币型和字节型；非数值类型包括日期型、逻辑型、字符型和对象数据类型。
    除了以上标准数据类型外，用户还可以根据自己的需要自定义数据类型，称为自定义类型，形式如下：
    [Public|Private]Type  自定义类型名
    元素名[(下标)]As类型名
[元素名[(下标)]As类型名]
…………
End Type
2．VB变量的声明
    变量是用来在程序运行期间临时存储数值的。声明变量包括名称和数据类型。
3．VB的表达式
    表达式是指用运算符或圆括号将运算元素连接起来的一个有意义的式子。VB的表达式有下列形式：
    ●  算术表达式：由算术运算符连接。其运算符的含义、优先级和数学中的相同，只是    整除运算符(＼)和取模运算符(mod)是新概念，读者应倍加注意。
    ●  关系表达式：由关系运算符连接，其运算结果是一个逻辑量。运算符两边的操作数如果是数值型，则按其大小比较；如果是字符型，则按其字符编码的码值从左到右一一比较。
逻辑表达式：由逻辑运算符连接，运算结果为逻辑值。
字符串表达式：由字符串运算符“+”和“&”连接。它们的功能都是将两个字符串拼接起来。  “+”运算符两边的操作数应均为字符型；“&”运算符两边的操作数可以是字符型或者是数值型。
4．VB的内部函数
VB提供了大量的内部函数供用户编程时使用。内部函数按功能分为数学函数、转换函数、字符串函数、日期函数和格式输出函数。用户可以通过VB的“帮助”菜单获得所有内部函数的使用方法。
三、实验举例
(实例1)  逻辑型数据的使用。
    Private  Sub  Form_cliCk()
    Dim a AS  Boolean，  b AS  Boolean
    Dim X  AS  Integer，  y  AS  Integer
X  =  0
y = -2
a =  X
b =  y
Print a,b,x,y
a  =  True
b  =  FalSe
X  =  a
Y=b
Print x,y,a,b
End Sub
(实例2)  日期型数据。
    Private Sub Form_cliCk()
    Dim  a  AS  Date，  S  AS  Date，  d  AS  Date
    Dim  f  AS  Date，  S1  AS  Date，  S2  AS  Date
    a = #5／9／2002#
    s = #5／12／1999  12：30：15 PM#
    d  =  2001．12
    f  =  -2001．12
    S1  =  0．5
    S2  =  0
    Print a，  S
    Print d，  f
    Print  Sl，  S2
    End Sub
 (实例3)关系运算符。
    Private Sub Form_cliCk()
    Print  ”abcde”  =  ”abd”
    Print  ”abcde，’  >  ”aba”
    Print  ”BC”  >=  ”ABCFF”
    Print  31  <  3
    Print  ”34”  <  ”3”
    Print  ”abc”  <>  ”ABC”
    End Sub
 在比较时注意以下原则：
(1)如果两个操作数是数值型，则按其大小进行比较。
(2)如果两个操作数是字符型，则按字符的ASCⅡ码值从左到右一一比较，也就是说，先比较两个字符串中的第一个字符，其ASCⅡ码值大的字符串大，如果第一个字符相同，则比较第二个字符，依此类推，直到比出结果为止。
 (实例4)  算术运算函数的使用。
    Private  Sub  Form_cliCk()
    Print  Abs(-1.7)，  Log(12)，  Sqr(9)
    Print  Exp(3)，  Sin(30  *  3.1415926/180)
    Print    Int(-3.5)，    Fix(-3.5),
    Round(1.5)，  Round(1.512,2)
    End  Sub
(实例5)  求余数(模)运算符的使用。
Private  Sub  Form_cliCk()
Print 20 Mod 3
Print 20 Mod -3
Print -20 Mod 3
Print -20 Mod –3
End Sub
观察运行结果。