Private Sub Form Click () Dim a&, b&, c&, d& Call ich (7, a) Call jch(11, b) Call jch (10,c) ds a+b-c Print"7!+11!-10!=";d End sub 请单属标左键换页Private Sub Form_Click（） Dim a&，b&，c&，d& Call jch（7，a） Call jch（11，b） Call jch（10，c） d = a + b－c Print "7!+11!-10!="；d End Sub