自上而下两个文本框的名称分别是Text1和Text2，“开始”按钮的名称是Command1。在Text1

中输入数据，单击“开始”按钮，在Text2中显示统计结果。“开始”按钮单击事件处理过程的流程图如右图所示。请根据流程图将下列程序补充完整

     Private Sub Command1_Click( )

       Dim n As Integer, m As Integer, i As Integer

       Dim x As Single, y As Single

       n = ____

       m=0

       Randomize ′初始化Rnd函数

       For i = 1 To n

       x = Rnd ′随机产生x坐标，0≤x＜1

    y = Rnd ′随机产生y坐标，0≤y＜1

    ____

    Next i

    Text2.Text = Str(m)

     End Sub

共建班级集体
材料：进入初中，一切是那么的新鲜，一切又是那么的好奇，新环境、新同学、新集体、新体验，给了我们新的憧憬。为了加强同学们的互相了解，促进同学们之间的友谊，共创优秀班集体，七年级（1）班准备开一次主题班会。假如你是该班同学，请你完成下列任务：