历年vb题目整理（带答案）.doc

<p>1、算法描述：求的1~100之间所有偶数的和
&#39;注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码
&#39;Function func()
&nbsp; (1) i As Integer &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;dim
&nbsp; func = (2) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;0
&nbsp; &nbsp; &nbsp;For i = 2 To 100 Step (3) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;2
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;func = func + i
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Next i
End Function

2、操作要求: 顺序查找单词“name” ：
输入10个不同的单词给数组，查找单词“name”是否在数组中；如果在，输出单词在数组中的位置，否则，输出“不在数组中”。
Sub main()
&nbsp;Dim i As Integer
&nbsp;Dim buzai As Boolean
&nbsp;&#39;定义数组d,下界为1,上界为10,数据类型为string，在dim后完善语句
&nbsp; Dim &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(1) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;d(1 To 10) As String
&nbsp; &nbsp; &#39;输入10个单词，在for语句后完善i的初始值与终值
&nbsp; &nbsp; For i =(2) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;1 &nbsp; to &nbsp; 10
&nbsp; &nbsp;&#39;输入每个单词给数组元素，在赋值号左侧添加变量
&nbsp; &nbsp; &nbsp;(3) = InputBox(&quot;Please input word &nbsp;&quot; &amp; i) &nbsp; &nbsp; &nbsp; &nbsp;d(i)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Next i
&nbsp;buzai = True
&nbsp;i = 0
&nbsp;While buzai = True And i &lt; 10
&nbsp; &nbsp;&#39;顺序查找单词，数组下标增1，在赋值号右侧添加表达式
i =(4) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;i+1
&#39;判断数组元素是否为单词&quot;name&quot;,在if语句后添加判断条件
&nbsp; &nbsp;If &nbsp; &nbsp;(5) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Then &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;d(i) = &quot;name&quot;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;buzai = False
&nbsp; &nbsp;End If
&nbsp;Wend
&nbsp; &nbsp;If buzai = False Then
&nbsp; &nbsp; &nbsp;MsgBox &quot;在数组中的位置为：&quot; + Str(i)
&nbsp; &nbsp;Else
&nbsp; &nbsp; &nbsp;MsgBox &quot;不在数组中&quot;
&nbsp; &nbsp;End If
End Sub

3、小王今年26岁，资助了一名贫困大学生，
&#39;他想从明年开始每年比上一年多资助一名贫困大学生。
&#39;编程求解小王到多少岁，就能资助到n名甚至更多大学生？
Function func(n)
&nbsp; &nbsp;stu = 1
&nbsp; &nbsp;age = 26
&#39;请完善下面两条语句
&nbsp; &nbsp;Do While stu &lt; Val(n)
&nbsp; &nbsp; &nbsp; &nbsp;age = age + (1) &nbsp; &nbsp; &nbsp; &nbsp;1
&nbsp; &nbsp; &nbsp; &nbsp;stu = (2) + age – 25 &nbsp; &nbsp; &nbsp; &nbsp; stu
&nbsp; &nbsp;Loop
&nbsp; &nbsp;func = age
End Function
Sub Main()
&nbsp; &nbsp;If Command = &quot;assess&quot; Then
&nbsp; &nbsp; &nbsp; &nbsp;Open &quot;in.txt&quot; For Input As #1
&nbsp; &nbsp; &nbsp; &nbsp;Line Input #1, n
&nbsp; &nbsp; &nbsp; &nbsp;Close #1
&nbsp; &nbsp; &nbsp; &nbsp;Open &quot;out.txt&quot; For Output As #1
&nbsp; &nbsp; &nbsp; &nbsp;Print #1, func(n)
&nbsp; &nbsp; &nbsp; &nbsp;Close #1
&nbsp; &nbsp;Else
&#39;请完善大学生数n的输入语句
&nbsp; &nbsp; &nbsp; &nbsp;(3) = InputBox(&quot;请输入大学生数 n:&quot;, &quot;Input&quot;) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; n
&nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp;MsgBox func(n)
&nbsp; &nbsp;End If
End Sub

4、操作要求:
设计一个VB学习指导程序的窗口运行界面，界面设计如下图。要求
（1）打开“C:\MyExam\工程1.vbp”，设置窗体Form1属性值：
将该窗体标题命名为“VB学习指导”；
（2）添加一个标签控件Label1，并设置如下属性值：
该控件填充内容“VB学习指导”；
字体为隶书，字形为粗体，字号为三号，字体颜色为调色板中第5行第7列，并居中对齐；
（3）对标签控件Label2（请输入口令：），设置如下属性值：
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;根据字体大小自动调整；
（4）添加一个文本框控件Text1，并设置如下属性值：
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;文本框高度为650，宽度为2215；
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;文本框内容为空；
（5）添加一个命令按钮Option2，并设置如下属性值：
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;将该按钮标题命名为“退出”；
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;字体为黑体，字号为四号；
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;按钮宽度1575，高度735；
（5）保存并提交。

