填空题

下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 　Sub PR( ) 　　　Randomize 　　　Dim a 　　　For j=1 To 10 　　　　　a(i)=Int( 【 】 ) 　　　　　If 【 】Then k=k+1 　　　　　Print a(j) 　　　　Next j 　　　　Print 　　　　Print k/10 　　End Sub

【参考答案】

(99*Rnd)+1
<上一题 目录 下一题>
热门 试题

填空题
下列程序的功能是：将数据1，2，…，8写入顺序文件Num．txt中，请补充完整。Private Sub Form_Click() Dim i As IntegerOpen Num．txt For Output As #1For i=1 To 8【 】 Next iClose #1End Sub
填空题
在窗体上画 1 个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load()Open d: temp dat.txt For Output As #1Text1.Text = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If _________= 13 ThenIf UCase(Text1.Text) = _________ThenClose #1 End Else Write #1, _________Text1.Text = End If End If End Sub以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文 本框中的内容；如果输入 END ，则结束程序。请填空。
相关试题