】行数据,其中第2行和第3行的数据分别是【 】和【 】。 Option Base 1 Private Sub Command1_Click() Dim a, s As String,i As Integer a=Array(1,3,5,7,2,4,6,8) s=" " For i=1 To Ubound(A) s=s + Str(a(i)+i)+ vbCrLf Next i Text1.Text=s End Sub
下列程序的功能是:当发生窗体的单击事件后,将在窗体上显示“1!+2!+3!+…+10!”的和。 Private Su
b 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 Integer)As Long Dim i As Integer,f As Long f=1 For i=2 To n f=f*i Next i 【 】 End Function