1樓：匿名使用者
dim a(0 to 3)
private sub command1_click(index as integer)
list1.additem index
end sub
private sub command2_click()
dim n, m
m = 0
n = 0
for i = 0 to 3
for j = 0 to 3
if list1.list(i) = a(j) and i = j then
n = n + 1
end if
if list1.list(i) = a(j) and i <> j then
m = m + 1
end if
next j
next i
label1.caption = n & "個數值猜對以及位置對；" & m & "個數值猜對但位置不對！"
end sub
private sub end_click()
endend sub
private sub form_load()
for i = 0 to 9
command1(i).enabled = false
next i
end sub
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 2 then
form1.popupmenu game
end if
end sub
private sub new_click()
randomize
for i = 0 to 3
a(i) = int(rnd * 10)
next i
for i = 0 to 9
command1(i).enabled = true
next i
list1.clear
end sub
private sub view_click()
label1.caption = a(0) & a(1) & a(2) & a(3)
end sub
2樓：貴州遵義發郎中
晚上幫你弄，另你自己怎麼不試著寫寫？
求1道小學vb程式設計題目 謝謝
3樓：壬捷
private sub form_click()dim i%,j%,s%
i=1,j=0
do while s<=2000
j=i+j
s=s+j
i=i+1
loop
print "n=";i
print "s=";s
end sub
有點不記得了
大概是這樣的
你自己除錯一下哈！
4樓：匿名使用者
private sub form_click()m = 1
n = 0
don = n + 1
if n > m then
n = 1
m = m + 1
end if
s = s + n
print n;
loop until s > 2000
print s; n
end sub
急求！vb程式設計題目！
5樓：匿名使用者
dim m as integer, n as integerprivate sub command1_click()m = val(inputbox("輸入正整數"))n = val(inputbox("輸入正整數"))if n * m = 0 then
msgbox "兩數任何一個數都不能為0!"
exit sub
end if
end sub
private sub command2_click()dim r as integer, s as integerr = m: s = 1
do until m mod r = 0 and n mod r = 0 '最大公約數，選擇任意一個數，每次減1，知道兩個數除以它都沒有餘數，那麼它肯定就是最大公約數
r = r - 1
loop
do until s mod m = 0 and s mod n = 0 '最小公倍數，s從1開始，慢慢變大，直到除以m，n都沒有餘數，那麼它肯定就是最小公倍數
s = s + 1
loop
text1.text = "最大公約數是：" & r & "最小公倍數是：" & s
end sub
6樓：匿名使用者
我也試著編了一個，可以參考一下。
dim 小數值 as integer
dim 大數值 as integer
dim 最大公約數 as integer
dim 最小公倍數 as integer
private sub command1_click()
on error resume next
text3.text = ""
text4.text = ""
if val(trim(text1.text)) <= 0 then exit sub
if val(trim(text2.text)) <= 0 then exit sub
if val(trim(text1.text)) >= val(trim(text2.text)) then
大數值 = val(trim(text1.text))
小數值 = val(trim(text2.text))
else
大數值 = val(trim(text2.text))
小數值 = val(trim(text1.text))
end if
最小公倍數 = 1
最大公約數 = 小數值 + 1
1 最大公約數 = 最大公約數 - 1
if 大數值 mod 最大公約數 = 0 and 小數值 mod 最大公約數 = 0 then
text3.text = 最大公約數
goto 2
end if
if 最大公約數 > 1 then goto 1
2 最小公倍數 = 最小公倍數 + 1
if 最小公倍數 mod 大數值 = 0 and 最小公倍數 mod 小數值 = 0 then
text4.text = 最小公倍數
goto 3
end if
if 最小公倍數 < 小數值 * 大數值 then goto 2
3end sub
private sub form_load()
on error resume next
text1.text = ""
text2.text = ""
text3.text = ""
text4.text = ""
end sub
7樓：匿名使用者
以前我是學校的vb助教，只可惜現在手邊沒有vb的書，忘記了。這個應該是比較簡單的題目，你去請教一下你的輔導老師吧。
VB程式設計題目
我也是初學者,比較冗繁,還有點小bug 建立一個按鈕控制元件陣列 command1 0 command1 1 command1 2 command1 3 一個 框控制元件picture1 如下 dim a as integer private sub form load command1 0 cap...
關於VB程式設計的問題 高手請進，急求一個VB的問題！高手請進。
加一個文字框text1，一個按鈕command1private sub command1 click if trim text1.text thenmsgbox 請輸入數字 text1.setfocus else msgbox val trim text1.text 100 米 left cstr ...
急求這一道程式設計題目用c語言，急求這一道程式設計題目,用C語言
我寫了一個你看咱樣行不 include include main char b 數學 物理 外語 政治 體育 人數 system color a printf 原始資訊如下 n printf 數學 d n a 0 printf 物理 d n a 1 printf 外語 d n a 2 printf ...