第四讲运算符与表达式.pptVIP

如输入4852秒，则应输出1小时20分52秒 (1)创建应用程序的用户界面和设置对象属性 (2)编写程序代码 Private Sub Command1_Click() Dim h As Integer, m As Integer, s As Integer, t As Integer t = Val(Text1.Text) h = t \ 3600 t = t - h * 3600 m = t \ 60 s = t - m * 60 Text2.Text = h Text3.Text = m Text4.Text = s End Sub 例3.9 编写程序，实现两个文本框内容的交换 使用一个临时单元变量(t) (1)在窗体上建立两个标签、两个文本框和一个命令按钮 (2)编写程序代码 Private Sub Command1_Click() ′“交换”按钮 t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub 在窗体上设置三个命令按钮(图3.15)，程序进入运行状态后，当单击“窗体变大”命令按钮时，窗体变大，单击“窗体变小”按钮时，窗体变小。单击“退出”按钮时，则退出。 (1)建立应用程序的用户界面和设置对象属性 (2)编写程序代码 Private Sub Form_Load() Form1.Height = 4000 Form1.Width = 4000 Form1.Top = 1000 Form1.Left = 1000 End Sub Private Sub Command1_Click() “窗体变大”按钮 Form1.Height = Form1.Height + 200 每次增加200点 Form1.Width = Form1.Width + 200 End Sub Private Sub Command2_Click() “窗体变小”按钮 Form1.Height = Form1.Height - 200 每次减少200点 Form1.Width = Form1.Width - 200 End Sub 在第一个文本框中输入文字时，在另外两个文本框中显示同样相同的内容，但显示的字号和字体不同。单击“清除”按钮时则清除三个文本框中的内容 (1)建立应用程序的用户界面和设置对象属性 (2)编写程序代码 Private Sub Form_Load() Text2.FontName = 隶书 Text2.FontSize = 16 Text3.FontName = 楷体_GB2312 Text3.FontSize = 20 End Sub Private Sub Text1_Change() Text2.Text = Text1.Text Text3.Text = Text1.Text End Sub Private Sub Command1_Click() “清除”按钮 Text1.Text = “” 清除文本框Text1的内容 Text2.Text = 清除文本框Text2的内容 Text3.Text = 清除文本框Text3的内容 Text1.SetFocus