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類...