操作题(5道共40分)

1、 操作题(5道 共40分)【第1题】打开“Z:13工程1.vbp”，完善程序并保存。实现功能：在Text1、Text2、Text3中输入三个整数后，单击“输出最大值”按钮后，在Label3中显示这3个数中的最大值。Private Sub Command1_Click() Dim a, b, c, max As Integer max=b max=c max a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a > b Then max = a Else If c > max Then Label3.Capt

2、ion = CStr()End Sub【第2题】打开“Z:12工程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 text1.text ss3600 60 ss = Val() h = m = (ss - h * 3600) 60 s

3、 = (ss - h * 3600) Mod Label1.Caption = CStr(h) Label2.Caption = CStr(m) Label3.Caption = CStr(s)End Sub【第3题】密码的原理是将“明文”中的每个字符用另外一个字符替换，这样就形成“密文”。如果将数字进行加密，其对应关系如下所示:明文：0123456789 密文：9876543210打开文件“Z:1工程1.vbp”，完善程序，使实现以下功能后保存：若在文本框text1中输入待加密的数字，单击“command1命令按钮”后，在文本框text2中输出密文。（数值型与字符型不能进行数学运算）Priv

4、ate Sub Command1_Click() Dim x As String, y As String Dim i As Integer Dim temp1 As String, temp2 As String x = Text1.Text y = "" For i = 1 To (Text1.Text) len 9-temp1 y temp1 = Mid(x, i, 1) temp2 = y = y + temp2 Next i Text2.Text = End Sub【第4题】打开“Z:4工程1.vbp”，完善程序并保存。实现功能：用穷举法找出所有的水仙花数的程序并

5、保存。水仙花数是指一类三位数，其各个数位上的数字之立方和为该数。例如：153=13+53+33。Private Sub Command1_Click() 100 100 next i Dim i As Integer, a As Integer, b As Integer, c 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题】打开“Z:9工程1.vbp”，完善程序并保存。实现功能：输入10个数，存放在数组中，并按输

