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

阅读下列材料，回答问题。

材料一：19世纪末20世纪初，欧洲列强争夺巴尔干的霸权地位更加激烈，小规模、小范围的战争不断发生。火星四溅的巴尔干成为欧洲战争一触即发的“火药桶”。

材料二：斯大林格勒战役胜利后，二战最艰难的日子已经过去，大反攻的日子终于来临。“美英盟军抢滩登陆”、苏联军队抢先占领柏林；面对日本法西斯发出“本土决战”的狂吠，苏联对日宣战、美军重拳出击、中国抗日武装展开了全国规模的反攻……

根据材料回答：

（1）材料一中引爆了“火药桶”的火星是指哪一事件？（1分）这一事件所引发的战争开始的标志是什么？（1分）

（2）材料二中“美英盟军抢滩登陆”的事件是什么？（1分）这一事件距今已多少周年？（1分）

（3）材料二中“苏联对日宣战”是在哪一国际会议上作出的决定？（1分）

(4) 除材料中涉及的问题外，请再举出一例威胁人类安全的重大问题。（1分）

（5）战争的硝烟早已散尽，反思世界大战的历史，你从中得到的启示有哪些？（2分）