vb新操作题(含答案)

一、操作问题是每题10分，6题共计60分【第4题】打开文件“考生文件夹175项目1.vbp”，完整保存Command1_Click事件和s函数代码。实现功能：用递归法求出1 2 3 100的值，并将结果输出到表单中。公共函数(ncassinteger ) ass integerIf n=1 ThenS=ElseS= S(n - 1 )1n100End If结束函数私有子命令1 _ click ()Dim Sum As IntegerSum=S()Print Sum= CStr(Sum )日本职业足球联赛【第5题】打开文件“考生文件夹851工程1.vbp”，完成程序实现并保存以下功能花果山有个洞，猴子一次跳一层或三层就从山下上楼梯进洞，编程为在Text1中输入阶梯数，显示Label1有多少不同的跳法。 正确的运行结果如下图所示，调试时输入的步数最多不得超过35步Function s(n As Integer) As LongIf n=1 Or n=2 Thens=Else1text1.texts(n )If n=3 Thens=2Elses=s(n - 1) s(n - 3 )End IfEnd If结束函数私有子命令1 _ click ()Dim n As Integern=Val()Label1.Caption=Str()日本职业足球联赛【第6问】打开文件“考生文件夹861年龄问题. vbp”，完成程序，实现并保存以下功能五个人坐在一起，第五个说比第四个小三岁。第四个说他比第三个小三岁。第三个说他比第二个小三岁。第二个说他比第一个小三岁。第一个说他是38岁。 编制程序，计算并显示第五个人的年龄。私有子cmd显示器_ click ()Print人的年龄： age()日本职业足球联赛n38End Iffunctionage (ncassinteger ) ass integerIf n=1 Thenage=Elseage=age(n - 1) - 3、结束函数【第3问】打开文件“考生文件夹89项目1.vbp”，整理并保存Command1_Click事件代码。乘飞机经济舱，免费托运行李一般不得超过20公斤。 超重按每公斤运费的1.5%计算。实现功能：输入行李重量和经济舱全票后，单击按钮计算行李托运费用，并将其输出到相应的文本框。私有子命令1 _ click ()Dim w As Integer行李重量Dim pj As Integer机票价格Dim fy As Single托运费用w=val (文本1 .文本)pj=val (文本2 .文本)fy=0End Iffyifw=20秒、Elsefy=(w - 20) * pj * 0.015二Text3.Text=日本职业足球联赛【第4题】打开文件“考生文件夹122项目1.vbp”，完成并保存Command1_Click事件代码。王晓珊家离学校s1(公里)远，有一天她和李明各自同时走家出发，王晓珊走路速度v1(公里/小时)，李明走路速度v2(公里/小时)，结果他们同时到达学校。实现功能：输入s1、v1、v2，将李明家和学校的距离s2输出到表格中。私有子命令1 _ click ()s1/v1v2s2dim s1as单曲dim s2as单曲dim v1as单曲dim v2as单曲Dim t As Singles1=Val(InputBox (请输入王晓珊家与学校的距离：)v1=Val(InputBox (请输入王晓珊的步行速度：)v2=Val(InputBox (请输入李明步行速度：)t=s2= * tPrint 日本职业足球联赛【第6问】打开“考生文件夹772”的文件“项目1.vbp”，整理并保存Command1_Click事件代码。实现功能：一家百货公司做促销活动，买300元寄200元。 比如说，一位顾客买了449元的商品，还给顾客200元，不发给小于300元的零头。 在文本框中输入正整数，计算偿还金额，并将其显示在标签上，如示例表所示。texta300captions私有子命令1 _ click ()Dim a As IntegerDim s As Integera=Val(Text1.)s=() * 200Label1.=Str()日本职业足球联赛【第1问】打开文件“考生文件夹373操作2.vbp”，充实程序，实现并保存以下功能。找到100个以内的素数对(如果两个素数之差为2，则称为素数对)，成对地表示结果。 这里，函数IsP(m )判定参数m是否为素数。公共函数ISP (m ) as布尔Dim i As Integer_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _for I=2到int (sqr (m ) )if _ _ _ _ (2)u _ _ _ _ _ _ _ _ _ _ 00000000006 Isp=true M mod 2=0 I-2下一步结束函数私有子命令1 _ click ()Dim i As Integer，p1as布尔，p2as布尔p1=IsP(3)for I=5to 100步骤2p2=IsP(i )if P1 andp2then print _ _ _ _ _ _ _ _ _ _，Ip1=p2下一步日本职业足球联赛【第8问】打开文件“考生文件夹859玫瑰数. vbp”，完成程序，实现并保存以下功能如果四位等于每个数字的四次方，则这四位被称为“玫瑰花”的数目，例如，1634是玫瑰花的数目。 试制所有玫瑰花的数量求得的结果如下图所示。私有子cmddemorose _ click () 1 m4 next iDim i As IntegerDim s As IntegerDim m As IntegerFor i=1000 To 9999s=0For j= To 4m=Mid(i，j，1 )s=s Next jIf i=s Then Print i、日本职业足球联赛【第8问】打开“考生文件夹863细胞分裂. vbp”文件，完成程序实现并保存以下功能有的细胞每3分钟分裂一次，每分裂一次，分裂成两个，30分钟后有2048个细胞。 最初有几个细胞私有子cmd division _ click () x=0 y x y/z 2048 step -1 f(0)在Dim f(10) As Integer 30分钟内分裂了10次Dim i As Integerf(10)=For i=9 To 0 Step f(i)=f(i 1)/2下一步Print 日本职业足球联赛【第1问】打开文件“考生文件夹375操作4.vbp”，充实程序，实现并保存以下功能。从键盘输入几个数字，汇总并输出所有非负平均值，直到输入负数为止。私有子命令1 _ click ()Dim x As Single，y As SingleDim z As Integerx=InputBox (输入数值：)do while _ _ _ _ _ _ _ _ _ _ _ _ _ _y=_ _ _ _ _ _ _ _ _ _ _ _ _ _ _z=z 1x=InputBox (输入数值：)LoopIf z=0 Thenz=1End Ify=_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _Print 的平均值为： ； y日本职业足球联赛【第1问】打开文件“考生文件夹372操作1.vbp”，充实程序，实现并保存以下功能。私有子命令1 _ click ()Dim s As Singledimasainteger，b As Integer，c As Integer，k As Integer 1 a bs=0a=_ _ _ _ _ _ (1)u _ _ _ _ _ _ _ _ _ _ _ _ _ _b=1For k=1 To 20s=s a/bc=_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _a=_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _b=c a下一代kPrint s日本职业足球联赛【第7问】打开文件Z:114工程1.vbp，完成并保存Form_Click事件代码。完善程序，求出1/1 1/2 2/3 21/34 前20项的值。私有子命令1 _ click ()Dim s As IntegerDim a As IntegerDim b As IntegerDim k As Integers=0a=1b=1 a b s b/a a bFor k=1 To 10s=s a/ba=s=b=下一代kPrint s日本职业足球联赛【第3问】打开文件“考生文件夹374操作3.vbp”，充实程序，实现并保存以下功能。输出数组的最大值。私有子命令1 _ click ()Dim arr1，Max As Integerarr1=阵列(12，435，76，24，78，54，866，43 ) max 0 max=arr1(i )_ _ _ _ _ _ _ _ _ _ _ _=-32768forI=_(2)_to7if arr1(I ) maxthen _ _ _ _ _ _ _ _ _ _ _ _ _ _ _下一步Print 的最大值为： ； Max日本职业足球联赛【第4题】打开文件“考生文件夹376操作5.vbp”，完成程序，实现并保存以下功能在所有2位的整数中，输出个数位的数字和十位的数字不同的整数和个数。私有子命令1 _ click ()Dim n As Integer，aspinteger，b As Integer，x As Integern=0fora=_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _For b=0 To 9 1 to 9 a*10 b nIf a b Thenx=_ _ _ _ _ _