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

来源：百度知道 编辑：UC知道 时间：2024/06/15 07:26:16
33、编写程序，计算200到300之间能被7整除但不能被17整除的所有整数的平均值
34、编写程序，求1*2*3*4*5*6的积。
35、设n=15，编写程序，计算并输出S的值。
S=1+2^3+3^3+4^3+…+n^3+…（其中，^ 表示幂运算）
36、声明一个含10个元素的一维数组，运行时单击窗体，利用InputBox函数以循环方式给数组赋值。输入完成后，单击命令按钮"显示"，以适当方式显示数组中后5个数的平均值。
37声明一个含10个元素的一维数组，运行时单击窗体，利用InputBox函数以循环方式给数组赋值。输入完成后，单击命令按钮"显示"，适当方式显示数组中的所有元素。（30分）
38、在窗体上画一命令按钮Command1和一文本框Text1,单击命令按钮Command1,随机产生300个随机小写字母，并在文本框Text1中显示。
39、由键盘输入小时、分、秒，换算成秒，并打印出来。
40、输入x,y，计算并输出表达式x*x*x+y*y*y的平方根的值

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
s = s * a
Next a
Print s
End Sub

35、设n=15，编写程序，计算并输出S的值。
S=1+2^3+3^3+4^3+…+n^3+…（其中，^ 表示幂运算）
Private Sub Form_Click()
s = 0
For n = 1 To 15
s = s + n ^ 3
Next n
Print s
End Sub

36、声明一个含10个元素的一维数组，运行时单击窗体，利用InputBox函数以循环方式给数组赋值。输入完成后，单击命令按钮"显示"，以适当方式显示数组中后5个数的平均值。
Dim a(1 To 10) As Integer

Private Sub Command1_Click()
s = 0
For c = 6 To 10
s = a(c) + s
Next c
Print s / 5
End Sub

Private Sub Form_Click()
For b = 1 To 10
a(b) = InputBox(x)
Next b

End Sub

37声明一个含10个元素的一维数组，运行时单击窗体，利用InputBox函数以循环方式给数组赋值。输入完成