《高中信息技术VB课件.pptx》由会员分享，可在线阅读，更多相关《高中信息技术VB课件.pptx（27页珍藏版）》请在课桌文档上搜索。
1、4.1 变量,1.变量名有字母、数字和下划线字符组成；2.必须以字母开头；3.不能用vb中的关键词命名。如：123a 34/a x*y x/y abc do for if stu_nameDim 变量名 as 变量类型 Dim a as Integer,4.1 变量,使用变量之前要先声明定义数据类型。为什么要定义数据类型呢？Integer 整数型 2个字节Long 长整数型 4个字节Single 单精度实数型 4个字节Double 双精度实数型 8个字节String 字符串型,4.1 变量,题1、下列变量定义正确的是（）Dim a*c As String B.Dim 4ac As Boolea
2、nDim abc As Integer D.Dim for As Double题2、已赋值语句s=“Good Bye!”,则下列变量s定义正确的是（）A.Dim s As long B.Dim s As integer C.Dim s As string D.Dim s As double,4.1 常用的标准函数,Abs(X)求X的绝对值Absolute Int(X)求不大于X的最大整数integer Sqr(X)求X的算术平方根square Val(X)数字字串转换为数值value Str(X)数值转换为字符串string+-*/实数除法 整除 乘幂 Mod取模所有运算符都不能省略。,Abs
3、(-3.5)Int(4.1)Int(-4.1)Sqr(4)Val(“-170”)Str(-170)a2 3/2 32 5mod2“45”+“36”与45+36的区别？,4.1 常用的标准函数,案例分析？,4.1 IF语句,IF 条件表达式1 Then 语句块1Else 语句块2End IF,If ab then max=aElse max=bEnd if,x=100If x0 then y=Abs(x)Else y=Sqr(x)End if,4.1 IF语句,4.1 For循环语句,For 循环变量=初值 To 终值 Step 步长 语句块Next 循环变量,Dim i as integerD
4、im Sum as integerSum=0For i=1 to 10 Sum=Sum+iNext iPrint Sum,S=1*2*3*.*10S=12+22+32+1002,4.1 For循环语句,Dim s as integerDim i as integers=0For i=1 to 10 step 4 print“#”;s=s+iNext iPrint s输出“#”的个数是_；s=_;,S=1+6+11+.+101,4.1 For循环语句,4.1 For循环语句,s=0 For i=1 to 3 For j=1 to 5 s=s+1 Next jNext iPrint s,4.1 F
5、or循环语句,Dim i,j As Integer For i=1 To 10 For j=1 To i Print*;Next j Print Next i,4.1 For循环语句,4.1 For循环语句,例：求s=3+6+9+300的值。解决该问题，采用两种不同的方法。,例：以下是计算s=1-2+3-4+5-+99-100的程序代码，请补全程序。,4.1 回顾并复习,程序执行的三种流程结构？变量的命名规则？定义语句又是什么？IF 语句怎么写？For 语句怎么写？,4.1 回顾并复习,1.单分支结构的格式：IF 条件语句 then 语句End if2.双分支结构的格式：IF 条件语句 the
6、n 语句一Else 语句二End IF,4.1 Do While循环语句,Do While 条件表达式 语句块Loop,s=0 i=0 Do While s10 i=i+1 s=s+i*i Loop Print i Print s以上程序段执行的次数是？值分别是多少？,4.1 Do While循环语句,Dim a,b,r as Integer a=98 b=63 r=a mod b Do While r0 a=b b=r r=a mod b Loop Print b以上程序段执行的次数是？值分别是多少？,4.1 Do While循环语句,3、算法设计的几种方法,解析法：通过分析问题中各要素之间
7、的关系，用最简练的语言或形式化的符号来表达它们的关系，得出解决问题所需的表达式，然后设计程序求解问题的方法。简单的说，就是用数学表达式求解问题。枚举法：也叫穷举法，把问题涉及的可能情况一一罗列出来，根据条件逐个判断，从中筛选出符合条件的解答；递归法：反复的调用自身。二分查找法：必须是有序的查找对象。,3、算法设计的几种方法,eg1:假设银行的年存储利率为3%，如果现在存储10000元钱，问多少年后连本带息超过12000元。设定：连本带息=本金*（1+利率）年数算法分析假设n年后连本带息超过12000，根据题意得出数学关系式：10000*（1+3%）n12000。求最小的n。,3、算法设计的几种
8、方法,Dim s,r,n as integers=10000r=0.03n=0Do While n=n+1 s=s*(1+r)LoopPrint n;“年后”;“连本带息超过”;s根据上述回答下列问题：1）本题采用的算法是（填写：解析法/枚举法/排序法/递归法）。2）写出程序中空白处表达式。,3、算法设计的几种方法,eg2:百钱买百鸡 假设一只公鸡值5钱，一只母鸡值3钱，三只小鸡值一1钱。现用100钱来买100只鸡。问公鸡、母鸡、小鸡各买多少只？（要求公鸡、母鸡、小鸡，每种最少买一只）设计算法并编写程序输出所有的买鸡方案。界面及运行结果,3、算法设计的几种方法,算法设计X表示公鸡的数量：1=x
9、=20;y表示母鸡的数量：1=y=33;z表示小鸡的数量：1=z=100;参考程序Dim x As IntegerDim y As IntegerDim z As IntegerPrint“公鸡”;”母鸡”;”小鸡”For x=1 To 20 For y=1 to 33 For z=1 To 100 If Then Print x;y;z End If Next z Next yNext x,根据上述回答如下问题：1、解决此问题采用的算法是（填：解析法/枚举法/排序法/递归法）。2、程序代码中空白处应填写的条件是（填：A/B/C/D）。A.x+y+z=100 And 5x+3y+z/3=100
10、B.x+y+z=100 or 5x+3y+z/3=100C.x+y+z=100 And 5*x+3*y+z/3=100D.x+y+z=100 or 5*x+3*y+z/3=100,eg3、猴子吃桃问题要小猴有一天摘了若干个桃子，它非常贪吃当天就吃掉了一半还多一个；第二天接着吃剩下的桃子的一半多一个；以后每天都是如此，到了第七天要吃桃子时，却发现只剩下一个。问小猴那天一共摘了多少个桃子？,3、算法设计的几种方法,eg4、二分查找又称折半查找，是一种应用于有序数列的高效查找算法。下列数列中适合二分查找算法的是（）,3、算法设计的几种方法,3、算法设计的几种方法,例子：算法设计与程序实现(数列问题)已知包含25项的数列：1，2/3，3/5，24/47，25/49。问题1：写出该数列的通项公式f(n)=_(3分)问题2：以下是计算S=1+2/3+3/5+24/47+25/49的程序，请补全代码：,Dim i As integerDim s As singles=0For i=1 To 25 s=s+_(3分)Next iPrint“s=”;s,
