VB复习资料(4)

e = Int(a + (b - a + 1) * Rnd) Print c & \End Sub

11* 编写程序：输入x、y、z三个数，按从小到大的次序显示。

Private Sub Command1_Click() x = Val(Text1.Text) y = Val(Text2.Text) z = Val(Text3.Text) If z > x Then t = z: z = x: x = t End If

If z > y Then t = z: z = y: y = t End If

If y > x Then t = y: y = x: x = t End If

Print x & \End Sub

12* 编写程序：求100至999之间的最大的三个素数。

Private Sub Command1_Click() Dim n As Integer, i As Integer, j As Integer, n1 As Integer Dim flag As Boolean n1 = 1

For n = 900 To 100 Step -1 flag = True For i = 2 To Int(Sqr(n)) If n Mod i = 0 Then flag = False Exit For End If Next

If flag Then

Do While n1 <= 3 Print n;

n1 = n1 + 1 Exit Do Loop End If Next End Sub

16

13、* 编写程序：求100-110之间各整数的平方根

设置窗体的AutoRedraw 属性为True. Private Sub Form_Load( ) Dim a&, b! For a = 100 To 110 b = Sqr(a) Print b Next End Sub

当然，也可以用format函数来限制结果的格式 如：b=format ( sqr(a);”####,##”)

14、* 编写程序：* 要求能够产生一个[10，100]内（包括10和100）的一个随机数，然后判断其是否是素数。 * 如果是，在窗体上输出\，否则，输出\。 Private Sub Command1_Click() a = Int(10 + 91 * Rnd) For i = 2 To Int(Sqr(a)) If (a Mod i) = 0 Then Print a & \Exit Sub End If Next i

Print a & \End Sub End Sub

15、* 编写程序：使用级数求π的值。根据下式，计算圆周率π的近似值，当计算到绝对值小于0.0001的通项时，认为满足精度要求，停止计算。 用到的公式为π/4=1-1/3+1/5-1/7+... Private Sub Command1_Click() Dim s!, n!, t!, pi! t = 1: pi = 0: n = 1: s = 1 While Abs(t) >= 0.0001 pi = pi + t n = n + 2 s = -s t = s / n Wend pi = pi * 4 Print pi End sub

16、* 编写程序：利用随机函数产生20个（50，100）（不包括50，100）范围内的随机整数，显示它们当中的最大值、最小值和平均值。

17

Private Sub Form_Click()

Dim a, max, min, sum, average sum = 0 max = 20 min = 50

For i = 1 To 20 a = (Rnd * 50) + 50 sum = sum + a

If a < min Then min = a If a > max Then max = a Print a Next Print max Print min

average = sum / 20 Print average End Sub

17、* 编写程序：* 使用双重循环，在窗体上输出“九九乘法表”的上三角。

Private Sub Command2_Click() Dim I As Integer, J As Integer For I = 1 To 9 For J = I To 9

Print Format(I * J, I & \& J & \\Next Print

Print Space(7 * I); Next End Sub

18、* 编写程序：在文本框中输入小时、分、秒，化成共有多少秒，然后输出总秒数。

Private Sub Command1_Click() Dim h%, m%, s%, x! h = Val(Text1.Text): m = Val(Text2.Text) s = Val(Text3.Text) x = h * 3600 + m * 60 + s

Label1.Caption = \共计秒数\秒\End Sub

19、* 编写程序：在文本框中输入弧度值，将弧度换算为角度值（度、分、秒）的形式并输出，要求秒数保留三位小数。 Private Sub Command1_Click() hudu = Val(Text1.Text) a = Fix(hudu * 180 / 3.14)

18

b = Fix((hudu * 180 / 3.14 - a) * 60)

c = Fix(((hudu * 180 / 3.14 - a) * 60 - b) * 60) d = Fix(c)

Print Format(c, \

Print a & \度\分\秒\End Sub

20、* 编写程序：利用InputBox和MsgBox完成小时、分、秒的输入，总秒数的输出。 Private Sub Command1_Click() Dim a, b, c, d

a = InputBox(\小时数\b = InputBox(\分钟数\c = InputBox(\秒数\d = 3600 * a + 60 * b + c e = MsgBox(\总秒数\End Sub

21、* 编写程序：在文本框中输入长、宽、高，求长方体的表面积并输出。

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

a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text)

d = 2 * (a * b + b * c + a * c) Print \长方体的表面积\End Sub

22、* 编写程序：某公司每年的销售收入均比前一年增长10个百分点，按此增长率，需要多少年可以实现销售收入翻两番的目标？ Private Sub Form_Click() Dim i As Single Dim s As Integer '设s为所求年数,定义为整型,结果由窗体输出 i = 1 s = 0

Do While i <= 4 i = i * (1 + 0.1) s = s + 1 Loop

Print \End Sub

25* 编写程序：在文本框中输入3种商品的单价、购买数量，计算并输出所用的总金额。

Private Sub Command1_Click()

Dim a1!, b1!, c1!

19

Dim a2%, b2%, c2% Dim x!

a1 = Val(Text1.Text): a2 = Val(Text2.Text) b2 = Val(Text3.Text): b2 = Val(Text4.Text) c3 = Val(Text5.Text): c2 = Val(Text6.Text) x = a1 * a2 + b1 * b2 + c1 * c2 text7.Text = x End Sub

注：text1为第一种商品的单价，text2为第一种商品的数量，其它依此类推，text7为总计金额o(∩_∩)o…

26、* 编写程序：利用文本框输入一个年份，编程判定该年份是否是闰年。判定条件是：能被400整除，或者能被4整除但不能被100整除的年份是闰年。

在文本框中输入年份，使用print输出是否为闰年。 Private Sub Command1_Click() Dim i As Integer, s As Integer s = Int(Text1.Text)

If s Mod 400 = 0 Or (s Mod 4 = 0 And s Mod 100 <> 0) Then Print \闰年\ Else

Print \不是闰年\ End If End Sub

27、* 编写程序：百钱买百鸡。公元前5世纪，我国数学家张丘建在《算经》中提出“百鸡问题”：鸡翁一值钱五，鸡母一值钱三，鸡雏三值钱一。百钱买百鸡，问鸡翁、鸡母、鸡雏各几何？

Private Sub Command1_Click() For x = 0 To 30 For y = 0 To 33 If 5 * x + 3 * y + (100 - x - y) / 3 = 100 Then Print x, y, 100 - x - y End If Next y Next x

注：X代表公鸡，Y代表母鸡

28、* 编写程序：有一阶梯，如果每步跨2阶，最后余1阶；每步跨3阶，最后余2阶；每步跨5阶，最后余4阶；每步跨6阶，最后余5阶；每步跨7阶，正好到达阶梯顶。问阶梯至少有多少阶？

Private Sub Command1_Click() x = 0

Do Until x Mod 2 = 1 And x Mod 3 = 2 And x Mod 4 = 3 And x Mod 5 = 4 And x Mod 6 = 5 And x Mod 7 = 0

20

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB复习资料(4)在线全文阅读。