高中信息技术选修1课件-2.2解析算法1-浙教版

解析算法 基本思想 • 用解析的方法找出表示问题的前提条件与所求结 果之间关系的数学表达式，并通过表达式的计算 来实现问题的求解。 关键点：找出数学表达式（公式） Private Sub Command1_Click() Dim f As Single, c As Integer f = Val(Text1.Text) c = (f - 32) * 5 / 9 Text2.Text = Str(c) End Sub f-----已知变量----华氏温度 c---- 所求结果----摄氏温度 Text2 Text1 Textbox 功能：输入和输出 涉及属性：text 呈现方式：字符串 使用方法：在text1中输入出生年份，在text2中输入出生 月份，在text3中输入出生日，在text4中输入Q号的末尾 数字，点击command1按钮，将在lable5中得到你的魅力。 Private Sub Command1_Click() Dim y As Integer, m As Integer, d As Integer, q As Integer, mlz As Integer y = //存放出生年份 m = //存放出生月份 d = //存放出生日 q = //存放Q 号末位数字 mlz = y \ 100 + m * 2 + d - q \ 2 If mlz >= 70 Then Label5.Caption = "西施嫉妒你" ElseIf mlz >= 60 Then Label5.Caption = "人见人爱" ElseIf mlz >= 45 Then Label5.Caption = "花见花开" ElseIf mlz >= 30 Then Label5.Caption = "堪比东施" Else Label5.Caption = "无法形容" End If End Sub Lable 功能：输出 涉及属性：caption 呈现方式：字符串 1、解析算法基本思路 2、Textbox和lable控件的使用 str（）和val（） 3、解析算法的应用