资源描述：
《vb书本实验4答案》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、实验4常用控件一、实验目的和要求1.了解常用控件时钟、滚动条的常用属性、方法及事件；2.掌握时钟、滚动条的使用方法；二、实验内容(题目来自教材第五章第五大题6,第六大题6).1.第五大题程序6.(pl50)参考vb5-5-6.exe本题是利用计吋器控件來实现文字的水平移动，要求：(1)运行时标签框内的文字从窗体左边句右边移动，当标签框的左边界超出窗体的右边界时,从窗体的左边进入窗体(尾部先进入)。(2)文字移动吋颜色不断产生随机变化。PrivateSubForm_Load()Forml.WindowState
2、=2'窗体最人化Timerl.Interval=100EndSubPrivateSubTimerl_Timer()Labell.ForeColor=RGB(255*Rnd,255*Rnd,255*Rnd)Labell.Left=Labell.Left+150IfLabell.Left>=Forml.WidthThenLabell.Left=-Labell.WidthEndSub2.第六大题程序6.(pl52)参考vb5-6-6.exeOForml(dQFormla-11©■快快乐乐；快快乐乐Ldr_d4I1J
3、HH提示:需要编程的事件Form_Load,HScrolll_Change,HScrolll_ScroIl,Timerl_Timer过程设计：PrivateSubForm_Load()Labell.Left=Width/2-Labell.Width/2Labell.AutoSizc=TrueHScroll1.Min=1:HScroll1.Max=1000HScrolll.SmallChangc=10:HScroll1.LargcChangc=100HScroll1.Value=500:Timer1.Inter
4、val=500EndSubPrivateSubHScrolll_Change()Timer1.Interval=HScroll1.ValueEndSubPrivateSubHScrolll_Scroll()CallHScrolll_ChangeEndSubPrivateSubTimerl_Timer()Label1.FontSizc=Label1.FontSizc+2Label1.Left=Form1.Width/2-Label1.Width/2IfLabel1.FontSize>=72ThenTimer1.
5、Enabled=FalseEndSub3•补充题1参考Designl4.exe文件的运行结果，新連一个Design14.VbpT•程，完成“电丫•钟”程序的设计（其中窗体文件请命名为Design14.frm）01）设计两个定时器，一个用于控制时间敁示，时间间隔为1秒；一个用于判断闹钟时间，时间fuj隔为（）.5秒，并且在未输入闹钟时i'ur前不可使用。2）标签Label1川于显示时间，宋体、粗体、二号，背景白色，文字居屮对齐，固定边框。3）在文本框屮输入闹钟吋间并按回车后，启动判断闹钟吋间的定吋器，如果吋间超
6、过闹钟吋间，则标签的背景色川红白两色交替变换。提示：需要编程的事什Form_Load,Text1_KeyPress,Timer1_Timer,Timer2_TimerPrivateSubForm_Load()Label1.Caption=TimeEndSubPrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenTimer2.Enabled=TrueText1.Enabled=FalseEndIfEndSubPrivateSubTimerl_Ti
7、mer()Label1.Caption=TimeEndSubPrivateSubTimcr2_Timcr()StaticaasintegerIfDateDiff("s",Time,Text1.Text)<=0Then‘交替Ifa=0ThenLabel1.BackColor=RGB(255,0,0)a=1ElseLabel1.BackColor=RGB(255,255,255)a=0EndifEndifEndSub4.补充题2参考Designl5.exe文件的运行结果，新建一个Design15.Vbp工祝，完成
8、“倒计吋”程序的设计（其中窗体文件请命名为Design15.frm）o1）单击“开始计时”按钮后，程序根裾选择的时间开始倒计时，命令按钮变为不对使用。2）倒计时过程是将剩余的时叫显示在标签LabeH屮，直到0分0秒为止，改为显示“时间到！”;标签Labell设置为：宋体、粗体、三号，文字屈中对齐，固定边框。3）框架“选择时间”内有一组单选钮控件数组，分别选择不M的时间伉。只有选择时间后，命令按钮才可
