授课记录.docx - 冰豆网

资源描述

授课记录.docx

《授课记录.docx》由会员分享，可在线阅读，更多相关《授课记录.docx（49页珍藏版）》请在冰豆网上搜索。

授课记录.docx

授课记录

任课教师：

陈大春

要求：

一不允许迟到（迟到算1个学时，旷到算2个学时），一个学期只允许10个学时，成绩记0分。

二上课不允许打电话，收短信。

在不影响别人的情况下出去打电话。

三成绩：

30分考勤+30分作业+40分考试

四机房规定（穿鞋套，不乱插拔电脑，禁止吃东西）

第一讲

VB课的特点：

程序设计

难点（英语、汉语）、下面动脑子，启蒙

界面设计（简单）、程序设计（分支、循环、一维数组、过程）

思想：

看懂别人的程序

模仿写一些简单的程序

自己写一些简单的程序

Visual（可视化的）basic

Toolbox

General常规的

网络驱动器的映射

Vbp

保存过程：

选择网络驱动器下

选择文件名（最好以字母开头，后跟字母或数字）

注意：

要存两次（第一次是frm文件，第二次是vbp文件，不用写文件的扩展名）

选择no

重新打开的时候，如果没有出现界面设计窗口时，双击资源管理器中form名

*注意：

不能再外部更改文件名。

尤其是frm文件的名字，则将无法打开对应窗体文件。

想改名：

运行程序：

尝试一：

更改窗体（form）名字

属性窗口的Caption编辑栏中填写文字。

熟悉了vb编程的过程：

界面设计（设计初的属性设置）->设计事件响应

尝试二设置背景图片

设置picture属性

只认识jpg或bmp文件

第二讲（2012.2.29）

pub192.168.0.252

一窗体form

通用属性：

Name名称：

不要随意改动，实际是窗体实例的名称

*Caption：

控件显示的文字内容

*height,width,top和left:

控件实例的尺寸和位置

*font字体fontname,fontsize,fontbold,fontitalic,fontstrikethru,fontunderline

*enable决定控件是否在运行的时候可用，有两个值：

true真，false假

*visible:

visualvision决定控件在运行时是否可见

*forecolor,backcolor：

设置颜色foreward

mousepointer,mouseicon:

鼠标指针的形状

default:

默认的arrow:

箭头,cross:

十字，I-beam：

插入符，icon:

图标，size:

可变大小

课堂练习：

设置form1的标题为：

同学的名字

添加一个按钮command1，设置标题为：

“运行”

设置按钮的字体为：

宋体，小二号，斜体，下划线。

添加标签label,设置颜色为：

前景色：

红色，背景色：

蓝色

maxbutton,minbutton:

窗体运行时是否显示最大，最小化按钮

icon和controlbox设置窗体左上角控制菜单图标

Borderstyle:

边框的样式

Fixedsingle:

固定单边框（不能改大小）

Fixeddialog:

固定对话框

Fixedtoolwindow:

固定的工具栏窗口

Windowsstate:

窗体的执行状态

常见的事件：

Click:

单击的响应事件

第三讲（2012.3.1）

一标签label

作用：

起提示性的文字

Backstyle:

背景样式style样式

Transparent:

透明

Borderstyle:

边框样式

Alignment:

对齐方式

Autosize:

自动调节大小

二文本框textbox

作用：

用来为程序运行时数据输入。

*Text:

默认属性，编辑的文字，文本框当前文字内容

Maxlength:

最大长度，限制输入时的文字长度

*Multiline:

多行

Text属性变成下拉框，输入一行后输入Ctrl+回车来换行

Scrollbars:

滚动条，只有在多行才有效

Horizontal:

横向，vertical：

纵向

*Passwordchar:

设置密码显示文字，对多行无效的

Locked:

控制运行时的编辑状态，注意与enable属性的区别

Selstart:

选定文字的开始位置，设计状态下无效

Sellength:

选择文字的长度

Seltext:

选择文字的内容

事件：

Change,keypress,lostfocus焦点,setfocus

三命令按钮commandbutton

*Style:

样式

Standard:

标准的，graphical：

图形的

如果设置graphical属性后，应设置picture属性，一般装入bmp（位图文件）或ico文件（图标文件）

第四讲（2012.3.7）

一数据类型

字节型Byte

逻辑型Boolean

整型Integer%

长整型Long&

单精度Single!

双精度Double#

货币型Currency@

日期型Date

字符型String$

对象型Object

变体型Variant

二常量

（1）整型

数字[%或&]

1237856-458

长整型数用&加在后面，如32769&

（2）浮点数

分单精度数和双精度数

有两种表示方式：

小数形式和指数形式

小数形式：

3.14159543.14554.54!

特殊：

0.00..00！

指数形式：

以e或E连接指数部分

小数部分e[E][+/-指数部分]

