第03章-VB语言基础(4学时)课件

盐城工学院

VisualBasic程序设计第三章VisualBasic语言基础3.1VB程序代码的组织方式3.2代码行的书写规则3.3VisualBasic的数据类型3.4运算符与表达式3.5VisualBasic的公共函数作业总结练习第3章VisualBasic语言基础任何编程语言（包括VB在内），都是以变量与过程作为语言的基础。变量是用来存放数据的，而过程则是操作变量的代码。本章为VB语言基础，主要了解过程、模块、变量、函数等基本概念。3.1VB程序代码的组织方式VB程序由窗体界面和程序代码组成。程序代码将窗体界面的各个对象以及应用中的其他元素联系在一起。程序代码部分由若干个被称为“过程”的代码行以及向系统提供某些信息的说明组成。过程以及说明被组织在“模块”之中。程序代码的目标，就是将设计的过程及相关说明合理地组织到不同的模块之中，形成所需要的实际代码的结构。3.1.1过程所谓“过程”，就是具有特定书写格式，包含若干可被作为一个整体执行的代码行的一个代码组。

根据执行的方式，“过程”可以分为“事件过程”和“通用过程”两类。PrivateSubForm_Click()StaticxAsIntegerx=x+1PrintRight(Space(3)+CStr(x),4);IfxMod10=0ThenPrintEndSub示例1.事件过程事件过程就是为窗体以及窗体上的各种对象(控件)编写的用来响应由用户或系统引发的各种事件的代码行。事件过程由VB中的事件调用。即当指定的事件发生时，该过程即会被激活执行。事件过程存储在“窗体模块”文件中（扩展名为.frm），缺省情况下是“私有的”（Private）。即缺省时，事件过程未加特别说明，仅在该窗体内有效。VB系统自动提供事件过程的代码框架。演示2.通用过程一个应用程序中的多个窗体可以共享一些代码，或者一个窗体内不同的事件过程可共享一些代码，这些可以共享的代码构成的过程称为“通用过程”。通用过程是由事件过程或其它通用过程调用而执行的。这些通用过程在缺省情况下，是“公有的”(Public)。也就是说，通用过程可被所有的窗体共享。3.1.2模块模块是VB用于将不同类型过程代码组织到一起而提供的一种结构。VB具有三种类型的模块：1.窗体模块2.标准模块3.类模块

1.窗体模块应用程序中的每个窗体都有一个相对应的窗体模块。窗体模块不仅包含有用于处理发生在窗体中的各个对象的事件过程，而且包含有窗体及窗体中各个控件对象的属性设置以及相关的说明。如果某些通用过程仅供本窗体内的其它过程享用，则它也可包含该窗体模块之中。

2.标准模块在应用程序中可被多个窗体共享的代码，应当被组织到所谓的“标准模块”之中。标准模块文件的扩展名是.bas标准模块中保存的过程都是通用过程。除了这些通用过程以外，标准模块中还包含有相关的说明。2.标准模块标准模块中代码不仅能用于一个应用程序，而且可以供其它应用程序重复使用。创建标准模块最简单的方法如下：单击工具栏上添加窗体按钮右侧向下的箭头，并在出现的选项列表中选择“添加模块”；在出现的“代码编辑器”窗口中输入代码即可。

添加标准模块单击“添加窗体”按钮出现下拉菜单单击“添加模块”按钮3.类模块类模块包含用于创建新的对象类的属性、方法的定义等

3.2代码行的书写规范1.语句一个语句或者用于向系统提供某些必要的信息（如程序中使用的数据类型等），或者规定系统应该执行的某些操作。PrivateSubForm_Click()StaticxAsIntegerx=x+1PrintRight(Space(3)+CStr(x),4);IfxMod10=0ThenPrintEndSub示例语句的一般形式是：

<语句定义符>[语句体]1.语句语句定义符用于规定语句的功能，语句体则提供语句所要说明的具体内容或者要执行的具体操作。VB程序是按行书写的：一个语句可以写在一行上；可以通过在行的末尾加上“续行标志”（

_，即一个空格加一个下划线字符），而分写在多行上；可在一个代码行上写入多个语句，但语句之间需要用冒号“：”分隔。1.语句举例：

将一个语句写在一行上：

Dimcomputerasinteger,Englishasinteger将一个语句分写在多行上：

