《单机操作题.pdf》由会员分享，可在线阅读，更多相关《单机操作题.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祝您考试成功！共9页 第2页实现功能：在三个文本框中输入一元二次方程的三个系数后，单击命令按钮，程序求出该方程的解。Private Sub Command1_Click()Dim a,b,c,p As Single a=Val(Text1.Text)b=Val()c=Val(Text3.Text)p=b*b-4*a*c If Then X1=(-b+S
10、qr(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道 共40分)【第 1题】打开“工程 1.vbp”，完善程序并保存。实现
11、功能：用递归法求斐波那契数列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公斤以上可以在原价每公斤6.80 元的基础上打 8折。实现功能：输入购买的苹果公
12、斤数，输出应付款。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张，且要求每种面值不少于1张，问 5元、1元、5角各多少张，请输出每种可能的组合。
13、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 End Sub【第 5题】打开“工程 1.vbp”，进行以下操作并保存
14、。实现功能：(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文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q
15、4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ
16、7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q
17、4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ
18、7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q
19、4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ
20、7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q
21、4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7祝您考试成功！共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题】某县开发山区农业，需要研究本区内的山地气候。
22、已有的研究结果表明，海拔每升高 100米，年平均气温降低0.5。打开文件“工程 1.vbp”，完善程序，实现下列功能：在文本框 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与它本身以外不能被任何其它整数整除的数
23、。打开文件“工程 1.vbp”，完善程序实现以下功能后保存。输入一个小于 2000000000的正整数到文本框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.Te
24、xt=no End If End Sub【第 4题】“工程 1.vbp”是采用“穷举法”求出所有水仙花数的程序，请完善程序并保存。说明：若一个三位数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题】打开“
25、工程 1.vbp”，完善程序并保存。实现功能：从文本框t1 中输入一个圆的半径，计算圆的面积，把结果输出到文本框 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.T
26、ext End Sub【第 2题】打开“工程 1.vbp”，完善程序并保存。一只猴子摘了一堆桃子，它每天吃掉当天剩余桃子数的一半，每次又忍不住多吃一个，这样到了第十天就剩下一个桃子了。实现功能：计算猴子最初一共摘了多少个桃子。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”，完善程序并保存，使单击窗体时，在窗体上输出如下图案。*（这一题障碍有点大，要不要
27、？）Private Sub Form_Click()Dim i As Integer Dim j 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
28、)tz3 abs(i)+1*;文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:
29、CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y
30、1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:
31、CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y
32、1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:
33、CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y
34、1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7祝您考试成功！共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(输入年利率,数据
35、输入框)Do While s y=s=s*Loop Print y;年以后，存款可以达到2000元 End Sub【第 5题】打开“工程 1.vbp”，完善程序并保存。实现功能：在文本框text1 中输入一个正整数，单击“计算”按钮时判断该整数是偶数还是奇数。如果是偶数，在标签上输出“偶数”，否则输出“奇数”。Private Sub Command1_Click()Dim a As Integer a=Val()If =0 Then Label1.=偶数 Else Label1.Caption=奇数 End Sub 操作题(5道 共40分)【第 1题】在窗体上有一个名称为Timer1 的计时器
36、和一个名称为Label1 的标签,Label 标签的初始值为空，当运行程序后，将在标签中显示当前时间的数字时钟（包括时：分：秒），如图所示。打开文件“工程 1.vbp”完善程序并保存。(第一空不写问题也不大)Private Sub Form_Load()Timer1.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 A
37、s 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 =Int(Rnd*1000)Next i End Sub【第 3题】打开“工程 1.vbp”，完善程序并保存。乘坐飞机的经济舱时，托运行李一般不得超过20公斤，超重每公斤按经济舱全票价的 1.5%计算。实现功能：输入行李重量及经济舱全票价后，点击按钮，计算出托运行李所需费用。Private Sub Command1_Click()Di
38、m 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.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
39、 y=0.7*x Else Print 输入的数据出界！End If End If Print x,y End Sub【第 5题】打开“工程 1.vbp”，完善程序并保存。实现功能：通过键盘输入10个数，统计这 10个数的和。Private Sub Command1_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”，完善程序并保存
40、。实现功能：输入不同的飞船速度后，判断出它的飞行状况。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 if fyif x50 then x=100 then to 10 s=s+xs文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ
41、7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q
42、4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ
43、7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q
44、4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ
45、7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q
46、4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7文档编码:CZ7F8T5F7Q1 HX3A5Q6Y1Q4 ZZ1Y5O1Z6S7祝您考试成功！
47、共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.Caption=飞船挣脱太阳引力飞出太阳系 case is Label1.Caption=飞船离开地球的控制,围绕太阳转 case is Label1.Caption=飞船绕地球
48、似做匀速圆周运动 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 If Text1.Text=End Sub【第 3题】“假设你是第一人民医院的一名医生”：3月21日下午要为学校高一年级新生进行一次体检，恰巧你被安排体检体重和身高，
49、并给出健康建议。体重/身高之比，大于25为偏胖，则输出“您的身材偏胖，需要加强锻炼！”；在18.5 25 之间为标准；则输出“您的身材适中！”；小于 18.5 为偏瘦，则输出“您的身材偏瘦，需要补充营养！”。打开文件“工程 1.vbp”，完善程序实现以下功能：输入体重和身高，输出判定结果。Private Sub Form1_Click()Dim tz As Single,sg As Single Dim bz As Single =Val(InputBox(请输入您的体重：)sg=Val(InputBox(请输入您的体重：)bz=tz/sg 2 If 25 Then MsgBox(您的身材偏胖
50、，需要加强锻炼！)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*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