填空题

下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。 Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integer Dim sum As Integer,aver As Single 【12】 For i=1 To 10 a(i)=Int(100*Rnd)+1 sum=sum+a(i) Next i 【13】 Print sum,aver End Sub

【参考答案】

[12]Randomize [13]aver=aver／10
<上一题 目录 下一题>
热门 试题

填空题
以下程序的功能是单击Command1按钮，将输出1～100之间的所有同构数。同构数是指该数出现在它的平方数的右边，如52=25、252=625。 Private Sub Command1_Click() Dim i As Integer,ip As Integer For i=1 To 100 ip= 【9】 If i＜10 Then If 【10】 Then Print i，ip End If Else If 【11】 Then Print i，ip End If End If Next i End Sub
填空题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()n=1f=1s=0For i=1 To nf=f 【8】 s=s+fNextPrint sEnd Sub该事件过程的功能是计算的值。请填空。
相关试题