vb新操作题(含答案)

一、操作题，每题 10分，6 题共60分

【第4题】

打开文件“考生文件夹\175\工程1.vbp”，完善Command1_Click事件及s函数代码并保存。

实现功能：用递归法求1+2+3+…+100的值，结果输出在窗体上。

Public Function S(n As Integer) As Integer

If n = 1 Then

S = ①

Else

S = ② + S(n - 1)

End Function

Private Sub Command1_Click()

Dim Sum As Integer

Sum = S(③)

Print "Sum=" & CStr(Sum)

End Sub

【第5题】

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

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

示，调试时输入的台阶数最大不要超过35！

Function s(n As Integer) As Long

If n = 1 Or n = 2 Then

s = ①

Else Array 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 【第6题】

打开文件“考生文件夹\861\年龄问题.vbp ”，完善程序实现如下功能并保存：

有5个人坐在一起，第5个人说他比第4个人小3岁；第4个人说他比第3个人小3岁；第3个人说他比第2个人小3岁；第2个人又说他比第1个人小3岁；第1个人说他是38岁。编写程序，计算出第5个人的年龄并显示。 Private Sub cmdDisplay_Click() Print "第5人的年龄:"; age(①) End Sub

Function age(n As Integer) As Integer If n = 1 Then age = ② Else age = age(n - 1) - 3 ③

End Function 【第3题】

打开文件“考生文件夹\89\工程1.vbp ”，完善Command1_Click 事件代码并保存。 乘坐飞机的经济舱时，免费托运行李一般不得超过20公斤，超重每公斤按全票价的1.5%计算。

实现功能：输入行李重量及经济舱全票价后，点击按钮，计算出行李托运费用，输出到对应文本框中。

Private Sub Command1_Click() Dim w As Integer '行李重量 Dim pj As Integer '机票价格 Dim fy As Single '托运费用 w = Val(Text1.Text) pj = Val(Text2.Text) If w <= 20 Then

①

Else

fy = (w - 20) * pj * 0.015

②

Text3.Text = ③ End Sub 【第4题】

打开文件“考生文件夹\122\工程1.vbp ”，完善Command1_Click 事件代码并保存。 王晓珊家距离学校s1

（千米），某天她和李明各自同时从家里步行出发上学，王晓珊步

行速率v1（千米/小时），李明步行速率v2（千米/小时)，结果他们同时到达学校。

实现功能：输入s1、v1、v2，在窗体上输出李明家与学校之间的距离s2。

Private Sub Command1_Click()

Dim s1 As Single

Dim v1 As Single

Dim v2 As Single

Dim t As Single

s1 = Val(InputBox("请输入王晓珊家离学校的距离："))

v1 = Val(InputBox("请输入王晓珊步行速度："))

v2 = Val(InputBox("请输入李明步行速度："))

t = ①

s2 = ② * t

Print ③

End Sub

【第6题】

打开“考生文件夹\772”中的文件“工程1.vbp”，完善Command1_Click事件代码并保

存。

实现功能：某商场正在搞促销活动，买300元送200元，例如：某顾客购买商品449元，返还顾客200元，不满300元的零头不送。在文本框中输入一个正整数，计算返还的金额

并显示在标签上，如样张所示。

Private Sub Command1_Click() Array Dim a As Integer

Dim s As Integer

a = Val(Text1.①)

s = (②) * 200

Label1.③ = Str(④)

End Sub

【第1题】

打开文件“考生文件夹\373\操作2.vbp”，完善程序实现以下功能并保存。

找出100以内的质数对（若两个质数的差为2则称为质数对），并成对显示结果。其中，

函数IsP(m)判断参数m是否为质数。

Public Function IsP(m) As Boolean

Dim i As Integer