上机程序设计题题解.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 Text3_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End If End Sub 健康称 Private Sub Command1_Click() Dim sg As String, tz As String, bz As String sg = Str(Text1.Text) tz = Str(Text2.Text) bz = sg - 105 If tz/ bz = 1.1 Then Label5.Caption = 偏胖，注意节俭！ ElseIf tz / bz = 0.9 Then Label5.Caption = 偏瘦，增加营养！ Else Label5.Caption = 正常。继续保持！ End If End Sub Private Sub Form_Load() Form1.Caption = 健康称 Text1.Alignment = 1 Text2.Alignment = 1 Text1.MaxLength = 3 Text2.MaxLength = 3 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0: Text1.SetFocus End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0: Text2.SetFocus End Sub 最大化 Private Sub Form_Load() Command1.Left = (Form1.ScaleWidth - Command1.Width) / 2 Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2 Command1.Caption = 最大化(L) End Sub Private Sub Command1_Click() If Command1.Caption = 最大化(L) Then Command1.Caption = 还原(B) Form1.WindowState = 2 Command1.Left = (Form1.ScaleWidth - Command1.Width) / 2 Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2 Else Command1.Caption = 最大化(L) Form1.WindowState = 0 Command1.Left = (Form1.ScaleWidth - Command1.Width) / 2 Co