VB解析算法及程序实现
VB第11课时：解析算法、枚举算法
For x = 0 To 99 y = 25006 + x * 10 If y Mod 37 = 0 Or y Mod 67 = 0 Then List1.AddItem Str(y) End If Next j
距离S。
则可通过公式 S= v t得到。 例4：求1+2+3+…+n的和， S= （1+n）*n /2
例5：已知三角形的三边，求三角形的面积： 在Text1,Text2,Text3分别输入相应的数， 表示三角形的三边a,b,c（注三边能构成三角形） 则半周长p=(a+b+c)/2， 计算三角形面积公式为s=sqr(p*(p-a)*(p-b)*(p-c))， 单击命令按钮Command1“计算”，在文本框Text4中显示面积S的值。
在text1text2text3分别输入相应的数表示三角形的三边abc注三边能构成三角形计算三角形面积公式为ssqrppapbpc单击命令按钮command1计算在文本框text4中显示面积s的值
例0： For i=1 to 12 If i mod 3 = 0 Then Next i 则语句S=S+i 执行次数是（ ） A、1 B、3 C、4 D、13 S=S+i
特点：优点，只要时间足够，正确的枚举能得出正确和全面的解。 算法简单，基础。 缺点， 效率差。
例1：找出1—1000中所有能被3整除的数，并列出来。 For i=1 to 1000 If i mod 3 = 0 Then List1.Additem i End if Next i 学习新的一个VB控件类： ListBox :列表框 List1:对象名
vb-解析算法
循环
问题的前提条件
数学表达式
要求的解
流程图
编写程序
开始
输入身高h和体重w的值
计算体质指数 Y BMI<20? N
Y ②? N
①
输出”正常” 输出”偏胖”
结束
Private Sub Command1_Click() Dim h As Single, w As Single, BMI As Single h = Val(Text1.Text) w = Val(Text2.Text) BMI = ③ Text3.Text = Str(BMI) If BMI < 20 Then Label5.Caption = "偏瘦" ElseIf BMI <= 25 Then Label5.Caption = "④" Else Label5.Caption = "偏胖" End If End Sub
过重：25-30
冬冬身高165cm，体重84kg，
肥胖：30-35
请你帮冬冬算一算~
非常肥胖, 高于35
专家指出最理想的体重指数是22。
解析算法基本思想 找出表示问题的前提条件与结果之间关系
的数学表达式，并通过表达式的计算来实 现问题求解。用VB编制解析算法程序时， 必须注意计算过程描述的正确性。
作业任务
1、实现德清打的问题程序设计
2、提高任务：实现折纸问题程序设计
课堂小结
解析算法的解题思路： 1）明确问题的前提条件
输入 ①
2）明确要求的解
输出 ③
3）寻找前提条件与结果之间的数学表达式 处理 ②
解析算法的算法结构有哪些？
根据具体问题具体分析，解析算 顺序 法没有固定的算法结构。
高三VB一轮同步课堂解析算法与枚举算法
☞信息技术算法同步课堂☜-1-VB 解析算法与枚举算法姓名：__________班级：___________学号：___________ 枚举算法 解析算法 基本思想 在一定的范围内，对所有可能的解进行一一列举，并通过条件判断求解问题的所有解。
如：要求100以内所有的偶数,就可以采用枚举算法。
找出问题的前提条件与所求结果之间关系的数学表达式,并通过表达式的计算来实现问题求解。
如：计算1+2+3+…+100的和,可通过求和公式s=n(n+1)/2得到。
辨别方法 （1）确定枚举对象、枚举范围和判断条件。
（2）一一列举所有可能的解，验证是否是问题的解。
【For 语句、If 语句】（1）建立正确的数学模型（得出正确的数学表达式）。
（2）保证计算过程描述的正确性。
例1【猜银行卡密码】六位的银行密码中，后三位密码缺失，该密码是12和17的倍数。
大家想想办法，帮她找出满足条件的密码并统计满足条件的密码个数。
根据对题意的理解和VB 程序设计界面，补写代码。
Private Sub Command1_Click()Dim i As Long, c As Integerc= 0For i=________To ________ Step 1If ____________________ Thenc =c + 1List1.AddItem i952Next iText1.Text = _________________End Sub例2、【经典“百鸡问题”】已知公鸡每只5元,母鸡每只3元,小鸡一元钱3只。
用100元钱买100只鸡,问公鸡、母鸡、小鸡都要有，一共有多少种买鸡方案。
程序中定义的变量x,y,z 分别代表公鸡、母鸡、和小鸡的数量，count代表组合方案的数量。
单击“计算”按钮，在list1中显示出每种组合方案的组合方式，并在相应label1显示组合方案的数量。
将程序补充完整。
Private Sub Command1_Click()Dim x, y, z As SingleDim count As Integercount = 0For x = 1 To __________ '公鸡的范围For y = _____________ '母鸡的范围Z = ______________________ '小鸡的数量If ____________________________________________ ThenList1.AddItem "公鸡数：" +Str(x) + "母鸡数：" + Str(y) + "小鸡数：" + Str(z)count = count + 1End IfNext xLabel1.Caption="方案的数量为：" + _________ '输出运行次数End Sub【习题】1．小李忘记了密码箱上设置的三位数密码，于是他从“000”开始尝试，一直到成功打开密码箱为止。
VB解析算法及程序实现
3.1解析算法及程序实现1. 计算长方体体积的算法描述如下：①输入长方体的长⑵、宽(w)、高(h)②计算长方形体积v = z * w *h③输出结果④结束上述算法届丁 ()A. 枚举算法B. 排序算法C. 解析算法D. 递归算法2. 下列问题适合用解析算法求解的是( )A. 将十三张纸牌按从小到大进行排列B. 统计100内偶数的各位数字之和恰好为10的个数C. 计算一辆车行驶100公里的油耗D. 寻找本年级身高最高的同学3. 有如下问题：①已知圆锥的半径r和高度h,使用公式V=1兀r2h求出此圆锥体的体积。
3②已知班级每位同学的其中成绩总分s,按照s的值从大到小进行成绩排名。
③已知圆的周长s,利用公式r=s/(2*3.14)求出圆的半径。
④已知“水仙花数”的定义，找出1〜10000范围内所有的水仙花数。
用计算机解决上述问题时，适合用解析算法的是( )A.①②B. ①③C. ③④D. ②④4. 出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。
假定公里数为x,金额为y.解决此问题的公式和流程图如下图所示：J［10+2*(x-3X(x>3)_________I -- --- --- 1 ---- --- ---之/ 输曲I ~『了、［结虽］流程图加框处部分的算法届丁：( )A.解析算法B. 排序算法C. 枚举算法D. 递归算法5. 现要求编写VB 程序实现如下功能：分别 在文本框 Textl 、Text2、和Text3中输入 三条线段的长度，单击“判断”按钮Comman 后，在标签Labell 中显示判断结果。
程序 运行界面如图：按此要求编写的程序如下：Private Sub Command1_Click() Dim a As Single ,b As Single Dim c As Single ,st As String a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text)If Not (a + b > c And b + c > a And c + a > b) Then st ="这三条线不能构成一个三角形"ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then st =ElseIf st =Else st =End IfLabel1.Caption =End Sub划线处应填写正确的语句是：(1) 划线处① __________(2) 划线处② 6. 下列VB 程序段实现计算s=1+1/2+2/3+3/4+…+99/100的值。
VB解析算法及程序实现
3.1解析算法及程序实现1.计算长方体体积的算法描述如下：①输入长方体的长(z)、宽(w)、高(h)②计算长方形体积 v = z * w * h③输出结果④结束上述算法属于（ ）A. 枚举算法B. 排序算法C. 解析算法D. 递归算法2.下列问题适合用解析算法求解的是（ ）A.将十三张纸牌按从小到大进行排列B.统计100内偶数的各位数字之和恰好为10的个数C.计算一辆车行驶100公里的油耗D.寻找本年级身高最高的同学3.有如下问题：①已知圆锥的半径r 和高度h ，使用公式V= 31πh r 2求出此圆锥体的体积。
②已知班级每位同学的其中成绩总分s ，按照s 的值从大到小进行成绩排名。
③已知圆的周长s ，利用公式r=s/(2*3.14)求出圆的半径。
④已知“水仙花数”的定义，找出1～10000范围内所有的水仙花数。
用计算机解决上述问题时，适合用解析算法的是（ ）A. ①②B. ①③C. ③④D. ②④4.出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。
假定公里数为x,金额为y.解决此问题的公式和流程图如下图所示：流程图加框处部分的算法属于：（）A.解析算法B.排序算法C.枚举算法D.递归算法5.现要求编写VB程序实现如下功能：分别在文本框Text1、Text2、和Text3中输入三条线段的长度，单击“判断”按钮Command1后，在标签Label1中显示判断结果。
程序运行界面如图：按此要求编写的程序如下：Private Sub Command1_Click()Dim a As Single ,b As SingleDim c As Single ,st As Stringa=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If Not (a + b > c And b + c > a And c + a > b) Thenst = “这三条线不能构成一个三角形”ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Thenst = “可以构成一个直角三角形”ElseIf ①Thenst = “可以构成一个等边三角形”Elsest = “可以构成一个不等边的斜三角形”End IfLabel1.Caption = ②End Sub划线处应填写正确的语句是：（1）划线处①（2）划线处②6.下列VB程序段实现计算s=1+1/2+2/3+3/4+…+99/100的值。
(完整版)vb常用算法介绍
一、累加算法如果在设计过程中遇到求1+2+3+……+100等连加问题时，就可以用累加算法来解决。
累加算法的一般做法是设一个变量 s，作为累加器使用,初值为0，设一个变量用来保存加数。
一般在累加算法中的加数都是有规律可循，可结合循环程序来实现. 一个循环程序的设计,如果以下三方面确定下来：变量的赋初值、循环体的内容、循环结束条件，那么根据循环语句的格式,就很容易写出相应的循环程序。
例:求1+2+3++100的累加和，并打印输出分析：设累加器S，初值为0,加数用变量I表示当I=1时，累加器S= S+I = 0+1=1当I=2时，累加器S= S+I =1+2= 3当I=3时,累加器S=S+I =3+3 =6当I=4时，累加器S=S+I =6+4 =10……当I=100时，累加器S=S+100=1+2+3+……+99+100=5050不难看出，I的值从1变化到100的过程中，累加器均执行同一个操作：S=S+I,S=S+I的操作执行了100次，所以该程序段可写成：Dim I As Integer， S As IntegerS = 0 ‘给累加器s赋初值For S = 1 To 100S= S + I ‘I既作为循环变量，又作为加数Next IPrint "1+2+……100=”; S考虑一下：语句Print ”1+2+……100=”； S可以放在循环体中吗？延伸一下：上述算法对数值型数据,执行的是累加操作,如果对字符串型数据，完成的是字符串的连接.例：从键盘上输入一串字符,要求将其加密后显示在文本框Text1中,加密的方法是将每一个字符转变为它的后一位字符，如：A转变为B，1转变为2。
分析：因为涉及对每一个字符做相应处理再连接成一个新串，所以可以用类似累加的算法。
定义一个变量str1用来接收输入的原始字符串，变量str2用来接收加密后的字符串，初值为空串。
可用Len（)函数得出字符串的长度，用循环控制,从左向右逐个取字符，截取字符的功能可用函数Mid(）完成，由于要做加密操作,可利用Asc(）函数获得字符的Ascii码，用Chr()函数获得Ascii码对应的字符。
VB算法
VB算法
一、解析法
解析法就是在分析具体问题的基础上，抽取出一个数学模型，这个数学模型能够用若干解析表达式表示出来，解决了这些表达式，问题也就得以解决。
例如：如果程火车以100千米/小时的速度从北京去上海（全程约1400千米），那么所需时间是1400/100=14小时。
数学、物理等学科中的许多问题都是用解析法解决的。
二、穷举法
穷举法也叫枚举法、列举法。
它将求解对象一一列举出来，然后逐一加以分析、处理，并验证结果是否满足给定的条件，穷举完所有对象，问题将最终得以解决。
常见问题：水仙花数问题鸡兔同笼问题百钱白鸡问题
三、递归算法
“从前有座山······”的故事反映了一个特征------自己调用自己。
如果一个函数在定义时，直接或间接地调用了自己，这种算法称为递归法
常见问题：兔子繁殖问题汉诺塔游戏四、冒泡算法
冒泡算法也叫“起泡法排序”，它通过与相邻元素进行比较和交换，逐步将一个无序序列排列成为一个有序序列。
例：将序列“4，1，2，5，3“的序列进行升序排序。
vb程序设计含详解
合用标准文案1、编写程序，将26 个字母逆序输出。
教材 p87 【例 4-15】2、编写程序，在窗体上随机输出一个10--99 之间的两位整数。
Private Sub Form_Click()clRandomizePrint Int(Rnd() * 90) + 10End Sub3、在窗体的单击事件中编写程序，从键盘输入 3 个数，按从小到大的序次输出到窗体上。
Private Sub Form_Click()clsa = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c="))If a > b Thent = a: a = b: b = tEnd IfIf a > c Thent = a: a = c: c = tEnd IfIf b > c Thent = b: b = c: c = tEnd IfPrint " 按从小到大排序后的结果 :"; a; " 、"; b; " 、"; c End Sub4、编写程序，要求随着不断单击命令按钮Command1，窗体的标题依次显示为：今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。
Private Sub Command1_Click()优秀文档Static i As Integeri = i + 1Select Case iCase 1Form1.Caption = "今天是星期一"Case 2Form1.Caption = "今天是星期二"Case 3Form1.Caption = "今天是星期三"Case 4Form1.Caption = "今天是星期四"Case 5Form1.Caption = "今天是星期五"Case 6Form1.Caption = "今天是星期六"Case 7Form1.Caption = "今天是星期日"i = 0End SelectEnd Sub5、编写程序，将字符串"" 山高人为峰 "" 按逆序 "" 峰为人顶峰 "" 输出。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
3.1解析算法及程序实现 1.计算长方体体积的算法描述如下：(h) (z)、宽(w)、高①输入长方体的长 v = z * w * h ②计算长方形体积③输出结果④结束（）上述算法属于
A. 枚举算法
B. 排序算法
C. 解析算法
D. 递归算法
2.下列问题适合用解析算法求解的是（）
A.将十三张纸牌按从小到大进行排列
B.统计100内偶数的各位数字之和恰好为10的个数
C.计算一辆车行驶100公里的油耗
D.寻找本年级身高最高的同学
3.有如下问题：
12求出此圆锥体的体积。
V=πr ①已知圆锥的半径和高度h，使用公式hr3②已知班级每位同学的其中成绩总分s，按照s的值从大到小进行成绩排名。
③已知圆的周长s，利用公式r=s/(2*3.14)求出圆的半径。
④已知“水仙花数”的定义，找出1～10000范围内所有的水仙花数。
用计算机解决上述问题时，适合用解析算法的是（）
A.①②
B.①③
C.③④
D.②④
4.出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。
假定公里数为x,金额为y.解决此问题的公式和流程图如下图所示：
流程图加框处部分的算法属于：（）
A.解析算法
B.排序算法
C.枚举算法
D.递归算法
程序实现如下功能：分别现要求编写VB5.中输入Text3、和Text1、Text2在文本框Command1单击三条线段的长度，“判断”按钮中显示判断结果。
程序后，在标签Label1 运行界面如图：按此要求编写的程序如下：Private Sub Command1_Click()
Dim a As Single ,b As Single
Dim c As Single ,st As String
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
If Not (a + b > c And b + c > a And c + a > b) Then
st = “这三条线不能构成一个三角形” ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then
“可以构成一个直角三角形” st =
Then
① ElseIf
“可以构成一个等边三角形” st =
Else
st = “可以构成一个不等边的斜三角形”
End If
Label1.Caption = ②
End Sub
划线处应填写正确的语句是：
（1）划线处①
（2）划线处②
6.下列VB程序段实现计算s=1+1/2+2/3+3/4+…+99/100的值。
请将下面划线处代码补充完整。
Private Sub Command1_Click()
Dim i As Integer
Dim s As Double
s=1
For i=2 To 100
s=
Next i
Text1.Text=Str(s)
End Sub
程序划线处应填入的内容是
VB程序代码如下：7.用解析算法求物体重力的Private Sub Command1_Click()
Dim g As Single
Dim m As Single
m=Val(Text1.Text)
g=m*9.8
label1.Caption=Str(g)
End Sub
程序界面如上图所示：中显示的后，标签Label1在文本框输入15，单击“计算”按钮Command1 内容是
8.根据臀围计算裤子尺寸的换算有以下公式：
①尺=厘米*0.03
②码=厘米*0.3+7
如臀围为90厘米，那么在购买时需要选2.7尺（90*0.03）也即34码（90*0.3+7）的裤子，下面VB程序可用于解决此实际问题，程序运行界面如下图所示：
运行程序，在文本框Text1中输入臀围，单击计算“计算”按钮Command1，在标签Label2中显示裤子购买的参考尺寸，程序代码如下：
Private Sub Command1_Click()
Dim n As Single
Dim c As Single
Dim m As Integer
n=Int(Val(Text1.Text))
c=n*0.03
m=
Label2.Caption=“你需要购买”+Str（c）+“尺（”+Str（m）+“）码是裤子”
End Sub
程序划线处应填入的内容是
元；借书超过一天的，9.某书店出租图书的费用标准如下：借书一天内，收费2程序算法结构与最后费用按四舍五入这算成整数。
0.8元收取。
超过部分按每天运行界面如下图所示。
程序用于解决此问题：下面VBPrivate Sub Command1_Click()
Dim n As Integer
Dim s As Single ①'
n=Val(Text1.Text)
If n<1 Then
MsgBox “输入错误”
ElseIf n=1 Then
s=2
Else
s=2+n*0.8 '②
End If
Text2.Text=Str(s)
End Sub
程序加框处代码有误，请修改以实现该程序的功能。
（1）加框①处应改为
（2）加框②处应改为
中分别输和Text2VB下列程序实现如下功能：程序运行时，在文本框Text110.的值，并在文本计算的值，单击命令按钮Command1后，调用函数fs入x和
n n23xxx??s?x???框Text3中显示计算结果。
其中。
!3n!!2Private Sub
Command1_Click()
Dim x As Single ,n As Single ,s As Single
x=Val(Text1.Text)
n=Val(Text2.Text)
s=f(x ,n)
Text3.Text= ①
End Sub
Function f(x As Single ,n As Single)As Single
Dim sum As Single ,i As Integer ,t As Single
sum=0
t=1
For i=1 To n
t=t*x/i
sum= ②
Next i
③
End Function
请在划线处填入合适的代码以实现该程序的功能。
（1）划线处①
（2）划线处②
（3）划线处③
11.按下面公式计算f的值：
x?2x??1??2?1??)xx?2f(x??2x x?2?现要求编写VB程序（运行界面如
图所示），实现如下功能：在文本框Text1中输入x的值，单击“计算”Command1，在标签Label3中显示f的值。
按此要求编写的程序如下。
．Function f(x As Integer) As
Single '①
If x<=-1 Then
f=x+2
ElseIf x>-1 And x<2 Then
f= Abs(x+3) '②
Else
f=2*x
End If
End Function
Private Sub Command1_Click()
Dim x As Single ,y As Single
x=Val(Text1.Text)
y=f(x)
Label3.Text=Str(y) '③
End Sub
加框处代码有误，请修正。
（1）加框①处应改为
（2）加框②处应改为
（3）加框③处应改为。