气例4-2】设计如下图所示的界面，运行时， 输入某学生三门课的成绩，计算平均成绩。 按要求编程 计算平均成装 ▣x -Text1 第四章顺序结构程序设计 数学： 外语： -Text2 设Text4的 物理： Text3 Locked Text4 属性为True 平均： Command1 计算 除 退出 Command3 Command2. 要求： ■单击“计算”按钮求平均成绩； ■当输入成绩的文本框获得焦点时，选中其中的文本： 当输入成绩的文本框内容发生变化时，清除平均值； 单击“清除”按钮清除所有内容，将焦点定位在Text1中： 单击“退出”按钮结束程序的运行。 93 16
第 四 章 顺 序 结 构 程 序 设 计 16 【例4-2】设计如下图所示的界面，运行时， 输入某学生三门课的成绩，计算平均成绩。 按要求编程。 要求： ◼ 单击“计算”按钮求平均成绩； ◼ 当输入成绩的文本框获得焦点时，选中其中的文本； ◼ 当输入成绩的文本框内容发生变化时，清除平均值； ◼ 单击“清除”按钮清除所有内容，将焦点定位在Text1中； ◼ 单击“退出”按钮结束程序的运行。 Text4 Text1 Text2 Text3 Command1 Command2 Command3 设Text4的 Locked 属性为True
①单击“计算”按钮求平均成绩 Private Sub Command1 ClickO 第四章 A=Val(Text1.Text) B=Val(Text2.Text) C=Val(Text3.Text) 顺序结构程序设计 Text4.Text=(A+B+C)/3 End Sub 17
第 四 章 顺 序 结 构 程 序 设 计 17 ①单击“计算”按钮求平均成绩 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) Text4.Text = (A + B + C) / 3 End Sub
②当输入成绩的文本框获得焦点时，选中其中 的文本 Private Sub Text1 GotFocusO 第四章 Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub 顺序结构程序设计 Private Sub Text2 GotFocus( Text2.SelStart=0 Text2.SelLength=Len(Text2.Text) End Sub Private Sub Text3 GotFocus() Text3.SelStart=0 Text3.SelLength=Len(Text3.Text) End Sub 18
第 四 章 顺 序 结 构 程 序 设 计 18 ②当输入成绩的文本框获得焦点时,选中其中 的文本 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End Sub Private Sub Text3_GotFocus() Text3.SelStart = 0 Text3.SelLength = Len(Text3.Text) End Sub