兩道二級VB題

2022-10-26 08:05:09 字數 1280 閱讀 7948

1樓:甲蟲

第一題:

dim str(15) as stringdim i as integer

for i = 1 to 15

str(i - 1) = chr(rnd * (25 - 0 + 1) + 67)

next

for i = 1 to 15

print str(i - 1)

next

第二題:

dim num(10) as integer '定義10個元素的陣列,用來存放產生的10個隨機數。

dim i, j as integer '迴圈變數dim temp as integer '臨時變數,用做排序時交換兩數

for i = 1 to 10 '產生隨機數num(i) = int(rnd() * 301) + 100next i

for i = 1 to 10

for j = i + 1 to 10

if num(i) > num(j) thentemp = num(i)

num(i) = num(j)

num(j) = temp

end if

next j

next i

for i = 1 to 10

print num(i);

next i

2樓:匿名使用者

樓上的第一題的回答有點問題,沒有解決不重複的問題正確的應該是這樣:

第一題dim str(1 to 15) as stringdim i as integer

for i = 1 to 15

con:

str(i) = chr(rnd * (25 - 0 + 1) + 67)

for j = i to 1 step -1if str(i) = str(j) then goto connext

next

第二題dim num(1 to 10) as integerdim i, j as integer

dim temp as integer

for i = 1 to 10 '產生隨機數num(i) = int(rnd() * 301) + 100next i

for i = 1 to 10

for j = i + 1 to 10

if num(i) > num(j) thentemp = num(i)

num(i) = num(j)

num(j) = temp

end if

next j

next i

問兩道計算機二級VB的題,有人能幫忙解答一下嗎

第一題你以為是 10 2 8對吧?實際上出for後 10已經變成11了 因此是11 2 9 a 9 9 9 81不信你可以在出for後 print 一下i第二題dim arr 在vb裡預設好像是整數吧,我也忘了這樣能不能宣告成功 後面array 10,20,abcde 很明顯第三個引數出問題了 整數...

兩道語文題,兩道語文題

1.我覺得這樣使得文章的描寫顯得真實,其次這是一種欲揚先抑的寫作手法,用這種方法,使情節多,形成波瀾起伏,造成鮮明對比,容易使讀者在閱讀過程中,產生恍然大悟的感覺,留下比較深刻的印象。從而真實的表現出了作者對啊長的懷念。描寫嘛 真是很為難呢!1.冬日傍晚五六點鐘,太陽已經快要落山了,我們坐在教室裡,...

兩道初二物理題

一 助聽器的主要效能指標 主要效能指標 最大聲輸出 最大聲增益 失真.雜訊 1.最大聲輸出這是指助聽器能把聲音放大的最高限度,也叫飽和聲輸出。國際上把助聽器按這個量劃分為五類 a 105db以下 b 105 114dbe c 115 124db d 125 134db e 135db以上 通常把d類...