VB编程25道大题

郑州大学vb考试大题25道。~

一，

1+(1+2)+(1+2+3)+

Private Sub Command1_Click() Do Until s > 50000 i = i + 1 t = t + i s = s + t Loop Print i End Sub

二，

1+(1+2)+(1+2+3)+++前300项中偶数的和 Private Sub Command1_Click() For i = 1 To 300 i = i + 1 t = t + i

If t Mod 2 = 0 Then s = s + t End If Next i Print s End Sub

三，

1-1000之间的完全数

Private Sub Command1_Click() For i = 2 To 1000 k = 0

For j = 1 To i - 1 If i Mod j = 0 Then k = k + j End If Next j

If k = i Then Print k Next i End Sub 四，

100-2000之内首尾之和为五的素数之和 Private Sub Command1_Click() For i = 100 To 2000 flag = 0

For j = 2 To Sqr(i)

If i Mod j = 0 Then flag = 1 Next j

If flag = 0 Then If i \ 1000 = 0 Then a = i \ 100 b = i Mod 10 If a + b = 5 Then s = s + i End If

Else

a = i \ 1000 b = b Mod 10 If a + b = 5 Then s = s + i End If End If End If Next i Print s End Sub

或

Private Sub Command1_Click() For i = 100 To 2000 For j = 2 To i - 1

If i Mod j = 0 Then Exit For Next j

If j > i - 1 And Val(Right(i, 1)) + Val(Left(i, 1)) = 5 Then s = s + i Next i Print s End Sub 五，

100-10000中素数的个数 Private Sub Command1_Click() For i = 100 To 10000 flag = 0

For j = 2 To Sqr(i)

If i Mod j = 0 Then flag = 1 Next j

If flag = 0 Then n = n + 1 Next i Print n End Sub 六，

500以内个位是3的素数 Private Sub Command1_Click() Dim a%, b%, c% For a = 1 To 500 b = a Mod 10 If b = 3 Then

For c = 2 To Sqr(a)

If a Mod c = 0 Then Exit For Next c

If c > Sqr(a) Then Print a End If Next a End Sub 七，

10000-20000之间第100个素数 Private Sub Command1_Click()

郑州大学vb考试大题25道。~

i = 9999 Do i = i + 1 flag = 0

For j = 2 To Sqr(i)

If i Mod j = 0 Then flag = 1 Next j

If flag = 0 Then n = n + 1 Loop Until n = 100 Print i End Sub

八。，

产生10000个随机数

Private Sub Command1_Click()

Open "C:\Users\l\Desktop\123.txt" For Output As #1 For i = 1 To 10000 b = Int(Rnd * 9999) Write #1, b Next i Close End Sub 九，

从500开始第1000个素数 Private Sub Command1_Click() i = 500

Do Until n = 1001 flag = 0

For j = 2 To Sqr(i)

If i Mod j = 0 Then flag = 1 Next j

If flag = 0 Then n = n + 1 i = i + 1 Loop Print i - 1 End Sub 或

Private Sub Command1_Click() n = 0 i = 500

Do While n <= 1000 For j = 2 To i - 1

If i Mod j = 0 Then Exit For Next j

If j = i Then n = n + 1 i = i + 1 Loop Print i - 1 End Sub 十，

从1000开始前100个素数和

Private Sub Command1_Click() i = 1000

Do Until n = 100 i = i + 1 flag = 0

For j = 2 To Sqr(i)

If i Mod j = 0 Then flag = 1 Next j

If flag = 0 Then n = n + 1: s = s + i Loop Print s End Sub

十一，

第51-10000个数中末位为7且为素数的个数 Private Sub Command1_Click() Dim a() As Long

Open "C:\Users\l\Desktop\123.txt" For Input As #1 For i = 1 To 10000 ReDim a(i) As Long Input #1, a(i) If i > 50 Then flag = 0

If a(i) Mod 10 = 7 Then For j = 2 To Sqr(a(i))

If a(i) Mod j = 0 Then flag = 1 Next j

If flag = 0 Then n = n + 1 End If End If Next i Print n Close End Sub 十二，

读前1000个再统计大于1000且不能被整除的个数 Private Sub Command1_Click() n = InputBox("请输入n的值")

Open "C:\Users\l\Desktop\123.txt" For Input As #1 For i = 1 To 1000 Input #1, a

If a > 1000 And a Mod n <> 0 Then s = s + 1 Next i Close

If s <> 0 Then Print s

If s = 0 Then MsgBox ("没有符合要求的数值") End Sub 十三，

读未知长度的文件数值排序并求和 缺失 十四，

郑州大学vb考试大题25道。~

读文件前10000个数从小到大排序并求第5000-6000个数中大于1000且为奇数的数的平均数 Private Sub Command1_Click() Dim a() As Long

Dim b(1 To 10000) As Long

Open "C:\Users\l\Desktop\123.txt" For Input As #1 For i = 1 To 10000 ReDim a(i) As Long Input #1, a(i) b(i) = a(i) Next i Close

For j = 1 To 9999 For i = 1 To 10000 - j

If b(i) > b(i + 1) Then t = b(i): b(i) = b(i + 1): b(i + 1) = t Next i Next j

For i = 5000 To 6000

If b(i) > 1000 And b(i) Mod 2 <> 0 Then s = s + b(i) n = n + 1 End If Next i Print s / n

End Sub， 十五， 读文件求和

Private Sub Command1_Click() AutoRedraw = True Dim a() As Integer

Dim b(1 To 9999999) As Integer

Open "C:\Users\l\Desktop\123.txt" For Input As #1

Open "C:\Users\l\Desktop\456.txt.bat" For Output As #2 i = 0