25.3145e21.2345e+021.2345e-2

*注意：

指数部分不能带小数点，如1.23e2.3

改变精度：

在后面加类型符!

或#

如：

1.2345e2!

1.2345e2#

（3）字符型

用双引号括起来

如”abcegad”

注意：

不要用中文双引号

（4）逻辑型

True和False

True对应的是十六位的1，False对应的是十六位的0。

*转换为整数时，True转换为-1，False转换为0。

235+True等于234

*把非逻辑型的整数转换为逻辑型：

非0转换为True，0转换为False。

（5）日期型

用一对#括起来的。

如:

#2012-3-7##2012/3/7#

#2012-3-713:

12:

25##2012-3-71:

12:

25PM#

十二小时制后面是am或pm

不可用的字符，如中文双引号

三变量

运行过程中它的内容不断变化的量。

以变量名操作。

（1）命名规则

必须以字母开头，由字母、数字或下划线组成，小于255个字符。

如：

abc,i1,ini1,v1,init_para。

不能使用VB关键字。

凡是字变蓝的。

VB不区分大小写字母。

Va和va,VA,vA相同。

常量全部用大写字母表示。

（2）声明declaration

第一种用dim语句显式声明变量

最好使用此方法。

Dim变量列表[as类型名]

Dimiasinteger,xassingle

Dimi%,x!

注意：

以逗号隔开每一个变量，变量名与类型符间没有空格。

Dimi,j

i,j就成为变体类型。

根据类型有不同的初值。

字符型可以声明变长或定长：

Dimsasstring等价与Dims$

Dimsasstring*12定长字符，长度12字符

隐式声明，使用中直接用名称。

类型都是变体型Variant。

*注意：

可以用OptionExplicit强制显式声明变量。

m是隐式变量，将出错

练习：

用print打印如下图案print“*”

***

****

*****

***

*****

*******

第五讲（2012.3.8）

一常量

进制常量

八进制：

数值前加&O，如：

&O127=1*82+2*8+7*80=64+16+7=87

&O15641&&O1594（错误，八进制没有9数字）

十六进制：

数值前加&H,如：

&H5ae

*符号常量，一般用大写标识

形式：

Const常量名[As类型]=表达式

如：

ConstPIAsSingle=3.1415926

同：

ConstPI!

=3.1415926

*注意：

符号常量不能出现在赋值号的左边。

系统常量

以特定字符开头的符号，如：

vb,xl,db

二变量的使用

使用赋值语句来改变变量的值。

赋值语句：

变量名=表达式

如：

Dimi%,a!

j&,b#,s$,dAsDate

i=0

a=1.5

j=32769

b=123.45E+19

s="fegadf"

d=#3/8/2012#

Printi,a,j,b,s,d

溢出overflow：

超出存储能存的数的范围

01111111+1=10000000=>-1

编程：

假设A,B两个瓶子，分别装入酱油和醋，编程借助C瓶将A,B瓶中酱油和醋交换。

A=>C,B=>A,C=>B

PrivateSubCommand1_Click（）

Dima$,b$,c$

a="酱油"

b="醋"

c=a

a=b

b=c

Printa,b

EndSub

思考题：

现有三个瓶子a,b,c,分别装“酱油”，“醋”，“水”，要求借助空瓶子d，将其交换为：

“醋”，“水”，“酱油”。

注意：

赋值号有方向的，与等号区别。

方向从右向左赋值。

三运算符

（1）算术运算符

+-*/^\Mod

乘（*）：

双目操作符

除（/）：

分母不为零，先乘除后加减（优先级高）

例：

a+b/2=>（a+b）/2,

错误：

（-b+1）/2a（分母少乘号*）

（-b+1）/2*a（分母中乘号与除号同优先级，自左向右结合，实际上a是分子）=>（-b+1）/2/a

PrivateSubCommand1_Click（）

Dima$,b$,c$

a=2

b=2

c=（-b+1）/（2*a）

Printc

EndSub

例1：

设一个圆的半径r=3，求圆的周长和面积。

PrivateSubCommand1_Click（）

Dimr!

ConstPI!

=3.14159

r=3

l=2*PI*r

s=PI*r*r

Printl,s

EndSub

课堂练习：

设一个球的半径r=3，求球的体积。

设正四面体的边长a=3，求此四面体的表面积和体积。

已知三角形三边a,b,c，用海伦公式求三角形面积。

L半周长，sqrt（l（l-a）（l-b）（l-c））

乘方^

整除\：

除的结果取整数部分，如：

3\2=>1,1\2=>01\3+1\3+1\3=>0

取模（余）：

5mod3=>23mod5=>3

3/211被除数，除数，商，余数。

余数=被除数-商*除数

3+”12”=>15

第六讲（2012.3.13）

字符串运算符

两个运算符：

&和+

