1樓:青松踏雪
dim ay(20)
private sub command1_click()text1 = ""
for i = 0 to 19
ay(i) = int(rnd * 100)text1 = text1 & " " & ay(i)next i
end sub
private sub command2_click()'隨機數不一定都相鄰,只先出四個最大的數
text2 = ""
text3 = ""
'用氣泡排序法排序
for i = 19 to 1 step -1for j = 0 to i - 1
if ay(j) > ay(j + 1) thenmy = ay(j + 1)
ay(j + 1) = ay(j)
ay(j) = my
end if
next j
next i
text2 = ay(19)
for x = 16 to 19
text3 = text3 & ay(x) & " "
next x
end sub
private sub command3_click()text1 = ""
text2 = ""
text3 = ""
label1 = ""
end sub
private sub command4_click()endend sub
2樓:匿名使用者
四個相鄰數之和的最大值吧?
vb:有20個10以內的隨機整數排成一排,找出每四個相鄰數之和中的最大值,並指出是哪四個相鄰的數
3樓:昔俊能
'把所有的與最大值相同的都顯示出來
private sub form_load()
me.autoredraw = true
dim a(0 to 19) as integer
dim b(0 to 19) as integer
dim max as integer
dim i as integer
max = 0
print "隨機生成的整數:";
for i = 0 to 19
randomize
a(i) = int(rnd * 11)
print a(i);
next
print "被累加後的整數:";
for i = 0 to 19
b(i) = a(i mod 20) + a((i + 1) mod 20) + a((i + 2) mod 20) + a((i + 3) mod 20)
if b(max) < b(i) then max = i
print b(i);
next
finddata b, b(max), a
'print "最大值:" & b(max)
'print "相鄰的數:" & a(max mod 20); a((max + 1) mod 20); a((max + 2) mod 20); a((max + 3) mod 20)
end sub
function finddata(arr() as integer, byval maxi as integer, arra() as integer)
dim i as integer
for i = 0 to ubound(arr)
if arr(i) = maxi then
print "最大值:" & arr(i)
print "相鄰的數:" & arra(i mod 20); arra((i + 1) mod 20); arra((i + 2) mod 20); arra((i + 3) mod 20)
end if
next
end function
4樓:歐聯科技
private function aa() as long
dim a(19) as long, b(19) as long
dim k as long, sstr as string
dim lmaxvalue as long, lcurindex as long
'首先獲取隨即數
for k = 0 to 19
randomize
a(k) = cint(rnd * (10 - 1 + 1)) + 1
sstr = sstr & " " & cstr(a(k))
next
'然後開始累計 並存入b陣列
for k = 0 to 19
b(k) = a(k) + a((k + 1) mod 20) + a((k + 2) mod 20) + a((k + 3) mod 20)
next
'判斷最大值
lmaxvalue = 0
for k = 0 to 19
if b(k) > lmaxvalue then lmaxvalue = b(k): lcurindex = k
next
msgbox "20個隨機數為:" & sstr & vbcrlf & "四個相鄰數之和最大為:" & lmaxvalue & vbcrlf & "四個相鄰數分別為:
" & a(lcurindex) & "," & a((lcurindex + 1) mod 20) & "," & a((lcurindex + 2) mod 20) & "," & a((lcurindex + 3) mod 20)
end function
出這四個相鄰數的第四個數是多少
5樓:匿名使用者
設分別為(-2)^x,(-2)^x+1,(-2)^x+2,(-2)^x+3
把四個數加起來=(-2)^x(1-2+4-8)=40(-2)^x=-8
x=3∴第四個數是(-2)^3+3=64
vb程式設計:設有20個數首尾相接,圍成一圈,求出相鄰的4個數之和(共20個),然後再找出哪4個數 5
vb編寫程式,隨機產生20個10到100間的整數 輸出這些數 並求這批數的最大值及其位置
6樓:聽不清啊
private sub command1_click()dim a(20) as integer
randomize
max = 0: j = 0
for i = 1 to 20
a(i) = int(91 * rnd) + 10print a(i);
if max < a(i) then max = a(i): j = i
next i
print "最大值="; max, "出現在第版權"; j; "個"
end sub
使用者任意輸入20個正整數,由這20個正整數排成一圈,編乙個程式找出連續的四個數,其和是最大的(不小於圈上任
7樓:
知道%嗎,就是取餘數。-3也不要了
for (int j = 0; j < arr.length; j++)
VB作業,找出100以內滿足下列條件的正整數 1,是偶數 2,是降序數
private sub command1 click text1.text dim i as integer,k as integeri 98 do until i 2 if mid i,1,1 mid i,2,1 then text1.text text1.text vbnewline i i i...
100以內2和3和5的倍數,100以內既是2和3的倍數又是5的倍數有什麼
2 3 5的最小公倍數為2 3 5 30 所以,2和3和5的倍數為30的倍數 所以,100以內2和3和5的倍數為30 60 90 內既是2和3的倍數又是5的倍數,也就是是2 3 5的公倍數2 3 5的最小公倍數是2x3x5 30 100以內既是2和3的倍數又是5的倍數有30 60 90謝謝,請採納 ...
小學畢業留言以內,小學畢業留言100字以內
六年的時間,既不多,也不少。同學們都彼此希望時間能夠停止,不再向前流動。然而時間依舊那麼不緊不慢的在走,竟如流水一般地從我們指縫間流去,滴答滴答 聲中流去。當我們發覺想要去抓抓它時,它已經消隱無蹤。月有陰晴圓缺,人有悲歡離合。我們即將迎來生命中第乙個 離 心中有太多太多的不捨,太多太多的惜別。我們每...
英語作文以內要求看圖,英語作文,100字以內,要求看圖
今天,丁丁的運氣真好,他在樹上抓到了乙隻可愛的小鳥。這只小鳥的羽毛紅紅的,眼睛圓溜溜的,嘴巴尖尖的,有趣極了。丁丁愛不釋手,為了不讓小鳥逃走,就在小鳥的脖子上繫了一根繩子,把小鳥當作乙隻風箏,拽著它在地上跑來跑去。正在丁丁玩得開心的時候,丁丁的耳邊傳來一陣哭聲,他轉身一看,只見乙個小女孩正在驚慌地哭...
100以內的質數有2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 一共25個 2 3 5 7 11 13 17 19 23 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 齊了 開心...