Dimcomputerasinteger,_Englishasinteger将一行写多个语句：

x=10:y$="VisualBasic":z=20语句输入时，可以不区分大小写字母。一个代码行输入完后，按回车键，光标会自动移向下一行；系统还会自动把语句中所有“保留字”的第一个字母改为大写字母，并在其前后加上空格。如：Rem、Const等是系统保留字一个代码行的长度不得超过1023B，且在一行的实际文本之前最多只能有256个前导空格。一个逻辑行最多只能有25个后续行。2.书写规范4.程序注释单引号'一般形式：

'<注释>例如：PrivateSubCommand1_Click()

'响应单击按钮事件的过程

Print"OK!"'在窗体上显示"OK！"EndSub显然，使用单引号更为灵活、方便。3.3VisualBasic的数据类型数据是程序处理的对象。常量

：定义：在程序中取值始终保持不变的数据；常量可以是具体的数值，如圆周率的值3.14159

；也可以是专门说明的符号，如Pi。在程序运行前已知，且在程序重复执行时不发生变化，取值可直接写入程序，如：

S=2*3.14159*R：V=3.14159*R*R3.3VisualBasic的数据类型变量：定义：以符号形式出现在程序中，且取值可以发生变化的数据；是存储单元的代号；从计算机外部设备输入的数据，必须送入变量中保存；而在程序执行过程中，变量的内容可以不断改变(存入新的数据)；与数学上表示未知数的“变量”不同。在任何时刻都有一个确定的值。3.3.1数据类型（见教材P.43表3-1）Integer整数2Byte(范围：-215+1～215-1)Long长整数4Byte(范围：-231+1～231-1)Single单精度数4Byte(7位有效数字)Double双精度数8Byte(8位有效数字)Byte字节型数1Byte(范围：0～255)Boolean逻辑型数2Byte(范围：True或Flase)String字符串型数(定长)串长度String字符串型数(变长)串长度+10ByteDate日期型数8ByteCurrency货币型数8ByteObject对象型数4ByteVariant变体型数>=16Byte3.3.1数据类型VB提供多种数据类型的目的VB提供多种数据类型，根本目的是为了提高程序代码的运行效率；处理整型数速度最快，且无数据转换误差；精度问题：长整型、单精度、双精度、货币型以及变体型数据数值超过相应数据类型数据的表示范围，会产生“数据溢出”错误。3.3.2常量1.数值常量一般的数值常量由正负号、数字和小数点组成，正数的正号可以省略。在VB程序中，除最常用的十进制外，还可以使用八进制和十六进制。十进制数的表示形式与常规同。不带小数点的数称为“整型数”。分为整型数和长整型数。1.数值常量带小数点的数称为“实型数”或“浮点数”，根据所占用存储量的大小，又分为单精度和双精度。浮点数值可表示为mmmEeee或mmmDeee

两种形式，其中mmm是尾数，而eee是指数。用D将数值文字中的尾数部分和指数部分分开，系统将把该值作为双精度数据类型来处理；同理用E，系统也会把该值作为单精度数据类型来处理。1.数值常量举例：整数：123-227；长整数：1758624；-3765410；单精度数：123.4；-752.678；-9.654E-6双精度3.1415926535；-5734.12345-8.573264907D-15.VB中的八进制数和十六进制数都是无符号整数。八进制数的表示方法是在数字前面加“&O”，例如：&O137，相当于十进制数95十六进制数的表示方法是在数字前面加“&H”，例如：&H137，相当于十进制数3112.字符常量把一串字符用限界符英文引号("")括起来，就构成一个字符常量；字符常量：

"VisualBasic""aB""Howareyou?"；字符常量容纳的字符长度最多可达65535=215-13.逻辑常量与日期常量逻辑常量：True、False日期常量：表示形式为mm/dd/yy，如#6/15/1988#

注意：为了与字符型常量相区分，日期常量要用限界符“#”括起来4.符号常量以符号表示的常量称为“符号常量”；代表常量的符号称作“常量名”。常量名是一个长度不超过255个字符，只能由字母、数字和下划线组成且首字符必须是字母的字符串。常量名中的字母不区分大小写。举例：

ConstTax

AsSingle=1.05'Tax是单精度数值常量

PublicConstCountry$="CHINA",_