Do While Not EOF(1) i = i + 1

ReDim a(i) As Integer Input #1, a(i) s = s + a(i) b(i) = a(i) Loop

Print "共有"; i; "个数，其和为"; s; "排序见于桌面456.txt文档中" k = i

For j = 1 To k - 1 For i = 1 To k - j

If b(i) > b(i + 1) Then t = b(i): b(i) = b(i + 1): b(i + 1) = t Next i Next j

For i = 1 To k

Write #2, b(i) Next i Close End Sub

十六，

斐波那契数列前43项中能被7整除的数的个数 Private Sub Command1_Click() a = 1 b = 1

For i = 1 To 43 c = a + b a = b b = c

If c Mod 7 = 0 Then n = n + 1 Next Print n End Sub 十七，

能被7整除的五位数千位十位交换位置扔能被7整除的五位数的个数

Private Sub Command1_Click() For i = 10000 To 99999 If i Mod 7 = 0 Then a = Mid(i, 2, 1) b = Mid(i, 4, 1)

c = i - a * 1000 - b * 10 + a * 10 + b * 1000 If c Mod 7 = 0 Then n = n + 1 End If Next i Print n End Sub 十八，

求1--10000中所有同构数 Private Sub Command1_Click() For i = 1 To 10000 n = i * i c = Len(i)

s = n Mod (10 ^ c)

If s = i Then Print i: x = x + 1: Sum = Sum + i Next i

Print "1到10000之间共有" & x & "个同构数，其和为" & Sum End Sub

十九，

求10000-20000之间的素数 Private Sub Command1_Click()

Open "C:\Users\l\Desktop\123.txt" For Output As #1 For a = 10000 To 20000 For c = 2 To Sqr(a)

If a Mod c = 0 Then Exit For

郑州大学vb考试大题25道。~

Next c

If c > Sqr(a) Then Write #1, a Next a Close

MsgBox ("输出的结果在桌面上123.txt文件里") End Sub

二十， 求PI

Private Sub Command1_Click() Dim a!, b!, c!, d!, e&, pi! c = 0 d = 0

Randomize

For e = 1 To 99999999 a = Rnd * 2 - 1 b = Rnd * 2 - 1

If a * a + b * b <= 1 Then c = c + 1 Else d = d + 1 End If Next e

pi = c * 4 / (c + d) Text1 = pi End Sub 二十一，

求前10000个数中末位为1且为素数的和 Private Sub Command1_Click() Dim a(1 To 10000) As Integer

Open "C:\Users\l\Desktop\123.txt" For Input As #1 For i = 1 To 10000 Input #1, a(i) Next i i = 0 flag = 0

For i = 1 To 10000

If a(i) Mod 10 = 1 And a(i) <> 1 Then For j = 2 To Int(Sqr(a(i)) + 0.5) If a(i) Mod j = 0 Then flag = 1 Next j

If flag = 0 Then s = s + a(i) End If flag = 0 Next i Print s Close End Sub 二十二， 求最大公约数

Private Sub Command1_Click() Dim m%, n%, l%, r% m = Text1 n = Text2 If m < n Then l = m m = n n = l End If

r = m Mod n Do While r <> 0 m = n n = r

r = m Mod n Loop Text3 = n End Sub 二十三，

未知长度文件读取排序求50--2000位置的数的和 Private Sub Command1_Click() AutoRedraw = True Dim a() As Integer

Dim b(1 To 99999999) As Integer

Open "C:\Users\l\Desktop\123.txt" For Input As #1 i = 0

Do While Not EOF(1) i = i + 1

ReDim a(i) As Integer Input #1, a(i) s = s + a(i) b(i) = a(i) Loop

Print "共有"; i; "个数" k = i

For j = 1 To k - 1 For i = 1 To k - j

If b(i) > b(i + 1) Then t = b(i): b(i) = b(i + 1): b(i + 1) = t Next i Next j

For i = 50 To 2000 s = s + b(i) Next i Print s Close End Sub 二十四，

文件中大于500的前100个素数 Private Sub Command1_Click() Dim a() As Long

Open "C:\Users\l\Desktop\123.txt" For Input As #1 Do Until n = 100

郑州大学vb考试大题25道。~

ReDim a(i) As Long

Input #1, a(i)

If a(i) > 500 Then

flag = 0

For j = 2 To Sqr(a(i))

If a(i) Mod j = 0 Then flag = 1

Next j

If flag = 0 Then n = n + 1: Print a(i)

End If

Loop

Close

End Sub

二十五，

写文件读文件冒泡法排序并求50-2000位置的数的和 Private Sub Command1_Click()

Form1.Cls

Randomize

AutoRedraw = True

Dim a() As Integer

Dim b(1 To 2000) As Integer

Dim n%, i%, s&, j%, t%, c%

Open "C:\Users\l\Desktop\123.txt" For Output As #1 For i = 1 To 2000

c = Int(Rnd * 32767)

Write #1, c

Next i

Close

i = 0

Open "C:\Users\l\Desktop\123.txt" For Input As #1 Do While Not EOF(1)

i = i + 1

ReDim a(i)

Input #1, a(i)

b(i) = a(i)

Loop

Close

For j = 1 To 1999

For i = 1 To 2000 - j

If b(i) > b(i + 1) Then t = b(i): b(i) = b(i + 1): b(i + 1) = t Next i

Next j

Open "C:\Users\l\Desktop\456.txt" For Output As #2 For i = 1 To 2000

Write #2, b(i)

Next i

Close

For i = 50 To 2000

s = s + b(i)

Next i

Print "其和为"; s End Sub