经典VB编程(必考).docVIP

1.求下面级数前s项中偶数项的和SUM。在求和过程中，以第一个数值大于10000 的项为末项，计算并输出和SUM。1!-2!+3!-4!+ … +(-1)^(s-1)*s!+ …… Private Sub Command1_Click() Dim n As Integer Dim item As Double Dim sum As Double sum = 0 n = 2 Do While True item = 1 Dim i As Integer For i = 2 To n item = item * i Next sum = sum + item If item 10000 Then Exit Do Else n = n + 2 End If Loop sum = -1*sum MsgBox (sum) End Sub sum = 368047 2.建立一个9×9的整型二维数组（由Rnd函数产生[10，60）的随机整数对数组初始化），输出数组中所有奇数行元素的和。 Dim A(8, 8) As Integer Dim i, j As Integer For i = 0 To 8 For j = 0 To 8 A(i, j) = 10+Int(Rnd() *51) Next Next Dim sum As Integer For i = 0 To 8 Step 2 For j = 0 To 8 sum = sum + A(i, j) Next Next Text1.Text = sum所有奇数行元素的和为：506 3.编写一个函数，判断某整数是否为素数。调用该函数，输出区间[1000，2000] 内所有素数的和。 Private Function isprime(ByVal n As Integer) As Boolean Dim i As Integer For i = 2 To n - 1 If n Mod i = 0 Then isprime = False Exit Function End If Next isprime = True End Function Private Sub Command1_Click() Dim i As Integer Dim sum As Long For i = 1000 To 2000 If isprime(i) = True Then sum = sum + i End If Next Text1.Text = sum= sum End Sub sum= 419684 4.编写一个函数，求某个数的阶乘。调用该函数计算22!。 Public Function fact(ByVal n As Integer) As Long Dim i As Integer, f As Long f = 1 For i = 1 To n f = f * i Next i fact = f End Function Private Sub Command1_Click() Dim m As Integer, i As Integer, s As Long m = InputBox(输入一个正整数：) s = fact(m) MsgBox (s)