1樓：匿名使用者
dim str as string = "", res as integer = 0, x, y as integer
dim a(500), b(6) as bytefor i = 1 to 6
b(i) = 0
next
for i = 1 to 500
a(i) = int(rnd() * 6 + 1)select case a(i)
case 1
b(1) = b(1) + 1
case 2
b(2) = b(2) + 1
case 3
b(3) = b(3) + 1
case 4
b(4) = b(4) + 1
case 5
b(5) = b(5) + 1
case 6
b(6) = b(6) + 1
end select
next
for i = 1 to 6
str = str & "數字" & i & "出現" & b(i) & "次" & vbcrlf
next
textbox6.text = str
2樓：設計營地
private sub command1_click()dim i as integer, j as integer, a(6) as integer
for i = 1 to 500
randomize
j = fix(rnd * 6) + 1
'print j;
'if i mod 17 = 0 then printa(j) = a(j) + 1
next
for i = 1 to 6
print i & "="; a(i)
next
end sub
3樓：瘋狂小鳥
如圖，望採納。。。。
編寫程式，輸入一個正整數n，統計n中不同數字出現的次數。
4樓：大野瘦子
程式為：
#include int main()
;while(num!=0
num/=10;
}for(i=0;i<10;i++)
}注意事項
public class test01
}system.out.println("共出現了"+count + "次"); } }
5樓：砍侃看
#include
int main()
;while(num!=0)
num/=10;
}for(i=0;i<10;i++)}
在vb中，1234、123456&、1.2346e＋5、1.2346d＋5這4個常數分別表示---
6樓：網海1書生
1234 整型（integer），因為它小於32768，vb會預設認為它是個整型數
123456& 長整型（long），因為它後面有長整型定義符&1.2346e+5 雙精度浮點型（double），這是科學計數法，vb會自動把它認作雙精度浮點數
1.2346d+5 雙精度浮點型（double），同上
7樓：北半球
第三個不是單精度嗎？
vb 中怎麼用隨機函式產生10 100之間的互不相同的
思路是先設定一個定額陣列 要取的值一一對應位置,每次抽取隨機量就對比對應位置的值是否為0 如果不為0 就取 並置為0 直到取完為止 注意的是 待抽陣列的長度一定要大於或等於要抽的數量 否則有可能進入死迴圈 private sub form click 定義一個陣列,兩個變數 dim a 90 rnu...
vb隨機產生1 9的整數放入5 5的二維陣列中輸出,且統計出邊界元素之和與對角線元素之和
編制單擊窗體的事件過程，做如下處理 從檔案c a.txt中依次讀出20個學生的學號以及2門功課成績，統計每個學生的總分，並按照總分從高到低進行排序，然後將學生資訊按照總分從高分到低分輸出到c b.txt。輸入檔案c a.txt格式 0001 20,30 0002 80,90 輸出檔案c b.txt格...
設計程式vb隨機產生10到100之間（包括10和
private sub command1 click on error resume next dim a 5 as integer randomize int upperbound lowerbound 1 rnd lowerbound for i 0 to 3 b c 0 for j 1 to ...