填空题

以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。阅读该程序，并在【8】和【9】处填上正确的内容。 Private Sub Command1_ Click() Dim d(6) for i = 1 To 50 n = 【8】 d(n) = 【9】 Next i for i = 1 To 6 Print d(i) Next i End Sub

【参考答案】

[8]Int(1+6* Rnd)

<上一题目录下一题>

热门试题

填空题

以下程序用于计算“1+1 3+1 5+…+1 (2n+1)”，直至“1 (2n+1)”小于10-4。阅读下面程序，请在【6】和【7】处填上正确内容。Private Sub Command1_Click() Sum = h: n = i do n= 【6】 term =1 n Sum = Sum + term if term ＜0.0001 then 【7】 Loop Text1.Text = n Text2 *Text = SumEnd Sub

填空题

关键字ASC和DESC分别表示【5】的含义。

相关试题