VB-解析算法及程序实现.pptVIP

解析算法 及程序实现 解析算法概念引入 找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。 课堂小结 解析算法的解题思路： 1）明确问题的前提条件 2）明确要求的解 3）寻找前提条件与结果之间的数学表达式 课堂作业： 求解一元二次方程 纸张折叠问题 出租车资费计算 * * 1、某书店出租图书的费用标准如下：借书一天，收费2元，借书超过一天的，超过部分按每天0.8元收取，最后按四舍五入折算成整数。写出其程序代码。（注：借书不到一天的，弹出“输入错误”对话框。） Private Sub Command1_Click() Dim n As Integer Dim s As Integer n = Val(Text1.Text) If n 1 Then MsgBox 输入错误 ElseIf n = 1 Then s = 2 Else s = 2 + (n - 1) * 0.8) End If Text2.Text = Str(s) End Sub 2、一张 0.1毫米厚的纸张（假设其足够大，可以一直折叠），请问经过 次对折后它的厚度可以超过珠穆朗玛峰（8848米）？ Private Sub Form_Click() Dim c As Integer Dim d As Double c = 0 d = 0.0001 Do While d = 88