授课记录.docx
- 文档编号:5397516
- 上传时间:2023-05-08
- 格式:DOCX
- 页数:49
- 大小:503.48KB
授课记录.docx
《授课记录.docx》由会员分享,可在线阅读,更多相关《授课记录.docx(49页珍藏版)》请在冰点文库上搜索。
授课记录
任课教师:
陈大春
要求:
一不允许迟到(迟到算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!
l!
s!
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)
0 Dimx! x=3 Print0 结果为: TRUE 无论x是什么值,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 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! y! x=3.12 PrintSin(x),Exp (1) PrintSqr (2),Rnd,Abs(-x) 函数后括号必须使用圆括号。 例: 用海伦公式计算三角形面积。 PrivateSubCommand1_Click() Dimx! y! z! l! s! 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! b! c! x! delta! i=1: j=1: k=1'一行写多条语句 '注释可以单独写一行 a=1: b=2: c=1 delta=b*b-4_ *a*c EndSub yakiximusiz 例: 编程计算两个数的加、减、乘、除。 PrivateSubCommand1_Click() Dima! b! r! a=Val(Text1.Text) b=Val(Text2.Text) r=a+b Text3.Text=r EndSub PrivateSubCommand2_Click() Dima! b! r! a=Val(Text1.Text) b=Val(Text2.Text) r=a-b Text3.Text=r EndSub PrivateSubCommand3_Click() Dima! b! r! a=Val(Text1.Text) b=Val(Text2.Text) r=a*b Text3.Text=r EndSub PrivateSubCommand4_Click() Dima! b! r! a=Val(Text1.Text) b=Val(Text2.Text) r=a/b Text3.Text=r EndSub 第九讲(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坐标) 如果输入值与左边变量类型不匹配将出错 Dima! b! c! a=Val(InputBox("输入边a: ")) b=Val(InputBox("输入边b: ")) c=Val(InputBox("输入边c: ")) Printa+b+c 例: 输入圆的内径r,求圆周长、面积。 PrivateSubCommand1_Click() ConstPI=3.14159 Dimr! c! s! r=Val(InputBox("输入内径r: ")) c=2*PI*r s=PI*r*r Print"周长为: ",c,"面积为: ",s EndSub 例: 输入一元二次方程的系数a,b,c,求它的实根。 PrivateSubCommand1_Click() Dima! b! c! x! 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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 授课 记录
![提示](https://static.bingdoc.com/images/bang_tan.gif)