求個大神解答一下這道VB題目啊,過幾天就考試了,還有好多題目

2021-05-28 14:25:29 字數 4002 閱讀 9499

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

print

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 ...