题目内容

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

查看答案

搜索结果不匹配？点我反馈

更多问题

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

以下程序的功能是：把当前目录下的顺序文件smtextl.txt的内容读入内存，并在文本框Texd中显示出来。请填空。 Pfivme Sub Commandl_Click() Dim inData As String Textl.Text ="" Open"．\smtextl.txt"【】As1 Do While【】 Input1，in Data Text1.Text=Text1.Text&inData Loop Close1 End Sub

是柴油机排放的主要有害成分之一。

A. CO
B. HC
C. NOX
D. 炭烟

EQ1092型汽车的车轮制动器为()式制动器。

A. 单向助势平衡
B. 双向助势平衡
C. 凸轮
D. 自动增力