5、操作要求:
打开&quot;C:\MyExam\工程1.vbp”，补充完成程序。实现当从键盘上输入x的值后，求函数y的值(当x&lt;0时,y=|3x+1|;当x&gt;=0时，y=4x+1)。如:输入-2后,输出结果:5.
Function func(x)
If x &lt; 0 Then
&nbsp; &nbsp; &nbsp;func = (1) &nbsp; &nbsp; &nbsp; &nbsp;abs(3*x+1)
Else
&nbsp; &nbsp; &nbsp;func = (2) &nbsp; &nbsp; &nbsp; &nbsp;4*x+1
End If
End Function

6、操作要求: 打开“C:\MyExam\工程1.vbp”补充完成程序并保存！该程序的功能是：从键盘上输入两个数a和b，比较a和b的大小，并输出较小的数。
Function func(a, b)
If (1) Then &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;a<strong func="a" else="" if="" then="" a="">b
&nbsp;func = b
&nbsp;Else
&nbsp;func = &quot;两数相等&quot;
&nbsp;End If
End If
End Function

7、操作要求: 输入a、b、c的值，判断一元二次方程 ax^2+bx+c=0是否有解，如果无解则输出“无解” ，如果两个解相同则输出“两解相同”，否则输出“两解不同”。
Function f(a, b, c)
&#39;请完成其它的判断语句
&nbsp; &nbsp;If b * b - 4 * a * c &lt; 0 Then f = &quot;无解&quot;
&nbsp; &nbsp;If b * b - 4 * a * c = 0 Then (1) &nbsp; &nbsp; &nbsp; &nbsp;f=&quot;两解相同&quot;
&nbsp; &nbsp;(2) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If b * b - 4 * a * c &gt; 0 Then f = &quot;两解不同&quot;
End Function
Sub Main()
&nbsp; &nbsp;If Command = &quot;assess&quot; Then
&nbsp; &nbsp; &nbsp; &nbsp;Open &quot;in.txt&quot; For Input As #1
&nbsp; &nbsp; &nbsp; &nbsp;Line Input #1, a
&nbsp; &nbsp; &nbsp; &nbsp;Line Input #1, b
&nbsp; &nbsp; &nbsp; &nbsp;Line Input #1, c
&nbsp; &nbsp; &nbsp; &nbsp;Close #1
&nbsp; &nbsp; &nbsp; &nbsp;Open &quot;out.txt&quot; For Output As #1
&nbsp; &nbsp; &nbsp; &nbsp;Print #1, f(a, b, c)
&nbsp; &nbsp; &nbsp; &nbsp;Close #1
&nbsp; &nbsp;Else
&nbsp; &nbsp; &nbsp; &nbsp;a = InputBox(&quot;请输入 a&quot;, &quot;Input&quot;)
&nbsp; &nbsp; &nbsp; &nbsp;b = InputBox(&quot;请输入 b&quot;, &quot;Input&quot;)
&#39;请完成变量c的输入语句
&nbsp; &nbsp; &nbsp; &nbsp;(3) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; c = InputBox(&quot;请输入 c&quot;, &quot;Input&quot;)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MsgBox f(a, b, c)
&nbsp; &nbsp;End If
End Sub
8、操作要求: 打开“C:\MyExam\工程1.vbp”补充完成程序并保存！该程序的功能是： 求实数x的绝对值。
Function func(x)
&nbsp; &nbsp;If x &gt;= 0 &nbsp; (1) &nbsp; &nbsp; &nbsp; &nbsp;then
&nbsp; &nbsp; &nbsp; &nbsp; func = x
&nbsp; &nbsp;Else
&nbsp; &nbsp; func = (2) &nbsp; &nbsp; &nbsp; &nbsp; -x
&nbsp; &nbsp;(3) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end if
End Function

9、操作要求: 打开“C:\MyExam\工程1.vbp”进行以下操作后并保存！填空完成程序，计算N!的值并在窗体上打印出结果，如输入：3，则输出：6。（注：N!=1×2×…×N）
Function func(n)
Dim i As Integer
(1) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;func=1
For i = 1 To (2) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;n
func = func * i &nbsp;&#39;计算N!
Next i
End Function

