1樓：網海1書生
(1) "st"
(2) rs.bof
(3) rs.addnew
(4) 0
(5) next
求大神解答這道vb題目 謝謝！！
2樓：唐小貝戔
該問題可用遞迴法求解，但是書中的結果有問題
function calcsalary(byval startsalary as long, _
byval age as long, _
optional byval ageto as long = 65) as long
if age <= ageto then
calcsalary = calcsalary(startsalary * (1 + 0.05), age + 1, ageto)
else
calcsalary = startsalary
end if
end function
為什麼說書中的結果有問題，我們不妨來看一下，假設 helen 從 25 歲工作到 26 歲，這裡總共工作了兩年，而起始薪水為 20000，每年漲 5%，則第一年為 20000×(1+0.05) = 21000，第二年又是在第一年的基礎上繼續漲 5%，則第二年為 21000×(1+0.05) = 22050，如若不放心我們再來算個第三年為 22050×(1+0.
05) = 23152.5
以上是我們手動演算的結果，
下面來看看這個 calcsalary 的兩年和三年的執行結果是否和上面一樣：
debug.print "based on starting salary of 20000," & vbcrlf & "helen will earn about $" & cstr(calcsalary(20000, 25, 26)) & " from age of 25 to 26."
debug.print "--------------------------------------------"
debug.print "based on starting salary of 20000," & vbcrlf & "helen will earn about $" & cstr(calcsalary(20000, 25, 27)) & " from age of 25 to 27."
以上結果只是輸出到立即視窗，
具體應用時請根據題中要求賦值給文字框 textbox 控制項即可。
回到題中，年齡要算到 65 歲，那麼還是一樣使用 calcsalary 中的第三個預設引數：
debug.print "based on starting salary of 20000," & vbcrlf & "helen will earn about $" & cstr(calcsalary(20000, 25)) & " from age of 25 to 65."
輸出結果應該是 helen 從 25 歲到 65 歲能賺到 147839.7
為了確保該結果萬無一失，下面再給出第二種實現**，該方法是最為普通的迴圈迭代法，優點是比第一種方法更容易理解，就是多使用了乙個變數：
public function calcsalary2(byval startsalary as single, _
byval agefrom as integer, _
optional byval ageto as integer = 65) as single
dim i as integer
for i = agefrom to ageto
startsalary = startsalary * (1 + 0.05)
next
calcsalary2 = startsalary
end function
下面換個 msgbox 輸出：
msgbox "based on starting salary of 20000," & vbcrlf & "helen will earn about $" & cstr(calcsalary2(20000, 25)) & " from age of 25 to 65.", vbinformation, "total"
可見兩種方法的結果完全一致。
vb語言程式設計教程，大神，求指導。程式設計題不用了謝謝
3樓：閃星
請問你的問題是？填上面的空？如果是這樣的話請你先安裝個vb6，然後4-8題點點滑鼠就可以解決了。
有問題請追問，滿意請採納！
vb語言，跪求各位大神帶
4樓：匿名使用者
private sub c1_click()dim a(1 to 100) as integer, i as integer
dim max as integer, min as integermin = 1000
for i = 1 to 100
a(i) = 100 + int(rnd * 900)if max < a(i) then max = a(i)if min > a(i) then min = a(i)next
print "max:"; max, "min:"; minend sub
求各位大神乙個問題，vb考試程式填空的時候，沒刪除【】，會影響答案嗎？？急
5樓：匿名使用者
應該會vb考試要求有說明（就在vb答卷的右下角有說明）需要刪除【】
6樓：匿名使用者
一般都是人工閱卷 不過為了安全最好還是刪除了
7樓：匿名使用者
我也剛考，忘記刪了，我好慌?
哪位大神能幫忙解答下vb問題呀！？？？？！麻煩寫出程式設計來 謝謝！~
8樓：匿名使用者
第一題：
private sub command1_click() '顯示
me.label1.caption = "visual basic"
me.text1.caption = "「程式設計"
end sub
private sub command2_click() '交換
me.label1.caption = "程式設計"
me.text1.caption = "「visual basic"
end sub
第二題：
private sub command1_click()
'生成隨機數
text1 = ""
for i = 1 to 10
if text1 = "" then
text1 = int((100 - 10 + 1) * rnd() + 10)
sum = int((100 - 10 + 1) * rnd() + 10)
else
text1 = text1.text & " " & int((100 - 10 + 1) * rnd() + 10)
sum = sum + int((100 - 10 + 1) * rnd() + 10)
end if
next
dim arr, max%, min%, agv
arr = split(text1.text, " ")
max = arr(1)
max = arr(1)
for i = 2 to ubound(arr)
if max > arr(i) then max = arr(i)
if min < arr(i) then min = arr(i)
next
'生成最大值
text2.text = max
'生成最小值
text3.text = min
'生成平均值
text4.text = sum / 10
end sub
第三題：
private sub command1_click()
dim str$, l%, i%, txt$
txt = ""
l = len(text1.text)
str = text1.text
for i = l to 1 step -1
txt = txt & mid(str, i, 1)
next
text2.text = txt
end sub
第四題：
'自定義函式**
function jonumber(byref num) as string
s = num mod 2
if s = 0 then
jonumber = "偶數"
else
jonumber = "奇數"
end if
end function
'按鈕**
private sub command1_click()
dim nu
nu = val(text1.text)
if nu <> int(nu) then msgbox "您輸入的是非整數！": exit sub
text2.text = nu & "為" & jonumber(nu)
end sub
第五題：
private sub check1_click() '粗體核取方塊
if check1.value = 1 then
label1.fontbold = true
else
label1.fontbold = false
end if
end sub
private sub check2_click() '斜體核取方塊
if check2.value = 1 then
label1.fontitalic = true
else
label1.fontitalic = false
end if
end sub
private sub command1_click() '退出按鈕
unload me
end sub
vb題目，不知道**問題在**,求大神解答，謝謝
9樓：網海1書生
你首先要按照題目在窗體上放入兩個列表框控制項分別為：list1和list2，以及四個命令按鈕分別為：command1、command2、command3、command4，這一步如果沒做，那麼那些**就無從談起了。
提示實時錯誤424 要求物件，意思就是說你的窗體上沒有list1這個列表框控制項！
vb程式閱讀題，第4題和第5題求過程解析和答案！謝謝！
10樓：紅山人
4.private sub form_click()
dim a, i as integer
a = array(1, 2, 3, 4, 5, 6, 7, 8, 9) '用array()函式給陣列a()賦值a(0)=1,a(1)=2...a(8)=9
for i = 0 to 4
print a(6 - i); '在同一行輸出a(6-i)的值：依次是a(6)=7,a(5)=6,...a(2)=3即7 6 5 4 3
next
end sub
5public enum workdays '定義乙個數值串行變數只要給首個變數賦值，後面自動生成
sunday = 5 'sunday值為5
monday 'monday值就為6
tuesday
wednesday
thursday
friday 'friday值為10
saturday
end enum
private sub command1_click()
dim day as workdays '定義變數day為workdays型別的變數
day = friday '把friday的值賦給day
print val(day) '輸出day的值,結果是10
end sub
C語言程式填空題，求大神幫忙解答，給個解析，謝謝
這就是數學中的排列組合 每兩個站就需要準備一種車票 這個題應該不考慮去程和返程的區別 所以這個題裡面第乙個空是 i 最後乙個是total total 1 解釋就是這樣 從第乙個站開始，把第2站，第3站，第4站直到最後一站跟它計數 二重迴圈實現 隨後 主站切換到第二站，然後第3站，第4站直到最後一站跟...
c語言的題，求大神解答，C語言題，求大神解答
解 1 a項錯誤 有些不可見字元可放入緩衝區，例如 回車 空格。b項錯誤 有些輸入函式有緩衝區，有些沒有，例如 getchar 有緩衝區，getch 無緩衝區，getche 無緩衝區。c項錯誤 緩衝區不需要定義。所以選d。2 getchar 函式有緩衝區。getchar函式的返回值是使用者輸入的字元...
求VB程式，求用VB解答
運用排序方法吧 例如泡沫排序 或者 快速排序。如果動用資料庫的話就相當簡單了。43295811 佩服。看來我還是太懶了。求用vb解答 製作這個程式的時候先在窗體中加入乙個標籤，並且把窗體標籤的內容設定為空，然後再製作乙個命令按鈕，也把命令按鈕的顯示改為開始，再加入乙個定時器控制項。核心在於計時器控制...