撰寫函式求1+2+..+k，點擊計算，click時間使用imputbox輸入m.n的值，呼叫該函式計算y，用文本框顯示，保留3位小數，Y＝(1+2+...m)/(1+2+...＋nn)
uj5u.com熱心網友回復：
最后多打了個，不好意思nuj5u.com熱心網友回復：
撰寫函式求1+2+..+k，點擊計算，click事件使用inputbox輸入m.n的值，呼叫該函式計算y，用文本框顯示，保留3位小數，Y＝(1+2+...m)/(1+2+...＋n)是這樣對吧?
uj5u.com熱心網友回復：
寫好了,代碼如下:
Option Explicit
Private Sub Command1_Click()
Dim m As Long
m = InputBox("m=")
Dim n As Long
n = InputBox("n=")
Dim m_sum As Long
m_sum = 0
Dim i As Long
For i = 1 To m
m_sum = m_sum + i
Next
Dim n_sum As Long
n_sum = 0
For i = 1 To n
n_sum = n_sum + i
Next
Dim y As Double
y = m_sum / n_sum
Text1.Text = Format(y, "0.000")
End Sub
運行示例:
下載地址:
鏈接：https://pan.baidu.com/s/1OsA1YHiQs3Jh9s4j5D2SUQ
提取碼：fto5
uj5u.com熱心網友回復：
簡化一下
Private Sub Command1_Click()
Dim m As Long
m = InputBox("m=")
Dim n As Long
n = InputBox("n=")
Text1.Text = Format(((1 + m) * m) / ((1 + n) * n), "0.000")
End Sub
uj5u.com熱心網友回復：
十分感謝幫助，謝謝
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/31845.html
標籤：VB基礎類