信息技术学业水平测试VB操作题题库Word格式文档下载.docx

1、 For j = 1 To Step 1 Print Next Print【第3题】打开文件“考生文件夹609工程1.vbp”，完善Form_Click事件代码并保存。单击窗体时在窗体上打印下面所示的图案。* * * *Private Sub Form_Click（） For i = To 1 Step -1 For j = 1 To i Step 1 【第4题】打开文件“考生文件夹730工程1.vbp”，完善Form_Click事件代码并保存。在窗体上显示如图所示的数字金字塔。 For i = 1 To 5 Print Tab（10 - i）; For j = 1 To Print ;【第5

2、题】打开文件“考生文件夹15工程1.vbp”，完善Command1_Click事件代码并保存。单击按钮后在窗体上打印出下面所示的图案。（第一行的第一个“*”从第5列开始输出） Print Tab（6 - i）; Print ;【第6题】与第4题重复【第7题】打开文件“考生文件夹729工程1.vbp”，完善Form_Click事件代码并保存。Dim i As IntegerDim j As IntegerFor i = 1 To Print Str（i）;Next i【第8题】打开“考生文件夹1334”文件夹中的工程文件“工程1.vbp”进行以下操作后并保存！（在字符串相连接时不要使用“+”，应

3、使用“&”）（1） 在窗体Form1中添加一个名为Command1的按钮，并在按钮上显示文字“画图”；（2） 完善程序，单击“画图”按钮，使其能输出如下图形。 注：（1） 删除、，填入正确的语句 （2） 不能删除注释语句 Dim i, j As Integer For i = 3 To Step 第一空 Print Space（i）; 打印空格 For j = 1 To 10 Print 第二空【第9题】打开“考生文件夹1987工程1.vbp”，完善程序并保存。单击按钮后打印下面所示的图案。（第一行的第一个“”从第1列开始输出） Print Tab（4 - i）;VB2-递归操作题一、操作题，

4、每题10分，6题共60分打开“考生文件夹388工程1.vbp”，完善程序并保存。用递归法求5!+6!+7!的值。Public Function Fac（a As Long） As IntegerIf a = 1 Then Fac = Else Fac = a * （a - 1）End IfEnd Function Dim S As Long S = Fac（5） + Fac（） + Fac（7） Print S= & CStr（S）打开文件“考生文件夹178工程1.vbp”，完善Command1_Click事件及fac函数并保存。用递归法求3!+5!的值，将结果输出到窗体上。 S = Fac（

5、3） + Fac（） + Fac（7）打开文件“考生文件夹413工程1.vbp”，完善Command1_Click事件及fib函数并保存。用递归法求斐波那契数列1，1，2，3，5，8，第10项的值，将结果输出到窗体上。Public Function fib（n As Integer） As Integer If （n = 1） Or （n = 2） Then fib = Else fib = fib（n - 1） + fib（n - 2） Dim S As Integer S = fib（）打开文件“考生文件夹175工程1.vbp”，完善Command1_Click事件及s函数代码并保存。用递

6、归法求1+2+3+100的值，结果输出在窗体上。Public Function S（n As Integer） As Integer If n = 1 Then S = S = + S（n - 1） End If Dim Sum As Integer Sum = S（）Sum= CStr（Sum）打开文件“考生文件夹851工程1.vbp”，完善程序实现如下功能并保存：花果山上有一洞，小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞，编程在Text1中输入台阶数，在Label1中显示有多少种不同的跳法。正确的运行结果如下图所示，调试时输入的台阶数最大不要超过35！Function s（n

7、As Integer） As LongIf n = 1 Or n = 2 Then s = If n = 3 Then s = 2 s = s（n - 1） + s（n - 3）Dim n As Integern = Val（）Label1.Caption = Str（）【第6题】打开文件“考生文件夹861年龄问题.vbp”，完善程序实现如下功能并保存：有5个人坐在一起，第5个人说他比第4个人小3岁；第4个人说他比第3个人小3岁；第3个人说他比第2个人小3岁；第2个人又说他比第1个人小3岁；第1个人说他是38岁。编写程序，计算出第5个人的年龄并显示。Private Sub cmdDisplay

8、_Click（）第5人的年龄: age（）Function age（n As Integer） As Integer age = age = age（n - 1） - 3VB3解析操作题打开文件“考生文件夹89工程1.vbp”，完善Command1_Click事件代码并保存。乘坐飞机的经济舱时，免费托运行李一般不得超过20公斤，超重每公斤按全票价的1.5%计算。输入行李重量及经济舱全票价后，点击按钮，计算出行李托运费用，输出到对应文本框中。 Dim w As Integer 行李重量 Dim pj As Integer 机票价格 Dim fy As Single 托运费用 w = Val（Text1.Text） pj = Val（Text2.Text） If w = 20 Then fy = （w - 20） * pj * 0.015 Text3.Text = 30工程1.vbp”， 完善Command1_Click事件代码并保存。 Dim x As Single, y As Single a = 3: b = -5 = Val（InputBox（请输入x的值） If x max Then max = x（i） If x（i） min Then = x（i）Label1.Caption = Str（max）L