VB程序设计阶段性作业31

中国地质大学（武汉）远程与继续教育学院中国地质大学(武汉)远程与继续教育学院VB程序设计课程作业3（共4次作业）学习层次：专升本涉及章节：第8章——第9章一、判断题1．声明形参处缺省传递方式声明，则为按值传递（Byval）。2．过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后的值。3．虽然标签控件显示的文本在运行时不能编辑，但是可以通过程序代码进行改变。标拖动控件来定位。4．要在文本框中输入6位密码，并按回车键确认，则文本框的MaxLength属性可设置为6。5．单选钮能响应Click事件，但不能响应KeyPress事件。6．移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之改变。7．从几十个项目中任选其中一项或多项时可选用列表框或组合框控件来实现。8．用户可拖动滚动条的滚动滑块来改变滚动条的Value值，在移动滚动滑块时，发生Change事件。9．由于定时器控件在运行时是不可见的，因此在设置时可将其放在窗体的任何位置。二、选择题1．将焦点主动设置到指定的控件或窗体上，应采用方法。A、SetDateB、SetFocusC、SetTextD、GetGata2．要使文本框显示滚动条，除了设置ScrollBars属性外还必须设置属性。A、AutoSizeB、MultiLineC、AlignmentD、Visible3．要使复选框控件不响应Click事件，可设置复选框的属性。A、AppearanceB、StyleC、EnabledD、TabIndex4．以下语句将删除列表框List1中的最后一项。A、List1.RemoveItemList1.ListCountB、List1.ClearC、List1.List(List1.ListCount-1)=D、List1.RemoveItemList1.ListCount-15．设计动画时通常用定时器控件属性来控制动画速度。A、IntervalB、TimerC、MoveD、Enabled三、填空题1．调用过程时对形参的改变不会导致相应实参变量的改变，则该形参采用（按值传递/按地址传递）方式。2．在窗体Form1的过程中引用窗体Form2中的全局变量y，写作。3．运行时，若需要命令按钮为灰色，即不被击活，在设计时可以通过属性来实现。4．要让控件隐藏起来，处于不可见状态，可修改其属性。5．运行时单击复选框，将使复选框的Value值取。6．当列表框的MultiSelect属性值为时，单击列表项或按空格键可以实现复选。7．拖动滚动条的滚动滑块时仅发生事件。8．定时器控件只能接收事件。中国地质大学（武汉）远程与继续教育学院9．定时器的Interval属性值不得大于。四、程序阅读题（写出下列程序的运行结果）程序1.请写出在Text1、Text2、Text3中依次输入3、4、5后，单击窗体时Label1的显示结果。PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSinglea=Text1.Text:b=Text2.Text:c=Text3.TextLabel1.Caption=Str(a*a+2*b*b+3*c*c)EndSub程序2.写出程序运行时，单击Option1(2)后，窗体上的显示结果。PrivateSubForm_Load()Option1(0).Value=False:Option1(1).Value=False:Option1(2).Value=FalseEndSubPrivateSubOption1_Click(IndexAsInteger)SelectCaseIndexCase0Check1(0).Value=1:Check1(1).Value=0Case1Check1(0).Value=0:Check1(1).Value=1Case2Check1(0).Value=1:Check1(1).Value=1EndSelectIfCheck1(0).Value=1ThenPrint您好IfCheck1(1).Value=1ThenPrint欢迎使用VisualBasic!EndSub程序3.写出程序运行时，在组合框中输入“香蕉”并按回车键后，列表框中的所有表项。PrivateSubForm_Load()Combo1.AddItem西瓜:Combo1.AddItem苹果:Combo1.AddItem橘子Combo1.AddItem葡萄:Combo1.AddItem哈密瓜Combo1.AddItem火龙果:Combo1.AddItem柚子Combo1.List(0)=李子:Combo1.List(7)=猕猴桃EndSubPrivateSubCombo1_KeyPress(KeyAsciiAsInteger)DimiAsIntegerIfKeyAscii=13ThenCombo1.List(Combo1.ListCount)=Combo1.TextList1.Clear中国地质大学（武汉）远程与继续教育学院Fori=0ToCombo1.ListCount-1IfLen(Trim(Combo1.List(i)))3ThenList1.AddItemCombo1.List(i)NextiEndSub程序4.已知水平滚动条HScroll1的有关属性已经在属性窗口进行了如下的设置：HScroll1.Min:1HScroll1.Max:10HScroll1.SmallChange:1HScroll1.LargeChange:2HScroll1.Value:5写出连续3次单击水平滚动条HScroll1右端箭头后，窗体上显示的结果。PrivateSubHScroll1_Change()StaticyAsIntegerIfHScroll1.ValueMod2=0Theny=y+HScroll1.ValuePrinty=;yEndIfEndSub程序5.写出程序运行后窗体上显示的结果。DimxAsIntegerPrivateSubForm_Load()Timer1.Interval=1000:Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()Callsub1(x)x=x+1Ifx=5ThenTimer1.Enabled=FalseEndSubPublicSubsub1(nAsInteger)n=n+1Printn=;nEndSub五、程序填空题1．【程序说明】窗体上已建立命令按钮Command1（开始）、Command2（结束）和文本框Text1，Text1中输入字符个数不得超过100个。开始运行时，“结束”命令按钮不能响应；按“开始”命令按钮后，将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列，并在窗体上输出重新排列后的字符串，同时“结束”命令按钮能响应，“开始”按钮不能响应。PrivateSubCommand1_Click()DimnAsByte,iAsByte,jAsByte,pAsByteDima(100)AsString*1,str1AsString,tAsString中国地质大学（武汉）远程与继续教育学院str1=Text1.Text:n=Len(str1)Fori=1Ton:（1）:NextiFori=1Ton-1p=iForj=i+1TonIfa(p)a(j)Then（2）NextjIfpiThent=a(i):（3）:a(p)=tNextiFori=1Ton:Printa(i);:Nexti（4）Command1.Enabled=FalseEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Command2.Enabled=FalseEndSub2．【程序说明】利用1个定时器、1个标签和2个命令按钮制作一个动态秒表。各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后秒表开始计时，并在标签上显示总秒数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟和秒数）。DimxAsLongPrivateSubForm_Load()Timer1.Interval=1000:Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Clsx=0（1）EndSubPrivateSubCommand2_Click()DimhAsInteger,mAsInteger,sAsIntegerTimer1.Enabled=Falseh=（2）m=（3）s=xMod3600Mod60Print运行了+Str(h)+小时+Str(m)+分+Str(s)+秒EndSubPrivateSubTimer1_Timer()（4）Label1.Caption=xEndSub中国地质大学（武汉）远程与继续教育学院3．【程序说明】本题是利用计时器控件来实现文字的水平移动，要求：（1）运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进入窗体（尾部先进入）。（2）文字移动时颜色不断产生随机变化。PrivateSubForm_Load()Form1.WindowState=2Timer1.Interval=100EndSubPrivateSubTimer1_Timer()Label1.ForeColor=RGB(255*Rnd,255*Rnd,255*Rnd)（1）=Label1.Left+150IfLabel1.Left=Form1.WidthThen（2）EndSub六、程序设计题1．在窗体上建立命令按钮“Command1”（显示）和“Command2”（退出）。运行时，“Command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用VisualBasic！”，同时标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初始状态。2．编制一个演示文本操作的程序，界面如图10-3所示，要求各命令按钮为一个控件数组。（1）程序刚运行时3个命令按钮均不能响应。（2）当选择文本之后Label1显示响应的提示，“剪切”和“复制”按钮能够响应。（3）单击“剪切”或“复制”按钮后，所有按钮中只有“粘贴”按钮能响应。（4）单击“粘贴”按钮后，3个命令按钮都不能响应。图10-3程序设计题5的窗体界面3．编制1个用于进制转换的应用程序，运行时的界面如图10-6所示。中国地质大学（武汉）远程与继续教育学院图10-5程序设计题8的界面设计图10-6程序设计题9的界面设计4．设计一个字幕推出程序。程序界面如图10-7所示，标签的字号在定时器的控制下每个时间间隔放大2磅并且保持标签在窗体中水平居中，当标签的字号超过72时，定时器停止响应Timer事件。字号放大的速度由水平滚动条控制，部分程序已经设计如下：PrivateSubForm_Load()Label1.Left=Width/2-Label1.Width/2Label1.AutoSize=TrueHScroll1.Min=1:HScroll1.Max=1000HScroll1.SmallChange=10:HScroll1.LargeChange=100HScroll1.Value=500:Timer1.Interval=500EndSub请设计其他事件过程。图10-7程序设计题10的界面设计中国地质大学（武汉）远程与继续教育学院参考答案一、判断题1．×2．√3．√4．√5．×6．×7．×8．×9．√二、选择题1．B2．B3．C4．D5．A三、填空题1．按值传递2．Form2.y3．Enabled4．Visible5．0或16．17．Scroll8．Timer9．65535四、程序阅读题（写出下列程序的运行结果）程序1116程序2.您好欢迎使用VisualBasic