填空题

下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。 　　Sub TOF( ) 　　Randomize 　　Dim s As Double 　　Dim a(10) As lnteger 　　For i=0 To 9 　　　　　　【10】　 　　Next 　　For i=0 To 9 　　　　If　【11】　Then 　　　　　Print a(i) 　　　　　s=s+a(i) 　　　　　【12】　 　　Next i 　　Print 　　Print "S=" ; s 　　End Sub

【参考答案】

【10】a(i)=Int(Rnd * 200+100)
<上一题 目录 下一题>
热门 试题

填空题
下面是程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下：程序不完整，请填空，将程序的补充完整Option ExplicitDim x As SingleDim y As SingleDim z As SinglePrivate Sub Command1_Click( )x=Val(InputBox( x= ) )y=Val(InputBox( y= ) )Private Sub Command2_Click( )If 【13】 Thenz=x ^ 2 + y ^ 2ElseIf 【14】 Thenz=x ^ 2-2 * y^2【15】 z=y ^ 2 - 3 * x ^ 2End IfForm1．Print 当x，y 的值为： ； x，yForm1．Print f(x，y) 的值为: ： zEnd sub
填空题
如果在D盘当前文件夹下已2经存在名为PIC．day的顺序文件，那么执行语句Open D: PIC．dat For Append As #1 之后将 【7】 。
相关试题