第04章VB语言基础(4学时)

1、 4.1 VB4.1 VB程序代码的组织方式程序代码的组织方式 4.1.1 4.1.1 过程过程 过程：具有特定书写格式、包含若干可过程：具有特定书写格式、包含若干可被作为一个整体执行的代码行的一个代被作为一个整体执行的代码行的一个代码组。码组。 根据执行的方式分为：根据执行的方式分为： 事件过程事件过程 通用过程通用过程 为窗体及窗体上的各种对象编写的用来响应由用户或系统引发的各种事件的代码行就是“事件过程” 当指定的事件发生时，该过程即会被激活执行。 私有（private） 代码框架 一个应用程序中的多个窗体共享一些代码，或一个窗体内不同的事件过程可以共享一些代码。这些被共享的代码构成的过

2、程称为“通用过程” 公有的（ public） 4.1.2 4.1.2 模块模块 用于将不同类型过程代码组织到一起而提供的一种结构 窗体模块 标准模块 类模块 应用程序中每个窗体都有一个相对应的窗体模块。 包含用于处理发生在窗体中的各个对象的事件过程，而且包含有窗体及窗体中各个控件对象的属性设置以及相关的说明。 被多个应用程序中多个窗体共享的代码，组织到“标准模块”。 保存的是通用过程。 包含用于创建新的对象类的属性、方法的定义等。语句是组成语句是组成VBVB程序的最基本成分。程序的最基本成分。 语句体语句体 4.2 4.2 代码的书写规则代码的书写规则规定语句的功能； 有些语句没有该部分 提供

3、具体说明或具体操作例如：Dim a as Integer a20一条语句作用一条语句作用: :向系统提供必要的信息或规定系统执行某些操作。向系统提供必要的信息或规定系统执行某些操作。1) 代码不区分字母的大小写，如：代码不区分字母的大小写，如：Ab Ab 与与ABAB等效；等效；2)2) 系统对用户程序代码进行自动转换；系统对用户程序代码进行自动转换； 对于关键字，首字母被转换成大写，其余转换成小写对于关键字，首字母被转换成大写，其余转换成小写 对于用户定义的变量、过程名，以首次定义为准进行转换对于用户定义的变量、过程名，以首次定义为准进行转换 (1) (1) 续行：（续行：（空格空格下划线字

4、符下划线字符“_ _”)”) (2) (2) 同一行上书写多条语句，语句间用冒号同一行上书写多条语句，语句间用冒号“：”分隔分隔 (3) (3) 一行允许多达一行允许多达10231023个字符个字符 (4) (4) 注释行注释行 以 Rem开头，注释整行 ； 以注释符“”引导 注释内容从注释符开始直到该行结束 利用“编辑”工具栏的 “设置注释块”、“解除注释块”来 设置/取消多行注释。例如：例如： Form1.Print Form1.Print 学好学好VBVB 要多学多练要多学多练 Form1.Hide Form1.Hide Form2.Show Form2.Show Form1.Hide

5、Form1.Hide 将将Form1Form1隐藏隐藏 Print Print F, F, 1717 4.2 4.2 代码的书写规则代码的书写规则 整整 长整长整 单精度单精度 双精度双精度 货币型货币型 字节型字节型Integer; Long ; Single; Double; Currency; Byte 4.3.1 4.3.1 数据类型数据类型整型整型(占2字节) 表数范围：-215-1 215-1，即32768 32767 表示形式： n 或n% %：长整型长整型(占4字节) 表数范围：-231-1 231-1 表示形式：n& & 例如：-120，120 &，120， 120%， 43

6、210，-12345678 &：字节型(占1字节) 表数范围：0255（无符号） 整整 长整长整 单精度单精度 双精度双精度 货币型货币型 字节型字节型Integer; Long ; Single; Double; Currency; Byte 4.3.1 4.3.1 数据类型数据类型单精度单精度(4字节字节)- 7个有效位 表示形式：带小数点数 用指数(E)表示 数字后面加“！”：双精度双精度(8字节字节) - 15个有效位 表示形式：用指数(D)表示 数字后面加“# ”例：例： -1E2 ，1.2E2 120.0 ，120！ +12345678.例：例： -1D2 ，1.2D2 120#