10、操作题：“提示信息”界面设计，如下图所示，要求
（1）打开“C:\MyExam\工程1.Vbp”，对窗体Form1设置如下属性值：
窗体标题为“提示信息”；
背景色为调色板第1行第7列。
（2）添加一个标签控件Label，并设置如下属性值：
标签标题为“要继续吗？”（注：“？”为中文标点符号）；
标签高度为495，宽度为1935；
字体为楷体_GB2312，字形为常规，字号为三号，字体颜色为调色板第5行第8列，背景类型为0。
（3）添加一个按钮控件CommandButton，并设置如下属性值：
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;按钮标题为“否”；&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;字号为小四。
（4）保存并提交。

11、操作要求:
输入10位同学的英语成绩存放在数组score中，利用选择排序算法按照从大到小的顺序进行排序 。
&#39; 算法描述：
&#39;输入10位同学的英语成绩存放在数组score中
&#39;利用选择排序算法按照从大到小的顺序进行排序
&#39;定义数组score,下界为1,上界为10,数据类型为Single
&nbsp; Dim &nbsp;(1) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;score(1 To 10) As Single
Function f()
&nbsp; &nbsp;&#39;i为排序的次数，应该排序9次，为i添加初值和终值
&nbsp; &nbsp;For i =(2) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 1 To 9
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Min = score(i): &nbsp; &nbsp; &nbsp; &nbsp; m = i
&nbsp; &nbsp; &#39;j为每次排序的数的范围，应从i+1开始直到第10个数，为j添加初值和终值
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;For j =（3） &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; i + 1 To 10
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;If score(j) &gt; Min Then Min = score(j): &nbsp; &nbsp; &nbsp; m = j
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Next j
&nbsp; &nbsp; &nbsp; &nbsp;&#39;以k为中间变量，编写交换score(i)和score(m)的语句
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;k = score(i)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;score(i) = score(m)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;（4） &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; score(m) = k
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Next i
&nbsp; st = &quot;排序后的数列为：&quot;
&nbsp; &nbsp; For i = 1 To 10
&nbsp; &nbsp; &nbsp; &nbsp;st = st + Str(score(i)) + &quot; &nbsp; &quot;
&nbsp; &nbsp; Next i
&nbsp; &nbsp; &nbsp; &nbsp;f = st
End Function

Sub Main()
&nbsp; Dim i As Integer, m As Integer, k As Integer, j As Integer
&nbsp; Dim st As String
&nbsp; &nbsp;If Command = &quot;assess&quot; Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Open &quot;in.txt&quot; For Input As #1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Dim x As String
&nbsp; &nbsp; &nbsp; &nbsp;For i = 1 To 10
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Line Input #1, x
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; score(i) = Val(x)
&nbsp; &nbsp; &nbsp; &nbsp;Next i
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Close #1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Open &quot;out.txt&quot; For Output As #1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Print #1, f()
&nbsp; &nbsp; &nbsp; &nbsp;Close #1
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Else
&nbsp; &nbsp; &nbsp; &nbsp;For i = 1 To 10
&nbsp; &nbsp; &nbsp; &#39;输入10位同学的英语成绩，在赋值号左侧添加变量
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;（5） = InputBox(&quot;请输入第&quot; &amp; i &amp; &quot;个数据&quot;) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; score(i)
&nbsp; &nbsp; &nbsp; &nbsp;Next i
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox f()
&nbsp; &nbsp;End If
End Sub

12、购物问题：购物满1000元，打7折，800到1000元，打8折，500到800元，打9折。
&nbsp; &nbsp; &nbsp;Private &nbsp; sub &nbsp; command1_click()
&nbsp; &nbsp; &nbsp; &nbsp; X=val(text1.text)
&nbsp; &nbsp; &nbsp; &nbsp; If &nbsp; x&gt;=1000 &nbsp; &nbsp; then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(1) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Y=0.7*x
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Elseif &nbsp; &nbsp;(2) &nbsp; &nbsp;then &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; x&gt;=800
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Y=0.8*x
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Elseif &nbsp; &nbsp;x&gt;=500 &nbsp; &nbsp; &nbsp;then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(3) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Y=0.9*x
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Y=x
&nbsp; &nbsp; &nbsp; End &nbsp;if
&nbsp; &nbsp; &nbsp; Text2.text=y
&nbsp; &nbsp; &nbsp;End &nbsp; sub

