1樓：聽不清啊
private sub ***mand1_click()dim m as long, n as longm = text1
n = text2
label3.caption = m & "和" & n & "的最大公約數是" & ***(m, n)
end sub
private sub ***mand2_click()dim m as long, n as longm = text1
n = text2
text3 = m & "和" & n & "的最大公約數是" & ***(m, n)
end sub
private sub form_load()label1.caption = "第乙個數："
label2.caption = "第二個數："
label3.caption = ""
text1 = ""
text2 = ""
text3 = ""
***mand1.caption = "標籤顯示結果"
***mand2.caption = "文字框顯示結果"
end sub
function ***(m as long, n as long) as long
r = m mod n
while r > 0
m = n
n = r
r = m mod n
wend
*** = n
end function
2樓：匿名使用者
自己動動腦袋不要只查手機
3樓：匿名使用者
2！！！！！！！！！！！
4樓：匿名使用者
不知道啊！哈哈哈哈哈嘻嘻嘻嘻嘻呵呵呵呵呵
求vb高手解答三道題目，急求！！！！！拜託各位大神！**等！！！！
5樓：゛愛她又如何
奇數:private sub ***mand1_click()for i = 1 to 99 step 2print i
next i
end sub
fibonacci數列:
private sub ***mand1_click()dim a as integer, b as integer, c as integer
a = 1: b = 1
print a; b;
for i = 3 to 20
c = a + b
print c;
a = b: b = c
next i
end sub
4*5矩陣:
option base 1
private sub ***mand1_click()dim a(4, 5) as integerfor i = 1 to 4
for j = 1 to 5
a(i, j) = int(rnd * 100 + 1)print a(i, j);
next j
next i
min = 101
for i = 1 to 4
for j = 1 to 5
if a(i, j) < min then min = a(i, j)
next j
next i
for i = 1 to 4
for j = 1 to 5
if a(i, j) = min then print "最小值:"; a(i, j), "第"; i; "行"; "第"; j; "列"
next j
next i
end sub
6樓：匿名使用者
求奇數private sub ***and1_click ()i=0do
i=i+1
if imod2 <>2 then
print i
end if
end sub
fibonacci數列
private sub ***mand1_click ()dim f(1 to 20)
f(1)=1
f(2)=1
i=2do
i=i+1
f(i)=f(i-1)+f(i-2)
loop until i=20
i=0do
i=i+1
print f(i)
loop until i=20
end sub
矩陣dim a(1 to 4,1 to 5)i=0j=0
doi=i+1
doj=j+1
a(i,j)=int(100*rnd+1)loop until j=5
loop until i=4
不好意思啊，矩陣忘記怎麼整了，希望對您有所幫助
7樓：紅山人
初三數學問題，求高手解答急急急急急急急急急急急急急急急急
三角板沒說是幾 的，所以這道題目要分類討論。這樣寫不方便，你可以通過證明三角形相似來求解。利用點m中點，這是解題的關鍵！你的三角板是那種哦？等腰直角還是30 60 度的？初三數學，急急急，關於計算方面的 求高手解答，謝謝了 什麼時候加括號？就是當前面符號為減號的時候 只要是減號 你都把符號帶上 否則...
求專業人事解答，急急急，急急急！！！求專業人士解答！
你好，1 被申請人為縣環保主管部門。2 上級環保主管部門或者本級人民 3 複議機關應該受理。電腦開不了機，求專業人事解答，急急急！ 需要拍照截圖，是怎麼樣開不了機。一種是因為硬體問題，比如記憶體 硬碟 cpu 介面鬆動，主機板電路壞等 二種是因為軟體問題，比如系統崩潰，病毒感染，如果進不了安全模式，...
急急急！！英語完形填空！求大神解答高懸賞
請採納 謝謝！英語完形填空求幫助，好評 懸賞！謝謝 主旨大意 本文是一篇記敘文。講述作者我受父親的影響，以 永不放棄 作為自己的人生法則，從而最終獲得成功的故事。說明 成事只要努力，一切皆有可能 的道理。1.答案 選c。細節理解題。由下文我與父親一樣以 永不放棄 作為生活法則，實現了人生的目標，因此...