‘abc’&‘qaddf’

‘abcqaddf’

‘123’+’234’相当于123+234=>357

如果有一个非数字字符，出错，如

s1="abc"

s3=s1+123

直接连接字符串用&,

s1="abc"

s3=s1&123

*关系运算符

=>>=<<=<>LikeIs

（1）如果两边都是数值型，比的实数的大小。

（2）都是字符型的，比的是ASCII码，前后顺序。

汉字以拼音顺序。

Print3<5,4>5,2<>3

Print"abc"<"ABC"结果为FALSE

Print"ABC1"<"ABC2"

*问题：

变量x在（0,1）

Dimx!

x=3

Print0

结果为:

TRUE

无论x是什么值，0

优先级相同，自左向右结合。

如：

0（0

运算结果只有TRUE和FALSE。

逻辑运算符：

用于解决如0

运算符：

NotAndOrXor

Not:

逻辑非，Notx:

x为TRUE,结果为FALSE,否则为TRUE.

And:

逻辑与，xAndy:

x和y同时为TRUE时结果为TRUE，否则为FALSE。

Or：

逻辑或，xAndy:

x和y同时为FALSE时结果为FALSE，否则为TRUE。

Xor：

逻辑异或，xAndy:

x和y不同时结果为TRUE,否则为FALSE。

x=-0.5

Print0

*有数值表达式出现在运算符旁边，会把结果变成二进制并进行按位操作。

Not2=>结果为-3,按位取反。

2andTrue=>结果为2

表达式

由哪些组成的：

常量、变量、数组元素、函数、运算符等组成。

数值表达式：

（a+b）/2l*（l-a）*（l-b）*（l-c）

字符表达式：

”abc”&”123”

a&（a<3）

关系表达式：

a<3a<>5

逻辑表达式：

a>0Anda<1

*优先级：

算术运算符>字符运算符>关系运算符>逻辑运算符

x>=10Andx<20

x>zAndy>z

xMod5=0OrxMod7=0解释：

xMod5=0意思是x能被5整除，即x是5的倍数。

Dimx!

x=16

PrintxMod5=0OrxMod7=0

x>0Andy>0Orx<0Andy<0

第七讲（2012.3.14）

（1）数学函数

带参数的函数使用：

函数名（参数）

三角函数：

Sin,Cos,Tan，参数是弧度

指数函数：

Exp对数函数：

Log,Log10

开二次方：

Sqr

伪随机数：

Rnd，产生0到1的随机数

产生[a,b]的随机数，Rnd*（b-a）+a

如：

Dima%,b%,s!

a=10

b=20

s=Rnd*（b-a）+a

Prints

符号函数：

Sgn

绝对值：

Abs

Dimx!

x=3.12

PrintSin（x）,Exp

（1）

PrintSqr

（2）,Rnd,Abs（-x）

函数后括号必须使用圆括号。

例：

用海伦公式计算三角形面积。

PrivateSubCommand1_Click（）

Dimx!

x=3

y=4

z=5

l=（x+y+z）/2

s=Sqr（l*（l-x）*（l-y）*（l-z））

Printx,y,z,s

EndSub

课堂练习：

已知等腰梯形的上底、下底和高，求梯形的面积和周长。

（2）转换函数

转换变量内容的不同类型。

*Asc：

转换字符为ASCII码

*Chr：

把ASCII码值转换为字符

Fix：

取整

*Int：

取小于等于N的最大整数

*Round：

四舍五入函数

*Str：

数值转换为字符串

*Val：

数字字符串转换为数值

LCase：

转换成小写

UCase：

转换成大写

PrivateSubCommand1_Click（）

PrintAsc（"A"）,Asc（"a"）

PrintChr（65）,Chr（97）

PrintFix（-3.5）,Fix（3.5）

PrintInt（-3.5）,Int（3.5）

PrintStr（123）,Val（"456"）

EndSub

（3）字符串函数

*Left：

取左边的子串，Left（字符串,k），k是字符数

*Right：

取右边的子串，Right（字符串,k），k是字符数

*Mid：

取中间的子串，Mid（字符串,p,k），p是起始位置，k是字符数

Dimstr$,str1$,str2$,str3$,str4$

str="abcdefg"

str1=Left（str,3）

str2=Right（str,3）

str3=Mid（str,4,2）

str4=Left（str,3）&Right（str,3）

Printstr1,str2,str3,str4

EndSub

InStr：

找子串,InStr（str1,str2），查找str2是否在str1中，若找到则返回位置，否则返回0

*Len：

求字符串长度

*Trim：

去除字符串两边的空格

（4）日期函数

Now：

当前的日期时间

Data,Time：

当前的日期、时间

Day：

日期代号

Month：

月代号

Year：

年代号

DimdAsDate,y%,m%,r%,d1AsDate

d=#3/14/2012#

