第八章第一节VB程序设计概述第二节VB程序设计基础课件

VisualBasic程序设计基础与应用张建莉副教授希望同学们在学习过程中：理论与实践并重注重复习与预习循序渐进不断深入

2023/7/262

第一章VB程序设计概述VisualBasic入门

2023/7/263VisualBasic的前身是BASIC语言。BASIC是英文Beginner’sAll-purposeSymbolicInstructionCode(初学者通用符号指令代码）的缩写，它是专门为初学者设计的高级语言。学习目标1、了解VisualBasic（以下简称VB)的特点2、掌握VB的安装、启动和退出方法3、熟悉VB的集成开发环境4、学会简单的VB控件设计5、掌握利用VB的开发应用程序的步骤

本章介绍VB的集成开发环境、简单的VB控件设计以及利用VB开发应用程序的过程。程序 一个程序是完成某一特定任务的一组指令序列，或者说，是用计算机语言描述解决一个特定问题的步骤。程序设计 问题分析、确定算法、编写程序、调试运行程序设计语言

1、低级语言和高级语言。

2、面向过程和面向对象的程序设计语言1．可视化编程工具2．面向对象的程序设计

3．采用事件驱动的编程机制4．结构化程序设计语言5．强大的数据库访问、管理能力6．集成的应用开发环境1.1VisualBasic6.0简介VisualBasic的特点一、VB集成开发环境2023/7/267工具箱窗口主窗口窗体设计窗口代码窗口工程资源管理器窗口属性窗口2023/7/261.主窗口由标题栏、菜单栏和工具栏组成2.窗体设计(form)窗口设计VB程序的界面3.代码(code)窗口编辑窗体、标准模块中的代码4.属性(properties)窗口所有窗体或控件的属性设置5.工程资源管理器(projectexplore)窗口保存一个应用程序所有的文件6.工具箱(toolbox)窗口显示各种控件的制作工具,供用户在窗体上设计一、VB集成开发环境8二、第一个VB程序2023/7/269三、VB程序设计的基本概念和步骤

2023/7/26101.选择要创建的应用程序类型（如：EXE文件），并打开一个工程。2.使用可视化工具（窗体、控件等）设计程序界面。3.编写事件过程与模块代码。4.命名保存工程文件。5.调试、生成应用程序。第二节程序设计基础2023/7/2611

一、数据类型二、常量与变量三、运算符与表达式四、基本语句五、数据输入与输出

一、数据类型2023/7/2612一、数据类型2023/7/2613

二、变量、常量2023/7/2614变量和常量的命名规则变量：在程序运行中其存储的值可以改变的存储空间。常量：在程序运行中其值不可以改变的数值或字符串。

Y=X+10

命名规则：1.以字母或汉字开头，后可跟汉字、字母、数字或下划线组成，长度小于等于255个字符；2.不要使用VB中的关键字；3.VB中不区分变量名的大小写.2023/7/2615

常量1.用户声明常量形式：

Const常量名[AS类型]=表达式省略[AS类型],常量的类型由表达式值的类型决定

为使与变量名区分，一般常量名使用大写字母例:

ConstMAX=1002.系统提供的常量

系统定义常量位于对象库中,可通过“对象浏览器”查看.

例:vbNormal,vbRed等2023/7/2616

变量变量声明

1.用Dim语句显式声明变量

形式:Dim变量名[AS类型]Dim变量名类型符例DimiCountAsintegerDimsAllsumAssingle等价于DimiCount%DimsAllsum!

2023/7/2617

声明（多个）变量的语句形式2023/7/2618[Dim|Static|Private]<变量1>[as<类型>][，<变量2>[as<类型>]]Dimicount%,str1$

DimTest,Amount,JasIntegerDimTestasinteger,Amountasinteger,JasIntegerDimTest%,Amount%,J%2023/7/26192.隐式声明

未进行上述的声明而直接使用,其类型为Variant类型,建议不使用.

注意:在通用声明处加OptionExplicit语句来强制显式声明变量。变量的互换2023/7/2620Dimaasinteger,basintegera=10b=20t=aa=bb=t三、运算符、表达式2023/7/2621运算符即表示实现某种运算的符号。表达式就是由变量、常量和运算符等组成的有意义的式子。运算符可以分为四类：算术、字符串、关系和逻辑。Y=X+10算术运算符

2023/7/2622例：5+10mod10\9/3+2^2结果：

102023/7/2623表达式

1.组成

变量、常量、函数、运算符和圆括号

2.书写规则（1）运算符不能相邻。例a+-b是错误的。（2）乘号不能省略。例x乘以y应写成：x*y

（3）括号必须成对出现，均使用圆括号。（4）表达式从左到右在同一基准上书写，无高低、大小。

Exercises2023/7/2624表达式5+5\3*10/8Mod9的值是

.A)4

B)5

C)6

