vb隨機(jī)生成1到100隨機(jī)數(shù) VB編程模擬拋硬幣，生成N個(gè)隨機(jī)數(shù)。大于0.5的代表正面。小于等于0.5的代表反面，統(tǒng)計(jì)正反面各多少次？
VB編程模擬拋硬幣，生成N個(gè)隨機(jī)數(shù)。大于0.5的代表正面。小于等于0.5的代表反面，統(tǒng)計(jì)正反面各多少次？Private Sub Command1_uu2;Click（）dim I as integer
VB編程模擬拋硬幣，生成N個(gè)隨機(jī)數(shù)。大于0.5的代表正面。小于等于0.5的代表反面，統(tǒng)計(jì)正反面各多少次？
Private Sub Command1_uu2;Click（）dim I as integer，n as integer，num1 as integer，num2 as integer n=Val（InputBox（“please input the number of times to flip a coin:”）對(duì)于I=1 to n randomize t=rnd（），如果t> 0.5，則num1=num1，否則num2=num2 1 end if next print num1 print“負(fù)數(shù)為：”&num2end subnum1 is used要記錄正數(shù)，num2用來(lái)記錄負(fù)數(shù)，rnd（）是0到1之間的隨機(jī)數(shù)，其他寫為：int（（上界-下界1）*rnd下界）哈哈，VB初學(xué)者，笑一笑