vb教程
-
2023年3月5日发(作者：一招短线选股法)精品文档
。1欢迎下载
Vb编程入门
一、编写程序的基本思路
1、人脑处理问题的过程
以“9+19+28=？”为例
第一步：收集信息
第二步：处理信息
第三步：输出结果
2、编写程序解决问题的思路与人脑处理问题的思路相同
第一步：数据输入
可以通过TextBox(文本框)控件的Text属性或通过赋值语句输入数据
(1)赋值语句用于输入已知确定的数据;
(2)用TextBox用于输入暂时不确定或变化的数据。
精品文档
。2欢迎下载
**注意**
用TextBox输入的数据是字符型，若要进行数值计算则要先转换成数值型（用
VAL函数）
第二步：数据处理
一般用用赋值语句进行计算处理或者用以后学的知识进行处理
第三步：数据输出
用Label控件的Caption属性或TextBox的Text属性进行输出
代码书写格式如下：
控件名.Caption=”要输出的内容”（用Label控件输出）
控件名.Text=”要输出的内容”（用TextBox控件输出）
**注意**
若输出变量的类型是数值型时，要用STR（）函数转换成字符型。
二、VB编写程序步骤
精品文档
。3欢迎下载
分析问题，确定程序要完成什么任务，按下面的步骤创建应用程序。
举例:已知圆的半径，求圆的周长和面积。
（1）新建工程。创建一个应用程序首先要打开一个新的工程。
（2）创建应用程序界面。
A、要用几个控件
B、版面如何布局
C、各控件的“职责”、摆放位置
（3）设置属性值。
A、名称属性
B、Cation、TextBox等属性的值
C、字号、字体、颜色、背景色等属性
......
（4）对象事件过程的编程。
A、代码应写在哪一个控件上，即事件发生在哪一个控件上
B、确定解决问题的思路
C、写代码（要注意变量的定义）
（5）保存文件。
（6）程序运行与调试，生成EXE文件。
精品文档
。4欢迎下载
三、练习：
已知圆的半径，求圆的周长和面积。
四、作业：
鸡兔同笼。已知笼中鸡兔总头数为h，总脚数为f，问鸡兔各有多少只？
分析：设鸡有x只，兔有y只，则方程如下：
解方程。解出求x和y的具体方式为：
精品文档
。5欢迎下载
设计界面和运行界面，如图所示。
注意：程序运行和调试时，输入的数据要符合常规；
如：鸡头总头数为2，则总脚数最少为4，最多
不超过8，否则会出现值。
选择结构—IF语句
发表于2006-03-14已被阅读2427次
【课程内容标准】
会使用程序设计语言实现顺序、选择、循环三种控制结构。初步掌握调试运行程序的方
法。
【学习目标】
（一）在知识与技能方面
1、掌握IF条件语句的格式、功能和执行过程。
2、掌握关系表达式的基本知识。
3、学会使用IF条件语句来实现选择控制结构，解决实际问题。
精品文档
。6欢迎下载
（二）在过程与方法方面
初步掌握程序调试运行的方法。
（三）在情感态度与价值观方面
1、经历计算机解决问题的过程，体验成功的快乐。
2、在老师的指导下，与同学共同探究问题，让学生体验自主学习、协助学习的乐趣。
【重点难点】
1、IF条件语句的格式、功能和执行过程。
2、使用IF条件语句来实现选择控制结构，解决实际问题。
【教法学法】
问题教学法、讲练结合法
【学时】1学时
【教学环境】网络电脑室
【学习过程】
一、引入
情景：去市场买东西，如买菜或买水果，买多会便宜一些，买少则原价出售，这时出现
两种选择。这种需要某个前提成立与否而做出选择的问题需要通过选择结构来解决。
1、提出问题
例如，商场为了对苹果进行促销，根据顾客购买的数量调整苹果销售的价格。如顾客一
次购买5斤以下按原价3元出售，一次5斤以上（含5斤）时则可以在原价的基础上打
8折。条件语句（if语句）就是为解决此类问题而设计的。
2、师生共同分析问题、解决问题
精品文档
。7欢迎下载
（1）分析问题：
weight表示苹果重量，amount表示应付金额；
5斤以下：amount=weight*3；5斤以上：amount=weight*3*0.8
（2）设计算法
①输入苹果重量weight的值；
②判断weight>=5的值是true还是flase
③计算应付金额amount，如果weight>=5的值是true，则amount=weight*3*0.8；
否则为amount=weight*3
④输出应付金额amount
(3)编写程序
根据设计好的算法，可以写出此问题的代码如下：
二、If语句的格式（归纳总结）
if条件then语句块1else语句块2
或
If条件then
语句块1
Else
精品文档
。8欢迎下载
语句块2
EndIf
说明：
（1）“条件”一般为关系表达式或逻辑表达式。通常把关系表达式或逻辑表达式
的值为真时，称为条件满足；值为假时，称为条件不满足。反之亦然。
（2）语句块1、语句块2分别是“条件”满足或不满足时，处理方法的描述，可以
是若干个语句。
（3）If…Then、Else、EndIf是VB的保留字。
三、关系表达式：
关系表达式是用关系运算符连接起来的式子。
关系运算符号有：
当关系表达式的值是逻辑型（Boolean）。关系表达式成立时其值为真
（True），当关系表达式不成立时其值则为假（False）。
四、if语句的执行过程：
调试程序时，通过逐语句（F8）执行程序，让学生观察程序的执行情况（两种）。
块If首先判断“条件”，其值为真时，执行语句块1；为假时执行语句块2。
当缺省[Else…]中的内容时，该分支结构只对条件满足的情况进行处理。执行过
程如下图所示。
精品文档
。9欢迎下载
五、学生练习（例题：买苹果）
六、点拨纠错
(1)语句块1与语句块2不能调换
(2)语句块可包含多条语句
(3)同一行多加endif
(4)以下代码错在哪里，如何修改？
七、作业：根据以下问题，编写程序。
火车站行李费的收费标准是50kg以内（包括50kg）0.20/kg，超过部分0.50/kg。编
精品文档
。10欢迎下载
写程序，要求根据输入的任意重量，计算出应付的行李费。
根据题意计算公式如下：
内部函数练习
练习：
1、判断正负数：当输入一个正数，输出它的平方根；当输入一个负数，则输出它的绝
对值。
2、输入一个字符串，输出它的长度并输出字符串右边2个字符。
3、另外再设置4个按钮，按钮1是小写字母转换为大写字母；按钮2输出幸运号码；
按钮3打开扫雷界面，按钮4输出日期时间。
精品文档
。11欢迎下载
多重选择—selectcase语句
发表于2006-03-24已被阅读3727次
教学目标：
1、了解selectcase语句的作用
2、熟练掌握selectcase语句的基本结构
3、理解语句表达式的3种书写情况（，和to与is）
4、会用selectcase语句解决实际问题
重点：
1、selectcase语句格式
2、语句表达式的3种书写情况
3、用selectcase语句解决实际问题
难点：
1、selectcase语句表达式的3种书写情况
2、优化编程过程
一、新课引入
上节课练习：输入一个学生的一门课分数x（百分制），当x≥90时，输出“优秀”；当80≤x
＜90时，输出“良好”；当70≤x＜80时，输出“中”；当60≤x＜70时，输出“及格”，当x
＜60时，输出“不及格”。
编写程序如下：
精品文档
。12欢迎下载
在这个程序中，用了5个if语句来处理5种情况，这样的程序在可读性和处理效率方
面是比较差的，那么如果我们再多一些情况，它的缺陷就会暴露无遗。如何处理这个问
题呢？本节课的学习内容SelectCase语句即可解决这个问题。
二、SelectCase语句的格式
SelectCase语句是多分支语句，又称为情况语句。
格式：
SelectCase表达式
Case表达式列表1
语句块1
Case表达式列表2
语句块2
…
Case表达式列表n
语句块n
[CaseElse
语句块n+1]
EndSelect
功能：根据“表达式”的值，选择第一个符合条件的语句块执行。
精品文档
。13欢迎下载
SelectCase语句的执行过程是：先求“表达式”的值，然后顺序测试该值符合哪一个
Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行EndSelect
下面的语句；如果没找到，则执行CaseElse下面的语句块，然后执行EndSelect下面
的语句。
说明：
···“表达式”可以是数值型或字符型；
···“表达式”和“表达式列表”的类型必须相同；
···“表达式列表”形式有以下3种：
（1）一个表达式或用逗号隔开的若干表达式
判断10以内整数的奇偶性：
x=inputbox("输入一个整数")
selectcasex
case1，3，5，7，9
printx;"这是奇数"
case2，4，6，8，10
printx;"这是偶数"
endselect
（2）表达式1To表达式2
x=inputbox("输入一个整数")
selectcasex
case80to89
精品文档
。14欢迎下载
printx;"该生成绩为良"
case70to79
printx;"该生成绩为中"
endselect
（3）Is关系表达式
x=inputbox("输入一个整数")
selectcasex
caseis>=90
printx;"该生成绩为优"
caseis>=80
printx;"该生成绩为良"
caseis>=70
printx;"该生成绩为中"
endselect
思考：is关系表达式在程序中的顺序可以调转吗？
三、多重选择语句的执行过程
执行顺序：当表达式的值为表达式列表1时，执行语句组1；
当表达式的值为表达式列表2时，执行语句组2；
……
当表达式的值为表达式列表n时，执行语句组n；
当表达式的值不是上述值时，执行语句组n+1；
四、作业
精品文档
。15欢迎下载
作业一：求分段函数的值
作业二：输入一个整数，判别奇偶.
五、课堂小结
1、selectcase语句的基本结构
2、表达式3种书写情况
3、selectcase语句的执行流程
4、Vb学习中优化程序理性思考
Do循环语句
发表于2006-04-18已被阅读2427次
一、复习引入
前面我们已经学过for循环语句，它适合于解决循环次数事先能够确定的问题。
精品文档
。16欢迎下载
例如：画5个同心圆。程序如下：
DimrAsInteger
Forr=1To5Step1
Circle(2400,1800),r*100,vbRed
Nextr
但是对于只知道控制条件，但不能预先确定需要执行多少次循环体的情况（如下面例
题），我们怎么办呢。
例题：小明１7岁生日时种3棵树，以后每年过生日都去种树，并且每一年都要比前一
年多栽一棵树，那么小明多少岁可以种到或超过１００棵树？
这个问题就需要应用DO循环语句来解决。
二、DO循环语句的基本格式
do
循环体
loopuntil循环终止条件
【师生共同分析完成例题】
（1）分析问题。
设年龄为age，种树总数为tree，则每年种树的数目为（age-14）,由此可得：
tree=3+4+5+...（其中age=17,18,19...)
于是这个问题就可以转化为：当tree>=100时，求age的值。
（2）设计算法。
根据上述的分析，可设计出如下的算法：
①令age=17;
②令tree=3;
③age=age+1;
④tree=tree+(age-14);
⑤如果tree<100,则返回第3步;
精品文档
。17欢迎下载
⑥输出age的值;
⑦结束。
（3）编写程序。
（4）调试程序。
程序如下：
Dimage,treeAsInteger
age=17
tree=3
Do
age=age+1
tree=tree+age-14
LoopUntiltree>=100
Print"到";age;"岁时种到";tree;"棵树"
三、DO循环语句的执行过程
先执行一次循环体，然后判断是否满足循环终止条件，若满足条件则退出循
环，否则继续进行循环。
Do循环命令的循环体中必须有能够改变循环终止条件的语句，不然将出现无限次
的循环，程序将不能正常结束。
Do循环语句二
发表于2006-04-19已被阅读2355次
一、复习引入
前面我们已经学过for循环语句，它适合于解决循环次数事先能够确定的问题。
例如：求s=1+2+3+…+n。程序如下：
Dimi,nAsInteger
精品文档
。18欢迎下载
DimsAsSingle
i=0
s=0
n=100
Fori=1TonStep1
s=s+i
Nexti
Print"s=";s
但是对于只知道控制条件，但不能预先确定需要执行多少次循环体的情况（如下面例题），我们怎么办呢。
例题：计算ｓ＝１+２+３……+ｎ，当ｎ等于什么的时候，ｓ超过１００００？
这个问题就需要应用DO循环语句来解决。
二、DO循环语句的基本格式
do
循环体
loopuntil循环终止条件
“条件”可以是关系表达式或逻辑表达式。Do循环就是当给定的“条件”为True时，退出循环，为False时执行循环体。
【学生练习】用do循环语句完成例题:
计算ｓ＝１+２+３……+ｎ，当ｎ等于什么的时候，ｓ超过１００００？
【师生共同分析完成例题】
1、与for循环语句对比进行讲解。
DimnAsInteger
DimsAsSingle
n=0
s=0
Do
s=s+n
精品文档
。19欢迎下载
LoopUntils>=10000
Printn;s
问题：for循环语句中“nexti”作用是什么？i=i+1控制循环变量的变化。
Do循环中有没有类似改变循环终止条件的语句，即Do循环语句能否使n产生变化？
2、教师讲解执行流程
三、DO循环语句的执行过程
（1）先执行一次循环体，然后判断是否满足循环终止条件，若满足条件则退出循
环，否则继续进行循环。
（2）Do循环语句先执行循环体，然后对条件进行判断。不管开始条件是否成立，循环体循环体至少执行一次。
（3）Do循环语句本身不能修改循环条件，所以必须在Do......Loop语句的循环体内设置能够改变循环终止条件的语
句，使得整个循环趋于结束，不然将出现无限次的循环，程序将不能正常结束，出现死循环。
四、实践
1、练习：
小明１２岁生日时种了3棵树，以后每一年生日都会种3棵树，那么小明多少岁可以种满１００棵树？
2、拓展练习：课本P54，实践（1）、（2）
精品文档
。20欢迎下载
（1）已知s=1+2+3+…+N，找出一个最大的整数N，使得s<30000。编写程序解决这个问题。
（2）假设纸的长度足够长，厚度为0.1毫米，对折一次厚度增加1倍，现在对折纸张，直到总厚度超过珠穆朗马峰的
高度为止（珠穆朗马峰的高度为8848.13米），求对折纸张的次数。编写程序解决这个问题。
五、课堂小结
（1）DO循环命令的循环体中必须有能够改变循环终止条件的语句,使得整个循环趋于结束，以避免死循环。
（2）Do...LoopUntil循环语句是执行一次循环体再对条件作判断。
四、实践
1、练习：用Do循环语句输出1至10。
2、作业：课本P54，实践（1）、（2）
五、DO循环的几点说明
（1）DO循环命令的循环体中必须有能够改变循环终止条件的语句,使得整个循环趋于结
束，以避免死循环。
（2）Do...LoopUntil循环语句是执行一次循环体再对条件作判断。
精品文档
。21欢迎下载
精品文档
。22欢迎下载
欢迎您的下载，
资料仅供参考！
致力为企业和个人提供合同协议，策划案计划书，学习资料等等
打造全网一站式需求