Vb编程.docx

Vb编程.docx

《Vb编程.docx》由会员分享，可在线阅读，更多相关《Vb编程.docx（16页珍藏版）》请在冰豆网上搜索。

Vb编程

Vb编程xx

一、编写程序的基本思路

1、人脑处理问题的过程

以“9+19+28=？

”为例第一步：

收集信息第二步：

处理信息第三步：

输出结果

2、编写程序解决问题的思路与人脑处理问题的思路相同

第一步：

数据输入可以通过TextBox（文本框）控件的Text属性或通过赋值语句输入数据

（1） 赋值语句用于输入已知确定的数据;

（2） 用TextBox用于输入暂时不确定或变化的数据。

**注意**用TextBox输入的数据是字符型，若要进行数值计算则要先转换成数值型（用VAL函数）

第二步：

数据处理一般用用赋值语句进行计算处理或者用以后学的知识进行处理

第三步：

数据输出

用Label控件的Caption属性或TextBox的Text属性进行输出

代码书写格式如下：

控件名.Caption=”要输出的内容”（用Label控件输出）控件名.Text=”要输出的内容”（用TextBox控件输出）

**注意**若输出变量的类型是数值型时，要用STR（）函数转换成字符型。

二、VB编写程序步骤

分析问题，确定程序要完成什么任务，按下面的步骤创建应用程序。

举例:

已知圆的半径，求圆的周长和面积。

（1）xx工程。

创建一个应用程序首先要打开一个新的工程。

（2）创建应用程序界面。

A、要用几个控件B、版面如何布局C、各控件的“职责”、摆放位置（3）设置属性值。

A、名称属性B、Cation、TextBox等属性的值C、字号、字体、颜色、背景色等属性......（4）对象事件过程的编程。

A、代码应写在哪一个控件xx，即事件发生在哪一个控件xxB、确定解决问题的思路C、写代码（要注意变量的定义）（5）保存文件。

（6）程序运行与调试，生成EXE文件。

三、练习：

已知圆的半径，求圆的周长和面积。

四、作业：

鸡兔同笼。

已知笼中鸡兔总头数为h，总脚数为f，问鸡兔各有多少只？

分析：

设鸡有x只，兔有y只，则方程如下：

xx。

解出求x和y的具体方式为：

设计界面和运行界面，如图所示。

注意：

程序运行和调试时，输入的数据要符合常规；如：

鸡头总头数为2，则总脚数最少为4，最多不超过8，否则会出现值。

选择结构—IF语句

发表于已被阅读2427次

【课程内容标准】

会使用程序设计语言实现顺序、选择、循环三种控制结构。

初步掌握调试运行程序的方法。

【学习目标】

（一）在知识与技能方面

1、掌握IF条件语句的格式、功能和执行过程。

2、掌握关系表达式的基本知识。

3、学会使用IF条件语句来实现选择控制结构，解决实际问题。

（二）在过程与方法方面

初步掌握程序调试运行的方法。

（三）在情感态度与价值观方面

1、经历计算机解决问题的过程，体验成功的快乐。

2、在老师的指导下，与同学共同探究问题，让学生体验自主学习、协助学习的乐趣。

【重点难点】

1、IF条件语句的格式、功能和执行过程。

2、使用IF条件语句来实现选择控制结构，解决实际问题。

【教法学法】

问题教学法、讲练结合法

【学时】1学时

【教学环境】网络电脑室

【学习过程】

一、引入

情景：

去市场买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）设计算法

①输入苹果重量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语句块2End If

说明：

（1）“条件”一般为关系表达式或逻辑表达式。

通常把关系表达式或逻辑表达式

的值为真时，称为条件满足；值为假时，称为条件不满足。

反之亦然。

（2）语句块1、语句块2分别是“条件”满足或不满足时，处理方法的描述，可以

是若干个语句。

（3）If…Then 、Else、End If 是VB的保留字。

三、关系表达式：

关系表达式是用关系运算符连接起来的式子。

关系运算符号有：

当关系表达式的值是逻辑型（Boolean）。

关系表达式成立时其值为真

（True），当关系表达式不成立时其值则为假（False） 。

四、if语句的执行过程：

调试程序时，通过逐语句（F8）执行程序，让学生观察程序的执行情况（两种）。

块If首先判断“条件”，其值为真时，执行语句块1；为假时执行语句块2。

当缺省[Else…]中的内容时，该分支结构只对条件满足的情况进行处理。

执行过

程如下图所示。

五、学生练习（例题：

买苹果）

六、点拨纠错

（1）语句块1与语句块2不能调换

（2）语句块可包含多条语句

（3）同一行多加endif

（4）以下代码错在哪里，如何修改？

七、作业：

根据以下问题，编写程序。

火车站行李费的收费标准是以内（包括）0.20/kg，超过部分0.50/kg。

编写程序，要求根据输入的任意重量，计算出应付的行李费。

根据题意计算公式如下：

内部函数练习

练习：

1、判断正负数：

当输入一个正数，输出它的xx；当输入一个负数，则输出它的绝对值。

2、输入一个字符串，输出它的xx并输出字符串右边2个字符。

3、另外再设置4个按钮，按钮1是小写字母转换为大写字母；按钮2输出幸运号码；按钮3打开扫雷界面，按钮4输出日期时间。