13、十进制转化成二进制问题：将一个十进制数转化为二进制数。
&nbsp;Function &nbsp;func(x)
Dim &nbsp; bin(32),j,str
Str=””
j=0
do &nbsp; while &nbsp;(x&gt;0)
bin(j)=(1) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; x &nbsp;mod &nbsp;2
(2) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;x=x\2
j=j+1
loop
do &nbsp;while (j&lt;&gt;0)
str=str&amp;bin(j-1)
j=(3) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; j-1
loop
func=str
end &nbsp;function

14、水仙花数问题：水仙花数是满足下面条件的一组三位的正整数，它们满足条件：每一位上数字的立方之和恰好等于它自己。例如：153就是一个水仙花数，13+53+33=153，请找出所有的水仙花数及个数。
参考程序代码如下：
方法一：
Private Sub Command1_Click()
&nbsp; &nbsp;Dim sum As Integer
&nbsp; &nbsp;Dim i, a, b, c As Integer
&nbsp; &nbsp;List1.Clear
&nbsp; &nbsp;Sum=0
&nbsp; &nbsp;For i = 100 To 999
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; a = i \ 100 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;‘求得百位上的数字
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; b = i \ 10 Mod 10 &nbsp; &nbsp; &nbsp; &nbsp;‘求得十位上的数字
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; c = i Mod 10 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;‘求得个位上的数字
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;If a ^ 3 + b ^ 3 + c ^ 3 = i Then &nbsp; ‘判断是否满足条件
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;List1.AddItem (Str(i))
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;sum = sum + 1 &nbsp; &nbsp; ‘统计个数
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;End If
&nbsp; &nbsp;Next i
&nbsp; &nbsp;Label1.Caption = &quot;个数：&quot; + Str(sum)
End Sub

方法二：
Private Sub Command1_Click()
&nbsp; &nbsp;Dim sum As Integer
&nbsp; &nbsp;Dim i, j, k As Integer
&nbsp; &nbsp;List1.Clear
&nbsp; &nbsp;Sum=0
&nbsp; &nbsp;For i = 1 To 9 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ‘百位数
&nbsp; &nbsp; &nbsp; &nbsp;For j = 0 To 9 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ‘十位数
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;For k = 0 To 9 &nbsp; &nbsp; &nbsp; &nbsp; ‘个位数
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If &nbsp;i ^ 3 + j ^ 3 + k ^ 3 = 100 * i + 10 * j + k Then &nbsp;‘是否满足条件
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;List1.AddItem (Str(100 * i + 10 * j + k))
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;sum = sum + 1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;‘统计个数
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Next k
&nbsp; &nbsp; &nbsp; &nbsp;Next j
&nbsp; &nbsp;Next i
&nbsp; &nbsp;Label1.Caption = &quot;个数：&quot; + Str(sum)
End Sub

15、用递归算法来计算斐波那契数列1，1，2，3，5，8，13，21……的第N项，我们可以写出这样的计算公式：
&nbsp;fib(n)=fib(n-1)+fib(n-2) &nbsp;(n&gt;2)
&nbsp; fib(2)=1 &nbsp; &nbsp; (n=2)
fib(1)=2 &nbsp; &nbsp; (n=1)
Fib函数参考程序代码如下：
Function fib(n As Integer) As Long &nbsp;‘计算斐波那契数列第n项
&nbsp; &nbsp;If n = 1 or n=2 Then &nbsp;
&nbsp; &nbsp; &nbsp; fib = 1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;‘已知第1项、第2项均为1
&nbsp; &nbsp;Else
&nbsp; &nbsp; &nbsp; fib = fib(n-1)+fib(n -2) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;‘计算公式，fib(n)=fib(n-1)+fib(n-2)
&nbsp; &nbsp;End If &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;‘要求fib(n-1)和fib(n-2)需要再次执行算法fib
End Function
也可以用如下代码来完成：
Function fib(n As Integer) As Long &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;‘计算斐波那契数列第n项
&nbsp; &nbsp;If n = 1 or n=2 Then &nbsp;fib = 1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ‘已知第1项、第2项均为1
&nbsp; &nbsp;If &nbsp;n&gt;2 then &nbsp;fib = fib(n-1)+fib(n -2) &nbsp; &nbsp;‘计算公式
End Function
参考程序代码如下：
Private Sub Command1_Click()
&nbsp; &nbsp;Dim n As Integer
&nbsp; &nbsp;Dim an As Long
&nbsp; &nbsp;n = Val(Text1.Text)
&nbsp; &nbsp;an = fib(n)
&nbsp; &nbsp;Text2.Text = Str(an)
End Sub</strong></p><!--0时,y=|3x+1|;当x-->