[VBA ] 解二元一次方程式

看板Visual_Basic作者 (瓜子)時間15年前 (2009/03/13 10:31), 編輯推噓2(200)
留言2則, 2人參與, 最新討論串1/1
S Y 0.1 0.025 0.2 0.044444 0.3 0.06 0.4 0.072727 0.5 0.083333 0.6 0.092308 0.7 0.1 0.8 0.106667 0.9 0.1125 y=a*s/(b+s) 題目要解A跟B 想請問一下哪邊錯誤了 Sub test() K = 0 For b = -10 To 10 Step 0.1 K = K + 1 Cells(K, 1).Value = b Cells(K, 2).Value = 0.25 * b + 0.025 Cells(K, 3).Value = b / 7 + 0.1 If Cells(K, 3) = Cells(K, 2) Then Cells(K, 4).Value = "答案" End If Next b End Sub IF那裡在被黃色線包圍 有請板上的高手 這個程式錯在哪邊@@ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.227.129.180

03/13 16:03, , 1F
If Cells(K, 3).Value = Cells(K, 2).Value Then
03/13 16:03, 1F

03/20 15:40, , 2F
感謝!!!
03/20 15:40, 2F
文章代碼(AID): #19kSM3MJ (Visual_Basic)