我的程式碼如下
Private Sub CommandButton1_Click()
For j = 1 To 16 Step 5
Me.Controls("TextBox" & j + 4).Value = Val(Me.Controls("TextBox" & j).Value)
* Val(Me.Controls("TextBox" & j + 1).Value) * Val(Me.Controls("TextBox" & j +
2).Value) / Val(Me.Controls("TextBox" & j + 3).Value)
Next
End Sub
目前是沒辦法運算的~會出現 溢位
a=TextBox縮寫
我的想法是 a5=a1*a2*a3/a4
a10=a6*a7*a8/a9
a1,a2,a3,a4是我輸入的值,a5是計算後的值
依此類推
但是如果把最後的除法拿掉,就可以算了
我在想是不是定義
Me.Controls("TextBox" & j + 4).Value 為 long
可是寫 Dim Me.Controls("TextBox" & j + 4).Value As Long 又會出現 "必須是識別項"
請高手指導一下,感恩
謝謝
※ 編輯: sweetdance 來自: 1.164.34.170 (08/24 23:22)
※ 編輯: sweetdance 來自: 1.164.34.170 (08/24 23:27)

你的 a4,a9,a14,a19 是不是有 0 ?

對,因為我要運算前我讓所有都歸零所以是不是要寫if a4,9,14,19=0, 答案就為0?因為a4,9,14,19-0時,其它也都是0,所以該怎寫比較好呢?努力中,感覺快破解了!!!

除以零當然會OVERFLOW。

已自行測試出來了^^..謝謝樓上大大提醒