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語言程式填空題，求大神幫忙解答
依次填 p1 i p2 i return 0 p1 i p2 i 風若遠去何人留 第一個空 p1 i p2 i 表示相同時 執行迴圈 第二個空，判斷條件為p1到達結尾，即結束符，退出迴圈 填break 第三個返回差值 p1 i p2 i c語言程式填空題，求大神幫忙解答，給個解析，謝謝。 這就是數學...
c語言問題求大神解答，C語言問題，求大神解答
a 用結構體定義以下學生資訊，結構體名 student 學號 姓名和成績 包括3門課程的成績，可用一個陣列表示 struct student c語言問題，求大神解答！ 奔安 include include include typedef unsigned int uint typedef struc...
C語言問題，求解答，C語言問題，求大神解答
f函式中的a每次使用外面傳入的2，b是區域性變數，後每次都是1，c是靜態變數，函式每次執行會在上次值 1 所以最後執行三次，輸出為789 聽不清啊 程式的輸出是 789 c語言問題，求解答 執行abc a 1 首先進行巨集代換過程，是把 a 1去替代 定義的巨集函式 x x 中的x，即得到式子 a ...