VB编程题及答案.docVIP

1定义一个下标上界为10整型数组，并用随机函数为其赋值（值处于[0,100]之间），计算数组中所有偶数的和。 Private Sub Command1_Click() Randomize Dim a%(10) Dim i%, s% For i = 0 To 10 a(i) = 101 * Rnd() Next For i = 0 To 10 If a(i) Mod 2 = 0 Then s = s + a(i) End If Next Print 所有偶数的和为, s 2 设 S=35，C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面7位。 C/1!-C^3/3!+C^5/5!- … +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ … 参考答案如下： Private Sub Command1_Click() Dim n As Integer Dim x As Double x = 0.3 Dim item As Double Dim sum As Double Dim fac As Double For n = 1 To 35 fac = 1 Dim i As Integer