1樓：
private sub command1_click()dim a(1 to 6), n, i
randomize
for i = 1 to 200
n = int(rnd * 6) + 1
a(n) = a(n) + 1
next
text1 = "擲骰子200次結果：" & vbcrlffor i = 1 to 6
text1 = text1 & "擲" & i & "點" & a(i) & "次" & vbcrlf
next
end sub
2樓：天天過節
private sub command1_click()dim b(6), c as stringrandomize timer
for i = 1 to 200
a = int(rnd() * 6) + 1b(a) = b(a) + 1
next
for i = 1 to 6
text1 = text1 + str(b(i))next
end sub
vb:連續擲骰子,顯示每次投擲的結果,直至出現6點為止,顯示已投擲的次數。
3樓：匿名使用者
private sub form_click()dim n as integer, m
clsdo until n = 6
randomize
n = int(rnd * 6) + 1
print "點數
：版"; n
m = m + 1
loop
print string(10, "*") & vbnewline & "次數
權："; m
end sub
vb 輸入一個字串,編寫程式統計其中每個字母出現的次數 (不區分字母大小寫)
4樓：聽不清啊
private sub command1_click()
dim a(26) as integer
s = text1.text
for i = 1 to len(s)
b = asc(mid(s, i, 1))
if b >= 97 and b <= 97 + 25 then b = b - 32
if b >= 65 and b <= 65 + 25 then a(b - 64) = a(b - 64) + 1
next i
text2.text = ""
for i = 1 to 26
text2.text = text2.text & chr(64 + i) & "=" & a(i) & " "
if i mod 7 = 0 then text2.text = text2.text & vbcrlf
next i
end sub
5樓：匿名使用者
dim abc(65 to 90) as integerdim ab as integer
for i = 1 to len(text1) '
ab = asc(ucase(mid(text1, i, 1)))if ab > 64 and ab < 91 then abc(ab) = abc(ab) + 1 '是字母a-z
next i
for j = 65 to 90
text2 = text2 & chr(j) & "=" & abc(j) & chr(9)
next j
用c語言編寫一個模擬擲骰子游戲謝謝了，大神幫忙啊
6樓：匿名使用者
對喜歡永遠多點
絕招樹立正反面典型
弄清思緒萬千望穿
7樓：匿名使用者
念，亦是留戀
念，亦是留戀
念，亦是留戀
念，亦是留戀
念，亦是留戀
念，亦是留戀
念，亦是留戀
念，亦是留戀
8樓：再一次
#include
#include
#include
#include
int roll_dice(void);
bool play_game(void);
int main(void)
else
}//用來儲存y(y)或其他字母
printf("\nplay again?");
ch1=getchar();
ch2=getchar();
printf("\n");
//判定是否繼續
return 0;
}//兩個隨機數的總和
int roll_dice(void)
bool play_game(void)
else if(x==2||x==3||x==12)else
}//兩次以上的判定
if(x==4||x==5||x==6||x==8||x==9||x==10)
else
} else if(x==7)
else}}
9樓：
然而，要是沒有這樣的一份遇見
高手幫忙寫個AMD主機配置，求大神幫忙寫個電腦主機配置單 謝謝
cpu amd a10 5800k 680主機板 技嘉f2a85xm ds2 400記憶體 宇瞻ddr3 4gb 185 硬碟 西數500gb aakx 300電源 安鈦克bp300plus 180機箱 100元左右，自選 這是第一套，不到1900元的，下面是第二套帶獨立顯示卡的cpu amd x4...
求大神幫忙，用VB設計程式，有兩個題目
dim a as integer,b as integer,t as integer,s as integer private sub command1 click if option1.value true then msgbox a b str a b else if option2.value...
尋求VB高手，幫忙做個程式
option explicit private sub check1 click index as integer check1 index 1 check1 index dim i j text1.text j 0 for i 0 to 34 if check1 i 1 then text1.te...