算法填空专题练(105题)

【第1题】在Text1、Text2、Text3中输入三个整数后，单击“输

出最大值”按钮后，在Label3中显示这3个数中的最大值。

Private Sub Command1_Click()

Dim a, b, c, max As Integer

a = Val()

b = Val()

c = Val()

If a > b Then max = a Else ①

If c > max Then ②

【第4题】实现功能：用穷举法找出所有的水仙花数的程序并

保存。水仙花数是指一类三位数，其各个数位上的数字之立方

和为该数。例如：153=1+5+3。

Private Sub Command1_Click()

333

Dim a As Integer, b As Integer

Dim bai As Integer, shi As Integer

Dim g As Integer

a = Val(①)

shi = (a - bai * 100) 10

g = a Mod 10

② = g * 100 + shi * 10 + bai

③ = CStr(b)

兔子，第十二月时有多少对兔子?前12个月共有多少兔子?

类似求斐波那契数列1，1，2，3，5，8，…前12项的值。

Public Function tu(n As Integer) As Integer

If (n = 1) Or (n = 2) Then

tu = ①

Else

tu = tu(n - 1) + tu(n - 2)

②

End Function

① max=b

② max=c

③ max

Dim i As Integer, a As Integer, b As Integer, c As Integer bai = a 100

For i = 100 To 999

①

② b

③

① 100

a = i ①

② 100

b = (i - a * ②) 10

③ next i

c = i Mod 10

① 1

n = CStr(③) If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i

End Sub ③

【第2题】实现功能：在Text1中输入一个代表秒数的整数后，End Sub

单击“计算”按钮，在Label1、Label2、Label3中显示对应的【第5题】实现功能：输入10个数，存放在数组中，并按输入

小时、分钟和秒数。如在Text1中输入“3672”，Label1、Label2、的逆序输出在窗体上。

Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。 Private Sub Command1_Click()

Private Sub Command1_Click() Dim s(9) As Single

Dim h, m, s, ss As Integer For i = 0 To 9

ss = Val(①) ① = Val(InputBox("请输入一个数"))

h = ② Next i

m = (ss Mod 3600) 60

①

For i = 9 To 0 Step ②

① s(i)

s = ③

② ss3600

Print ③

② -1

n = CStr(h)

③ (ss Mod 3600) Mod 60

Next i

③ s(i)

n = CStr(m)

或 ss mod 60

End Sub

n = CStr(s)

或ss-h*3600-m*60

【第6题】在Text1文本框中输入一个年号，判断它是否是闰年，

End Sub 并输出判断结果“是闰年”或“不是闰年”。

【第3题】加密规则：明文： 密文：9876543210 实判断闰年的算法是：如果此年号能被400除尽，则它是闰年，

现以下功能后保存：若在文本框text1中输入待加密的数字，否则如果它能被4整除而不能被100整除，则它是闰年，否则它

单击“command1命令按钮”后，在文本框text2中输出密文。 不是闰年。

Private Sub Command1_Click() Private Sub Command1_Click()

Dim x As String, y As String Dim y As Integer

Dim i As Integer y = Val(InputBox("请输入年号:"))

Dim temp1 As String, temp2 As String If((y Mod 4 = 0) And (y Mod 100 <> 0)) ① (y Mod 400 =

x = 0) Then

①

or

y = "" Print ②

②

"是闰年"

For i = 1 To ①()

①

len

Else

③

"不是闰年"

temp1 = Mid(x, i, 1)

②

9- temp1

Print ③

temp2 = ②

③

y

End If

y = y + temp2 End Sub

Next i 【第7题】实现功能：从键盘上输入一个三位数，然后将它反

= ③ 向输出。例如输入“123”，输出结果为“321”。

End Sub Private Sub Command1_Click()

End Sub

【第8题】实现功能：给出三角形的三边边长a，b，c（输入保

证能构成三角形，无需判断正确性），输出三角形面积。三角

形面积计算公式：，

其中q=(a+b+c)/2。

Private Sub Command1_Click()

① a

Dim s As Single Dim q As Single

② sqr

Dim a As Single Dim b As Single

③ s

Dim c As Single

① = Val(InputBox("请输入边长a的值："))

b = Val(InputBox("请输入边长b的值："))

c = Val(InputBox("请输入边长c的值："))

q = (a + b + c) / 2

s = ②(q * (q - a) * (q - b) * (q - c))

Print ③

End Sub

【第9题】

Private Sub Command1_Click()

Dim x As Single, y As Single

a = 3: b = -5

① = Val(InputBox("请输入x的值"))

If x < 0 Then

② = x + 5 * a

① x

Else

② y

y = x - 2 * b

③ end if

③

Print "y="; CStr(y)

End Sub

【第10题】"兔子繁殖"问题。如果每对兔子每月繁殖一对子兔，

而子兔在出生后第二个月就有生殖能力，试问第一月有一对小

Private Sub Command1_Click()

② end if

Dim S As Integer

③ 12

S = tu(③)

Print "S=" & CStr(S)

End Sub

【第11题】实现功能：将一张100元面值的人民币换成若干5

元、1元、5角面值的人民币，但要求100元换成的零钱共100

张，且要求每种面值不少于1张，问5元、1元、5角各多少张，

请输出每种可能的组合。

Private Sub Command1_Click()

① 100

Dim Wuyuan As Integer

② yiyuan

Dim Yiyuan As Integer

③ end if

1

Dim Wujiao As Integer

For Wuyuan = 1 To 20

For Yiyuan = 1 To ①

Wujiao = 100 - Wuyuan - ②

If Wuyuan * 5 + Yiyuan * 1 + Wujiao * 0.5 = 100 Then

Print "Wuyuan=" & Wuyuan & ",Yiyuan=" &