7、Currency ：货币型货币型(8字节字节) -19个有效位 表示形式：数字后面加“ ”例：例：120Integer; Long ; Single; Double; Currency; Byte 4.3.1 4.3.1 数据类型数据类型占占2 2个字节，只有两个值个字节，只有两个值True (-1)True (-1)False ( 0)False ( 0)表示形式：用双引号括起来或变量名后加表示形式：用双引号括起来或变量名后加“$”$”如：如：“Basic”Basic”、“1234”1234”注意：注意： 与与 的区别的区别 字符串字符串123abc的表示：的表示： 123abc 123ab

8、c Integer; Long ; Single; Double; Currency; Byte 4.3.1 4.3.1 数据类型数据类型: :-占用占用8 8个字节个字节 表示形式：用用# #号括起来号括起来 如：# #2-14-04 6:10:002-14-04 6:10:00# # 用于逻辑判断用于逻辑判断, ,只有两个值只有两个值True (-1)True (-1)False ( 0)False ( 0)表示形式：用双引号括起来或变量名后加表示形式：用双引号括起来或变量名后加“$”$”: :万能型万能型 是一种通用的、可变的数据类型是一种通用的、可变的数据类型 隐含变量的类型隐含变量的

9、类型用于保存任何对象的引用用于保存任何对象的引用 举例举例: re, my data, re.er,8re,: re, my data, re.er,8re,工资工资,Integer,Integer intSum intSum 引例引例：解方程解方程 3 3x x2 2+25x+11=0+25x+11=0 设：设：a=3,b=25,c=11a=3,b=25,c=11，则上述方程变为，则上述方程变为axax2 2+bx+c=0+bx+c=0 规则规则： 变量或常量名必须以变量或常量名必须以字母或汉字开头；字母或汉字开头； 由字母、汉字、数字、下划线组成；由字母、汉字、数字、下划线组成； 长度不超

