VB程序设计概述.pptx

体验VB编程;体验VB编程;一、VB的基本数据类型;二、常量和变量;2、变量

格式：Dim变量名AS类型

Dim和AS——VB用于说明变量的关键字，AS省略，被说明的变量为可变类型

变量名——可以自已自定义，只能用字母或下划线开头，由字母、下划线和字数构成的任何变量名

类型——常用的有整型（2字节）Integer、长整型（4字节）Long、单精度型（4字节）Single、双精度型（8字节）Double

如：DimrAsSingle;1、顺序结构

基本语句：

赋值语句（=），格式：变量名=表达式

InputBox函数，格式：InputBox（“提示信息”，“标题”）

输出语句（print);2、分支结构

基本语句：

If条件then或If条件then

语句体语句体1

EndifElse

语句体2

Endif;3、循环结构

基本语句：

Dowhile条件

语句体

Loop;四、VB软件界面;1.主窗口

应用程序窗口,由标题栏、菜单栏和工具栏组成

2.窗体(Form)窗口（编辑器）

设计VB程序的界面

3.代码(Code)窗口

编辑窗体、标准模块中的代码

4.属性(Properties)窗口

所有窗体或控件的属性设置

5.工程资源管理器(ProjectExpror)窗口

保存一个应用程序所有的文件

6.工具箱(toolbox)窗口

显示各种控件的制作工具,供用户在窗体上设计

;加法计算器

PrivateSubCommand1_Click()

x=Val(Text1.Text)

在文本框Text1中输入x的值

y=Val(Text2.Text)

在文本框Text2中输入y的值

Text3.Text=Str(x+y)

在文本框Text3中显示x+y的值

EndSub

;两数交换

PrivateSubCommand1_Click()

x=10

y=7

IfxyThen如果xy，然后

t=x把x的值赋给t

x=y把y的值赋给x

y=t把t的值赋给y

EndIf

Printx,y

EndSub;从键盘上输入三个数。若这三个数能够成三角形的三条边长，则求这个三角形的周长，否则输出相应的错误信息。;DimaAsSingle,bAsSingle,cAsSingle,sAsSingle

a=InputBox(请输入三角形的??一条边:)

b=InputBox(请输入三角形的第二条边:)

c=InputBox(请输入三角形的第三条边:)

Ifa0Andb0Andc0Then

Ifa+bcAndb+caAnda+cbThen

s=a+b+c

Print三角形的三条边长为:;a;b;c

Print三角形的周长为:;s

Else

Print不能够成三角形!

EndIf

Else

Print数据无效!

EndIf;六、课堂小结;七、课外拓展;PrivateSubCommand1_Click()

DimaAsSingle,bAsSingle,cAsSingle,sAsSingle,x1AsSingle,x2AsSingle

a=InputBox(请输入a:)

b=InputBox(请输入b:)

c=InputBox(请输入c:)

s=b*b-4*a*c

Ifs0Then

Print此方程没有实根!

Else