《上海市高中信息技术 课题顺序结构-交换算法》由会员分享,可在线阅读,更多相关《上海市高中信息技术 课题顺序结构-交换算法(3页珍藏版)》请在金锄头文库上搜索。
1、课题:顺序结构-交换算法例题1 Private Sub Command1_Click()变量的声明 Dim a1 As Double, b1 As Double, c1 As Double Dim a2 As Double, b2 As Double, c2 As Double Dim x As Double, y As Double a1 = Val(Text1.Text) b1 = Val(Text2.Text) c1 = Val(Text3.Text)原始数据的输入 a2 = Val(Text4.Text) b2 = Val(Text5.Text)数据的处理过程 c2 = Val(Tex
2、t6.Text) y = (a2 * c1 - a1 * c2) / (a1 * b2 - a2 * b1) x = (-c1 - b1 * y) / a1 Label10.Caption = x Label11.Caption = y结果的输出End Sub在这个程序中严格按照先后顺序执行算法各个步骤,即按照自顶向下的顺序把每个步骤执行一次,然后退出。这种结构称为“顺序结构”一、 函数作用Abs()Abs(-5)结果为 5取输入数据的绝对值Rnd()Rnd()随机产生01之间的随机数Mid$()Mid$(“abcdef”,3,2)结果为 “cd”截取字符串从左边第3位开始的2个字符Str()Str(1000)结果为 “1000”将数值型的数据转换成字符型二、 交换的算法程序制作:3用心 爱心 专心