10、过长度不超过255255个字符；个字符； 在在VBVB中变量名的字母不区分大小写；中变量名的字母不区分大小写； 不要与关键字同名不要与关键字同名(Dim,string(Dim,string等）等） 为了提高程序的可读性，在变量名可加前一约定的前缀为了提高程序的可读性，在变量名可加前一约定的前缀 Int Int、lnglng、sngsng、dbldbl、blnbln、curcur、dtdt、strstr、vntvnt、bytbyt 4.3.2 4.3.2 变量变量/ /常量的命名规则常量的命名规则例例2:2: Dim A As String Dim B As String * 5 A=Visua

11、l Basic B=Visual Basic Print A , B声明变量的目的声明变量的目的：根据声明的类型决定系统为它分配的存储单元。：根据声明的类型决定系统为它分配的存储单元。 例例1:1: Dim A Dim B As Long Dim C As Single Dim D As Integer Public|Private|Dim|Static 变量名变量名 AS 数据类型数据类型 4.3.3 4.3.3 变量变量变量：在程序的运行过程中其值可以变化的量变量：在程序的运行过程中其值可以变化的量等同于：等同于： Dim A, B As Long , C As Single , D As

12、 Integer 或或 ： Dim A, B& , C! , D % 数值型数值型字符型字符型布尔型布尔型对象型对象型万能型万能型变长字符变量：约20亿个字符定长字符变量：约65400个字符Private Sub Form_Click() Dim a As Integer, b As Long Dim c As Single, Dim d As Double a = 327699999 b = 327699999 Print a, b c = 100 / 3 d = 200/ 3 Print c, dEnd SubPrivate Sub Form_Click() Dim a As Boolea

13、n, b As Boolean Dim e, f As Date a = True b = False Print a, b e = #3/1/99 9:12:02 # Print eEnd Sub注意注意: : (1)(1)在在VBVB中一个汉字与一个西文字符视为一样中一个汉字与一个西文字符视为一样, ,算一个字算一个字 (2)(2)在窗体和类模块中在窗体和类模块中, ,不能用不能用PublicPublic定义定长字符串变量定义定长字符串变量例：例：Private sub command1_click() Dim i as integer Static j as integer i=i+1

14、j=j+1 Print i,jend sub连续连续3次单击次单击command1 ，分析输出结果分析输出结果生命变量的目的生命变量的目的：根据声明的类型决定分配的存储单元。：根据声明的类型决定分配的存储单元。 Public|Private|Dim|Static 变量名变量名 AS 数据类型数据类型 4.3.3 4.3.3 变量变量变量：在程序的运行过程中其值可以变化的量变量：在程序的运行过程中其值可以变化的量 Dim与与Static的区别：的区别：区别作用范围作用范围定义方法定义位置局部变量当前过程Dim|Static在过程内窗体/模块变量当前窗体或模块中的所有过程Private|Dim在窗

15、体或模块的声明部分全局变量工程内的所有过程Public在窗体或模块的声明部分是是指使用指使用的的变量未用声明语句进行声明而变量未用声明语句进行声明而直接使用直接使用 未声明直接使用的变量均默认为未声明直接使用的变量均默认为VariantVariant型型 也可在变量名后加一个规定数据类型的说明符加以说明也可在变量名后加一个规定数据类型的说明符加以说明(1)(1)作用：作用：强制显式声明变量。强制显式声明变量。 即使用任何一个变量必须即使用任何一个变量必须“先声明先声明, ,后使用后使用”(2)(2)增加增加Option ExplicitOption Explicit语句的方法：语句的方法： 在

16、代码编辑器的通用在代码编辑器的通用/ /声明部分输入：声明部分输入：Option ExplicitOption Explicit “ “工具工具| |选项选项”-“-“编辑器编辑器”-选选“要求变量声明要求变量声明”项项 例：Dim Str1 As String Str1 = 计算机程序设计 Str2 = 计算机程序设计 Str3% 123 Print Str1, Str2, Str3 4.3.3 4.3.3 变量变量例：Dim T001 As String T001 = 计算机程序设计 Print T00l观察该程序段的输出结果结果：无输出结果： 格式格式：Public|PrivateCon

17、st Const 常量名常量名 As As 类型类型 表达式表达式常数和运算符组成常数和运算符组成 常数值。其数值直接反映了类型常数值。其数值直接反映了类型： 在程序中，常量比变量运行速度快在程序中，常量比变量运行速度快 常量只能出现在赋值号的右边常量只能出现在赋值号的右边常量常量：在程序运行期间值不能改变的量：在程序运行期间值不能改变的量 应用程序和控件提供的系统定义的常量应用程序和控件提供的系统定义的常量 例：例：vbRedvbRed代表代表“红色红色”等等例如：例如：+120，120 ，1.2E2， 程序设计程序设计 4.3.4 4.3.4 常常 量量 在一行中可放置多个常数说明在一行中

18、可放置多个常数说明, ,可用逗号分隔可用逗号分隔例：例：Private Const Pi As Single = 3.14159, str$ = VBPrivate Const Pi As Single = 3.14159, str$ = VB包括：包括：(乘方乘方) )、-(-(负号负号) )、/ / * * 、(整除整除) MOD) MOD、+ -+ -表达式表达式: : (-5) 2 + 5 Mod 3包括：包括：+ + 、 & &表达式表达式:“123”+“3”:“123”+“3” A B A+B A& B+B A& B “123” “3” “1233” “1233” “123” 3

19、126 “1233” 123 3 126 “1233” “123a” 3 出错 “123a3” 包括包括: , = , , = ,= , , =, , =, 表达式表达式: 15+23 4: 15+23 西文字符西文字符运算结果是运算结果是逻辑逻辑值值=False包括：包括：+ - + - 、MODMOD、(整除整除) )、/ / * * 、-(-(负号负号) )、(乘方乘方) ) 表达式表达式: : (-5) 2 + 5 Mod 3包括：包括：+ + 、 & &表达式表达式:“123”+“3”:“123”+“3”包括包括: , = , , = ,= , , =,Like,Is , =,Lik

20、e,Is 包括：包括：And And 、OrOr、NotNot、XorXor. .表达式表达式: 15+234: 15+23=265 OR (C180 and C290 and C390)优先级的比较优先级的比较 1.1.几大类比较几大类比较 优先级优先级: 高高-低低2.2.算术运算符算术运算符3.3.比较运算符比较运算符4.4.逻辑运算符逻辑运算符算术、算术、 连接、比较、逻辑连接、比较、逻辑 ，- - ，( (* * /) /)， ，MODMOD，(+ -)(+ -)同一级同一级NotNot、 And And 、OrOr、XorXor、 4.4.1 4.4.1 运算符运算符 包含：变量、

