问题：
（填空题）请补充以下程序，该程序的功能是产生10个小于100的随机正整数，并统计其中5的倍数所占比例。
Sub PR()
Randomize
Dim a(10)
For j = 1 To 10
a(j) = Int((14))
If (15) Then k = k + 1
Print a(j)
Next j
Print
Print k / 10
End Sub
提问：
请问如何修改上述程序以确保它能够正确地产生10个小于100的随机正整数，并统计其中5的倍数所占比例？这个问题的重点是考察什么知识点？这个章节的主要内容是什么？
复习要点：
理解随机数生成、数组操作以及条件判断在程序中的应用，特别是如何使用随机函数生成特定范围的随机数，以及如何通过条件语句统计特定条件下的数据个数。
查阅资料方向：
查阅编程语言相关的文档，了解随机数生成函数的使用方法，以及数组和条件语句的基本操作。
参考答案：