vb第三章习题

1. 输入三角形的三条边a,b,c的值，根据其数值，判断能否构成三角形。若能则求出三角形的面积。

2. 编一程序：根据上网时间计算上网费用。计算的方法如下：为了鼓励多上网，每月收费最多不超过100元。

30元基数＜10 h

费用＝每小时2元10～60 h

每小时1.5元＞60 h

3. 有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，问这个阶梯至少有多少阶?

4. 一个球从100 m高度自由下落，每次落地后反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少m？最后一次反弹高度多少？

Private Sub Command1_Click()

Dim height, sum As Double

height = 100

sum = 0

For i = 1 To 10

sum = sum + height

height = height / 2

Next i

Text1.Text = sum

Text2.Text = height

End Sub

5. 有一根长度为321 m的钢材料，要将它截取成两种规格的短料，规格a、b的长度分别为17 m和27 m，问分隔成a、b各多少段后，剩余的残料r最少？

6. 小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子中的一半多一个，以后每天都吃剩下桃子中的一半零一个，到第7天早上要吃时只剩下一个了，问小猴那天共摘下了多少个桃子？

7. 某次大奖赛，有7个评委打分，满分为100分。对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。编写程序输入评委的打分，输出参赛者的得分。

Dim max As Integer, min As Integer

Dim i As Integer, s As Integer, f As Integer

max = 0

min = 100

For i = 1 To 7

f = InputBox("请输入评委的打分")

If f > max Then max = f

If f < min Then min = f

s = s + f

Next i

aver = (s - max - min) / 5

Print "参赛者最后得分为:"; aver, max, min

8. 输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。

9. 由键盘输入一个正整数，找出大于或等于该数的第一个质数。

10.“完备数”是指一个数恰好等于它的因子之和，如6的因子为1、2、3，而6=1+2+3,因而6就是完备数。编程找出1～1000之间的全部“完备数”。

Private Sub Command1_Click()

Dim n, r, j, i As Integer

n = 1000

For i = 1 To n - 1

r = 0

For j = 1 To i - 1

If i Mod j = 0 Then

r = r + j

End If

Next

If r = j Then

Print "结果是:" & r

r = 0

End If

Next

End Sub

11. 勾股定理中三个数的关系是：a^2 + b^2 =c^2。编写程序，输出100以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。

12. 编写程序，打印如下的乘积表：

* 3 6 9 12

15

16

17

18

Private Sub Form_Load()

Me.Show

a = Array(1, 3, 6, 9, 12)

b = Array(1, 15, 16, 17, 18)

For i = 0 To 4

For j = 0 To 4

If a(j) * b(i) = 1 Then

Print "*" & Chr(9);

Else

Print a(j) * b(i) & Chr(9);

End If

Next

Print

Next

End Sub

13. 一个两位正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。现给定一个两位正整数，请找到另一个两位正整数，使得这两个两位正整数之和等于它们各自的对调数之和，若找不到，则输出“查找失败”。例如:32+12=21+23。（要求：在程序运行时从键盘输入给定的两位正整数）

14. 有一数列：1、1、2、3、5、8、13、21…求出这个数列的前20项之和。

15. 把一个16进制数转换成一个10进制数。

16. 编写程序，单击窗体时在窗体上打印出如下所示的图形。

*

***

*****

*******

*********

*******

*****

***

*

Private Sub Command1_Click()

Dim i%, j%

For i = -4 To 4

Print Tab(1 + Abs(i));

For j = 1 To 9 - Abs(2 * i)

Print "*";

Next j

Next i

End Sub

17. 编写程序，输出下列三角形：(要求用循环做，非循环不给分)

G

FG

EFG

DEFG

CDEFG

BCDEFG

ABCDEFG

Private Sub Command1_Click()

Dim a As String, i As Integer, k As Integer

a = "ABCDEFG"

k = Len(a)

For i = 1 To k

Print Right(a, i)

Next i

End Sub

18. 编程输入一批数据，若输入数据为纯数字时，求累加和，非纯数字不累加。输入"Y"结束输入，输出累加和。(用InputBox()输入数据)

19. 求公式：e=1＋1/1!+1/2!+1/3!+…+1/n!直到n=20时的e值。

20. 已知sin(x)=x/1-x^3/3!+x^5/5!-x^7/7!+…，设计一个程序，输入x，通过累加所有绝对值大于等于0.000001的项来计算sin(x)的值。