计算机一级b试题60道题答案.docVIP

1.Private Sub Form_Click() label2.Caption = Year(Date) label4.Caption = Month(Date) label6.Caption = Day(Date) label8.Caption = Weekday(Date) - 1 label11.Caption = Time End Sub 2. Dim num As Double Private Sub Command1_Click() Label3.Caption = Command1.Caption 函数的计算结果为 Label2.Caption = Abs(num) Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Command2_Click() Label3.Caption = Command2.Caption 函数的计算结果为 Label2.Caption = Sqr(num) Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Privat