y=Year（d）

m=Month（d）

r=Day（d）

Printd,y,m,r

EndSub

*DateAdd:

增加日期的函数

DateAdd（“格式”,增减量,日期）

格式：

yyyy年，m月，d日，h时，m分，s秒

*DateDiff：

两个日期相差日期

DateDiff（“格式”,日期1,日期2）

DimdAsDate,y%,m%,r%,d1AsDate

d=#3/10/2012#

d1=Date

Printd,d1,DateDiff（"m",d1,d）

第八讲（2012.3.15）

Shell函数外壳

格式：

Shell（命令字符串，[窗口类型]）

返回任务标示号

PrivateSubCommand1_Click（）

i%=Shell（"calc.exe",vbNormalFocus）

EndSub

资源管理器：

explorer.exe

（1）程序结构

三种结构：

顺序结构、分支结构和循环结构

事件函数列表框

注意：

*一行可以写多条语句，每条语句用冒号“：

”隔开，一行最多有255个字符。

*一条语句写多行，用续行符“_”连接，注意前加个空格。

*注释符号撇号“‘”

PrivateSubCommand1_Click（）

Dimi%,j%,k%,a!

delta!

i=1:

j=1:

k=1'一行写多条语句

'注释可以单独写一行

a=1:

b=2:

c=1

delta=b*b-4_

*a*c

EndSub

yakiximusiz

例：

编程计算两个数的加、减、乘、除。

PrivateSubCommand1_Click（）

Dima!

a=Val（Text1.Text）

b=Val（Text2.Text）

r=a+b

Text3.Text=r

EndSub

PrivateSubCommand2_Click（）

Dima!

a=Val（Text1.Text）

b=Val（Text2.Text）

r=a-b

Text3.Text=r

EndSub

PrivateSubCommand3_Click（）

Dima!

a=Val（Text1.Text）

b=Val（Text2.Text）

r=a*b

Text3.Text=r

EndSub

PrivateSubCommand4_Click（）

Dima!

a=Val（Text1.Text）

b=Val（Text2.Text）

r=a/b

Text3.Text=r

EndSub

第九讲（2012.3.27）

一赋值语句

变量名=表达式

*赋值号两边类型不同的处理

强制转化为左边的类型

Dima%,b!

a=3.12

b=a+3

c=b-2

printa,b,c

结果是：

364

二数据的输入和输出

对于文本框，应该熟悉Val函数

1使用InputBox函数

InputBox（提示，标题，默认值，x坐标,y坐标）

如果输入值与左边变量类型不匹配将出错

Dima!

a=Val（InputBox（"输入边a:

"））

b=Val（InputBox（"输入边b:

"））

c=Val（InputBox（"输入边c:

"））

Printa+b+c

例：

输入圆的内径r，求圆周长、面积。

PrivateSubCommand1_Click（）

ConstPI=3.14159

Dimr!

r=Val（InputBox（"输入内径r:

"））

c=2*PI*r

s=PI*r*r

Print"周长为:

",c,"面积为:

",s

EndSub

例：

输入一元二次方程的系数a,b,c，求它的实根。

PrivateSubCommand1_Click（）

Dima!

delta!

a=Val（InputBox（"输入a:

"））

b=Val（InputBox（"输入b:

"））

c=Val（InputBox（"输入c:

"））

delta=b*b-4*a*c

x=（-b+Sqr（delta））/2/a

Print"根为:

",x

EndSub

课堂练习：

要求输入两个数a和b，实现交换后打印。

如果在提示中要回车或换行，可以加Chr（13）或Chr（10）,或用vbCrLf常量。

a=Val（InputBox（"输入a:

"&Chr（10）&"输入b:

"））

a=Val（InputBox（"输入a:

"+vbCrLf+"输入b:

"））

a=Val（InputBox（"输入a:

","输入对话框",3））

2使用MsgBox函数输出

变量=MsgBox（提示，按钮，标题）

函数如果不出现在赋值号的右边，则应该把函数的括号去掉。

MsgBox"这是一个提示",vbOKCancel

MsgBox"这是一个提示",vbOKCancel,"这是一个问题"

课堂练习：

输入两个数a和b，计算并打印它们的加、减、乘、除的值

第十讲（2012.3.28）

一Print方法

[对象名.]Print[定位函数][输出列表][分隔符]

1定位函数：

Spc（n）:

n个空格

Tab（n）:

定位于n列

可用CurrentX和CurrentY来定位光标位置

2输出列表

由分隔符隔开的变量或表达式。

如：

Print"根为:

",x

3分隔符

有分号（;）和逗号（,）。

区别：

分号定位在上一个显示的字符后，而逗号定位在下一个打印区（14列）

Print1,2,3

Print1;Tab（5）;2;Tab（10）;3

Print1;Spc

（1）;2

展开阅读全文