《2022年单机操作题 .pdf》由会员分享，可在线阅读，更多相关《2022年单机操作题 .pdf（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、祝您考试成功！共9页 第1页操作题(5 道 共40分)【第 1题】打开“工程 1.vbp”，完善程序并保存。实现功能：在 Text1、Text2、Text3 中输入三个整数后，单击“输出最大值”按钮后，在Label3 中显示这 3个数中的最大值。Private Sub Command1_Click()Dim a,b,c,max As Integer a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)If a b Then max=a Else If c max Then Label3.Caption=CStr()End Sub【第 2题】打开
2、“工程 1.vbp”，完善程序并保存。实现功能：在 Text1 中输入一个代表秒数的整数后，单击“计算”按钮后，在 Label1、Label2、Label3 中显示对应的小时、分钟和秒数。如在Text1 中输入“3672”，Label1、Label2、Label3 中分别显示“1”、“1”、“12”，即 1小时 1分12秒。Private Sub Command1_Click()Dim h,m,s,ss As Integer ss=Val()h=m=(ss-h*3600)60 s=(ss-h*3600)Mod Label1.Caption=CStr(h)Label2.Caption=CStr(
3、m)Label3.Caption=CStr(s)End Sub【第 3题】密码的原理是将“明文”中的每个字符用另外一个字符替换，这样就形成“密文”。如果将数字进行加密，其对应关系如下所示:明文：0123456789 密文：9876543210 打开文件“工程 1.vbp”，完善程序，使实现以下功能后保存：若在文本框 text1 中输入待加密的数字，单击“command1 命令按钮”后，在文本框 text2 中输出密文。（数值型与字符型不能进行数学运算）Private Sub Command1_Click()Dim x As String,y As String Dim i As Integer
4、 Dim temp1 As String,temp2 As String x=Text1.Text y=For i=1 To(Text1.Text)temp1=Mid(x,i,1)temp2=y=y+temp2 Next i Text2.Text=End Sub【第 4题】打开“工程 1.vbp”，完善程序并保存。实现功能：用穷举法找出所有的水仙花数的程序并保存。水仙花数是指一类三位数，其各个数位上的数字之立方和为该数。例如：153=13+53+33。Private Sub Command1_Click()Dim i As Integer,a As Integer,b As Integer,c
5、 As Integer For i=100 To 999 a=i b=(i-a*)10 c=i Mod 10 If a 3+b 3+c 3=i Then Print i End Sub【第 5题】打开“工程 1.vbp”，完善程序并保存。实现功能：输入 10个数，存放在数组中，并按输入的逆序输出在窗体上。Private Sub Command1_Click()Dim s(9)As Single For i=0 To 9 =Val(InputBox(请输入一个数)Next i For i=9 To 0 Step Print Next i End Sub 操作题(5道 共40分)【第 1题】在Te
6、xt1 文本框中输入一个年号，判断它是否是闰年，并输出判断结果“是闰年”或“不是闰年”。判断闰年的算法是：如果此年号能被400除尽，则它是闰年，否则如果它能被 4整除而不能被 100整除，则它是闰年，否则它不是闰年。打开文件“工程 1.vbp”，完善程序后并保存。Private Sub Command1_Click()Dim year As Integer year=Val(InputBox(请输入年号:)If(year Mod 4=0)And(year Mod 100 0)(year Mod 400=0)Then Print Else Print End If End Sub【第 2题】打开
7、“工程 1.vbp”，完善程序并保存。实现功能：从键盘上输入一个三位数，然后将它反向输出。例如输入“123”，输出结果为“321”。Private Sub Command1_Click()Dim a As Integer,b As Integer Dim bai As Integer,shi As Integer Dim g As Integer a=Val()bai=a 100 shi=(a-bai*100)10 g=a Mod 10 =g*100+shi*10+bai =CStr(b)End Sub【第 3题】打开“工程 1.vbp”，完善程序并保存。实现功能：给出三角形的三边边长a，b，
8、c（输入保证能构成三角形，无需判断正确性），输出三角形面积。三角形面积计算公式：，其中 q=(a+b+c)/2。Private Sub Command1_Click()Dim s As Single Dim q As Single Dim a As Single Dim b As Single Dim c As Single =Val(InputBox(请输入边长 a的值：)b=Val(InputBox(请输入边长 b的值：)c=Val(InputBox(请输入边长 c的值：)q=(a+b+c)/2 s=(q*(q-a)*(q-b)*(q-c)Print End Sub【第 4题】打开“工程
9、1.vbp”，完善程序并保存。max=b max=c maxtext1.text ss360060len9-temp1y100 100next is(i)-1s(i)or 是闰年 不是闰年 text1.text btext2.texta sqrs名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 9 页 -祝您考试成功！共9页 第2页实现功能：在三个文本框中输入一元二次方程的三个系数后，单击命令按钮，程序求出该方程的解。Private Sub Command1_Click()Dim a,b,c,p As Single a=Val(Text1.Text)b=Val()c=Val(Tex
10、t3.Text)p=b*b-4*a*c If Then X1=(-b+Sqr(p)/(2*a)X2=(-b-Sqr(p)/(2*a)Print X1=;X1 Print X2=;X2 Print 该方程无实数根 End If End Sub【第 5题】打开“工程 1.vbp”，完善程序并保存。实现功能：Private Sub Command1_Click()Dim x As Single,y As Single a=3:b=-5 =Val(InputBox(请输入 x的值)If x 0 Then =x+5*a Else y=x-2*b Print y=;CStr(y)End Sub 操作题(5
11、道 共40分)【第 1题】打开“工程 1.vbp”，完善程序并保存。实现功能：用递归法求斐波那契数列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)End Function Private Sub Command1_Click()Dim S As Integer S=Fib()Print S=&CStr(S)End Sub【第 2题】打开“工程 1.vbp”，完善程序并保存。某超市为了对苹果进行促销，规定购买2公斤以上
12、可以在原价每公斤6.80 元的基础上打 8折。实现功能：输入购买的苹果公斤数，输出应付款。Private Sub Command1_Click()Dim x As Single Dim cost As Single x=Val(InputBox(请输入苹果公斤数：)If x c)And(a+c b)And(b+c a)Then Let Text4.Text=OK Else Let Text4.Text=NO End Sub【第 4题】打开“工程 1.vbp”，完善程序并保存。实现功能：将一张100元面值的人民币换成若干5元、1元、5角面值的人民币，但要求 100元换成的零钱共 100张，且要求
13、每种面值不少于1张，问 5元、1元、5角各多少张，请输出每种可能的组合。Private Sub Command1_Click()Dim Wuyuan As Integer Dim Yiyuan As Integer Dim Wujiao As Integer For Wuyuan=1 To 20 For Yiyuan=1 To Wujiao=100-Wuyuan-If Wuyuan*5+Yiyuan*1+Wujiao*0.5=100 Then Print Wuyuan=&Wuyuan&,Yiyuan=&Yiyuan&,Wujiao=&Wujiao Next Yiyuan Next Wuyuan
14、 End Sub【第 5题】打开“工程 1.vbp”，进行以下操作并保存。实现功能：(1)将label1 标签上的文字设置为“测试系统”；(2)把窗体中显示用户名的文本框的字体设置为“楷体_GB2312”；(3)在窗体的相应位置添加一个“确定”的命令按钮。控件名请采用默认值。最终效果图如下：操作题(5道 共40分)【第 1题】打开“工程 1.vbp”，完善程序并保存。Text2.text p=0elsex yend if1 end if10 x*6.8 end ifcostinteger end if100 yiyuanend if名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共
15、9 页 -祝您考试成功！共9页 第3页实现功能：在文本框Text1和Text2 中分别输入两个整数，单击“交换”按钮后，两个文本框中的数字进行交换。Private Sub Command1_Click()Dim a As Integer Dim b As Integer Dim t As Integer a=Val(Text1.Text)b=Val(Text2.Text)t=a a=b=Text1.Text=Text2.Text=End Sub【第 2题】某县开发山区农业，需要研究本区内的山地气候。已有的研究结果表明，海拔每升高 100米，年平均气温降低0.5。打开文件“工程 1.vbp”，完
16、善程序，实现下列功能：在文本框 text1 中输入山脚处地表温度x，在文本框 text2 中输入相对高度h，在文本框 text3 中输出相应高度的气温y。（这一题的语言描述不够准确）Private Sub Command1_Click()Dim h,x,y Single Let x=Val(Text1.Text)Let =Val(Text2.Text)Let y=x-(h/100)*0.5 Let Text3.Text=End Sub【第 3题】素数是指除了 1与它本身以外不能被任何其它整数整除的数。打开文件“工程 1.vbp”，完善程序实现以下功能后保存。输入一个小于 2000000000的
17、正整数到文本框text1 中，如果它是素数(质数)，就输出“prime”，否则就输出“no”。（这里素数、质数的概念是什么关系？）Private Sub Command1_Click()Dim n,i As Long Dim yes As Let n=Val(Text1.Text)Let yes=True For i=2 To n 2 If n Mod i=0 Then Let yes=End If Next i If yes Then Let Text2.Text=yes Let Text2.Text=no End If End Sub【第 4题】“工程 1.vbp”是采用“穷举法”求出所有
18、水仙花数的程序，请完善程序并保存。说明：若一个三位数abc，满足：abc=a3+b3+c3，则称 abc为水仙花数。如三位数 153满足：13+53+33=1+125+27=153，则 153是水仙花数。Private Sub Command1_Click()Dim i,a,b As Integer For i=100 To a=i 100 b=(i-a*100)10 c=If a*a*a+b*b*b+c*c*c=i Then Print CStr(i)Next i End Sub【第 5题】打开“工程 1.vbp”，完善程序并保存。实现功能：从文本框t1 中输入一个圆的半径，计算圆的面积，把
19、结果输出到文本框 t2 中。Private Sub Command1_Click()Const pi=3.14 r,s as Single r=Val()s=pi*r*r T2.Text=End Sub 操作题(5道 共40分)【第 1题】打开“工程 1.vbp”，进行以下操作并保存。在窗体上新建一个命令按钮Command1，一个文本框 Text1，属性全部采用默认值。实现功能：单击命令按钮后，窗体的标题改为与文本框的内容一致。Private Sub Command1_Click()=Text1.Text End Sub【第 2题】打开“工程 1.vbp”，完善程序并保存。一只猴子摘了一堆桃子
20、，它每天吃掉当天剩余桃子数的一半，每次又忍不住多吃一个，这样到了第十天就剩下一个桃子了。实现功能：计算猴子最初一共摘了多少个桃子。Private Sub Command1_Click()Dim tz As Integer tz是桃子数 Dim ts As Integer ts是天数 tz=For ts=1 To tz=*2 Next ts Print 最初共有桃子&End Sub【第 3题】打开文件“工程 1.vbp”，完善程序并保存，使单击窗体时，在窗体上输出如下图案。*（这一题障碍有点大，要不要？）Private Sub Form_Click()Dim i As Integer Dim j
21、 As Integer Print For i=-3 To Print Tab(3);For j=1 To 3-Print Next Print Next End Sub【第 4题】打开“工程 1.vbp”，完善程序并保存。银行的年利率是r，小明将 1000元存入银行，问几年以后小明在银行的存款将超过 2000元。例如，年利率是0.04 时，需要存 18年。b tabas hyBoolean False else999(i-a*100)mod 10end ifdim t1.texts1 9(tz+1)tz3 abs(i)+1*;名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 9
22、页 -祝您考试成功！共9页 第4页实现功能：单击“计算”按钮后，计算并在窗体上输出结果。Private Sub Command1_Click()Dim s As Single s计算存款 Dim y As Integer y计算年份 Dim r As Single r是年利率 s=y=0 r=Val(InputBox(输入年利率,数据输入框)Do While s y=s=s*Loop Print y;年以后，存款可以达到2000元 End Sub【第 5题】打开“工程 1.vbp”，完善程序并保存。实现功能：在文本框text1 中输入一个正整数，单击“计算”按钮时判断该整数是偶数还是奇数。如果
23、是偶数，在标签上输出“偶数”，否则输出“奇数”。Private Sub Command1_Click()Dim a As Integer a=Val()If =0 Then Label1.=偶数 Else Label1.Caption=奇数 End Sub 操作题(5道 共40分)【第 1题】在窗体上有一个名称为Timer1 的计时器和一个名称为Label1 的标签,Label 标签的初始值为空，当运行程序后，将在标签中显示当前时间的数字时钟（包括时：分：秒），如图所示。打开文件“工程 1.vbp”完善程序并保存。(第一空不写问题也不大)Private Sub Form_Load()Timer
24、1.Interval=1000 End Sub Private Sub Timer1_timer()End Sub【第 2题】打开“工程 1.vbp”，完善程序并保存。实现功能：随机生成100个整数，统计偶数的个数。Dim a(100)As Integer Private Sub Command1_Click()Dim total As Integer For i=1 To 100 If a(i)Mod 2=0 Then End If Next i Print CStr(total)End Sub Private Sub Form_Load()Randomize For i=1 To 100
25、=Int(Rnd*1000)Next i End Sub【第 3题】打开“工程 1.vbp”，完善程序并保存。乘坐飞机的经济舱时，托运行李一般不得超过20公斤，超重每公斤按经济舱全票价的 1.5%计算。实现功能：输入行李重量及经济舱全票价后，点击按钮，计算出托运行李所需费用。Private Sub Command1_Click()Dim w As Integer w是行李重量 Dim pj As Integer pj是机票价格 Dim fy As Single w=Val(Text1.Text)pj=Val(Text2.Text)If w=20 Then Else fy=(w-20)*pj*0
26、.015 Text3.Text=End Sub【第 4题】某程序的功能是：当x100时，显示“输入的数据出界！”。请打开文件“Z:工程 1.vbp”，完善程序。(程序要再修改)Private Sub Command1_Click()Dim x As Single x=Val(InputBox(请输入 x的值！)y=0.8*x Else y=0.7*x Else Print 输入的数据出界！End If End If Print x,y End Sub【第 5题】打开“工程 1.vbp”，完善程序并保存。实现功能：通过键盘输入10个数，统计这 10个数的和。Private Sub Command
27、1_Click()Dim x As Integer Dim s As Integer Dim i As Integer For i=1 x=Val(InputBox(NO.&i)Print CStr(x)Next i Print total:&End Sub 操作题(5道 共40分)【第 1题】打开“工程 1.vbp”，完善程序并保存。实现功能：输入不同的飞船速度后，判断出它的飞行状况。1000=2000 y+1(1+r)text1.text a mod 2 caption end if?label1.caption=timetotal=0 total=total+1 a(i)fy=0 end
28、 if fyif x50 then x=100 then to 10 s=s+xs名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 9 页 -祝您考试成功！共9页 第5页在“神州七号”飞行程序中，其飞行状况与飞行速度的关系如下表：飞船速度（V）单位（km/s）飞行状况7.91=V11.19 飞船绕地球似做匀速圆周运动11.19=V16.67 飞船挣脱太阳引力飞出太阳系Private Sub Command1_Click()Dim v As Single v=Val(InputBox(请输入飞船速度的值)Select Case v Case Is 16.67 Label1.Capti
29、on=飞船挣脱太阳引力飞出太阳系 case is Label1.Caption=飞船离开地球的控制,围绕太阳转 case is Label1.Caption=飞船绕地球似做匀速圆周运动 Case Else Label1.Caption=输入数据错误！End Sub【第 2题】打开“工程 1.vbp”，完善程序并保存。实现功能：用程序实现函数：y=|x|，y的值在 Text1 文本框中显示出来。Private Sub Command1_Click()Dim x As Integer,y As Integer x=Val(InputBox(请输入 x的值：)If Then y=x Else End
30、 If Text1.Text=End Sub【第 3题】“假设你是第一人民医院的一名医生”：3月21日下午要为学校高一年级新生进行一次体检，恰巧你被安排体检体重和身高，并给出健康建议。体重/身高之比，大于25为偏胖，则输出“您的身材偏胖，需要加强锻炼！”；在18.5 25 之间为标准；则输出“您的身材适中！”；小于 18.5 为偏瘦，则输出“您的身材偏瘦，需要补充营养！”。打开文件“工程 1.vbp”，完善程序实现以下功能：输入体重和身高，输出判定结果。Private Sub Form1_Click()Dim tz As Single,sg As Single Dim bz As Single
31、 =Val(InputBox(请输入您的体重：)sg=Val(InputBox(请输入您的体重：)bz=tz/sg 2 If 25 Then MsgBox(您的身材偏胖，需要加强锻炼！)Else If Then MsgBox(您的身材偏瘦，需要补充营养！)Else MsgBox(您的身材真棒！)End If End If End Sub【第 4题】打开“工程 1.vbp”，完善程序并保存。实现功能：用选择排序法将数组a中的 10个整数按升序排列。Private Sub Command1_Click()Dim a(10)As Integer For i=1 To 10 a(i)=Int(Rnd*
32、1000)Next i For i=1 To For j=If a(i)a(j)Then a(0)=a(i)a(i)=a(j)End If Next j Next i For i=1 To 10 Print CStr(a(i)Next i End Sub【第 5题】打开“工程 1.vbp”，完善程序并保存。实现功能：假设有一个5位数密码。只记得密码为67 8，其中百位和十位的数字记不清了，但知道该数能够被78整除，也能被 67整除。请完善算法帮忙找出这个密码。Private Sub Command1_Click()Dim x As Long For x=To 67998 Step 10 If(
33、x Mod 67=0)Or(x Mod 78=0)Then Print End If End Sub 操作题(5道 共40分)【第 1题】打开“工程 1.vbp”，完善程序并保存。实现功能：判断从文本框Text1 中输入的数据，如果该数据满足条件：除以 3余2，除以 5余3，除以 7余4，则输出在窗体上。Private Sub Command1_Click()x=Val(Text1.Text)If x Mod 3=2 Then If =3 Then If Then Print End If End If End If End Sub【第 2题】打开“工程 1.vbp”，完善程序并保存。关于人口
34、问题，如果我国人口年增长率为4，问多少年后我国人口超过20亿。(假设现在我国人口为14亿)实现功能：当单击窗体后，在窗体上输出问题答案。Private Sub Form_Click()Dim p As Integer 变量 p保存人口 Dim n As Long n=0 Do While p=p*n=Loop Print n=&CStr(n)End Sub【第 3题】打开“工程 1.vbp”，完善程序并保存。实现功能：当单击窗体后，计算 224262,N=11.19=7.91 end selectx=0 y=-xytz bzbz15.5 and bz=25bz18.510 1 to iA(j)
35、=a(0)67008 XNext xx mod 5 x mod 7=4xp=14 p 1500 Print N=&CStr()End Sub【第 4题】打开文件“工程 1.vbp”，进行以下操作后并保存。完善程序，求 1/1+1/2+2/3+,+21/32+,前 10项的值。Private Sub Command1_Click()Dim s As Integer Dim a As Integer Dim b As Integer Dim k As Integer s=0 a=1 b=1 For k=1 To 10 s=s+a/b a=s=b=Next k Print s End Sub【第 5
36、题】打开“工程 1.vbp”，完善程序并保存。实现功能：计算1+3+5+,+99的值。Private Sub Command1_Click()Dim i As Integer Dim s As Integer i=1 s=0 Do While i=Home/1000 Print End Sub【第 4题】吴俨同学找来了一条长度为L的铁丝，希望制作一个面积最大的矩形框。请完善程序，解决此问题。打开文件“工程 1.vbp”，填空完成程序，输入铁丝的长度L，输出矩形面积的最大值。(为什么要用整型？)Private Sub Command1_Click()Dim L As Integer Dim ch
37、ang As Integer Dim kuai As Integer Dim s As Integer Dim smax As Integer smax=0 L=InputBox(请输入一条铁丝的长度：)For chang=1 To L 2 For kuai=1 To L 2-chang s=If Then smax=s End If Next kuai Next chang Print End Sub【第 5题】打开“工程 1.vbp”，完善程序并保存。实现功能：用递归法求1+2+3+,+100的值。Public Function S(n As Integer)As Integer If n
38、=1 Then S=Else S=+S(n-1)End If End Function n n+20n-20a+b s+b/a a+bs+i i+2 s1 Fac 5s1/v1 v2s2h L schang*kuan ssmax smax1 n 100名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 9 页 -祝您考试成功！共9页 第7页Private Sub Command1_Click()Dim Sum As Integer Sum=S()Print Sum=&CStr(Sum)End Sub 操作题(5道 共40分)【第 1题】打开“工程 1.vbp”，完善程序并保存。实现功
39、能：这是一个简单的显示评语程序，在文本框Text1 中输入一个数后，单击“评语”按钮，在标签Label1 显示评语。当输入一个小于60的数时，显示“不及格”；当输入一个大于等于60且小于 85的数时，显示“良好”；当输入一个大于等于85的数时，显示“优秀”。Private Sub Command1_Click()Dim Cj As Single 定义变量 Cj，值由文本框 Text1 读入 Cj=Val()If Cj 60 Then Label1.Caption=不及格 End If If Cj=60 Then Label1.Caption=良好 End If If Cj=85 Then La
40、bel1.Caption=优秀 End If End Sub【第 2题】打开“工程 1.vbp”，完善程序并保存。举重比赛中，60公斤级选手体重不能超过60公斤。实现功能：填空完成程序，使得在文本 Text1 中输入一个大于60的数时，标签 Label1 显示“超重！不能参赛！”；当输入一个小于等于60的数时，标签 Label1 显示“合格，可以参赛！”。Private Sub Command1_Click()Dim t As Single 定义变量 t，值由文本框 Text1 读入 t=Val()If Then Label1.Caption=超重！不能参赛！Else Label1.Capti
41、on=合格，可以参赛！End Sub【第 3题】打开“工程 1.vbp”，完善程序并保存。实现功能：当单击窗体后，计算出1+2+3+,+N500 的N的最大值，并在文本框 Text1中显示出来。Private Sub Form_Click()Dim s As Integer 变量 s存放和 Dim n As Integer 为n赋初值 n=为s赋初值 s=Do While s 500的N的最小值，并在文本框 Text1 中显示出来。Private Sub Form_Click()Dim s As Integer 变量 s存放和 Dim n As Integer 为s赋初值 s=为n赋初值 n=
42、Do n=n+1 s=s+n Loop While s 500 Text1.Text=CStr(n)End Sub【第 5题】打开“工程 1.vbp”，完善程序并保存。实现功能：计算s=1!+2!+3!+,+8!的值并在窗体上打印出结果。Private Sub Form_Click()Dim s As Single s变量用于存放计算结果 Dim p As Single Dim i As Integer 定义一个循环变量 给s赋初值 s=给p赋初值 p=For i=1 To 8 p=p*i s=Next i Print s=;CStr(s)End Sub 操作题(5道 共40分)【第 1题】打
43、开“工程 1.vbp”，完善程序并保存。实现功能：单击窗体后，计算，在窗体上显示结果。Private Sub Form_Click()Dim s As Single 定义变量 s为单精度型 Dim i As Integer 定义循环变量 s=For i=1 To Step 1 s=s+Next i Print s=;CStr(s)End Sub【第 2题】打开“工程 1.vbp”，完善程序并保存。实现功能：当单击“计算1+2+3+,+100”按钮后，文本框Text1 显示1+2+3+,+100的值。Private Sub Command1_Click()Dim a As Integer Dim
44、 i As Integer a=For i=1 To Step 1 a=Next i Text1.Text=CStr()End Sub【第 3题】打开“工程 1.vbp”，完善程序并保存。实现功能：编程计算的值。Private Sub Form_Click()Dim s As Single text1.text And cj60end if0 0S+n0 0=0 1 S+p0 100 1/i0 100a+i名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 9 页 -祝您考试成功！共9页 第8页 Dim i As Integer s=For i=1 To Step 1 If i Mo
45、d 2 0 Then s=s+1/i Else s=End If Next i Print s=;CStr(s)End Sub【第 4题】打开“工程 1.vbp”，完善程序并保存。某公司 2005年的总产值为 2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？实现功能：当单击窗体后，在窗体上输出问题答案。Private Sub Form_Click()Dim p As Single 变量 p保存年产值 Dim n As Integer 整型变量 n为所求年数 n=0 Do While p 4000 p=p*n=Loop Print n=;CStr(n)End Sub【第 5题】
46、打开“工程 1.vbp”，完善程序并保存。实现功能：当单击“计算7！”按钮后，文本框Text1 显示 7！的值。Private Sub Command1_Click()Dim a As Integer Dim i As Integer a=1 For i=1 To Step 1 a=Next i Text1.Text=CStr()End Sub 操作题(5 道 共40分)【第 1题】打开“工程 1.vbp”，完善程序并保存。实现功能：单击窗体时打印下面所示的图案。*Private Sub Form_Click()Dim i As Integer Dim j As Integer For i=T
47、o 1 Step-1 For j=1 To i Step 1 Next j Print End Sub【第 2题】打开“工程 1.vbp”，完善程序并保存。实现功能：鸡兔同笼，共有 100条腿，40个头，问鸡有几只，兔有几只？Private Sub Form_Click()Dim Ji As Integer Ji变量表示鸡的个数 Dim Tu As Integer Tu变量表示兔的个数 Dim Leg As Integer Leg变量表示腿数 For Ji=1 To 40 Tu=计算腿数 Leg=+Tu*4 如果腿正好 100只，则打印。If Leg=Then Print 鸡=;Ji;只,兔=
48、;Tu;只 End If Next Ji End Sub【第 3题】打开“工程 1.vbp”，完善程序并保存。实现功能：当单击“显示”按钮后，Text1、Text2 分别显示交换后的变量x、y值。Private Sub Command1_Click()Dim x,y As Integer x=10 y=100 If x y Then 以下三条语句交换x,y 的值 t=x=y y=End If Text1.Text=Text2.Text=CStr(y)End Sub【第 4题】打开“工程 1.vbp”，完善程序并保存。实现功能：当单击“显示”按钮后，随机产生10个属于区间 0，100)的自然数，
49、并保存于数组a中，然后在窗体上显示这10个数及其平均值。(注：学生运算结果有可能跟样图中数值不一致)Private Sub Command1_Click()Dim a(9)As Integer Dim s As Single Dim i As Integer Me.Cls s=0 Randomize For i=0 To Step 1 a(i)=Int(Rnd*100)Print a(i)Next i For i=0 To 9 s=Print 这10个自然数的平均值=;s/10 End Sub【第 5题】打开“工程 1.vbp”，完善程序并保存。实现功能：当单击“显示”按钮后，显示下面的图形：
50、Private Sub Command1_Click()Dim i As Integer 定义 i 为整型变量 Dim j As Integer 定义 j 为整型变量 For i=1 To 6 Step 1 For j=1 To Step 1 Print 0 100s-1/ip=2000(1+0.05)N+17 A*ia4 Print*;Next i40-ji Ji*2100 x tx9 S+a(i)Next ii;j名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 9 页 -祝您考试成功！共9页 第9页 Next Print Next i End Sub 操作题(5道 共40分)