资源描述
第2章数据与表达式,本章要点：字符集数据类型常量、变量运算符、表达式常用内部函数,21字符集,2.1.1VB的字符集VB的基本字符集包括：字母：大写英文字母AZ；小写英文字母az。数字：0一9；专用字符：共27个。,2.1.2编码规则1.VB代码中不区分字母的大小写为提高程序的可读性，VB对用户程序代码进行自动转换：（1）对于VB中的关键字，首字母总被转换成大写，其余字母被转换成小写；（2）若关键字由多个英文单词组成，它会将每个单词首字母转换成大写；（3）对于用户自定义的变量、过程名，VB以第一次定义的为准，以后输入的自动向首次定义的转换。,2.语句书写自由（1）在同一行上可以书写多条语句，但语句间要用冒号“：”分隔；（2）若一个语句行不能写下全部语句，或在特别需要时，可以换行。换行时需在本行后加入续行符，1个空格加下划线“_”。（3）一行最多允许255个字符,3.注释有利于程序的维护和调试注释以Rem开头，也可以使用单引号“”，注释内容可直接出现在语句的后面。例如：ThisisaVBREMThisisaVB(2)也可以使用“编辑”工具栏的“设置注释块”、“解除注释块”按钮，使选中的若干语句（或文字）增加注释或消除注释十分方便。(视图,工具栏,编辑),4.保留行号于标号VB源程序也接受行号与标号，但这不是必须的。5.对象名命名约定每个对象的名字由3个小写字母组成的前缀（指明对象的类型）和表示该对象作用的缩写字母组成。,22数据类型,2.2.1标准数据类型数值型数据-对客观事物进行定量记录的符号，如数量、工龄、毕业年限等字符型数据-对客观事物进行定性记录的符号，如姓名、单位、地址等,数值型数据类型,在VB中，单精度实型与双精度实型有两种表示方法：定点表示法和浮点表示法。,（1）定点表示法即一般的记数方法，用小数点分隔数据的整数部分和小数部分。例如：56.78！129！-123.456#123.456注意：若一个数字中含小数点，而后面又不带任何尾符，则默认为双精度实型。,（2）浮点表示法即用科学记数法来表示数。例：0.04321!和-1230000#分别等价于4.321*10-2和-1.23*106在VB中，单精度实型用字母E，双精度用字母D，表示底数10所以以上两数的浮点表示法为：4.321E-2和-1.23D6,正确的浮点数形式是：字母E或D的前后都必须有数字，字母前的数字是表示尾数，字母后的数字是表示指数（指数必为整数）。,-3210000!可有多种浮点表示形式，例如：-0.321E7-3.21E6-32.1E5,规格化浮点数：是尾数的整数部分为1位有效数字的形式。例：-3.21E6是-3210000!的规格化浮点数1.23D-4是0.000123#的规格化浮点数,日期（Data）型用8个字节的浮点数存储，表示从公元100年1月1日到公元9999年12月31日的日期，时间范围则从0点0分0秒到23点59分59秒即0：00：0023：59：59。,标准格式：#03/10/2004#2004-03-10#March1，2004#2004-3-113：30：00#2004-3-11：30:00pm#,逻辑（Boolean）型逻辑数据类型用于逻辑判断,只有两个值：真(True)、假(False),字符（String）型是一组由计算机字符组成的序列，每个字符占两个字节的存储空间。在VB中，字符串要用双引号括起来。,例如：“VisualBasic”、“中国天津”、“123.456”,2.2.6自定义类型由Type语句来实现：格式：Pubilc|PrivateType自定义类型名元素名1As类型名元素名2As类型名元素名nAs类型名EndType其中：元素名：表示自定义数据类型中的一个成员。类型名：为标准类型。,例如：定义一个有关学生考试信息的自定义类型：TypeStutypexmAsString*4xhAsIntegercsrqAsDatesxAsSingleywAsSingleyyAsSingleEndType,对于定义好的类型，就可以在变量声明时使用该类型。例如，可在某过程声明变量：DimStudentAsStutype要表示Student变量中的某个元素，形式如下：变量名元素名例如，要表示考生的姓名，语文的成绩：Studentxm，Studentyw。,注意：（1）Type语句是不可执行的，而且只能出现在模块的声明部分，在过程中不能使用Type语句。（2）自定义类型中的元素类型可以是字符串，但必须是定长字符串。（3）不能将自定义类型名和该类型变量名混淆，VB会根据变量的类型分配所需的内存空间，存储数据。,2.3常量、变量,2.3.1常量在程序执行的过程中保持不变的数据称为常量。在VB中，常量分为两种，普通常量和符号常量。符号常量又分为用户自定义和系统定义两种。,1普通常量普通常量直接出现在代码中，也称为字面常量或文字常量，普通常量的表示形式决定它的类型和值。例如：整型常量：整型（Integer）：表示-32768至32767之间的整数例如：1011020长整型（Long）：表示-2,147,483,648至2,147,483,647之间的整数例如：长整型常数的书写：23SumEndSub,（3）强制显式声明OptionExplicit语句“先声明变量，后使用变量”，这样做可以提高程序的效率，同时也使程序易于调试。VisualBasic中可以强制显式声明，可以在窗体模块、标准模块和类模块的通用声明段中加入语句：OptionExplicit。(工具选项要求变量声明),OptionExplicit语句,3可变类型变量Variant是一种可变的数据类型,在不同场合代表不同类型的数据(包括数值,字符串,日期/时间等),VB会自动完成各种必要的转换操作,不需要操心。,PrivateSubForm_click()DimNUM变量NUM默认为Variant数据类型NUM=21Num为字符串21NUM=NUM-10num是数字11NUM=str说明:(1)如果“对象名称”省略，则在当前窗体上输出。(2)“表达式表”可以任意类型的表达式(3)，和;的区别(4)不带表达式的Print方法表示输出一空行例如：Form_Click()Print2,3.4,#3/17/2006#,“studdent”,【举例】PrivateSubCommand1_Click()a=2:b=3:c=6Printa,b,c,studPrinta;b;c;studPrinta=;2PrintPrintb=;3EndSub,与Print方法有关的函数,1Tab(n)用于把光标往后移动n个字符的位置，与输出的内容要用分号隔开。例如：PrivateSubForm_Click()PrintTab(10);商品名称;Tab(20);单价;Tab(30);数量PrintTab(10);电视机;Tab(20);2568;Tab(30);150PrintTab(10);电冰箱;Tab(20);1600;Tab(30);85EndSub,2Spc(n)与Tab函数类似，用于跳过n个空格输出.不同之处在于Tab(n)是绝对定位，把光标移动到离窗体左边界n个字符的地方，而Spc(n)是相对定位，表示从当前光标位置开始移动n个字符的位置。PrivateSubForm_Click()PrintSpc(30);Thirtyspaceslater.PrintThirty;Spc(30);spaceslater.EndSub,3.Space(n)：Space函数用来返回n个空格组成的字符串。例如：PrivateSubForm_Click()MyString=Space(10)将10个空格插入两个字符串中间。MyString=Space(5)Tab(8);年龄;Tab(16);职务;PrintTab(24);单位;Tab(30);籍贯PrintPrint张得功;Tab(8);25;Tab(16);科长;Tab(24);劳动科;Tab(32);北京Print李得胜;Tab(8);32;Tab(16);处长;Tab(24);科研处;Tab(32);上海EndSub注意：font下载后要将字体解压后放入：C:windowsfonts或者控制面板/字体去别人电脑上拷贝C:WINDOWSFonts然后在“控制面板”窗口中双击“字体”图标，打开“字体”文件夹。然后依次单击“文件”“安装新字体”菜单命令然后打开“添加字体”对话框，然后单击“驱动器”区域的下拉三角按钮。在下拉菜单中单击保存有事先备份的字库文件的驱动器，并定位到相应的文件夹。单击“全选”按钮选中所有的字体，并单击“确定”按钮/接着系统会自动安装所选中的字库文件，安装完毕后可以在“字体”文件夹中找到刚刚安装的字库文件，同时在应用程序的“字体”下拉菜单中也能找到这些字体。,例：利用事件过程重新设置窗体、文本框、图片框的位置及大小,在窗体的任意位置画一个文本框和一个图片框（大小任意）。编程移动它们的位置并改变其大小。PrivateSubForm_Click()Move800,800,3990,2600窗体Text1.Move200,200,1500,1000文本框Picture1.Move1800,200,1500,1000图片框Picture1.Print“picture1“打印字符EndSub,输入函数InputBox,功能：产生一个对话框，等待用户输入数据，并返回所输入的文本格式为：输入函数InputBoxInputBox(信息提示，对话框标题，默认内容）例如：r=InputBox(请输入半径：,计算圆的面积,1),输入函数InputBox,【举例】“鸡兔同笼”问题。鸡有2只脚，兔有4只脚，如果已知鸡和兔的总只数h，总脚数为f。问鸡和兔各有多少只？【分析】设笼中鸡有X只，兔有Y只，则X+Y=H2X+4Y=F即X=(4*H-F)/2Y=(F-2*H)/2【要求】总的只数和脚数用InputBox函数输入,【设计步骤】1、界面设计2、代码设计,PrivateSubCommand1_Click()DimhAsInteger,fAsIntegerh=Val(InputBox(鸡和兔的总只数,请输入,0)f=Val(InputBox(鸡和兔的总脚数（偶）,请输入,0)x=(4*h-f)/2y=(f-2*h)/2Label1.Caption=笼中鸡兔总只数为&h&总脚数为&fLabel2.Caption=笼中鸡为&x&兔为&yEndSub,MsgBox函数与MsgBox语句,功能：创建信息提示对话框，同时将用户在对话框中的选择传输给程序。格式为：MsgBox(提示信息,对话框类型,对话框标题)提示信息：字符串或字符串变量,用于显示对话框中的提示信息。对话框类型：整数或符号常量,以指定对话框中的按钮和图标的种类、数量对话框标题：设置标题信息的字符串，若缺省，则标题为“工程1”。,MsgBox函数的应用,要求：单击窗体，出现提示框在窗体的Click事件中编写代码：PrivateSubForm_Click()a=MsgBox(确定删除文件吗?,1+32,msgbox示例)EndSub,MsgBox语句,如果MsgBox函数不需要返回值，可以省略圆括号，则变形为MsgBox语句。格式：MsgBox提示信息,对话框类型,对话框标题PrivateSubForm_Click()MsgBox确定删除文件吗?,1+32,msgbox示例EndSub,MsgBox函数的应用,PrivateSubForm_Click()choice=MsgBox(数据已经修改，是否保存？,_vbYesNoCancel+vbQuestion+vbDefaultButton1,提示)Ifchoice=vbYesThenMsgBox正在保存EndIfIfchoice=vbNoThenMsgBox不保存退出EndIfEndSub,设计“密码”程序界面,PrivateSubCommand1_Click()pw$=ljs12345将我们事先设置好的密码放在变量pw$中a$=密码错b$=校对密码框IfText1.Text=pw$ThenShell(C:WINDOWSNOTEPAD.EXE)Elsec=MsgBox(a$,277,b$)EndIfEndSubPrivateSubForm_Activate()Text1.Text=将文本框清空Text1.SetFocus将焦点设置在文本框中EndSub,
展开阅读全文