6、入的逆序输出在窗体上。Private Sub Command1_Click() Dim s(9) As Single For i = 0 To 9 = Val(InputBox("请输入一个数") s(i) -1 s(i) Next i For i = 9 To 0 Step Print Next iEnd Sub操作题(5道 共40分)【第1题】在Text1文本框中输入一个年号，判断它是否是闰年，并输出判断结果“是闰年”或“不是闰年”。判断闰年的算法是：如果此年号能被400除尽，则它是闰年，否则如果它能被4整除而不能被100整除，则它是闰年，否则它不是闰年。打开文件“Z:

7、38工程1.vbp”，完善程序后并保存。Private Sub Command1_Click() Dim year As Integer year = Val(InputBox("请输入年号:") or "是闰年" "不是闰年" If (year Mod 4 = 0) And (year Mod 100 <> 0) (year Mod 400 = 0) Then Print Else Print End If End Sub【第2题】打开“Z:32工程1.vbp”，完善程序并保存。实现功能：从键盘上输入一个三位数，然后将它

8、反向输出。例如输入“123”，输出结果为“321”。Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer text1.text b text2.text 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题】打开“Z:36工程1.vbp”，完善程序并保存。实现功能：给

9、出三角形的三边边长a，b，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 = (

10、a + b + c) / 2 a sqr s s = (q * (q - a) * (q - b) * (q - c) Print End Sub【第4题】打开“Z:28工程1.vbp”，完善程序并保存。实现功能：在三个文本框中输入一元二次方程的三个系数后，单击命令按钮，程序求出该方程的解。Private Sub Command1_Click() Text2.text p>=0 else Dim a, b, c, p As Single a = Val(Text1.Text) b = Val() c = Val(Text3.Text) p = b * b - 4 * a * c If T

11、hen X1 = (-b + Sqr(p) / (2 * a) X2 = (-b - Sqr(p) / (2 * a) Print "X1=" X1 Print "X2=" X2 Print "该方程无实数根" End IfEnd Sub【第5题】打开“Z:30工程1.vbp”，完善程序并保存。实现功能：Private Sub Command1_Click() Dim x As Single, y As Single a = 3: b = -5 = Val(InputBox("请输入x的值") x y end if

12、 If x < 0 Then = x + 5 * a Else y = x - 2 * b Print "y=" CStr(y)End Sub操作题(5道 共40分)【第1题】打开“Z:43工程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) 1 end if 10 End FunctionPri

13、vate Sub Command1_Click() Dim S As Integer S = Fib() Print "S=" & CStr(S)End Sub【第2题】打开“Z:41工程1.vbp”，完善程序并保存。某超市为了对苹果进行促销，规定购买2公斤以上可以在原价每公斤6.80元的基础上打8折。实现功能：输入购买的苹果公斤数，输出应付款。Private Sub Command1_Click() Dim x As Single Dim cost As Single x = Val(InputBox("请输入苹果公斤数：") x*6.8 en

14、d if cost If x <= 2 Then cost = Else cost = x * 6.8 * 0.8 Print End Sub【第3题】打开“Z:50工程1.vbp”，完善程序并保存。实现功能：在文本框text1、text2、text3中输入3根小木棒的长度(假设都是整数)，判断能否用它们搭成一个三角形，并把结果输出到文本框text4中。操作要求：（1）在窗体中加载“CommandButton”控件，命名为“Command1”并设置该控件“Caption”属性值为“判断”；（2）完善程序，执行command1_click事件，判断出结果，如果能搭成三角形则在文本框text

15、4中输出“OK”，否则输出“NO”。 integer end ifPrivate Sub Command1_Click() Dim a, b, c As Let a = Val(Text1.Text) Let b = Val(Text2.Text) Let c = Val(Text3.Text) If (a + b > c) And (a + c > b) And (b + c > a) Then Let Text4.Text = "OK" Else Let Text4.Text = "NO" End Sub【第4题】打开“Z:40工程

16、1.vbp”，完善程序并保存。实现功能：将一张100元面值的人民币换成若干5元、1元、5角面值的人民币，但要求100元换成的零钱共100张，且要求每种面值不少于1张，问5元、1元、5角各多少张，请输出每种可能的组合。Private Sub Command1_Click() 100 yiyuan end if 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 +

17、Yiyuan * 1 + Wujiao * 0.5 = 100 Then Print "Wuyuan=" & Wuyuan & ",Yiyuan=" & Yiyuan & ",Wujiao=" & Wujiao Next Yiyuan Next Wuyuan End Sub【第5题】打开“Z:45工程1.vbp”，进行以下操作并保存。实现功能：(1) 将label1标签上的文字设置为“测试系统”；(2) 把窗体中显示用户名的文本框的字体设置为“楷体_GB2312”；(3) 在窗体的相应位置添加一

18、个“确定”的命令按钮 。控件名请采用默认值。最终效果图如下：操作题(5道 共40分)【第1题】打开“Z:68工程1.vbp”，完善程序并保存。实现功能：在文本框Text1和Text2中分别输入两个整数，单击“交换”按钮后，两个文本框中的数字进行交换。Private Sub Command1_Click() Dim a As Integer b t a b 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

19、【第2题】某县开发山区农业，需要研究本区内的山地气候。已有的研究结果表明，海拔每升高100米，年平均气温降低0.5。打开文件“Z:54工程1.vbp”，完善程序，实现下列功能：在文本框text1中输入山脚处地表温度x，在文本框text2中输入相对高度h，在文本框text3中输出相应高度的气温y。（这一题的语言描述不够准确） as h yPrivate 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

20、.Text = End Sub【第3题】素数是指除了1与它本身以外不能被任何其它整数整除的数。打开文件“Z:63工程1.vbp”，完善程序实现以下功能后保存。输入一个小于2000000000的正整数到文本框text1中，如果它是素数(质数)，就输出“prime”，否则就输出“no”。（这里素数、质数的概念是什么关系？）Private Sub Command1_Click() Dim n, i As Long Dim yes As Boolean False else Let n = Val(Text1.Text) Let yes = True For i = 2 To n 2 If n Mod

21、 i = 0 Then Let yes = End If Next i If yes Then Let Text2.Text = "yes" Let Text2.Text = "no" End IfEnd Sub【第4题】“Z:51工程1.vbp”是采用“穷举法”求出所有水仙花数的程序，请完善程序并保存。说明：若一个三位数abc，满足：abc=a3+b3+c3，则称abc为水仙花数。如三位数153满足：13+53+33=1+125+27=153，则153是水 999 (i - a * 100) mod 10 end if仙花数。Private Sub C

22、ommand1_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 iEnd Sub【第5题】打开“Z:60工程1.vbp”，完善程序并保存。实现功能：从文本框t1中输入一个圆的半径，计算圆的面积，把结果输出到文本框t2中。Private Sub Command1_Click() dim t1.text s Const pi = 3.14 r, s as S

23、ingle r = Val() s = pi * r * r T2.Text = End Sub操作题(5道 共40分)【第1题】打开“Z:82工程1.vbp”，进行以下操作并保存。在窗体上新建一个命令按钮Command1，一个文本框Text1，属性全部采用默认值。实现功能：单击命令按钮后，窗体的标题改为与文本框的内容一致。Private Sub Command1_Click() = Text1.TextEnd Sub【第2题】打开“Z:80工程1.vbp”，完善程序并保存。一只猴子摘了一堆桃子，它每天吃掉当天剩余桃子数的一半，每次又忍不住多吃一个，这样到了第十天就剩下一个桃子了。实现功能：计

24、算猴子最初一共摘了多少个桃子。Private Sub Command1_Click() 1 9 (tz+1) tz Dim tz As Integer 'tz是桃子数 Dim ts As Integer 'ts是天数 tz = For ts = 1 To tz = * 2 Next ts Print "最初共有桃子" & End Sub【第3题】打开文件“Z:74工程1.vbp”，完善程序并保存，使单击窗体时，在窗体上输出如下图案。 * * * * * * *（这一题障碍有点大，要不要？） 3 abs(i)+1 "*"Privat

25、e 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 NextEnd Sub【第4题】打开“Z:77工程1.vbp”，完善程序并保存。银行的年利率是r，小明将1000元存入银行，问几年以后小明在银行的存款将超过2000元。例如，年利率是0.04时，需要存18年。实现功能：单击“计算”按钮后，计算并在窗体上输出结果。 1000 <=2000 y+1 (1+r)Private Sub Command1_Cl

26、ick() 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题】打开“Z:71工程1.vbp”，完善程序并保存。实现功能：在文本框text1中输入一个正整数，单击“计算”按钮时判断该整数是偶数还是奇数。如

27、果是偶数，在标签上输出“偶数”，否则输出“奇数”。Private Sub Command1_Click() text1.text a mod 2 caption end if Dim a As Integer a = Val() If = 0 Then Label1. = "偶数" Else Label1.Caption = "奇数" End Sub操作题(5道 共40分)【第1题】在窗体上有一个名称为Timer1的计时器和一个名称为Label1的标签,Label标签的初始值为空，当运行程序后，将在标签中显示当前时间的数字时钟（包括时：分：秒），如图所示

28、。打开文件“Z:84工程1.vbp”完善程序并保存。 (第一空不写问题也不大) ? label1.caption=timePrivate Sub Form_Load() Timer1.Interval = 1000 End SubPrivate Sub Timer1_timer() End Sub【第2题】打开“Z:91工程1.vbp”，完善程序并保存。实现功能：随机生成100个整数，统计偶数的个数。 total=0 total=total+1 a(i)Dim a(100) As IntegerPrivate Sub Command1_Click() Dim total As Integer

29、For i = 1 To 100 If a(i) Mod 2 = 0 Then End If Next i Print CStr(total)End SubPrivate Sub Form_Load() Randomize For i = 1 To 100 = Int(Rnd * 1000) Next iEnd Sub【第3题】打开“Z:89工程1.vbp”，完善程序并保存。乘坐飞机的经济舱时，托运行李一般不得超过20公斤，超重每公斤按经济舱全票价的1.5%计算。实现功能：输入行李重量及经济舱全票价后，点击按钮，计算出托运行李所需费用。Private Sub Command1_Click()

30、Dim w As Integer 'w是行李重量 Dim pj As Integer 'pj是机票价格 fy=0 end if fy 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题】某程序的功能是：当x<50时，y=0.8×x；当50x100时，y=0.7×x；当x>100时，显示“输入的数据出界！”。请打开文件“Z:86工程1.

31、vbp”，完善程序。(程序要再修改)Private Sub Command1_Click() Dim x As Single x = Val(InputBox("请输入x的值！") if x<50 then x<=100 then y = 0.8 * x Else y = 0.7 * x Else Print "输入的数据出界！" End If End If Print x, yEnd Sub【第5题】打开“Z:87工程1.vbp”，完善程序并保存。实现功能：通过键盘输入10个数，统计这10个数的和。Private Sub Command1_

32、Click() Dim x As Integer Dim s As Integer Dim i As Integer For i = 1 to 10 s=s+x s x = Val(InputBox("NO." & i) Print CStr(x) Next i Print "total:" & End Sub操作题(5道 共40分)【第1题】打开“Z:104工程1.vbp”，完善程序并保存。实现功能：输入不同的飞船速度后，判断出它的飞行状况。在“神州七号”飞行程序中，其飞行状况与飞行速度的关系如下表：飞船速度（V） 单位（km/s） 飞

33、行状况 7.91<=V<11.19 飞船绕地球似做匀速圆周运动 11.19<=V<16.67 飞船离开地球的控制 ,围绕太阳转 V>16.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 = " 飞船离开地球

34、的控制,围绕太阳转" case is Label1.Caption = "飞船绕地球似做匀速圆周运动" Case Else >=11.19 >=7.91 end select Label1.Caption = " 输入数据错误！" End Sub【第2题】打开“Z:102工程1.vbp”，完善程序并保存。实现功能：用程序实现函数：y=|x|，y的值在Text1文本框中显示出来。Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(InputBox(&q

35、uot;请输入x的值：") x>=0 y=-x y If Then y = x Else End If Text1.Text = End Sub【第3题】“假设你是第一人民医院的一名医生”：3月21日下午要为学校高一年级新生进行一次体检，恰巧你被安排体检体重和身高，并给出健康建议。体重/身高之比，大于25为偏胖，则输出“您的身材偏胖，需要加强锻炼！”；在18.5 25之间为标准；则输出“您的身材适中！”；小于18.5为偏瘦，则输出“您的身材偏瘦，需要补充营养！”。打开文件“Z:99工程1.vbp”，完善程序实现以下功能：输入体重和身高，输出判定结果。Private Sub Fo

36、rm1_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 ("您的身材偏胖，需要加强锻炼！") Else If Then tz bz bz>15.5 and bz<=25bz<18.5 MsgBox ("您的身材偏瘦，需要补充营养！") Else M

37、sgBox ("您的身材真棒！") End If End IfEnd Sub【第4题】打开“Z:94工程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) 10 1 to i < A(j)=a(0) a(i) = a(j) End If Next

38、 j Next i For i = 1 To 10 Print CStr(a(i) Next iEnd Sub【第5题】打开“Z:96工程1.vbp”，完善程序并保存。实现功能：假设有一个5位数密码。只记得密码为678，其中百位和十位的数字记不清了，但知道该数能够被78整除，也能被67整 67008 X Next x除。请完善算法帮忙找出这个密码。Private Sub Command1_Click() Dim x As Long For x = To 67998 Step 10 If (x Mod 67 = 0) Or (x Mod 78 = 0) Then Print End If End

39、 Sub操作题(5道 共40分)【第1题】打开“Z:108工程1.vbp”，完善程序并保存。实现功能：判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出在窗体上。Private Sub Command1_Click() x = Val(Text1.Text) x mod 5 x mod 7=4 x If x Mod 3 = 2 Then If = 3 Then If Then Print End If End If End IfEnd Sub【第2题】打开“Z:119工程1.vbp”，完善程序并保存。关于人口问题，如果我国人口年增长率为4，问多少

40、年后我国人口超过20亿。(假设现在我国人口为14亿)实现功能：当单击窗体后，在窗体上输出问题答案。Private Sub Form_Click() Dim p As Integer '变量p保存人口 Dim n As Long p=14 p<20 (1+0.04) N+1 n = 0 Do While p = p * n = Loop Print "n=" & CStr(n)End Sub【第3题】打开“Z:117工程1.vbp”，完善程序并保存。实现功能：当单击窗体后，计算224262N<1500的N的最大值。Private Sub Form_

41、Click() Dim s As Integer Dim N As Integer N = 22 n n+20 n-20 s = 0 Do s = s + N = Loop Until s > 1500 Print "N=" & CStr()End Sub【第4题】打开文件“Z:114工程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 a+b s+b/a

42、 a+b 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 sEnd Sub【第5题】打开“Z:116工程1.vbp”，完善程序并保存。实现功能：计算1+3+5+99的值。Private Sub Command1_Click() Dim i As Integer s+i i+2 s Dim s As Integer i = 1 s = 0 Do While i <= 99 s = s + i = Loop Print "s=" &

43、End Sub操作题(5道 共40分)【第1题】打开“Z:178工程1.vbp”，完善程序并保存。实现功能：用递归法求3!+5!+7!的值。Public Function Fac(a As Integer) As IntegerIf a = 1 Then 1 Fac 5 Fac = Else Fac = a * (a - 1)End IfEnd FunctionPrivate Sub Command1_Click() Dim S As Integer S = Fac(3) + Fac() + Fac(7) Print "S=" & CStr(S)End Sub【第2

44、题】打开“Z:122工程1.vbp”，完善程序并保存。王晓珊家距离学校S1公里，某天她和李明各自同时从家里步行出发上学，王晓珊步行V1公里/小时，李明步行V2公里/小时，结果他们同时到达学校。实现功能：输入S1,V1,V2，输出李明家与学校之间的距离S2。Private Sub Command1_Click() Dim S1 As Single, S2 As Single Dim V1 As Single, V2 As Single Dim T As Single S1 = Val(InputBox("请输入王晓珊家离学校的距离：") V1 = Val(InputBox(&

45、quot;请输入王晓珊步行速度：") V2 = Val(InputBox("请输入李明步行速度：") s1/v1 v2 s2 T = S2 = * T Print End Sub【第3题】打开“Z:120工程1.vbp”，完善程序并保存。小球从高处自由下落，每次弹起的高度是下落高度的70%，当小球弹起的高度不足原高度的千分之一时，小球很快就会停止跳动。实现功能：输入小球的起始高度HOME后,计算并输出小球在整个弹跳中所经历的总路程S(忽略弹起高度不足原高度的千分之一的部分)。Private Sub Command1_Click() Dim H As Single,

46、 L As Single Dim S As Single, Home As Single Home = Val(InputBox("请输入一个起始高度：") h L s H = Home S = 0 Do L = 0.7 * S = S + H + L H = Loop While L >= Home / 1000 Print End Sub【第4题】吴俨同学找来了一条长度为L的铁丝，希望制作一个面积最大的矩形框。请完善程序，解决此问题。打开文件“Z:124工程1.vbp”，填空完成程序，输入铁丝的长度L，输出矩形面积的最大值。(为什么要用整型？)Private Su

47、b Command1_Click() Dim L As Integer Dim chang 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 chang*kuan s>smax smax s = If Then smax = s End If Next kuai Next chang Print End Sub【第

48、5题】打开“Z:175工程1.vbp”，完善程序并保存。实现功能：用递归法求1+2+3+100的值。Public Function S(n As Integer) As Integer 1 n 100 If n = 1 Then S = Else S = + S(n - 1) End IfEnd FunctionPrivate Sub Command1_Click() Dim Sum As Integer Sum = S() Print "Sum=" & CStr(Sum)End Sub操作题(5道 共40分)【第1题】打开“Z:600工程1.vbp”，完善程序并保存。实现功能：这是一个简单的显示评语程序，在文本框Text1中输入一个数后，单击“评语”按钮，在标签Label1显示评语。当输入一个小于60的数时，显示“不及格”；当输入一个大于等于60且小于85的数时，显示“良好