1樓：匿名使用者
private sub command1_click()dim a(1 to 50) as stringdim b(1 to 26) as stringfor i=1 to 26
b(i)=chr(96+i)
next i
dim n as integer
randomize
print "隨機字母如下:"
for i = 1 to 50
a(i) = b(int(rnd*26+1))print a(i); " ";
if i mod 10 = 0 then printnext i
for i = 1 to 50
if a(i) = "a" then n = n + 1next i
print "字母a出現的次數:"; n
end sub
2樓：匿名使用者
private sub command1_click()dim a(1 to 50) as stringdim n as integer, m as integerdim s as string
s = "abcdefghijklmnopqrstuvwxyz"
randomize
print "隨機字母如下:"
for i = 1 to 50
m = int(rnd * 26 + 1) '產生1到26的整數a(i) = mid(s, m, 1) '從字串s中取出一個字元給陣列a
print a(i); " ";
if i mod 10 = 0 then printnext i
for i = 1 to 50
if a(i) = "a" then n = n + 1next i
print "字母a出現的次數:"; n
end sub
如何做奶油不用淡奶油
1 將4個雞蛋清打散，打成蛋清上面有一小層的小小的泡泡就可以了。2 放一點點鹽 一滴白醋 一勺糖，繼續打雞蛋清。3 打到有點稠的時候，感覺蛋清像沐浴液的沫沫一樣，再加一勺糖，繼續打。4 之後 覺得比第三步中的雞蛋清更稠了的時候加入一勺糖 繼續打 5 在第4步之後打了大約10分鐘 試著用打蛋器將你打的...
豬蹄雞爪不用醬油怎麼做如何做好吃
主料豬蹄1個 雞爪7個 滷菜大料1份 蔥1根 姜6片 料酒適量 白糖3勺 鹽3勺 滷豬蹄雞爪 不用醬油 的做法步驟 1.先把豬蹄，雞爪洗淨，豬蹄切成小塊，材料準備好2.把生薑，蔥，料酒放入水中燒開 3.把豬蹄和雞爪放入水中再次燒開，撈出 4.再用涼水把豬蹄和雞爪清洗乾淨 5.把大料用紗布包起來待用 ...
如何做發糕，請教如何做發糕？
準備食材 大米粉 普通麵粉 酵母 無鋁泡打粉。1 把大米粉，麵粉，酵母，泡打粉混合在一起，並攪拌均勻。2 用溫水和麵，分次將溫水倒入。水要分次放，一邊倒水，一邊觀察麵糊的狀態。3 用勺舀起面來時，可呈現綢帶狀下流，麵糊就是最佳狀態了。4 把屜布打溼，鋪在竹籠屜上。5 把和好的麵糊均勻地倒入籠屜中。最...