D)7将任意一个两位数x的个位数与十位数对换。例如，x=78，则表达式的值应为87。其VB表达式为(xmod10)*10+x\102023/7/2625字符串运算符

＆、+

字符串连接

"123"+"456"结果"123456""123"&"456"结果"123456"例如:"abcdef"+12345'出错

"abcdef"&12345'结果为"abcdef12345""123"+456'结果为

579

"123"

&

456'结果为

"123456"

"

123"+abc'结果为

"123"?"123"&

abc'结果为"123"?

2023/7/2626关系运算符

将两个操作数进行大小比较,结果为逻辑量。字符串比较,则按字符的ASCII码值从左到右一一比较,直到出现不同的字符为止.。例："ABCDE">"ABRA" 结果为False2023/7/2627逻辑运算符

将操作数进行逻辑运算，结果是逻辑值条件表达式1And条件表达式2条件表达式均为T结果为T

条件表达式1Or条件表达式2条件表达式有一个T结果为T2023/7/2628例：用人单位招聘秘书：年龄小于40岁，女性，学历专科或本科年龄<40性别=“女”(学历=“专科”学历=“本科”)AndAndOr考虑：若分别写成：年龄<40And性别=“女”And(学历=“专科”And学历=“本科”)

年龄<40Or性别=“女”Or(学历=“专科”Or学历=“本科”)例：表示算术表达式：正确的VB表达式：30〈=xAndx<=70

错误的VB表达式：30<=x<=70或

30<=xOrx<=70

比a小，比b大用Ora小数b大数a小数b大数比a大，比b小用And逻辑值与数值的转换2023/7/2629逻辑量转化为数值为：True-1False0数值转化为逻辑量为：非零True零false2023/7/2630

常见错误2023/7/26311.逻辑表达式书写错，在VB没有造成语法错而形成逻辑错

例数学表达式3≤x＜10VB表达式为3<=x<10

问题在于VB中的逻辑量与数值量可互转2.同时给多个变量赋值，没有造成语法错而形成逻辑错例Dimx%,y%,z%x=y=z=13．变量名写错检查方法：在通用声明段加OptionExplicit4．语句书写位置错

在通用声明段只能有Dim语句，不能有赋值等其它语句常用内部函数2023/7/2632把一些最基本的功能编成了一段段相对完整、独立的代码，放在了系统的内部，供人们直接调用，我们称这些代码段为内部函数。常用的内部函数有：数学和随机数函数.（Int,Rnd）转换函数.(Val,Str,Asc,Chr)字符串函数。(Ltrim,Mid,Len)2023/7/2633

1.数学和随机数函数

Rnd函数返回0和1（包括0但不包括1）之间的双精度随机数.每次运行时，要产生不同序列的随机数，执行Randomize语句.

例产生1-100的随机数:Int(Rnd*100+1)2.转换函数

Chr(66)“B“ Asc(“B")66Asc(Chr(99))99Chr(Asc(“K”))“K”Ucase("abcdefg")“ABCDEFG"2023/7/26342023/7/26353.字符串函数

Len(“中国good”)6Len(“good”)4Mid("ABCDEFG",2,3)"BCD"

InStr(2,"ABCDEFG","EF") 5

S=Split("123,56,ab",",") Join(S,"")"12356ab" Replace("ABCDABCD","CD","123") “AB123AB123”、S(0)="123”,S(1)="56”,S(2)="ab"VeryImportant2023/7/2636LTrim(string)RTrim(string)Trim(string)PrivateSubCommand1_Click()Label1.Caption=“你好！"&Text1.TextIfTrim(Text1.Text)=“”ThenPrint“拜托请打点东西！"EndSub4.日期函数2023/7/2637Time返回系统时间

Date返回系统日期DateAdd（要增减日期形式，增减量，要增减的日期变量）DateDiff（要间隔日期形式，日期1，日期2）例如求两个时间相差的秒数:DateDiff（”s”,#19:3:23#,#19:5:1#）结果为98四、基本语句2023/7/2638Print语句赋值语句

Print语句2023/7/2639Print语句[object.]Print[[{Spc(n)|Tab(n)}]expression{;\,}]紧凑格式(;)和宽松格式(,)

输出格式Print1,2,3,4,5Print1;2;3;4;5;print语句最后“;”或“，”的作用Print作用赋值语句

2023/7/2640

赋值语句

格式：变量=表达式

如y=x*x+1正确

y+z=x+1错误五、数据输入与输出2023/7/2641InputBox函数

MsgBox函数1.InputBox函数

InputBox(提示[，标题][，缺省])

其中:提示提示信息,标题对话框标题,缺省输入区缺省值函数返回字符类型.例要在屏幕上显示如下的对话框:2023/7/2642

相应的语句如下:DimnasInteger

n=InputBox(“请输入数据:”,”数据输入”,10)

2023/7/26432.MsgBox函数和MsgBox过程例