Fax_Num&=361344845.符号常量的定义方法Const语句的形式是：[Public|Private]Const<常量名>[AsType]=<数值>Public选项只能用在标准模块中，用以说明可在整个应用程序中使用的常量；Private选项常量则用于说明在模块范围内使用的常量；它们均不能在过程中使用。Type用于指定常量的数据类型。另外，也可以在说明时，通过数据类型符号(%、&、!、#、@、$)规定常量的类型。6.符号常量的定义方法例如：

ConstTaxAsSingle=1.05

'Tax是单精度数值常量

PublicConstCountry$="CHINA",_Fax_Num&=36134484

'$和&是用于说明数据类型的符号，此处，Country为字符串型常数；Fax_Num是长整型常量。3.3.3变量1.变量名及类型说明变量名的命名规则如下：首字符必须是字母；长度不超过255个字符；在作用域内必须唯一；作为变量名的字符串内不得包括点号和用于类型说明的字符%、&、!、#、@、$；不允许使用VisualBasic中的保留字；字母不区分大小写；为了提高程序的可读性，在变量名可加前一约定的前缀：Int、lng、sng、dbl、bln、cur、dt、str、vnt、byt。3.3.3变量变量名约定前缀：数据类型前缀数据类型 前缀整型 Int长整形Lng 单精度型Sng双精度型Dbl 逻辑型Bln货币型Cur 日期型Dt字串型Str 变体型 vnt字节型Byt3.3.3变量2.变量作用域和变量说明语句变量在使用之前，最好用变量说明语句说明其类型，否则一律按变体型变量处理。根据变量说明方式的不同，变量的有效作用范围也不同。变量的有效作用范围称为变量的作用域。(1)变量作用域

等级范围局部在过程中说明，仅在说明它的过程中有效。窗体/模块窗体或标准模块中说明，在定义该变量的模块或在窗体的所有过程内均有效。全局(公有)在模块或窗体中说明，在工程内的所有过程都有效。(2)变量说明语句Dim<变量名>As<类型>[,<变量名>As<类型>]…Public<变量名>As<类型>[,<变量名>As<类型>]…Private<变量名>As<类型>[,<变量名>As<类型>]…Static<变量名>As<类型>[,<变量名>As<类型>]…Public语句说明全局变量Private语句用于说明窗体/模块级变量Static用于说明静态变量Dim语句则可用于各种场合，是最常用的。模块级和公有级变量应在“代码编辑器”窗口中的“(通用)”或“(声明)”部分进行说明。(2)变量说明语句例：PrivateCountAsInteger或PublicNameAsString,ageAsInteger局部变量仅在使用它的过程中进行说明，例：PrivateSubCommand1_Click()DimCountAsInteger…EndSub(2)变量说明语句在用Dim语句说明一个变量后，系统将自动赋予一个初始值：

数值型为0；字符串型为空值；逻辑型为False。系统自动转换在代码行中输入的变量名以与说明的变量名相匹配，如当DimCountAsInteger程序中输入：

count=16自动转换为

Count=16DimEmpNameAsString*50(2)变量说明语句在变量类型说明语句中，必须对每一个需要说明的变量逐个使用AsType说明其类型，未加说明的变量将按变体型变量处理。

如：Dima,b,cAsInteger变量的隐式声明：在变量名后面加上一个用于规定变量类型的说明字符，来规定变量的类型。如：Dimx%,y#,Str$

或：K&=1Country$="China"(2)变量说明语句VB规定的类型说明字符见表：(2)变量说明语句按照缺省规定，字符串型变量的长度是可变的，即通过对字符串赋予新的数据，它的长度可增可减。但也可以将字符串变量说明为固定长度：

Dim<变量名>AsString*size例：DimEmpNameAsString*50标准模块中的定长字符串变量可说明为Public或Private。在窗体和类模块中，则必须将定长字符串变量说明为Private。（3）OptionExplicit语句在模块中使用OptionExplicit语句，系统将检查模块中所有未加显式说明的变量，一旦发现有这样的变量存在，就会产生一个出错信息，提示使用者改正错误。OptionExplicit语句输入方法：a.在“代码编辑器”窗口中输入b.确定默认状态附：自定义类型用户可以像使用标准数据类型一样使用自义的数据类型，如：DimStudentAsEmployee

'在过程中

PrivateDonaAsEmployee'在模块中使用自定义变量中的元素，类似于对象属性的操作：Diego.Name=”Diego”PrivateTypeEmployee

IDAsInteger

NameAsString*20

MarkAsCurrencyEndType一个有关学生信息的自定义类型附：自定义类型注意：自定义类型必须在标准模块或窗体模块的声明段中声明，在标准模块中定义时默认为全局变量(Public)。在窗体模块或类模块的声明部分定义模块级用户自定义类型时，一定要加上Private关键字。自定义类型的元素类型如果有字符串，则必须是定长字符串，即应该为：strNameAsString*常数（“常数”指明定长字符串的长度）3.4运算符与表达式使用运算符和括号把函数、变量、常量或常数连接起来，所形成的式子称为表达式。VB中的运算符和表达式类型：算术运算符与算术表达式关系运算符与关系表达式逻辑运算符与逻辑表达式。3.4.1算术运算符与算术表达式

1.算术运算符运算符^乘方+加-减(负号)*乘/除\整除Mod取余运算&字符串连接运算运算次序

^→-(负号)→*和/→\(整除)→Mod→+和-→&算术运算符运算符名称优先级

示例结果^乘方13^29-负号2-2-2*乘32*510/除34/5.8\整除44\50Mod取模5-5Mod4-1+加62+35－减64.5-2.42.13.4.1算术运算符与算术表达式2.算术表达式把常量、变量等运算元素用算术运算符连接起来的式子称为“算术表达式”。例如：a*b/(c*d)3.14159265*r^2

带有括号的算术表达式在运算时将优先进行括号内的运算。实验3-13.4.2关系运算符和关系表达式关系运算用于对两个数据进行比较，比较结果为逻辑值“True”或“False”。关系运算符＜

小于

＜＝小于等于＞

大于＞＝大于等于＜＞不等于＝等于

Is用来比较两个对象的引用变量关系运算符关系运算符含

义实

例结

果=等于"abc"="ABC"False>大于"abc">"ABC"True>=大于等于"abc">="cde"False<小于2<3True<=小于等于"12"<="3"True<>不等于"abc"<>"ABC"TrueLike字符串匹配"ABCDE"Like"*CD*"TrueIs比较对象的引用若被比较的两个变量引用的是同一个对象，则结果为True，否则为False(2)Is运算符Is运算符比较两个对象变量，返回结果为True或False。如果变量object1和objecct2两者引用相同的对象，则结果为True，否则结果为False。例：DimmycheckDimyobject1AsobjectDimyobject2Asobject

setyobject1=Formsetyobject2=Formmycheck=yobject1isyobject2'结果是True3.4.2关系运算符和关系表达式关系表达式

用关系运算符把两个比较对象连接起来的式子。比较对象可以是变量、常量和算术表达式。例如：a<32x+y>=z/2b$<>"Visualbasic"object1isobject23.4.2关系运算符和关系表达式关系表达式的运算“按值比较”的方法，即先求出运算符两边的值，若是变量，则取其当前值，如果两边的值可满足关系运算符，则结果为“True”，否则为“False”。例：3+4>9'运行结果为Falsea=7:b=8:a+b<ab'运行结果为True若比较对象是字符型数据，则依据字符的ASCII代码数值，自左向右按“逐个比较，遇大则大，长大短小，完全相同，才是相等。例："aBcd">"abc"'运行结果为False实验3-43.4.3逻辑运算符和逻辑表达式逻辑运算是对逻辑值进行的运算。逻辑运算符Not逻辑非例：a=True,则Nota=FalseAnd逻辑与例：a、b均为True,则aAndb为TrueOr逻辑或例：a、b有一为True,则aOrb为TrueXor逻辑异或例：a、b只有一为True,则aXorb为True逻辑运算符

逻辑运算符的作用是将操作数进行逻辑运算，结果是逻辑值True或False。逻辑运算符中，除Not为单目运算符外，其他都为双目运算符。表达式中有一个为Null，则将返回Null。

逻辑运算符含义优先级说

明实例结

果Not取反1当操作数为假时，结果为真NotTNotFFTAnd与2两个操作数都为真时，结果为真TAndTTAndFFAndTFAndFTFFFOr或3两个操作数之一为真时，结果为真。TOrTTOrFFOrTFOrFTTTF逻辑运算符（续）逻辑运算符含义优先级说

明实例结

果Xor异或3两个操作数为一真一假时，结果为真，否则为假。TXorTTXorFFXorTFXorFFTTFEqv等价4两个操作数相同时，结果为真。TEqvTTEqvFFEqvTFEqvFTFFTImp蕴含5第一个操作数为真，第二个操作数为假时，结果为假，其余结果为真TImpTTImpFFImpTFImpFTFTT3.4.3逻辑运算符和逻辑表达式逻辑运算的优先顺序Not－＞And－＞Or－＞Xor逻辑表达式逻辑表达式是用逻辑运算符把逻辑变量连接起来的式子。例如：

a>=2*3.14159*rAndx<>5OrNotb(设b为逻辑变量)

x>2OrText1.Text=“Microsoft”若操作数为数值型，则按数值的二进制值逐位进行逻辑运算。实验3-5操作数为数值型的逻辑运算方法举例：求37And7与37Or7的值。37=(32+4+1)10=(100101)27=(4+2+1)10=(000111)2

100101AND000111100101Or00011100010110011137AND7=(000101)2=(5)237Or7=(100101)2=(39)2表达式1．表达式的组成表达式由变量、常量、运算符、函数和圆括号按一定的规则组成，表达式的运算结果的类型由参与运算的数据类型和运算符共同决定。2．表达式的种类根据表达式中运算符的类别可以将表达式分为：算术表达式、字符串表达式、日期表达式、关系表达式和逻辑表达式等。3．表达式的书写规则（1）每个符号占1格，所有符号必须并排写在同一基准行上，不能出现上标和下标。（2）不能按常规习惯省略的乘号*，如：2X必须写成2*X。（3）只能使用小括号()，且必须配对。（4）不能出现非法的字符，如π。优先顺序表达式包含多种操作符时，则先处理函数，再算术运算符，接着处理比较运算符，最后处理逻辑运算符。而这几种运算符内的优先次序，则按前面。若表达式包含有括号时，最内层的括号将最优先处理。注意：

如果表达式中同时出现乘法和除法，则按从左到右的顺序计算；加法和减法同时出现时，也按从左到右的顺序计算。举例：7/sin(z*x)>3Or(x*3)^(-5)+8<600⑧①①②③④⑤⑥⑦⑨3.4.4各种运算符间的优先顺序在运算时，若进行运算的两个运算对象的类型相同，则它们的运算结果也将是同一类型；例：

DimxAsInteger,yAsIntegerx=324:y=324printx*y'运算结果为“溢出”若不同类型的数据进行运算时，结果的类型为两个运算对象中存储长度较长的那个对象的类型；长整型数与单精度数进行运算，结果为双精度；对于除法运算，不论除数与被除数类型如何，其结果总是双精度的。3.5VisualBasic公共函数数学函数字符串函数转换函数日期函数格式函数3.5VisualBasic公共函数3.5.1数学函数平方根:

Sqr(x)自然对数:

Log(x)e为底的指数：

Exp(x)绝对值：

Abs(x)转为十六进制Hex(x)转为八进制Oct(x)求16的平方根-->Sqr(16)Ln(10)

-->Log(10)e2-->Exp(2)|-3|-->Abs(-3)求15的十六进制数值-->Hex(15)求15的八进制数值-->Oct(15)

3.5VisualBasic公共函数3.5.1数学函数符号函数:Sgn(x)

求x的符号，当x>0,返回1；当x=0,返回1；当x<0，返回-1。例：Sgn(2.4)--->返回1

Sgn(0)--->返回0

Sgn(-1.2)--->返回-1产生随机数:Rnd(x)

Rnd产生一个在(0,1)区间均匀随机数，若x=0，则给出的是上一次利用本函数产生的随机数。3.5VisualBasic公共函数3.5.1数学函数求正弦值Sin(x)Sin(30o)->Sin(3.14*30/180)求余弦值Cos(x)Cos(30o)->cos(3.14*30/180)求正切值Tan(x)tan(30o)->Tan(3.14*30/180)求反正切值Atn(x)

Arctg(300)->Atn(300)注意：三角函数中的x必须是弧度值,反三角函数返回值亦为弧度值。3.5VisualBasic公共函数3.5.2字符串函数

求字符串的长度:Len(x)：求字符串的字符长度例：Len("VB程序设计")

，返回7LenB(x)：求字符串的字节长度例：LenB("VB程序设计")

，返回14Left(x,n)从x字符串左边起取n个字符，例：Left("计算机基础",2)，返回"计算"3.5VisualBasic公共函数3.5.2字符串函数Right(x,n)从x字符串右边起取n个字符例：Right("计算机基础",2），返回为"基础"Mid(x,n1[,n2])从x字符串左边第n1个位置开始向右起取n个字符例：Mid("计算机基础",2，4)，返回为"算机基础"3.5VisualBasic公共函数3.5.2字符串函数InStr([n,]x,"字符")：从x的第n个位置起查找给定的字符，返回该字符在x中的位置，n的缺省值为1。如：InStr(4,"abdbcdef","d")，返回6LTrim(x)、RTrim(x)、Trim(x)：去掉首或尾空格例：x="VisualBasic"

LTrim(x),返回"VisualBasic"

RTrim(x),返回"VisualBasic"Trim(x),返回"VisualBasic"

生成字串：String(n,"字符"),如：String(6,"A")

生成空格串：space(n)，如：Space(10)字符转换成ASCII码：Asc(C)

Asc("B")-->66ASCII码转换成字符：Chr(N)Chr(97)-->"a"

转换成小写字母:Lcase(C)

LCase("Abc")-->"abc"

转换成大写字母:Ucase(C)

UCase("Abc")-->"ABC"

转换成字符:Str[$](N)Str[$](234)-->"234"3.5VisualBasic公共函数3.5.3转换函数实验3-3转换成数字:Val(C)Val("234")-->234Val(Text1.Text)取整：直接取整、四舍五入取整、取≤N的最大整数

Fix(N)Cint(N)Int(N)

Fix(3.5)Cint(3.5)Int(3.5)3.5VisualBasic公共函数3.5.3转换函数---343-3-4-4注意：当小数部分恰好为0.5时，Cint和CLng函数会将它转换为最接近的偶数值。3.5VisualBasic公共函数3.5.4日期函数

获取系统当前日期：Date[$]

获取系统当前时间:Time[$]

获取系统当前日期和时间:Now

获取指定日期年、月、日的值

Year(D)、Month(D)、Day(D)

获取指定日期是一个星期的第几天：Weekday(D,n)如：PrintDate$如：PrintTime$如：PrintNow如：PrintYear(Now),Month(Now),Day(Now)如：PrintWeekday(Now,2)实验3-63.5VisualBasic公共函数使用函数注意点：必须准确地掌握函数的功能必须使用正确的函数名必须注意函数及各个自变量的数据类型、各个自变量的意义和允许的数值范围。其它内部函数用于输入与输出的函数用于处理数组的函数用于处理文件操作的函数3.5VisualBasic公共函数3.5.5格式化函数Format$功能：专门用于将数值、日期和时间数据按指定格式输出的函数。格式：Format(<算术表达式>，frm$)注：“#”、“0”是数位控制符“,”、“.”是标点控制符“E+”、“E-.”是指数输出控制符注：格式化函数Format[$]仅用于控制数据的外部输出形式，不会改变数据在计算机内部的存储形式。3.5VisualBasic公共函数演示1.数学函数2.字符函数3.转换函数4.日期与时间函数5.格式化函数总结数据类型及其表示符数值（整、长整、单精、双精、货币、字节）逻辑、日期、字符、变体、对象变量的命名规则变量的声明[Public|Private|Dim|Static]变量名[AS类型]显示声明与隐式声明常量的声明[Public|Private]Const常量名[AS类型]＝表达式运算符的种类与优先级算术运算符>字符运算符

>关系运算符>逻辑运算符表达式的书写常用函数1.下列语句运行时系统给出错误提示的是＿。

Ａ.Print-32000-769Ｂ.Print“IE2”+8

Ｃ.Print"AB"&128Ｄ.Print3=2=42.下面所列四组数据中，全部是正确的VB常数是

。A.32768,1.34D2,"ABCDE",&O1767B.3276,123.56,1.2E-2,#True#C.&HABCE,02-03-2002,False,D-3

D.ABCDE,#02-02-2002#,E-23.运行下面程序，单击命令按钮Command1,则立即窗口上显示的结果是

。PrivateSubCommand1_Click()

DimAAsInteger,BAsBoolean,CAsInt