vb新操作题(含答案)上课讲义

v b新操作题(含答案)

一、操作题，每题 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 If

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

If n = 3 Then s = 2 Else

①1

②text1.text

①1 ②n

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 s2 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() Dim a As Integer Dim s As Integer a = Val(Text1.①) s = (②) * 200 Label1.③ = Str(④)

①s1/v1 ②v2 ①text ②a\300 ③caption

End Sub

【第1题】

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

找出100以内的质数对（若两个质数的差为2则称为质数对），并成对显示结果。其中，函数IsP(m)判断参数m 是否为质数。

Public Function IsP(m) As Boolean Dim i As Integer

__________(1)____________ For i = 2 To Int(Sqr(m))

If ________(2)__________ Then IsP = False Next i End Function

Private Sub Command1_Click()

Dim i As Integer, p1 As Boolean, p2 As Boolean p1 = IsP(3)

For i = 5 To 100 Step 2 p2 = IsP(i)

If p1 and p2 Then Print _________(3)_________ , i p1 = p2 Next i End Sub

【第8题】

打开文件“考生文件夹\859\玫瑰花数.vbp ”，完善程序实现如下功能并保存：

如果一个4位数等于它的各位数字的4次方和，则这个4位数称为“玫瑰花”数，例如1634就是一个玫瑰花数。试编程求出所有的玫瑰花数，结果如下图所示。

Private Sub cmdDemoRose_Click() Dim i As Integer Dim s As Integer

① Isp=true ② M mod

2=0 ③ I-2

① 1