VB编程题及答案.pdfVIP

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