高中信息技术粤教版 (2019)选修1 数据与数据结构3.2.1 字符串及其存储数据优秀ppt课件

这是一份高中信息技术粤教版 (2019)选修1 数据与数据结构3.2.1 字符串及其存储数据优秀ppt课件，文件包含粤教版2019高中选修1信息技术321错误的类型课件pptx、粤教版2019高中选修1信息技术321错误的类型教案doc等2份课件配套教学资源，其中PPT共10页， 欢迎下载使用。

李明的烦心事。。。。。。
李明是个电脑游戏迷，听说学了编程后可以写游戏程序， 所以学的非常认真 通过一段的学习，他真的学会了编写一些简单的程序 可是 当他把这些程序输入到计算机，天哪！程序错误 李明急得满头大汗
李明的程序 ？？？一起发现李明的程序错误
Private Sub Cmmand1_Click() Cnst Pi as Singles =3.1415 R = InputBx("R=", "输入半径") S = Pi * R * R pritn "s="; sEnd Sub
出错的一行会变成红色计算机自动语法检查
程序2 求S=1×2×···×10的程序
Private Sub Cmmand1_Click()Dim S As Integer , A As Integer S=1 Fr A = 1 T 10 S = S * A Next S Print "S="; SEnd Sub
Fr和Next中的循环变量不一致变量定义错误
Private Sub Cmmand1_Click()Dim a As Integer, b As Integer, c As Integer Dim X1 As Single, X2 As Single a = InputBx("a=") b = InputBx("b=") c = InputBx("c=") d = b * b - 4 * a * c If d >= 0 and a<>0 Then X1 = (-b + Sqr(d)) / (2 * a) X2 = (-b - Sqr(d)) / (2 * a) Print "X1="; X1, "X2 = "; X2 Else Print "方程无解" End IfEnd Sub
程序3 求一元二次方程解程序
Private Sub Cmmand1_Click() Dim a As Integer, b As Integer, c As Integer Dim X1 As Single, X2 As Single a = InputBx("a=") b = InputBx("b=") c = InputBx("c=") d = Sqr(b * b - 4 * a * c) X1 = (-b + d) / (2 * a) X2 = (-b - d) /( 2 * a) Print "X1="; X1, "X2 = "; X2End Sub
如果 a=0 如果 a=1 b=2 c=5
陈婷今年17岁了,她的生日正好是3月12日植树节。今年植树节老师带同学们到公园里去植树。陈婷很高兴,一个人就栽了3棵树,过了一个很有意义的生日。她想,如果从明年开始每年过生日的时候都去植树,并且每一年都要比前一年多栽一棵树,这样下去,到多少岁时才能累计种到或超过100棵树呢?
程序4 解决植树问题的程序
Private Sub Cmmand1_Click() Dim age As Integer, Tree As Integer age = 17 Tree=3 D age = age + 1 Tree = Tree + age Lp While Tree >= 100 Print "到"; age; "岁时种到100课棵树"End Sub