多重选择—selectcase语句

发表于已被阅读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 时，输出“不及格”。

编写程序如下：

在这个程序中，用了5个if语句来处理5种情况，这样的程序在可读性和处理效率方面是比较差的，那么如果我们再多一些情况，它的缺陷就会暴露无遗。

如何处理这个问题呢？

本节课的学习内容Select Case语句即可解决这个问题。

二、Select Case语句的格式

Select Case语句是多分支语句，又称为情况语句。

格式：

Select Case 表达式Case 表达式列表1语句块1Case 表达式列表2语句块2…Case 表达式列表n语句块n[Case Else语句块n+1]

End Select

功能：

根据“表达式”的值，选择第一个符合条件的语句块执行。

Select Case语句的执行过程是：

先求“表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行End Select下面的语句；如果没找到，则执行Case Else下面的语句块，然后执行End Select下面的语句。

说明：

· · · “表达式”可以是数值型或字符型；

· · ·“表达式”和“表达式列表”的类型必须相同；

· · · “表达式列表”形式有以下3种：

（1）  一个表达式或用逗号隔开的若干表达式

判断10以内整数的奇偶性：

x=inputbox（"输入一个整数"）

select  case  xcase 1，3，5，7，9printx;"这是奇数"case 2，4，6，8，10printx;"这是偶数"

end  select

（2）表达式1 To  表达式2

x=inputbox（"输入一个整数"）

select  case  xcase 80 to 89printx;"该生成绩为良"case 70 to  79printx;"该生成绩为xx"

end  select

（3）Is 关系表达式

x=inputbox（"输入一个整数"）

select  case  xcase  is>=90printx;"该生成绩为优"case  is>=80printx;"该生成绩为良"case  is>=70printx;"该生成绩为xx"

end  select

思考：

is关系表达式在程序中的顺序可以调转吗？

三、多重选择语句的执行过程

执行顺序：

当表达式的值为表达式列表1时，执行语句组1；

当表达式的值为表达式列表2时，执行语句组2；

……

当表达式的值为表达式列表n时，执行语句组n；

当表达式的值不是上述值时，执行语句组n+1；

四、作业

作业一：

求分段函数的值

作业二：

输入一个整数，判别奇偶.

五、课堂小结

1、 selectcase语句的基本结构

2、表达式3种书写情况

3、selectcase语句的执行流程

4、Vb学习中优化程序理性思考

Do循环语句

发表于已被阅读2427次

一、复习引入

前面我们已经学过for循环语句，它适合于解决循环次数事先能够确定的问题。

例如：

画5个xx。

程序如下：

DimrAsInteger

Forr=1To5Step1

Circle（2400,1800）,r*100,vbRed

Next r

但是对于只知道控制条件，但不能预先确定需要执行多少次循环体的情况（如下面例题），我们怎么办呢。

例题：

xx１7岁生日时种3棵树，以后每年过生日都去种树，并且每一年都要比前一年多栽xx，那么xx多少岁可以种到或超过１００棵树？

这个问题就需要应用DO循环语句来解决。

二、DO循环语句的基本格式do循环体loop  until  循环终止条件

【xx共同分析完成例题】

（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步;⑥ 输出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

DimsAsSingle

i=0

s=0

n=100

Fori=1TonStep1

s=s+i

Nexti

Print"s=";s

  但是对于只知道控制条件，但不能预先确定需要执行多少次循环体的情况（如下面例题），我们怎么办呢。

例题：

计算ｓ＝１+２+３……+ｎ，当ｎ等于什么的时候，ｓ超过１００００？

这个问题就需要应用DO循环语句来解决。

二、DO循环语句的基本格式

    do

        循环体

    loop  until  循环终止条件

“条件”可以是关系表达式或逻辑表达式。

Do循环就是当给定的“条件”为True时，退出循环，为False时执行循环体。

【学生练习】用do循环语句完成例题:

计算ｓ＝１+２+３……+ｎ，当ｎ等于什么的时候，ｓ超过１００００？

【师生共同分析完成例题】

1、与for循环语句对比进行讲解。

DimnAsInteger

DimsAsSingle

n=0

s=0

Do

s=s+n

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）

（1）已知s=1+2+3+…+N，找出一个最大的整数N，使得s<30000。

编写程序解决这个问题。

（2）假设纸的长度足够长，厚度为0.1毫米，对折一次厚度增加1倍，现在对折纸张，直到总厚度超过珠穆朗马峰的高度为止（珠穆朗马峰的高度为8848.13米），求对折纸张的次数。

编写程序解决这个问题。

五、课堂小结

（1）DO循环命令的循环体中必须有能够改变循环终止条件的语句,使得整个循环趋于结束，以避免死循环。

（2）Do...Loop Until循环语句是执行一次循环体再对条件作判断。

四、实践

1、练习：

用Do循环语句输出1至10。

2、作业：

课本P54，实践

（1）、

（2）

五、DO循环的几点说明

（1）DO循环命令的循环体中必须有能够改变循环终止条件的语句,使得整个循环趋于结束，以避免死循环。

（2）Do...Loop Until循环语句是执行一次循环体再对条件作判断。