经典VB编程(必考)

1 1 求下面级数前求下面级数前 s s 项中偶数项的和项中偶数项的和 SUMSUM 在求和过程中 以第一个数值大于 在求和过程中 以第一个数值大于 1000010000 的项为的项为 末项 计算并输出和末项 计算并输出和 SUMSUM 1 2 3 4 1 2 3 4 1 s 1 s 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 2 建立一个建立一个 9 99 9 的整型二维数组 由的整型二维数组 由 RndRnd 函数产生函数产生 10 10 6060 的随机整数对数组初始化 的随机整数对数组初始化 输出数组中所有奇数行元素的和 输出数组中所有奇数行元素的和 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 3 编写一个函数 判断某整数是否为素数 调用该函数 输出区间编写一个函数 判断某整数是否为素数 调用该函数 输出区间 1000 1000 2000 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 4 编写一个函数 求某个数的阶乘 调用该函数计算编写一个函数 求某个数的阶乘 调用该函数计算 22 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 End Sub 479001600 5 5 编写子过程 计算并输出编写子过程 计算并输出 3000 40003000 4000 之间的素数之和之间的素数之和 C C 与其中最小的素数与其中最小的素数 MINMIN Private Sub Command1 Click Dim sum i min As Integer min 0 For i 3000 To 4000 Dim isprime As Boolean True Dim j As Integer For j 2 To i 1 If i Mod j 0 Then isprime False Exit For End If Next If isprime True Then If min 0 Then min i End If If i min Then min i End If C C i End If Next MsgBox sum MsgBox min End Sub sum 1617104 mi 16001 6 6 定义下标上界为定义下标上界为 3535 的整型数组 并赋初值 用的整型数组 并赋初值 用 RndRnd 函数初始化数组 使各个元素的值处函数初始化数组 使各个元素的值处 于于 200 200 300 300 之间 之间 求数组中所有不大于 求数组中所有不大于 350350 的元素之和 的元素之和 Dim a 35 i sum As Integer For i 0 To 35 a i 200 Int Rnd 101 Next For i 0 To 35 If a i 350 Then sum sum a i End If Next print sum 7 7 编写函数 计算编写函数 计算 S 1 1 1 3 1 5 1 9 S 1 1 1 3 1 5 1 9 Private Function Fact ByVal x As Integer As Integer Dim sum i f As Double f 1 For i 1 To 9 f f i If i Mod 2 1 Then sum sum 1 f End If Next Fact sum End Function 8 8 编写一个函数 参数为一维整型数组 编写一个函数 参数为一维整型数组 求所有数组元素中最小值的下标 求所有数组元素中最小值的下标 Public Function max ByRef a As Integer As Integer Dim t As Integer t 0 Dim i As Integer For i 1 To UBound a If a i a t Then t i End If Next max t End Function 9 9 定义一个下标上界为定义一个下标上界为 100100 的整型数组 并为其赋初值 各个元素值处于的整型数组 并为其赋初值 各个元素值处于 500 500 1000 1000 计算数组中所有不大于计算数组中所有不大于 800800 的元素的和 的元素的和 Dim a 100 i sum As Integer For i 0 To 100 a i 500 Int Rnd 501 Next For i 0 To 100 If a i 800 Then sum sum a i End If Next print sum 10 10 计算并输出下面级数中奇数项的和计算并输出下面级数中奇数项的和 SUMSUM 要求在第一次出现 要求在第一次出现 SUMSUM 的绝对值大于的绝对值大于 100100 时结时结 束 束 1 2 2 3 3 4 4 5 1 m 1 m m 1 1 2 2 3 3 4 4 5 1 m 1 m m 1 Private S