1樓:匿名使用者
第一行:"使用者名稱與密碼不一致,請重新輸入!"
第二行:false
第三行:"請輸入密碼!"
第四行:"請輸入帳號!"
現在的程式設計題都這麼簡單了嗎。。。。小學生水平啊親,好好的學好這些知識吧,對人生的幫助真的很大的。
請問這道題用vb怎麼寫出來?求大神解答,明天就要考試了
2樓:匿名使用者
private sub form_click()for i = 1 to 5
for j = 1 to i
s = s & chr(64 + j)
print s & " ";
next
s = ""
next
end sub
求大神解答這道vb題目 謝謝!!
3樓:唐小貝戔
該問題可用遞迴法求解,但是書中的結果有問題
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題!!!!!!!!!!!!!!!急需!!!! 200
4樓:匿名使用者
這是一個開放性較大的題目,我先給你給你講一下我的想法,同意我就給你做一個程式,不同意,就不用做了。大概是這樣的:一個使用者登入介面,如下圖
登入時有3個使用者名稱可選擇,如果密碼輸入正確,點登入就可以開啟視窗2
5樓:
第一條是介面佈局
第二第就是個form.show 1
第三條麼文字框,標籤框,**框,計時器,按鍵第四條有效**麼就是你想實現什麼功能,自己總結下每五條麼一個for next;一個do while loop 解決第六條麼就是編好的有一定通用性的檔案。例如ado的呼叫,excel的寫入
第七條麼就是msgbox
第八條麼如果你在第六條中用了excel的寫入麼就已經完成了
6樓:
你們老師給的題目好寬鬆啊 就是要看你們的功底 就跟寫作文一樣 不限文體 題目自擬 在網上不好做 你也不該騙老師 自己學學寫寫 不是很難啊
7樓:和瓦伊
這些都是要求
題目是什麼 要寫一個關於什麼的程式???
8樓:如果的如果
題目太開放了。。。好好學吧,我原來考試也想到處問人,當沒人幫你的時候,那種心酸不好受,好好學吧,求人不如求己
9樓:
挺好的題目,找人代做實在可惜了……
10樓:gmod度娘
丨橫:陪下加
[訊息框]vb
11樓:匿名使用者
算得上是問題的只有最後的檔案處理吧,前面基本都是白給的要求,去網上找個檔案處理的源**,然後隨便加點控制元件,寫幾個小函式滿足下前面的要求就行了
12樓:匿名使用者
timer不可見控制元件
求大神幫忙做一個vb題。題目如下
13樓:匿名使用者
private function fun(m as long) as string
dim flag as boolean
'**********program**********flag = true
for i = 2 to sqr(m)
if m mod i = 0 then
flag = false
exit for
end if
next
if flag then
fun = "素數"
else
fun = "非素數"
end if
'********** end **********end function
14樓:買雯爾念文
private
subform_click()
dimi%,
s%'i
迴圈bai變數du
,zhis
儲存dao累專加和屬
求計算機大神解答一下這道題啊,求大神解答一下這道vb題的程式碼
sector 扇區 每扇區512位元組 track 磁軌 每磁軌50個扇區 platter 碟片 每個碟片單面是1024個磁軌,雙面就是1024x2個磁軌 容量 5x1024x2x50x512 262144000位元組rpm revolutions per minute 每分鐘多少轉按順序讀取驅動器...
大神解一下這個線性代數,求大神解答一下這道線性代數的題
本題解答如圖 步驟解析 第一步,把第一行乘以 a加到 第二行版消去a,再把 權第一行乘以 a2加到第三行消去a2 第二步,可見第一列除了第一個數為1其餘全為0,所以了直接劃去第一行和第一列 第三步,此時已化為二階行列式,直接用斜對角線公式,然後化簡。這道題考查的主要是 1 行列式的等價變換,即某一行...
求大神幫我解答一下這道高數題,求大神幫忙解決一下這道高數題目?
f x x k.sin 1 x x 0 0 x 0lim x 0 f x 0 lim x 0 x k.sin 1 x 0 k 0 f 0 lim h 0 f h f 0 h lim h 0 h k.sin 1 h h lim h 0 h k 1 sin 1 h f 0 存在 k 1 0 k 1if ...