vb情报搜集解析.doc

编程题： 1，100 到 10000 素数和 Private Sub Command1_Click() Dim i!, j!, s! s = 0 For i = 100 To 10000 For d = 2 To Sqr(i) If i Mod d = 0 Then Exit For Next If d Sqr(i) Then s = s + i End If Next Print s End Sub 2，文本中数据的所有奇数的和 3，文件中素数（质数）之和 4，1*2，2*3，3*4,4*5...........n(n+1）前二十项和 5，下载数据文件data0002.txt到自己的机器中，编程统计出该数据文件中共有多少个素数 Private Sub Command1_Click() Dim n, i% Open H:\data0002.txt.txt For Input As #1 Do While Not EOF(1) Input #1, c For i = 2 To c - 1 If c Mod i = 0 Then Exit For Next If i = c Then n = n + 1 End If Loop Close Print n 6，10到2000的7的倍数之和 Private Sub Command1_Click() Dim i%, sum! sum = 0 For i = 10 To 2000 If i Mod 7 = 0 Then sum = sum + i Next Print sum End Sub 7，通项：(-1)^(n-1)*n*(n+1)(n+2),35项和 8，统计文件中英文字母的个数 Private sub command1_click() Dim a (1to 26)as integer ,c as string *1 Le = len (text1) For i=1 to le C=ucase(mid(text1,I,1)) If c =”a”and c=”z”then J=asc(c)-65+1 A(j)=a(j)+1 End if Next i For j=1to 26 If a(j)0then picture1.print””;chr(j+64);”=”;a(j); Next j End sub 9，斐波那契数列的前43项中奇数个数 10，统计四位数中，千位乘十位等于百位乘个位的数有多少项 11，找出文件中奇数项（1，3，5。。。。项）中最小的数 12，1*2+1*2*3+1*2*3*4........前多少项之和 13.txt文件里所有数从大到小排序输出。。。 Private Sub Form_Load() Dim a(1 To 10) As Integer, i%, n% Open d:\2.txt For Input As #1 Do While Not EOF(1) For i = 1 To 10 Input #1, a(i) Print a(i) Next Loop For i = 1 To 9 For j = 1 To 10 - i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t Next j Next i For i = 1 To 10 Print a(i); Next i: Print End Sub 14，找出从500开始第1000项素数 Private sub command1_click() Dim I, j, n I=500 Do For i=2 to i-1 If I mod j =0 then Exit for End if Next If j i-1then N=n+1 End if I=i+1 Loop until n=1000 ?i-1 End sub 15，统计文本中个位数为六的数的个数 16，1+（1+3）+（1+3+5）。。。。。。前二百项的和 17，编写程序，计算出从1000开始的100个素数的和是多少？写出计算结果 Private Sub Command1_Click() Dim m%, sum! n = 1000 Do While i 100 For m = 2 To n - 1 If n Mod m = 0 Then Exit For Next If m = n Then sum = sum + n i = i + 1 End If n = n + 1 Loop P