vb第一章至第五章课后习题答案.docVIP

VB第一章至第五章课后习题答案 整理：秦晓飞 P24 1.Private Sub Form_Click() Print 学习VB程序设计 End Sub 2. Private Sub Form_Click() Form1.Caption = 学习VB程序设计 End Sub 3.Private Sub Form_Click() Form1.Left = Form1.Left - 150 End Sub 4.Private Sub Form_Click() Form1.Left = Form1.Left + 150 End Sub P56 1.Private Sub Form_Click() Form1.Cls Print Width = ; Form1.Width Print Height = ; Form1.Height If (Form1.Width 1000 And Form1.Height 1000) Then Form1.Width = Form1.Width - 100 Form1.Height = Form1.Height - 100 Form1.Caption = Str(Form1.Width * Form1.Height) End If End Sub 2.Private Sub Form_Click() Form1.Left = Form1.Left + 100 Form1.Caption = Str(Form1.Left) End Sub 3.Private Sub Form_Click() Form1.Width = Screen.Width / 2 Form1.Height = Screen.Height / 2 Form1.Left = (Screen.Width - Form1.Width) / 2 Form1.Top = (Screen.Height - Form1.Height) / 2 End Sub P83 1.Private Sub Command1_Click() Command1.Left = Command1.Left - 50 Form1.Caption = 向左移动 End Sub Private Sub Form_Click() Command1.Left = Command1.Left + 50 Form1.Caption = 向右移动 End Sub 2.Private Sub Command1_Click() Print Time Form1.Caption = Date End Sub 3.Private Sub Command1_Click() Dim strName As String Dim strSex As String strName = InputBox(输入姓名：) strSex = InputBox(输入性别：) Print strName; 是; strSex; 生 End Sub 4.Private Sub Form_Click() Text1.Text = InputBox(输入数据：) Text2.Text = InputBox(输入数据：) Text3.Text = InputBox(输入数据：) End Sub 5.Private Sub Command1_Click() Dim s As String s = InputBox(请输入角度：) Print Sin(Val(s) * 3.14159 / 180) Print Cos(Val(s) * 3.14159 / 180) End Sub Private Sub Command1_Click() End End Sub 6.Private Sub Label1_Click() Label1.FontSize = Label1.FontSize + 1 Form1.Cls Print Label1.FontSize End Sub 7.Private Sub Command1_Click() End End Sub Private Sub Text1_Change() If Trim(Text1.Text) Then Text2.Text = Asc(