【简答题】写出 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
【简答题】下列程序的功能是:当发生窗体的单击事件后,将在窗体上显示"1!+2!+3!+...+10!"的和。完善下列程序。 Private Sub Form_Click( ) Dim s As Long,I As Integer s=0 For i=1 To 10 s=s+ _____ Next i Print s End Sub Private Function fact(ByVal n As Integ...