《vb新操作题(含问题详解)》由会员分享，可在线阅读，更多相关《vb新操作题(含问题详解)（8页珍藏版）》请在金锄头文库上搜索。
1、word一、操作题，每题 10分，6 题共60分【第4题】打开文件“考生文件夹175工程，完善mand1_Click事件与s函数代码并保存。实现功能：用递归法求1+2+3+100的值，结果输出在窗体上。Public Function S(n As Integer) As Integer If n = 1 Then S = Else S = + S(n - 1)1n100 End IfEnd FunctionPrivate Sub mand1_Click() Dim Sum As Integer Sum = S() Print Sum= & CStr(Sum)End Sub【第5题】打开文件“考
2、生文件夹851工程，完善程序实现如下功能并保存：花果山上有一洞，小猴每次采取跳1阶或者跳3阶的方法从山下跳跃上台阶进洞，编程在Text1中输入台阶数，在Label1中显示有多少种不同的跳法。正确的运行结果如如下图所示，调试时输入的台阶数最大不要超过35！Function s(n As Integer) As LongIf n = 1 Or n = 2 Then s = Else1s(n) If n = 3 Then s = 2 Else s = s(n - 1) + s(n - 3) End IfEnd IfEnd FunctionPrivate Sub mand1_Click()Dim n
3、As Integern = 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 Subn38End IfFunction age(n As Integer) As Integer If n =
4、 1 Then age = Else age = age(n - 1) - 3End Function【第3题】打开文件“考生文件夹89工程，完善mand1_Click事件代码并保存。乘坐飞机的经济舱时，免费托运行一般不得超过20公斤，超重每公斤按全票价的1.5%计算。实现功能：输入行重量与经济舱全票价后，点击按钮，计算出行托运费用，输出到对应文本框中。Private Sub mand1_Click() Dim w As Integer 行重量 Dim pj As Integer 机票价格 Dim fy As Single 托运费用 w = Val(Text1.Text) pj = Val(T
5、ext2.Text)fy =0End Iffy If w =0 y+x y/z 2048 step -1 f(0) Dim f(10) As Integer 30分钟共分裂10次 Dim i As Integer f(10) = For i = 9 To 0 Step f(i) = f(i + 1) / 2 Next i Print End Sub【第1题】打开文件“考生文件夹375操作，完善程序实现以下功能并保存。从键盘输入假如干个数直到输入负数为止，统计所有非负数的平均值并输出。Private Sub mand1_Click() Dim x As Single, y As Single D
6、im z As Integer x = InputBox(输入一个数：) Do while _(1)_ y=_(2)_ z = z + 1 x = InputBox(输入一个数：) Loop If z = 0 Then z = 1 End If y=_(3)_ Print 平均值为：; yEnd Sub【第1题】打开文件“考生文件夹372操作，完善程序实现以下功能并保存。Private Sub mand1_Click() Dim s As Single Dim a As Integer, b As Integer, c As Integer, k As Integer 1 a b s = 0
7、a = _(1)_ b = 1 For k = 1 To 20 s = s + a / b c = _(2)_ a = _(3)_ b = c + a Next k Print sEnd Sub【第7题】打开文件“Z:114工程，完善Form_Click事件代码并保存。完善程序，求1/1+1/2+2/3+21/34+前20项的值。Private Sub mand1_Click() Dim s As Integer Dim a As Integer Dim b As Integer Dim k As Integer s = 0 a = 1 b = 1 a+b s+b/a a+b For k = 1 To 10 s = s + a / b a = s = b = Next k Print sEnd Sub【第3题】打开文件“考生文件夹374操作，完善程序实现以下功能并保存。输出数组的最大值。Private Sub mand1_Click() Dim arr1, Max As Integer arr1 = Array(12,
