急求VB程序题目代码！！！急急急急急！！

33、编写程序，计算200到300之间能被7整除但不能被17整除的所有整数的平均值 Private Sub Form_Click() For a = 200 To 300 If a Mod 7 = 0 And a Mod 17 0 Then s = s + a: n = n + 1 Next a Print s / n End Sub 34、编写程序，求1*2*3*4*5*6的积。 Private Sub Form_Click() s = 1 For a = 1 To 6