1樓：匿名使用者
private sub form_click()dim a(10) as string
dim i as integer, k as integerform1.autoredraw = truerandomize
print "產生的十個字母是："
for i = 1 to 10
a(i) = chr(int(rnd * 26 + 97))print a(i);
next
for i = 1 to 10
if a(i) = chr(97) then k = k + 1next
print "出現專
字母 "; chr(97); " 的個數屬是："; k
end sub
2樓：聽不清啊
private sub ***mand1_click()dim a(10) as string * 1randomize
for i = 1 to 10
a(i) = chr(int(rnd * 26) + 97)next i
for i = 1 to 10
print a(i);
next i
end sub
用vb程式設計 產生10個隨機小寫字母放在陣列中,並輸出字母"a"出現的次數
3樓：岔路程式緣
private sub form_click()dim a(10) as string
dim i as integer, k as integerform1.autoredraw = truerandomize
print "產生bai的十個字母是du：zhi"
for i = 1 to 10
a(i) = chr(int(rnd * 26 + 97))print a(i);
next
for i = 1 to 10
if a(i) = chr(97) then k = k + 1next
print "出現字母 "; chr(97); " 的個數是dao："; k
end sub
已經運回行答過。
vb試題用隨機函式產生 10個兩位數的整數放在陣列a中並輸出，用隨機函式產生10個一位數的整數放入數
4樓：匿名使用者
新建一bai工程，在窗體上拖入一du***mand控制元件。然後進zhi入**區
dao，刪除所有**後，粘內貼以下**即容可。
option explicit
private sub ***mand1_click()dim a(9) as integer, b(9) as integer, c(9) as integer
dim i as integer
randomize
clsprint "陣列a", "陣列b", "陣列c"
for i = 0 to 9
a(i) = rnd() * 9 + 10 '產生隨機兩位整數b(i) = rnd() * 9 '產生隨機一位整數c(i) = a(i) + b(i) '將對應的隨機數相加print a(i), b(i), c(i) '結果輸出到窗體上next i
end sub
執行效果如下圖所示：
幫我看一下，用vb程式設計，程式要求：隨機產生15個大寫字母，放到一個陣列裡。
5樓：岔路程式緣
private sub form_click()dim a(15) as string
dim i as integer
randomize timer
i=1do
a(i) = chr(int((90 - 65 + 1) * rnd + 65))
i=i+1
loop until i <15
end sub
6樓：歐米思傢俱
randomize timer
for i = 0 to 14
temp = chr(int((90 - 65 + 1) * rnd + 65))
a(i) = temp
next
7樓：匿名使用者
dim a(18) as string
randomize timer
for i = 0 to 14
temp = chr(int((90 - 65 + 1) * rnd + 65))
a(i) = temp
print a(i)
next i
8樓：匿名使用者
loop until n = 4
這是什麼？
錯了吧！
C語言程式設計程式設計實現將陣列逆序輸出
1 首先開啟軟體vc 6.0軟體，準備一個空白的c語言檔案，引入標頭檔案並寫好主函式 2 然後輸入 首先定義陣列，接著用一個for迴圈接受使用者輸入的陣列元素並將其列印到螢幕上，並儲存到前面的陣列中，然後用第二個for迴圈逆序排序，方法就是前面的元素和後面的元素比較大小，前面比後面小就交換順序，最後...
VB程式設計實現從鍵盤輸入大寫字母，輸出該字母及其對應的ASCII碼值，同時輸出其小
private sub form keypress keyascii as integer print chr keyascii keyascii,lcase chr keyascii asc lcase chr keyascii end sub 從鍵盤輸入一個大寫字母，輸出該字母及其對應的asci...
VB程式設計題，關於完數的輸出，怎麼樣輸出完數的因數
輸出效果如圖所示，當然你可以參照 修改。option explicit 判斷是否為完數 private function checkvalue lngtmp as long as boolean dim lngindex as long,lngmax as long,lngresult as lon...