第9、10章实验题和期末综合练习题编程题.pptVIP

第9、10章上机实验题与期末综合练习编程题 * * 一、第9章上机实验题 第2小题 Private Sub Cmd1_Click() Txt1.Visible = True End Sub Private Sub Cmd2_Click() Txt1.Visible = False End Sub Private Sub Cmd3_Click() DoCmd.Close End Sub 第3小题 Private Sub Cmd1_Click() ‘ [+] 按钮 Lab1.Caption = + Txt3.Value = Val(Txt1.Value) + Val(Txt2.Value) End Sub Private Sub Cmd2_Click() ‘ [ - ] 按钮 Lab1.Caption = Cmd2.Caption Txt3.Value = CSng(Txt1.Value) - CSng(Txt2.Value) End Sub Private Sub Cmd7_Click() ‘ [清除] 按钮 Txt1.Value = Txt2.Value = Txt3.Value = End Sub 第4小题 Privat