授课记录Word格式.docx
- 文档编号:7303306
- 上传时间:2023-05-08
- 格式:DOCX
- 页数:49
- 大小:503.48KB
授课记录Word格式.docx
《授课记录Word格式.docx》由会员分享,可在线阅读,更多相关《授课记录Word格式.docx(49页珍藏版)》请在冰点文库上搜索。
设置form1的标题为:
同学的名字
添加一个按钮command1,设置标题为:
“运行”
设置按钮的字体为:
宋体,小二号,斜体,下划线。
添加标签label,设置颜色为:
前景色:
红色,背景色:
蓝色
maxbutton,minbutton:
窗体运行时是否显示最大,最小化按钮
icon和controlbox设置窗体左上角控制菜单图标
Borderstyle:
边框的样式
Fixedsingle:
固定单边框(不能改大小)
Fixeddialog:
固定对话框
Fixedtoolwindow:
固定的工具栏窗口
Windowsstate:
窗体的执行状态
常见的事件:
Click:
单击的响应事件
第三讲(2012.3.1)
一标签label
作用:
起提示性的文字
Backstyle:
背景样式style样式
Transparent:
透明
边框样式
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:
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
a=2
b=2
c=(-b+1)/(2*a)
Printc
例1:
设一个圆的半径r=3,求圆的周长和面积。
Dimr!
l!
s!
=3.14159
r=3
l=2*PI*r
s=PI*r*r
Printl,s
设一个球的半径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=>
取模(余):
5mod3=>
23mod5=>
3
3/211被除数,除数,商,余数。
余数=被除数-商*除数
3+”12”=>
15
第六讲(2012.3.13)
字符串运算符
两个运算符:
和+
‘abc’&
‘qaddf’
‘abcqaddf’
‘123’+’234’相当于123+234=>
357
如果有一个非数字字符,出错,如
s1="
abc"
s3=s1+123
直接连接字符串用&
s3=s1&
123
*关系运算符
=>
>
=<
<
>
LikeIs
(1)如果两边都是数值型,比的实数的大小。
(2)都是字符型的,比的是ASCII码,前后顺序。
汉字以拼音顺序。
Print3<
5,4>
5,2<
3
Print"
"
ABC"
结果为FALSE
ABC1"
ABC2"
*问题:
变量x在(0,1)
0<
x<
1错误的写法
Dimx!
x=3
Print0<
x<
1
结果为:
TRUE
无论x是什么值,0<
x的结果只有两个TRUE或FALSE,参加运算时TRUE是-1,FALSE是0,因此-1或0都是小于1的。
优先级相同,自左向右结合。
1=>
(0<
x)<
1
运算结果只有TRUE和FALSE。
逻辑运算符:
用于解决如0<
1的问题。
运算符:
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
xOrx<
-1
*有数值表达式出现在运算符旁边,会把结果变成二进制并进行按位操作。
Not2=>
结果为-3,按位取反。
2andTrue=>
结果为2
表达式
由哪些组成的:
常量、变量、数组元素、函数、运算符等组成。
数值表达式:
(a+b)/2l*(l-a)*(l-b)*(l-c)
字符表达式:
”abc”&
”123”
a&
(a<
3)
关系表达式:
a<
3a<
5
逻辑表达式:
a>
0Anda<
*优先级:
算术运算符>
字符运算符>
关系运算符>
逻辑运算符
x>
=10Andx<
20
zOry<
z
zAndy>
xMod5=0OrxMod7=0解释:
xMod5=0意思是x能被5整除,即x是5的倍数。
x=16
PrintxMod5=0OrxMod7=0
0Andy>
0Orx<
0Andy<
第七讲(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
y!
x=3.12
PrintSin(x),Exp
(1)
PrintSqr
(2),Rnd,Abs(-x)
函数后括号必须使用圆括号。
用海伦公式计算三角形面积。
z!
y=4
z=5
l=(x+y+z)/2
s=Sqr(l*(l-x)*(l-y)*(l-z))
Printx,y,z,s
已知等腰梯形的上底、下底和高,求梯形的面积和周长。
(2)转换函数
转换变量内容的不同类型。
*Asc:
转换字符为ASCII码
*Chr:
把ASCII码值转换为字符
Fix:
取整
*Int:
取小于等于N的最大整数
*Round:
四舍五入函数
*Str:
数值转换为字符串
*Val:
数字字符串转换为数值
LCase:
转换成小写
UCase:
转换成大写
PrintAsc("
A"
),Asc("
a"
)
PrintChr(65),Chr(97)
PrintFix(-3.5),Fix(3.5)
PrintInt(-3.5),Int(3.5)
PrintStr(123),Val("
456"
(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
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
*DateAdd:
增加日期的函数
DateAdd(“格式”,增减量,日期)
格式:
yyyy年,m月,d日,h时,m分,s秒
*DateDiff:
两个日期相差日期
DateDiff(“格式”,日期1,日期2)
d=#3/10/2012#
d1=Date
Printd,d1,DateDiff("
m"
d1,d)
第八讲(2012.3.15)
Shell函数外壳
Shell(命令字符串,[窗口类型])
返回任务标示号
i%=Shell("
calc.exe"
vbNormalFocus)
资源管理器:
explorer.exe
(1)程序结构
三种结构:
顺序结构、分支结构和循环结构
事件函数列表框
*一行可以写多条语句,每条语句用冒号“:
”隔开,一行最多有255个字符。
*一条语句写多行,用续行符“_”连接,注意前加个空格。
*注释符号撇号“‘”
Dimi%,j%,k%,a!
b!
c!
x!
delta!
i=1:
j=1:
k=1'
一行写多条语句
'
注释可以单独写一行
a=1:
b=2:
c=1
delta=b*b-4_
*a*c
yakiximusiz
编程计算两个数的加、减、乘、除。
Dima!
r!
a=Val(Text1.Text)
b=Val(Text2.Text)
r=a+b
Text3.Text=r
PrivateSubCommand2_Click()
r=a-b
PrivateSubCommand3_Click()
r=a*b
PrivateSubCommand4_Click()
r=a/b
第九讲(2012.3.27)
一赋值语句
*赋值号两边类型不同的处理
强制转化为左边的类型
Dima%,b!
c&
a=3.12
b=a+3
c=b-2
printa,b,c
结果是:
364
二数据的输入和输出
对于文本框,应该熟悉Val函数
1使用InputBox函数
InputBox(提示,标题,默认值,x坐标,y坐标)
如果输入值与左边变量类型不匹配将出错
a=Val(InputBox("
输入边a:
"
))
b=Val(InputBox("
输入边b:
c=Val(InputBox("
输入边c:
Printa+b+c
输入圆的内径r,求圆周长、面积。
ConstPI=3.14159
r=Val(InputBox("
输入内径r:
c=2*PI*r
周长为:
c,"
面积为:
s
输入一元二次方程的系数a,b,c,求它的实根。
输入a:
输入b:
输入c:
delta=b*b-4*a*c
x=(-b+Sqr(delta))/2/a
根为:
x
要求输入两个数a和b,实现交换后打印。
如果在提示中要回车或换行,可以加Chr(13)或Chr(10),或用vbCrLf常量。
Chr(10)&
+vbCrLf+"
"
输入对话框"
3))
2使用MsgBox函数输出
变量=MsgBox(提示,按钮,标题)
函数如果不出现在赋值号的右边,则应该把函数的括号去掉。
MsgBox"
这是一个提示"
vbOKCancel
vbOKCancel,"
这是一个问题"
输入两个数a和b,计算并打印它们的加、减、乘、除的值
第十讲(2012.3.28)
一Print方法
[对象名.]Print[定位函数][输出列表][分隔符]
1定位函数:
Spc(n):
n个空格
Tab(n):
定位于n列
可用CurrentX和CurrentY来定位光标位置
2输出列表
由分隔符隔开的变量或表达式。
3分隔符
有分号(;
)和逗号(,)。
区别:
分号定位在上一个显示的字符后,而逗号定位在下一个打印区(14列)
Print1,2,3
Print1;
Tab(5);
2;
Tab(10);
Spc
(1);
2
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 授课 记录