UC知道BV高手请进
来源：百度知道 编辑：UC知道 时间：2024/05/14 01:35:27
Randomize
n = CInt(text1.Text)
n1 = 0
n2 = 0
for i=1 to ______ "横线上填什么"
r = Int(Rnd * 2) "这句是什么意思?请高手解答"
if r=_______then
n1 = n1 + 1
Else
n2 = n2 + 1
End If
Next
text2.Text = n1
text3.Text = n2
end sub
n = CInt(text1.Text) 这句是什么意思?
n = CInt(text1.Text)
n1 = 0
n2 = 0
for i=1 to ______ "横线上填什么"
r = Int(Rnd * 2) "这句是什么意思?请高手解答"
if r=_______then
n1 = n1 + 1
Else
n2 = n2 + 1
End If
Next
text2.Text = n1
text3.Text = n2
end sub
n = CInt(text1.Text) 这句是什么意思?
CInt是小数部分四舍五入的意思，n = CInt(text1.Text) 意思把你输入的数值四舍五入转换成整形赋给N。
统计指定个数随机数中的0和1的数目？
Randomize
n = CInt(Text1.Text)
n1 = 0
n2 = 0
For i = 1 To n
r = Int(Rnd * 2) ' 生成随机数0或1
If r = 0 Then
n1 = n1 + 1
Else
n2 = n2 + 1
End If
Next
Text2.Text = n1
Text3.Text = n2
End Sub