Vb编程.docx

1、Vb编程Vb编程xx一、编写程序的基本思路1、人脑处理问题的过程以“9+19+28=？”为例第一步：收集信息第二步：处理信息第三步：输出结果2、编写程序解决问题的思路与人脑处理问题的思路相同第一步：数据输入可以通过TextBox(文本框)控件的Text属性或通过赋值语句输入数据(1)赋值语句用于输入已知确定的数据;(2)用TextBox用于输入暂时不确定或变化的数据。 *注意*用TextBox输入的数据是字符型，若要进行数值计算则要先转换成数值型（用VAL函数）第二步：数据处理一般用用赋值语句进行计算处理或者用以后学的知识进行处理第三步：数据输出用Label控件的Caption属性或TextB

2、ox的Text属性进行输出代码书写格式如下：控件名.Caption=”要输出的内容”（用Label控件输出）控件名.Text=”要输出的内容”（用TextBox控件输出）*注意*若输出变量的类型是数值型时，要用STR（）函数转换成字符型。二、VB编写程序步骤分析问题，确定程序要完成什么任务，按下面的步骤创建应用程序。举例: 已知圆的半径，求圆的周长和面积。（1）xx工程。创建一个应用程序首先要打开一个新的工程。（2）创建应用程序界面。A、要用几个控件B、版面如何布局C、各控件的“职责”、摆放位置（3）设置属性值。A、名称属性B、Cation、TextBox等属性的值C、字号、字体、颜色、背景色

3、等属性.（4）对象事件过程的编程。A、代码应写在哪一个控件xx，即事件发生在哪一个控件xxB、确定解决问题的思路C、写代码（要注意变量的定义）（5）保存文件。（6）程序运行与调试，生成EXE文件。三、练习：已知圆的半径，求圆的周长和面积。 四、作业：鸡兔同笼。已知笼中鸡兔总头数为h，总脚数为f，问鸡兔各有多少只？分析：设鸡有x只，兔有y只，则方程如下：xx。解出求x和y的具体方式为：设计界面和运行界面，如图所示。注意：程序运行和调试时，输入的数据要符合常规；如：鸡头总头数为2，则总脚数最少为4，最多不超过8，否则会出现值。选择结构IF语句发表于 已被阅读2427次【课程内容标准】会使用程序设计

4、语言实现顺序、选择、循环三种控制结构。初步掌握调试运行程序的方法。【学习目标】（一）在知识与技能方面1、掌握IF条件语句的格式、功能和执行过程。2、掌握关系表达式的基本知识。3、学会使用IF条件语句来实现选择控制结构，解决实际问题。（二）在过程与方法方面初步掌握程序调试运行的方法。（三）在情感态度与价值观方面1、经历计算机解决问题的过程，体验成功的快乐。2、在老师的指导下，与同学共同探究问题，让学生体验自主学习、协助学习的乐趣。【重点难点】1、IF条件语句的格式、功能和执行过程。2、使用IF条件语句来实现选择控制结构，解决实际问题。【教法学法】问题教学法、讲练结合法【学时】1学时【教学环境】网

5、络电脑室【学习过程】一、引入情景：去市场买xx，如买菜或买水果，买多会便宜一些，买少则原价出售，这时出现两种选择。这种需要某个前提成立与否而做出选择的问题需要通过选择结构来解决。1、提出问题例如，商场为了对苹果进行促销，根据xx购买的数量调整苹果销售的价格。如xx一次购买5斤以下按原价3元出售，一次5斤以上（含5斤）时则可以在原价的基础上打8折。条件语句（if 语句）就是为解决此类问题而设计的。2、xx共同分析问题、解决问题（1）分析问题：weight表示苹果重量，amount表示应付金额；5斤以下：amount=weight*3；5斤以上：amount=weight*3*0.8（2）设计算法

6、输入苹果重量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语句块1Else语句块2EndIf说明：（1）“条件”一般为关系表达式或逻辑表达式。通常把关系表达式或逻辑表达式的值为真时，称为条件满足；值为假时，称为条件不满足。反之亦然。（2）语句块1、语句块2分别是

