《第5章 实验题.ppt》由会员分享,可在线阅读,更多相关《第5章 实验题.ppt(6页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、Sub ex2()Sub ex2()Dim x As Integer,y As Integer,sum As Integer Dim x As Integer,y As Integer,sum As Integer x=1+x=1+Int(RndInt(Rnd*10)*10)y=1+y=1+Int(RndInt(Rnd*10)*10)sum=sum=InputBox(xInputBox(x&+&y&=?,10&+&y&=?,10以内加法以内加法)If sum=x+y Then If sum=x+y Then MsgBoxMsgBox 正确!正确!Else Else MsgBoxMsgBox 错
2、误!正确答案是:错误!正确答案是:&x+y&x+yEnd SubEnd Sub书书156156页实验(页实验(2 2):):编写程序,要求:产生编写程序,要求:产生两个两个10以内随机正整数以内随机正整数,用输入对话框显示,用输入对话框显示并要求输入它们的和,如果答案正确用消息对话框显示并要求输入它们的和,如果答案正确用消息对话框显示“正确!正确!”,如果答案不正确则显示正确结果。,如果答案不正确则显示正确结果。书书156156页实验(页实验(3 3):):设有一种商品,售价设有一种商品,售价5050元元/千克,如果购买千克,如果购买1010千克以上,则超千克以上,则超出出1010千克部分可享
3、受千克部分可享受9 9折优惠,超出折优惠,超出2020千克部分可享受千克部分可享受8 8折优惠。折优惠。编写程序,任意输入一个质量值,显示应付的货款。编写程序,任意输入一个质量值,显示应付的货款。Sub Weigh()Sub Weigh()x=x=InputBoxInputBox(请输入质量值:请输入质量值:)If x=10 Then If x=10 Then y=50*x y=50*x ElseIfElseIf x=20 Then x0 Case Is0 J=J+1 J=J+1 Case Is0 Case Is0 K=K+1 K=K+1 Case 0 Case 0 M=M+1 M=M+1 E
4、nd Select End Select Next i Next i MsgBoxMsgBox 整数整数:&J&:&J&负数负数:&K&0:&M:&K&0:&M End Sub End Sub输入输入1010个数据,统计其中的个数据,统计其中的整数整数的个数、的个数、负数负数的个数的个数以及以及0 0的个数。的个数。Sub shiyan4a()Sub shiyan4a()Dim x As Single,i As Integer Dim x As Single,i As Integer Dim a As Integer,b As Integer,c As Integer Dim a As Int
5、eger,b As Integer,c As Integer For i=1 To 10 For i=1 To 10 x=InputBox(x=InputBox(请输入一个数:请输入一个数:)Debug.Print x;Debug.Print x;If x=Int(x)Then a=a+1 If x=Int(x)Then a=a+1 If x 0 Then b=b+1If x 25 Or n 25 Or n 15 Then For i=1 To 15For i=1 To 15 Debug.PrintDebug.Print-;-;Next i Next i Debug.PrintDebug.Pr
6、int Else Else For i=1 To nFor i=1 To n Debug.PrintDebug.Print-;-;Next i Next i Debug.PrintDebug.Print End If End IfEnd SubEnd SubSub Sub Data_PlusData_Plus()()Dim A As Integer,B As IntegerDim A As Integer,B As Integer Dim C As Integer,D As Integer Dim C As Integer,D As Integer Dim x As Integer,y As
7、Integer,z As Integer Dim x As Integer,y As Integer,z As Integer A=23:B=12:C=31:D=19 A=23:B=12:C=31:D=19 x=x=InputBoxInputBox(请输入第一条横线长度:请输入第一条横线长度:)Call Line1(x)Call Line1(x)Debug.PrintDebug.Print A;Tab(6);B;Tab(12);A+B A;Tab(6);B;Tab(12);A+B Debug.PrintDebug.Print C;Tab(6);D;Tab(12);C+D C;Tab(6);D;Tab(12);C+D y=y=InputBoxInputBox(请输入第二条横线长度:请输入第二条横线长度:)Call Line1(y)Call Line1(y)Debug.PrintDebug.Print A+C;Tab(6);B+D;Tab(12);A+B+C+D A+C;Tab(6);B+D;Tab(12);A+B+C+D z=z=InputBoxInputBox(请输入第三条横线长度:请输入第三条横线长度:)Call Line1(z)Call Line1(z)End SubEnd Sub书书156156页实验(页实验(7 7):):
限制150内