Yiyuan & ",Wujiao=" & Wujiao

③

Next Yiyuan

Next Wuyuan

End Sub

【第12题】实现功能：从文本框t1中输入一个圆的半径，计算

圆的面积，把结果输出到文本框t2中。

Private Sub Command1_Click()

Const pi = 3.14

① dim

① r, s as Single

②

r = Val(②)

③ s

s = pi * r * r

= ③

End Sub

【第13题】实现功能：在文本框text1、text2、text3中输入3 Next i

根小木棒的长度(假设都是整数)，判断能否用它们搭成一个三 If yes Then 注： yes 的位置相当于 yes=true

角形，并把结果输出到文本框text4中。(如果能搭成三角形则 Let = "yes"

在文本框text4中输出“OK”，否则输出“NO”。) ③

Private Sub Command1_Click() Let = "no"

Dim a, b, c As ①

①

integer

End If

Let a = Val()

②

end if

End Sub

Let b = Val() 【第16题】一只猴子摘了一堆桃子，它每天吃掉当天剩余桃子

Let c = Val() 数的一半，每次又忍不住多吃一个，这样到了第十天就剩下一

If (a + b > c) And (a + c > b) And (b + c > a) Then 个桃子了。实现功能：计算猴子最初一共摘了多少个桃子。

Let = "OK" Private Sub Command1_Click()

Else Dim tz As Integer 'tz是桃子数

① 1

Let = "NO" Dim ts As Integer 'ts是天数

② 9

② tz = ①

③ (tz+1)

End Sub For ts = 1 To ②

④ tz

【第14题】实现功能：在文本框Text1和Text2中分别输入两个 tz = ③ * 2

整数，单击“交换”按钮后，两个文本框中的数字进行交换。 Next ts

Private Sub Command1_Click() Print "最初共有桃子" & ④

Dim a As Integer End Sub

Dim b As Integer 【第17题】使单击窗体时，在窗体上输出如下图案。

Dim t As Integer

① b

*

② t

**

a = Val()

***

b = Val()

③ a

****

***

t = a

④ b

**

*

① 3

a = ①

Private Sub Form_Click()

② abs(i)+1

b = ②

Dim i As Integer

③ abs(i)

= ③

Dim j As Integer

④ "

*

";

= ④

Print

End Sub

For i = -3 To ①

【第15题】素数是指除了1与它本身以外不能被任何其它整数

Print Tab(②);

整除的数。输入一个小于2000000000的正整数到文本框text1

For j = 1 To 3 - ③

中，如果它是素数(质数)，就输出“yes

Print ④

Private Sub Command1_Click()

①

”

，

Boolean

否则就输出“no”。

Next

Dim n, i As Long

②

False

Print

"*"

Dim yes As ①

③

else

Next

Let n = Val()

End Sub

Let yes = True

【第18题】银行的年利率是r，小明将1000元存入银行，问几

For i = 2 To n 2 此处最优写法为 int(sqr(n))

年以后小明在银行的存款将超过2000元。例如，年利率是0.04

If n Mod i = 0 Then

时，需要存18年。单击“计算”按钮后，在窗体上输出结果。

Let yes = ②

Private Sub Command1_Click()

End If

Dim s As Single 's计算存款

Dim y As Integer 'y计算年份

Dim r As Single 'r是年利率

s = ①

y = 0

r = Val(InputBox("输入年利率", "数据输入框"))

Do While s ②

① 1000

y = ③

② <=2000

s = s * ④

③ y+1

Loop

④ (1+r )

Print y; "年以后，存款可以超过2000元"

End Sub

【第19题】实现功能：在文本框text1中输入一个正整数，单

击“计算”按钮时判断该整数是偶数还是奇数。如果是偶数，

在标签上输出“偶数”，否则输出“奇数”。

Private Sub Command1_Click()

①

Dim a As Integer

②

a mod 2

a = Val(①)

③

caption

If ② = 0 Then

④

end if

Label1.③ = "偶数"

Else

n = "奇数"

④

End Sub、

【第20题】在窗体上有一个名称为Timer1的计时器和一个名称

为Label1的标签,Label标签的初始值为空，当运行程序后，将

在标签中显示当前时间的数字时钟（包括时：分：秒）

Private Sub Form_Load()

①

n=””

al = 1000

② n=time

①

End Sub

Private Sub Timer1_timer()

②

End Sub

【第21题】实现功能：随机生成100个整数，统计偶数的个数。

Dim a(100) As Integer

Private Sub Command1_Click()

①

total=0

Dim total As Integer

②

total=total+1

①

③

a(i)

For i = 1 To 100

If a(i) Mod 2 = 0 Then

②

End If

Next i

Print CStr(total)

End Sub

Private Sub Form_Load()

Randomize

For i = 1 To 100

③ = Int(Rnd * 1000)

Next i

End Sub

【第22题】乘坐飞机时，托运行李一般不得超过20公斤，超重

每公斤按经济舱全票价的1.5%计算。计算托运行李所需费用。

Private Sub Command1_Click()

Dim w As Integer 'w是行李重量

Dim pj As Integer 'pj是机票价格

Dim fy As Single

w = Val()

①

fy=0

pj = Val()

②

end if

If w <= 20 Then

③

fy

①

Else

2

fy = (w - 20) * pj * 0.015

②

= ③

End Sub

【第23题】当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；

当x>100时，显示“输入的数据出界！”

Private Sub Command1_Click()

Dim x As Single

x = Val(InputBox("请输入x的值！"))

①

y = 0.8 * x

①

if x<50 then

Else

②

if x<=100 then

②

y = 0.7 * x

Else

Print "输入的数据出界！"

End If

End If

Print x, y

End Sub