第三章实习训练.docVIP

例3-2 Private Sub Command1_Click() Print 123456789012345678901234567890 Print 1, 2, 3 Print 1; 2; 3 Print -1; -2; -3 Print A; B; C, D Print 3, Print 4; 5; Print 6 Print Print 7; 8; Print Print Time End Sub Private Sub Command2_Click() Cls End Sub Private Sub Form_Load() Command1.Caption = 显示 Command2.Caption = 清除 End Sub 例3-1 Private Sub Form_Click() Dim x$, y$, z$ x = InputBox(请输入一个同学的姓名) y = InputBox(请输入一个地点) z = InputBox(请输入一个动作) MsgBox x 在 y z Form1.Caption = x 在 y z End Sub 例3-3 Private Sub Command1