21、常量、运算符、函数和小括号包含：变量、常量、运算符、函数和小括号 表达式结果：表达式结果： 与数据和运算符有关与数据和运算符有关 乘号不能省略乘号不能省略 括号必须成对出现括号必须成对出现 一个表达式在同一行上书写，没有高低、大小区分一个表达式在同一行上书写，没有高低、大小区分 操作数的数据类型应该符合要求，不同的数据应该转换成操作数的数据类型应该符合要求，不同的数据应该转换成同一类型。同一类型。 在算术运算中，如果操作数的数据精度不同，在算术运算中，如果操作数的数据精度不同，VBVB规定运算规定运算结果采用精度较高的数据类型。结果采用精度较高的数据类型。 4.4.1 4.4.1 运算符运算符

22、 给变量赋值给变量赋值 格式：格式：变量名变量名= =表达式表达式 设置或获取对象的属性设置或获取对象的属性设置属性值：设置属性值： 对象名对象名.属性属性= =表达式表达式获取属性值：获取属性值：变量名对象名变量名对象名. .属性属性如如: A=“VB: A=“VB程序设计程序设计” Text1.Text=A Text1.Text=A B BText2.TextText2.Text 4.54.5如如: Dim v As Integer: Dim v As Integer Dim book As String Dim book As String* *8 8 Dim sum As Single

23、 Dim sum As Single v=26 v=26 v=v+1 v=v+1 book=“VB book=“VB程序设计程序设计” ” sum=vsum=v* *123.4+56.7123.4+56.7 Boolean 数值型True为-1；False为0 Boolean 数值型 非0为True；0为False 例例: Dim v As Integer: Dim v As Integer Dim book As String Dim book As String* *8 8 Dim sum As Dim sum As DoubleDouble Dim Bool As Boolean Dim

24、 Bool As Boolean v=26 v=26 v=v+12.3 v=v+12.3 sum=v sum=v* *123.4+56.7123.4+56.7 v=“126” v=“126” sum=“123ab” sum=“123ab” v=True v=True sum=False sum=False Bool=123 Bool=123 Bool=0 Bool=0(1) 右边表达式的值右边表达式的值强制转强制转 换换成左边变量的精度成左边变量的精度(2) 若不能实现类型转换，若不能实现类型转换， 出现出现“类型不匹配类型不匹配”错错4.5 4.54.5(1) 右边表达式的值右边表达式的值强

25、制转强制转 换换成左边变量的精度成左边变量的精度(2) 若不能实现类型转换，若不能实现类型转换， 会会“类型不匹配类型不匹配”错错 例例: Dim X As Single: Dim X As Single Dim Y As Single Dim Y As Single Dim Sum As Single Dim Sum As Single X=26 X=26 Sin(X)Sin(X)=X+Y =X+Y 5 5=Sqr(X)+Y=Sqr(X)+Y X+YX+Y=126=126 X=Y=Sum=1 X=Y=Sum=1 Sum=Sum+1 Sum=Sum+1(3) 赋值号赋值号左侧左侧只能出现变量只

