4第四章顺序结构讲解.ppt

第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;(8) 变量名或对象属性名的类型应与表达式类型相容。 例: Dim A As Integer, B As Single Dim C As Double, S As String A = 100 将整型数100赋给整型变量A S = 123.45 将字符串123.45赋给变量S A = S 将数字字符串变量赋值给整型变量， 变量A中存放123 S = A S中存放字符串123 B = 12345.67 A = B 高精度变量赋值给低精度变量， 先四舍五入后取整, A中存放12346 C = 123456.789 B = C 高精度变量赋值给低精度变量， 变量B中存放123456.8。有效数字7位 S = abc A = S 错误，类型不匹配;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;2. 文本框的事件和方法 事件: Change 、Click、DblClick、GotFocus、 LostFocus、KeyPress等 方法: SetFocus 【例4-3】设计如下图所示的界面，运行时，输入某同学三门课的成绩，计算平均成绩。按要求编程。;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text) Text2.Text = Text2.Text Space(5) Char _ Space(10) Str(Asc(Char)) vbCrLf Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub;第四章 顺序结构程序设计;【例4-5】测试标签的边框样式和透明样式。 在窗体上放置一标签，显示“Visual Basic程序设计教程”，放置四个命令按钮，Command1放在Command2上，Command3放在Command4上。运行时，单击相应按钮，界面发生相应变化。;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计;第四章 顺序结构程序设计