7、“条件”满足或不满足时，处理方法的描述，可以是若干个语句。（3）IfThen、Else、EndIf是VB的保留字。三、关系表达式：关系表达式是用关系运算符连接起来的式子。关系运算符号有：当关系表达式的值是逻辑型（Boolean）。关系表达式成立时其值为真（True），当关系表达式不成立时其值则为假（False）。四、if语句的执行过程：调试程序时，通过逐语句（F8）执行程序，让学生观察程序的执行情况（两种）。块If首先判断“条件”，其值为真时，执行语句块1；为假时执行语句块2。当缺省Else中的内容时，该分支结构只对条件满足的情况进行处理。执行过程如下图所示。五、学生练习（例题：买苹果）六、点

8、拨纠错(1)语句块1与语句块2不能调换(2)语句块可包含多条语句(3)同一行多加end if(4)以下代码错在哪里，如何修改 ？七、作业：根据以下问题，编写程序。火车站行李费的收费标准是以内（包括）0.20/kg，超过部分0.50/kg。编写程序，要求根据输入的任意重量，计算出应付的行李费。根据题意计算公式如下： 内部函数练习练习：1、判断正负数：当输入一个正数，输出它的xx；当输入一个负数，则输出它的绝对值。2、输入一个字符串，输出它的xx并输出字符串右边2个字符。3、另外再设置4个按钮，按钮1是小写字母转换为大写字母；按钮2输出幸运号码；按钮3打开扫雷界面，按钮4输出日期时间。多重选择se

9、lect case语句发表于 已被阅读3727次教学目标：1、了解select case语句的作用2、熟练掌握select case 语句的基本结构3、理解语句表达式的3种书写情况（，和to与is）4、会用select case语句解决实际问题重点：1、select case语句格式2、语句表达式的3种书写情况3、用select case语句解决实际问题难点：1、 select case语句表达式的3种书写情况2、 优化编程过程一、新课引入上节课练习：输入一个学生的一门课分数x（百分制），当x90时，输出“优秀”；当80x90时，输出“良好”；当70x80时，输出“中”；当60x70时，输出“

10、及格”，当x60时，输出“不及格”。编写程序如下：在这个程序中，用了5个if语句来处理5种情况，这样的程序在可读性和处理效率方面是比较差的，那么如果我们再多一些情况，它的缺陷就会暴露无遗。如何处理这个问题呢？本节课的学习内容SelectCase语句即可解决这个问题。二、SelectCase语句的格式SelectCase语句是多分支语句，又称为情况语句。格式：SelectCase表达式Case表达式列表1语句块1Case表达式列表2语句块2Case表达式列表n语句块nCaseElse语句块n+1EndSelect功能：根据“表达式”的值，选择第一个符合条件的语句块执行。SelectCase语句的

11、执行过程是：先求“表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行EndSelect下面的语句；如果没找到，则执行CaseElse下面的语句块，然后执行EndSelect下面的语句。说明：“表达式”可以是数值型或字符型； “表达式”和“表达式列表”的类型必须相同；“表达式列表”形式有以下3种：（1） 一个表达式或用逗号隔开的若干表达式判断10以内整数的奇偶性：x=inputbox(输入一个整数)selectcasexcase1，3，5，7，9print x; 这是奇数case2，4，6，8，10print x; 这是偶数ends

12、elect（2）表达式1To表达式2x=inputbox(输入一个整数)selectcasexcase80to89print x; 该生成绩为良case70to79print x; 该生成绩为xxendselect（3）Is关系表达式x=inputbox(输入一个整数)selectcasexcaseis=90print x ; 该生成绩为优caseis=80print x ; 该生成绩为良caseis=70print x ; 该生成绩为xxendselect思考：is关系表达式在程序中的顺序可以调转吗？三、多重选择语句的执行过程执行顺序：当表达式的值为表达式列表1时，执行语句组1；当表达式的值

