上机程序设计题参考(树人学院).docVIP

上机程序设计题题解(P116~P126) 加法器 Private Sub Form_Load() Text1.Alignment = 1 Text2.Alignment = 1 Text3.Alignment = 1 Text3.Locked=True End Sub Private Sub Command1_Click() Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text)) End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End If End Sub Private Sub