26、能出现变量(4) 一条赋值语句不能同时给一条赋值语句不能同时给 多个变量赋值多个变量赋值(5) 正确理解加正确理解加1语句语句。Sum 执行了执行了N=N+1后后Sum5 6 4.6 4.6 常用内部函数常用内部函数 绝对值：绝对值： Abs(N) Abs(N) e e为底的指数：为底的指数：Exp(N)Exp(N) 自然对数自然对数: Log(N): Log(N) 产生随机数产生随机数: Rnd(N): Rnd(N) 符号函数符号函数: Sgn(N) : Sgn(N) 平方根平方根: Sqr(N): Sqr(N) 三角函数三角函数Sin(N)Sin(N)、Cos(N)Cos(N)、Tan(N

27、):Tan(N):其中的其中的N N必须是弧度值必须是弧度值|-3|- Abs(-3) |-3|- Abs(-3) e e2 2 -Exp(2)-Exp(2) Ln(10) Ln(10) - Log(10)- Log(10) Rnd Rnd 产生一个产生一个0 01 1之间的一个小数之间的一个小数 求求2.42.4的符号的符号- Sgn(2.4)- Sgn(2.4)（返回（返回1)1) 求求1616的平方根的平方根- Sqr(16)- Sqr(16)Sin(30Sin(30o o) -Sin(3.14/6) -Sin(3.14/6) 4.6 4.6 常用内部函数常用内部函数 求字串长度求字串长

28、度: Len(C): Len(C) LenB(C) LenB(C) 取子串：取子串：Left(C,N) Left(C,N) Right(C,N) Right(C,N) Mid(C,n1,n2) Mid(C,n1,n2) 查找子串：查找子串：InStr(N1,C1,C2)InStr(N1,C1,C2) 去掉首或尾空格：去掉首或尾空格： LTrim (C) LTrim (C)、RTrim(C)RTrim(C)、Trim(C)Trim(C) 生成字串：生成字串：string(n,”string(n,”字符字符”)”) 生成空格串：生成空格串：space(n)space(n) Left( Left(计

29、算机基础计算机基础,2),2)计算计算 Right ( Right (计算机基础计算机基础,2,2）基础）基础 Mid ( Mid (计算机基础计算机基础,2,2，4) 4) 算机基础算机基础Len(VBLen(VB程序设计程序设计) 6 ) 6 LenB (VBLenB (VB程序设计程序设计)12?)12?Str= AB CDE Str= AB CDE LTrim (str)LTrim (str)、RTrim(str)RTrim(str)、Trim(str)Trim(str)InStr(4,InStr(4,abdbcdefabdbcdef,d) 6,d) 6String(6,A)Strin

30、g(6,A)Space(10)Space(10) 字符转换成字符转换成ASCIIASCII码：码：Asc(C) Asc(C) ASCII ASCII码转换成字符：码转换成字符：Chr(N)Chr(N) 转换成小写字母转换成小写字母: Lcase(C): Lcase(C) 转换成大写字母转换成大写字母: Ucase(C): Ucase(C) 转换成字符转换成字符: Str(N) : Str(N) 转换成数字转换成数字: Val(C): Val(C) 转换成字符转换成字符: CStr(N) 取整：直接取整、四舍五入取整、取取整：直接取整、四舍五入取整、取NN的最大整数的最大整数 Fix(N) Ci

31、nt(N) Int(N) Fix(N) Cint(N) Int(N) Fix( 3.5) Cint( 3.5) Int( 3.5)Fix( 3.5) Cint( 3.5) Int( 3.5) 4.6 4.6 常用内部函数常用内部函数Asc(B) - 66 Asc(B) - 66 Chr(97)Chr(97) -a-aLCase(Abc) - - abcUCase(Abc) - - ABCStr(234) - Str(234) - 234Val(Val(234) - ) - 234CStr(234) - 2343 4 33 4 3-3 -4 -4-3 -4 -4 4.6 4.6 常用内部函数常用

32、内部函数 获取系统当前日期：获取系统当前日期：Date Date 获取系统当前时间获取系统当前时间: Time: Time 获取系统当前日期和时间获取系统当前日期和时间: Now: Now 获取指定日期年、月、日的值获取指定日期年、月、日的值:Year(D):Year(D)、Month(D)Month(D)、Day(D)Day(D)如：如：Print datePrint datePrint Time$Print Time$Print NowPrint NowPrint Year(Now),Month(Now),Day(Now)Print Year(Now),Month(Now),Day(Now

33、) 数值格式符：数值格式符：0: 0: 显示一数字，若此位置没有数字则补显示一数字，若此位置没有数字则补0 0 #: #: 显示一数字，若此位置没有数字则不显示显示一数字，若此位置没有数字则不显示, , - + $ ( ) :- + $ ( ) :原样打出原样打出 4.6 4.6 常用内部函数常用内部函数如：如：Print Format(12.346, +000.00) +012.35Print Format(12.346, +000.00) +012.35 Print Format(12000.346, Print Format(12000.346, #,#.#) 12,000.35#,#.

34、#) 12,000.35注意：注意：Format函数仅用于控制数据的外部输出格式，不会改变数据在计算机内部的存储形式 4.7 InputBox 4.7 InputBox 函数与函数与MsgBoxMsgBox函数函数 InputBoxInputBox函数函数 MsgboxMsgbox函数函数格式：格式：InputBox ( 提示提示 ,标题标题 , 默认值默认值 , X , Y )格式格式：MsgBox ( 提示内容提示内容 , 按钮设置按钮设置 , 标题标题 )： 打开一个对话框打开一个对话框, ,等待用户输入内容。等待用户输入内容。 单击确定，返回输入值（字符型数据）单击确定，返回输入值（字

35、符型数据） 变量名变量名 = = InputBoxInputBox ( ( 提示提示,标题标题,默认值默认值,X,Y),X,Y)例：设置一个输入框：例：设置一个输入框： 提示用户输入查询学号。提示用户输入查询学号。 若提示内容中需要换行显示：若提示内容中需要换行显示：在换行处加在换行处加chr(13)chr(13)和和chr(10)chr(10) 各项参数位置必须一一对应各项参数位置必须一一对应 ： 可选可选。整型表达式，缺省值为。整型表达式，缺省值为 0 指定信息框中按钮指定信息框中按钮数目数目、类型类型、图标类型图标类型， 缺省按钮缺省按钮等等 变量变量 = = MsgBoxMsgBox(

36、 (提示内容提示内容,按钮按钮,标题标题 ) ) MsgBox MsgBox 提示内容提示内容 , 按钮按钮 , 标题标题 ：必要：必要。字符表达式，即显示在对话框中的信息。字符表达式，即显示在对话框中的信息 2.MsgBox 函数的常用参数的说明函数的常用参数的说明 字符运算符字符运算符 关系运算符关系运算符逻辑运算符逻辑运算符练习练习编制一个帐号与密码的检验程序：编制一个帐号与密码的检验程序：要求：要求： 帐号不超过帐号不超过6 6个数字，密码个数字，密码4 4个字符（设密码为个字符（设密码为VB6)VB6)， 密码框中不显示实际输入字符密码框中不显示实际输入字符 帐号帐号( (如：非数字

37、如：非数字) )不正确时，提示有关信息，不正确时，提示有关信息， 并清除原内容，得到焦点，再输入并清除原内容，得到焦点，再输入 密码不正确时，单击密码不正确时，单击“重试重试”，密码框清空，得到焦，密码框清空，得到焦 点重新输入，若单击点重新输入，若单击“取消取消”，停止运行，停止运行 1.1.下列语句运行时系统给出错误提示的是。下列语句运行时系统给出错误提示的是。.Print-320-769 .Print-320-769 .PrintIE2+8.PrintIE2+8.PrintAB&128.PrintAB&128 .Print3=2=4.Print3=2=42.2.下面所列四组数据中，全部是

38、正确的下面所列四组数据中，全部是正确的VBVB常数是常数是 。A.32768,1.34D2,ABCDE,&O1767A.32768,1.34D2,ABCDE,&O1767B.3276,123.56,1.2E-2,#True#B.3276,123.56,1.2E-2,#True#C.&HABCE,02-03-2002,False,D-3 C.&HABCE,02-03-2002,False,D-3 D.ABCDE,#02-02-2002#,E-2D.ABCDE,#02-02-2002#,E-23.3.运行下面程序，单击命令按钮运行下面程序，单击命令按钮Command1,Command1,则立即窗口

39、上显示的结果是则立即窗口上显示的结果是 。Private Sub Command1_Click()Private Sub Command1_Click() Dim A As Integer,B As Boolean,C As Integer,D As IntegerDim A As Integer,B As Boolean,C As Integer,D As Integer A=20/3 : B=True : C=B : D=A+C A=20/3 : B=True : C=B : D=A+C Debug. Print A, D, A=A + C Debug. Print A, D, A=A +

40、 C End Sub End Sub A. 7 6 FalseA. 7 6 False B. 6.6 5.6 False C. 7 6 A=6 D. 7 B. 6.6 5.6 False C. 7 6 A=6 D. 7 8 A=88 A=8 .PrintIE2+8.PrintIE2+8A.32768,1.34D2,ABCDE,&O1767A.32768,1.34D2,ABCDE,&O1767A. 7 6 FalseA. 7 6 False练练 习习4.4.正确表示命题正确表示命题“A A是一个带小数的正数，且是一个带小数的正数，且 B B是一个带小数的负数是一个带小数的负数”的逻辑表达式是的逻辑表达式是 。5.5.在窗体模块的通用声明处有如下语句，会产生错误的语句是在窗体模块的通用声明处有如下语句，会产生错误的语句是 _(1) Const A As Integer=25(1) Const A As Integer=25(2) Public St As String(2) Public St As String* *8 8(3) Redim B(3) As Integer(3) Redim B(3) As Integer(4) Dim Const X As Integer=10(4) Dim Const X As In