13、为表达式列表2时，执行语句组2；当表达式的值为表达式列表n时，执行语句组n；当表达式的值不是上述值时，执行语句组n+1；四、作业作业一：求分段函数的值作业二：输入一个整数，判别奇偶.五、课堂小结1、select case 语句的基本结构2、 表达式3种书写情况3、 select case 语句的执行流程4、 Vb学习中优化程序理性思考Do循环语句发表于 已被阅读2427次一、复习引入前面我们已经学过for循环语句，它适合于解决循环次数事先能够确定的问题。例如：画5个xx。程序如下：Dim r As IntegerFor r = 1 To 5 Step 1Circle (2400, 1800),

14、 r * 100, vbRedNext r但是对于只知道控制条件，但不能预先确定需要执行多少次循环体的情况（如下面例题），我们怎么办呢。例题：xx7岁生日时种3棵树，以后每年过生日都去种树，并且每一年都要比前一年多栽xx，那么xx多少岁可以种到或超过棵树？这个问题就需要应用DO循环语句来解决。二、DO循环语句的基本格式do循环体loopuntil循环终止条件【xx共同分析完成例题】（1）分析问题。设年龄为age，种树总数为tree，则每年种树的数目为（age-14）,由此可得：tree=3+4+5+.（其中age=17,18,19.)于是这个问题就可以转化为：当tree=100时，求age的值

15、。（2）设计算法。根据上述的分析，可设计出如下的算法：令age=17;令tree=3;age=age+1;tree=tree+(age-14);如果tree= 100Print 到; age; 岁时种到; tree; 棵树 三、DO循环语句的执行过程先执行一次循环体，然后判断是否满足循环终止条件，若满足条件则退出循环，否则继续进行循环。Do循环命令的循环体中必须有能够改变循环终止条件的语句，不然将出现无限次的循环，程序将不能正常结束。Do循环语句二发表于2006-04-19 已被阅读2355次一、复习引入 前面我们已经学过for循环语句，它适合于解决循环次数事先能够确定的问题。 例如：求s=1

16、+2+3+n。程序如下：Dim i, n As IntegerDim s As Singlei=0s=0n = 100For i = 1 To n Step 1s = s + iNext iPrint s=; s 但是对于只知道控制条件，但不能预先确定需要执行多少次循环体的情况（如下面例题），我们怎么办呢。例题：计算+，当等于什么的时候，超过？ 这个问题就需要应用DO循环语句来解决。二、DO循环语句的基本格式do循环体loopuntil循环终止条件“条件”可以是关系表达式或逻辑表达式。Do循环就是当给定的“条件”为True时，退出循环，为False时执行循环体。【学生练习】用do循环语句完成例

17、题: 计算+，当等于什么的时候，超过？【师生共同分析完成例题】1、与for循环语句对比进行讲解。Dim n As IntegerDim s As Singlen = 0s = 0Dos = s + nLoop Until s = 10000Print n; s问题：for循环语句中“next i”作用是什么？ i=i+1 控制循环变量的变化。Do循环中有没有类似改变循环终止条件的语句，即Do循环语句能否使n产生变化？2、教师讲解执行流程 三、DO循环语句的执行过程（1）先执行一次循环体，然后判断是否满足循环终止条件，若满足条件则退出循环，否则继续进行循环。（2）Do循环语句先执行循环体，然后对

18、条件进行判断。不管开始条件是否成立，循环体循环体至少执行一次。（3）Do循环语句本身不能修改循环条件，所以必须在Do.Loop语句的循环体内设置能够改变循环终止条件的语句，使得整个循环趋于结束，不然将出现无限次的循环，程序将不能正常结束，出现死循环。 四、实践1、练习：小明岁生日时种了3棵树，以后每一年生日都会种3棵树，那么小明多少岁可以种满棵树？2、拓展练习：课本P54，实践（1）、（2）（1）已知s=1+2+3+N，找出一个最大的整数N，使得s30000。编写程序解决这个问题。（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循环语句是执行一次循环体再对条件作判断。