Private Sub command1_click()

  Dim X, N As Integer

  im count As Integer 'count 用来保存能被 6 整除余 2 的数据的个数

  Randomize Timer '随机数初始化，以时钟为随机数种子

  For N = 1 To 50

      X = {#blank#}1{#/blank#}+ int(Rnd * 40) '随机产生 50 个 60~100 的随机数

      If X Mod 6 = 2 Then

        List1.AddItem Str(X)

        {#blank#}2{#/blank#}

      End If

    Next N

  Label1.Caption=str（count）

End Sub

得2枚金币，再接下来的3天（第4、5、6 天）每天获得3枚金币……，依次类推，即当连续n天每天获得n枚金币后，会在之后的连续n+1天里，每天获得n+1枚金币。

小王用VB编写了工资计算程序，当输入连续工作的最后一天的日期后，单击“计算”按钮 Command1，程序自动计算工资总额，其运行界面如图所示。

实现上述功能的VB 程序如下，请回答下列问题：