资料简介
解析算法
基本思想
• 用解析的方法找出表示问题的前提条件与所求结
果之间关系的数学表达式，并通过表达式的计算
来实现问题的求解。
关键点：找出数学表达式（公式）
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、解析算法的应用
查看更多
Copyright 2004-2019 ttzyw.com All Rights Reserved 闽ICP备18023965号-4
天天资源网声明：本站点发布的文章作品均来自用户投稿或网络整理，部分作品未联系到知识产权人或未发现有相关的知识产权登记