算法与程序设计VB试题与答案01

VB01

1、打开文件“考生文件夹\\856\\60岁收入和.vbp”，完善程序实现如下功能并保存：

编写程序测算一个人在60岁退休之前总共能拿多少工资。程序运行后输入起薪年龄和起始年薪，按工资每年增长5%计算总收入。例如，输入25和20000，然后屏幕上会显示：工作到60岁的总收入为：1916726。

Private Sub cmdCompute_Click() Dim age As Integer Dim salary As Single Dim sum As Single Dim i As Integer

age = Val(InputBox(\输入这个年轻人的起薪年龄:\ salary = Val(InputBox(\输入这个年轻人的起始年薪:\ sum = 0

For i = ① To 60 sum = ②

salary = salary * (1 + 0.05) Next i

Print \工作到60岁的总收入为:\③) End Sub

①age ②sum+salary ③sum

2、打开文件“考生文件夹\\849\\工程1.vbp”，完善程序实现如下功能并保存：

今年儿子6岁，父亲36岁，母亲31岁。编程求几年后，父母亲年龄之和是儿子的7倍，将结果显示在label1中。

Private Sub Command1_Click() Dim n As Integer Dim x As Integer n = 0 Do

n = ①

x = (36 + 31 + 2 * n) / (6 + n) Loop ② x = 7

Label1.Caption = Str(③) End Sub

①n+1 ② until ③n

3、打开文件“考生文件夹\\851\\工程1.vbp”，完善程序实现如下功能并保存：

花果山上有一洞，小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞，编程在Text1中输入台阶数，在Label1中显示有多少种不同的跳法。正确的运行结果如下图所示，调试时输入的台阶数最大不要超过35！

Function s(n As Integer) As Long If n = 1 Or n = 2 Then s = ① Else

If n = 3 Then s = 2 Else

s = s(n - 1) + s(n - 3) End If End If

End Function

Private Sub Command1_Click() Dim n As Integer n = Val(②)

Label1.Caption = Str(③) End Sub ①1 ②text1.text ③s(n)

4、打开文件“考生文件夹\\855\\工程1.vbp”，完善程序实现如下功能并保存：

古题新编：

妇人洗碗在河边，路人问妇酬几宾。 答曰数目无细数，十三只碗自分明。 二人共食一碗饭，三人共吃一碗羹。 四人共肉无余数，请君细算客几人。 将客人数显示在文本框中。

Private Sub Command1_Click() Dim i As Integer For i = 1 To ①

If i Mod 2 = 0 And i Mod 3 = 0 And ② Then Text1.Text = Str(③) End If

Next i End Sub

①13 ②i mod 4=0 ③i

5、打开文件“考生文件夹\\853\\工程1.vbp”，完善程序实现如下功能并保存：

在数组中输入5个整数，找出最大数（max）和最小数(min)，并分别在Label1和Label2中显示。

Private Sub Command1_Click()

Dim x(5) As Integer, i As Integer Dim max As Integer, min As Integer For i = 1 To 5

① = InputBox(\输入一个数\Next i max = ② min = x(1)

For i = 2 To 5

If x(i) > max Then max = x(i) If x(i) < min Then ③ = x(i) Next i

Label1.Caption = Str(max) Label2.Caption = Str(min) End Sub

① x(i) ②x(1) ③min

6、打开文件“考生文件夹\\850\\工程1.vbp”，完善程序实现如下功能并保存：

在文本框text1中输入一段含有数字的短文（如样张），编写程序查找统计非数字字符的个数，并在label1中显示。

Private Sub Command1_Click() Dim x As String, y As String Dim s As Integer, i As Integer x = Text1.Text