1樓：愛國的中國人
private sub command1_click()x1 = text1.text
x3 = text2.text
x2 = 0.5 * (x1 + x3)
m = text3.text
function f(x)
f = 5 * x - 2.95 + 5 / (x - 1.105)end function
f1 = f(x1)
f2 = f(x2)
f3 = f(x3)
a1: c1 = (f3 - f1) / (x3 - x1)c2 = ((f2 - f1) / (x2 - x1) - c1) / (x2 - x3)
if c2 = 0 then
goto a2
else
x4 = 0.5 * (x1 + x3 - c1 / c2)end if
if (x4 - x1) * (x3 - x4) <= 0 thengoto a2
else
f4 = f(x4)
n = abs((f2 - f4) / f2)if n <= m then
if f4 < f2 then
xp = x4
fp = f(x4)
goto out
else
a2: xp = x2
fp = f2
goto out
end if
end if
end if
if (x4 - x2) * (x4 - 1) > 0 thenif (……) then
if f2 > f4 then
x1 = x2
f1 = f2
x2 = x4
f2 = f4
goto a1
else
x3 = x4
f3 = f4
goto a1
end if
else
if f2 > f4 then
x3 = x2
f3 = f2
x2 = x4
f2 = f4
goto a1
else
x1 = x4
f1 = f4
goto a1
end if
end if
out: print xp, fp, n
end function '列印end sub '出口試試行不？ 你的程式中if與else 還有end if 太亂啊！要養成好習慣啊！
2樓：匿名使用者
你是不是應該去看下書。基礎多懂點。。
求高手幫我看下vb的乙個程式，幫忙指點下應該怎麼修改,謝謝了！
3樓：匿名使用者
if isnull (me!(user_name)) or isnull (me!(user_password)) then
改成：if me!user_name="" or me!user_password="" then
temp = 「select * from 使用者 where 註冊名稱='" & me!(user_name) &"' and 注_冊密碼='" & me!(user_password) & "'"
改成：temp = 「select * from 使用者 where 註冊名稱='" & me!user_name &"' and 注_冊密碼='" & me!
user_password & "'"
4樓：匿名使用者
請把修改後**貼上來，請檢查else 和if 的配對情況。
5樓：匿名使用者
option explicit這個要求宣告變數
docmd沒有定義
所以會報錯。
請vb高手們幫忙看看這個程式出什麼問題了！！！！
猜字謎我猜不出來請高手幫忙猜下字謎萬分感謝
天荒地老二八碼，二八一生一世在一起 28不甘落後四字開，意思是四尾開在28的前面 24六字當頭定一數，六字上加一 天 04左右巡迴看三九，左看右看是 三 九 12離散五七從中出，就是12期未出號的 03 三並八合定中彩，三並八 11 六六大順走今期。06 猜字謎，我猜不出來，希望大家幫幫忙！沒有我的...
這兩張相片是同人嗎？我分辨不出來，請高人分辨
認真看了一下，兩張 應該是同乙個人。嘴角和眼角非常相似，從這兩點上可以確定是乙個人。不是乙個人，很明顯 鼻子 臥蠶 臉型等，你仔細看看。仔細看的話，臉型鼻子嘴巴眼睛都是一樣的 請朋友們幫我看一下這兩張 是乙個人嗎？這個 看起來應該是兩個人。因為那個腦袋看著像兩個人。從相片上來看，很像，似乎是乙個人，...
一道數學題算不出來，請你們幫忙看看，教我怎麼算，謝謝大家
1 3 1 90 2.7 1 3 5，所以 n 1 5，因此 n 6 大家來幫忙，幫我看看，這道數學題怎麼做，最好用兩種方法，一種是解方程，一種是正常算的，謝謝大家了。算術法 69.84 10 1 7.76 方程法 解 設原來的數是x，則移動後的數是10x 10x x 69.84 9x 69.84 ...