題目：編寫函數(shù)fun,函數(shù)的功能是：求從m到n的乘積并顯示, '如：m為2,n為4時(shí),顯示"24" '存儲(chǔ)連乘的乘積
題目：編寫函數(shù)fun,函數(shù)的功能是：求從m到n的乘積并顯示,
'如：m為2,n為4時(shí),顯示"24"
'存儲(chǔ)連乘的乘積的變量必須為Product
'要求使用Do While...Loop語(yǔ)句來(lái)實(shí)現(xiàn).
'-------------------------------------------------
'注意： 請(qǐng)?jiān)谥付ǖ氖录?nèi)編寫代碼
' 代碼只能寫在兩行標(biāo)識(shí)之間
' 不得修改已有代碼
'保存時(shí)不得修改窗體和工程文件的名稱及路徑,否則后果自負(fù).
'-------------------------------------------------
Private Function fun(m As Integer, n As Integer) As Long
Dim Product As Double, t As Integer
If m > n Then t = m: m = n: n = t
'
End Function
Private Sub Form_Load()
Show
Print fun(4, 2)
NJIT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10 Step 2
Line Input #fIn, a(i)
Line Input #fIn, a(i + 1)
Print #fOut, Trim(Str(fun(Val(a(i)), Val(a(i + 1)))))
Next
Close #fIn
Close #fOut
End Sub