(完整word)VB程序设计编程考试题及答案,推荐文档

13. 我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。

Private Sub Command1_Click() Dim a, i a = 13 i = 0

Do While a < 26 a = a * (1.008) i = i + 1 Loop Print i End Sub

14. 小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都

吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？

Private Sub Command1_Click() Dim a, i a = 1

For i = 1 To 6 a = 2 * (a + 1) Next i

Print \小猴原有桃\”只” End Sub

15. 求100以内的素数

Private Sub Command1_Click() Dim i, j

For i = 2 To 100 For j = 2 To i - 1

If i Mod j = 0 Then Exit For Next j

If j = i Then Print i Next i End Sub

16. 百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方

案。

Private Sub Command1_Click()

Print \小鸡\ \母鸡\ \公鸡\Print \

For x = 1 To 100 For y = 1 To 100 For z = 1 To 100

If 0.5 * x + 2 * y + 3 * z = 100 Then Print \ \ \End If

Next z Next y Next x End Sub

17. 编程求斐波那契数列前11项。（斐波那契数列：F(0)=f(1)=1, F(n)=F(n-1)+F(n-2) n>=2 ）

Private Sub Command1_Click() Dim F(11), i As Long F(0) = 1 F(1) = 1

For i = 2 To 10

F(i) = F(i - 1) + F(i - 2) Next i

For i = 0 To 11 Print F(i); Next i End Sub

18. 将输入的字符串以反序显示。例如：输入“ASDFGT”，显示“TGFDSA”

Private Sub Command1_Click() Dim a, b, c, d, n

a = InputBox(\输入字符串\n = Len(a)

For b = 1 To Int(n \\ 2) c = Mid(a, b, 1)

Mid(a, b, 1) = Mid(a, n - b + 1, 1) Mid(a, n - b + 1, 1) = c Next b Print a End Sub

19. 随机产生10个[30,100]内的整数，求最大值及所对应的下标

Private Sub Command1_Click() Dim a(1 To 10), m Randomize For I = 1 To 10

a(I) = Int(Rnd * 71) + 30 Print a(I) Next I Max = a(1) For I = 2 To 10

If a(I) > Max Then Max = a(I): m = I Next I

Print \

Print \的下标为\End Sub

20. 随机产生10个[30,100]内的整数，求最大值、最小值和平均值。

Private Sub Command1_Click() Dim a(1 To 10) For i = 1 To 10

a(i) = Int(Rnd * 71) + 30 Print a(i) Next i

Max = a(1) Min = a(1) Avg = a(1) For i = 2 To 10

If a(i) > Max Then Max = a(i) If a(i) < Min Then Min = a(i) Avg = Avg + a(i) Next i

Avg = Avg / 10 Print \Print \Print \End Sub

21. 随机产生10个[30,100]内的整数，求最小值及所对应的下标。

Private Sub Command1_Click() Dim a(1 To 10), m Randomize For I = 1 To 10

a(I) = Int(Rnd * 71) + 30 Print a(I) Next I Min = a(1) For I = 2 To 10

If a(I) < Min Then Min = a(I): m = I Next I

Print \

Print \的下标为\End Sub

22. 随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。

Private Sub Command1_Click()

Dim a(1 To 10, 1 To 10), i, j As Integer For i = 1 To 10 For j = 1 To 10

a(i, j) = Int(Rnd *11 + 10) Next Next

For i = 1 To 10 For j = 1 To i

Print Spc(3); a(i, j); Next Print Next End Sub

23. 随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。

Private Sub Command1_Click() Dim a(1 To 10) For i = 1 To 10

a(i) = Int(Rnd * 101) + 1 Print a(i) Next i

Max = a(1) Min = a(1) Avg = a(1) For i = 2 To 10

If a(i) > Max Then Max = a(i) If a(i) < Min Then Min = a(i) Avg = Avg + a(i) Next i

Avg = Avg / 10 Print \Print \Print \End Sub

24. 利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所

有数据之和

Private Sub Command1_Click() Dim a%(4, 5), sum For i = 1 To 4 For j = 1 To 4

a(i, j) = Int(Rnd * 31) + 20 Print a(i, j);

sum = sum + a(i, j)