1樓：網友
在窗體放置控制項：command1，label1
private sub form_load()
乙個很簡單的vb設計": = 計算"
true 公雞5文錢乙隻，母雞3文錢乙隻，3只小雞1文錢。" vbcrlf _
如果用100文錢買100只雞，可以買公雞、母雞和" &vbcrlf _
小雞各多少隻？"
end sub
private sub command1_click()
dim x as long, g as long, m as long
dim w as long, z as long, nstr as string
查詢中。w = 100: z = 100 '總金額（文），總只數（只）
for x = 3 to z step 3 '小雞隻數。
for m = 1 to z - x '母雞隻數。
g = z - x - m '公雞隻數。
if w = x / 3 + m * 3 + g * 5 then '總金額（文）
nstr = nstr & 公雞：" g & 只×5文=" g * 5 & 文，"
母雞：" m & 只×3文=" m * 3 & 文，"
小雞：" x & 只÷3文=" x / 3 & 文" &vbcrlf
end if
nextnext
nstrend sub
程式執行結果共4種可能：
公雞：0只×5文=0文，母雞：25只×3文=75文，小雞：75只÷3文=25文。
公雞：4只×5文=20文，母雞：18只×3文=54文，小雞：78只÷3文=26文。
公雞：8只×5文=40文，母雞：11只×3文=33文，小雞：81只÷3文=27文。
公雞：12只×5文=60文，母雞：4只×3文=12文，小雞：84只÷3文=28文。
2樓：年幼大叔
private sub command1_click()for i = 0 to 100
for j = 0 to 100
if i * 5 + j * 3 + 100 - i - j) /3 = 100 then
cstr(i)
cstr(j)
cstr(100 - i - j)
print i, j, 100 - i - jend if
nextnext
end sub
通過print 語句看到共四組結果，label只能看到最後一組。
3樓：網友
我發了郵件，給我加分。
什麼是vb程式設計？
4樓：求真實驗室
visual basic程式設計是basic程式語言。
vb擁有圖形使用者介面（gui）和快速應用程式開發（rad）系統，可以輕易的使用dao、rdo、ado連線資料庫，或者輕鬆的建立active x控制項，用於高效生成型別安全和麵向物件的應用程式。
程式設計師可以輕鬆的使用vb提供的元件快速建立乙個應用程式。
很簡單的vb小程式，高手快來啊，很簡單的一個vb小程式，高手快來啊！
窗體加一個文字框。if text1.text z1z1z1z1 thenmsgbox 密碼正確 shell c program files cs1.6 cstrike.exe unload me else msgbox 密碼錯誤 text1.text end if lable.caption tim...
簡單的vb問題，關於開啟檔案，一個簡單的vb問題，關於開啟檔案
正常的語法不是應該這樣嗎?if dk.filename then 如果路徑為實值 open dk.filename for output as 1 則開啟 print 1,txt.text 我把文字框改名為txt了 close 1 end if 你確定dk.filename 是一個正常的完整的檔案路...
vb設計計時器，vb 設計一個計時器
10ms產生一次timer事件是不行的 因為vb的timer是有一個精度的，精度大約在55ms，所以interval再小就不起作用了，api gettickcount的精度大約也是在55ms，要想獲得更高的精度，可以用api timegettime，其精度大約在1 10ms，如果這個仍然滿足不了你的...