下面程序的功能是利用随机数函数模拟掷骰子。方法是每次随机产生一个1～6的整数，相当于一次掷骰子。程序运行后，在Text2文本框中输入总投掷次数（例如10000），单击"开始投掷"按进行模拟掷骰子，并把出现1～6的次数分别显示在文本框数组Text1（从上到下各文本框的下标为0～5）的各元素中，如图所示。【图片】Private Sub Command1_Click() Dim a(6) Randomize n = Int(Text2.Text) For k = 1 To n n = Int(Rnd * 6) + 1 a(n)= _______________ Next k For n = 0 To 5 Text1(n).Text = a(n + 1) Next nEnd Sub该程序不完整，在横线上应填写的是_______________。