填空题

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

【参考答案】

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

单项选择题
单击一次命令按钮后，下列程序的执行结果为（ ）。Private Sub Command1_Click()Dim m As Integer，I As Integer，x(10) As IntegerFor I=0 To 4：x(I)=I+1：Next IFor I=1 TO 2：Call Prioc(x)：Next IFor I=0 TO 3：Print x(I)；：Next IEnd Sub Private Sub Prioc(a()As Integer)Static I As IntegerDoa(I)=a(I)+a(I+1)I=I+1Loop While I＜2End Sub
A．private
B．无修饰符
C．public
D．protected
单项选择题
编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode AS Integer，Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住Shift键和锁定大写键时)运行程序，如果按 A 键，则程序输出的结果是（ ）。
A．Panel
B．Frame
C．Applet
D．Dialog
相关试题