【简答题】写出 a1.dat文件的最终结果 Private Sub Form_Click() Dim f1 As Integer, f2 As Integer, f3 As Integer Open "c:\a1.dat" For Output As #1 f1 = 2 f2 = 3 Print #1, "NO."; 3, f1 Print #1, "NO."; 4 , f2 For i = 5 To 7 ...
【简答题】下面程序功能是计算 F=1-1/(2*3)+1/(3*4)-1/(4*5)+ ...... +1/(19*20) 请填空 Private sub form_activate() Dim f!, i%, sign% sign = -1 f = 1 ___________ f = f + sign / (i * (i + 1)) ____________ Next i Print "f="; f