vb隨機生成1到100隨機數 VB編程模擬拋硬幣，生成N個隨機數。大于0.5的代表正面。小于等于0.5的代表反面，統計正反面各多少次？
VB編程模擬拋硬幣，生成N個隨機數。大于0.5的代表正面。小于等于0.5的代表反面，統計正反面各多少次？Private Sub Command1_uu2;Click（）dim I as integer
VB編程模擬拋硬幣，生成N個隨機數。大于0.5的代表正面。小于等于0.5的代表反面，統計正反面各多少次？
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:”）對于I=1 to n randomize t=rnd（），如果t> 0.5，則num1=num1，否則num2=num2 1 end if next print num1 print“負數為：”&num2end subnum1 is used要記錄正數，num2用來記錄負數，rnd（）是0到1之間的隨機數，其他寫為：int（（上界-下界1）*rnd下界）哈哈，VB初學者，笑一笑