4.1.3认识程序中的基本元素

学科 信息技术教材 信息技术基础课题 认识程序中的基本元素年级 高一级单位 江门市江海区外海中学姓名 黄文辉 火箭升空 演示匀加速直线运动 火箭升空程序代码 OptionExplicitDimaAsInteger TAsSinglePrivateSubCommand1 Click a Text1 TextTimer1 Enabled TrueT 0EndSubPrivateSubCommand2 Click Unload火箭升空EndSubPrivateSubForm Load SetPicture LoadPicturePicture1 AutoSize TrueTimer1 Enabled FalseTimer1 Interval 10EndSubPrivateSubTimer1 Timer DimHAsSingle VAsSingleT T 1V a TH 0 5 a T 2Picture1 Top 火箭升空 Height Picture1 Height HLabel7 Caption TLabel8 Caption VLabel9 Caption HIfPicture1 Top 0ThenTimer1 Enabled FalseEndIfEndSub 常量 常量 常量是在程序运行中不变的量 字符型常量要用引号引起来常量的声明格式 Const常量名 值 变量 变量 变量是在程序运行过程中其值可以发生变化的量 使用变量前 一般必须先声明变量和其类型 字符型变量要跟 符号变量的声明格式 dim变量名as数据类型 数据类型 编程时 编写程序代码 要用到各种数据 如数值 文字 日期等 但什算机却不能直接识别它们 必须事先说明这些数据的类型后 才能使用 数据类型决定了数据所占用的存储空间的大小 存储空间限制了保存数据的范围 不同类型的数据能够进行的运算也不同 VB提供的基本数据类型 数值型 整型integer 长整型long 单精度浮点型 实数型 single 双精度浮点型 实数型 double 字符串类型string 布尔类型Boolean布尔类型的值有两个 true falseInteger long single double string boolean是VB系统提供的数据类型标识符 也称保留字 例题1 求圆的周长和面积 PrivateSubForm Click Constpi 3 14DimrassingleDimpassingleDimsassingleR text1 textP 2 pi rS pi r rText2 text pText3 text sEndSub任务一 请同学门指出以上程序中的常量 例题2 PrivateSubCommand1 Click Dimi t sAsIntegers 0t 1Fori 1To100s s 1 i tt tNextiLabel2 Caption sEndSub任务二 请同学门指出以上程序中的变量 例题3 PrivateSubCommand1 Click Dima b c lsAsSinglea Val Text1 Text b Val Text2 Text c Val Text3 Text If a b c And b c a And a c b Thenls a b c 2Label3 Caption Sqr ls ls a ls b ls c ElseLabel3 ForeColor RGB 255 0 0 Label3 Caption 无解 EndIfEndSub任务二 请同学门指出以上程序中的变量 函数 标准函数能完成特定运算处理 绝对值函数 abs x 平方根函数 sqr x 获取指定字符的机内码值ASC 获取指定机内码值的对应字符Chr 运算符与表达式 任务三 1 小组内讨论四类表达式各自的规律 2 认真领会表中所列出的四类表达式 并计算表达式的值 语句 程序是由一行行的语句组成 语句是指挥计算机工作的指令 如 赋值语句 打印语句 循环语句 有For循环 While循环 条件语句 If语句 每个语句都有其格式规定 包括关键词 搭配的参数 符号等 如打印语句print 作用是向屏幕 打印机甚至存储器等设备输出数据 使用逗号和分号能产生不同的输出格式 加密程序中的 print 1 mm 作用是把mm 的值输出到内存中的1号文件区 赋值语句是任何程序设计中最基本的语句 赋值语在的形式 变量 表达式 VB中赋值语句用 来实现 如N 1 将1赋给N Privatesub是定义子程序的语句 Endsub结束了程序的语句 它们是成对出现的 Form窗体是子程序的应用对象 Click表示单击鼠标时开始执行该程序 Load表示程序装载后开始执行 OptionExplicitDimaAsInteger TAsSinglePrivateSubCommand1 Click a Text1 TextTimer1 Enabled TrueT 0EndSubPrivateSubCommand2 Click EndEndSubPrivateSubForm Load SetPicture LoadPicturePicture1 AutoSize TrueTimer1 Enabled FalseTimer1 Interval 10EndSubPrivateSubTimer1 Timer DimHAsSingle VAsSingleT T 1V a TH 0 5 a T 2Picture1 Top 火箭升空 Height Picture1 He