VB书本实验4答案

实验4常用控件一、实验目的和要求1．了解常用控件时钟、滚动条的常用属性、方法及事件；2．掌握时钟、滚动条的使用方法；二、实验内容（题目来自教材第五章第五大题6，第六大题6）．1.第五大题程序6.(p150)参考vb5-5-6.exe本题是利用计时器控件来实现文字的水平移动，要求：（1）运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进入窗体（尾部先进入）。（2）文字移动时颜色不断产生随机变化。PrivateSubForm_Load()Form1.WindowState=2‘窗体最大化Timer1.Interval=100EndSubPrivateSubTimer1_Timer()Label1.ForeColor=RGB(255*Rnd,255*Rnd,255*Rnd)Label1.Left=Label1.Left+150IfLabel1.Left=Form1.WidthThenLabel1.Left=-Label1.WidthEndSub2.第六大题程序6.(p152)参考vb5-6-6.exe提示:需要编程的事件Form_Load,HScroll1_Change,HScroll1_Scroll,Timer1_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=500EndSubPrivateSubHScroll1_Change()Timer1.Interval=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()CallHScroll1_ChangeEndSubPrivateSubTimer1_Timer()Label1.FontSize=Label1.FontSize+2Label1.Left=Form1.Width/2-Label1.Width/2IfLabel1.FontSize=72ThenTimer1.Enabled=FalseEndSub3.补充题1参考Design14.exe文件的运行结果，新建一个Design14.Vbp工程，完成“电子钟”程序的设计（其中窗体文件请命名为Design14.frm）。1)设计两个定时器，一个用于控制时间显示，时间间隔为1秒；一个用于判断闹钟时间，时间间隔为0.5秒，并且在未输入闹钟时间前不可使用。2)标签Label1用于显示时间，宋体、粗体、二号，背景白色，文字居中对齐，固定边框。3)在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器，如果时间超过闹钟时间，则标签的背景色用红白两色交替变换。提示：需要编程的事件Form_Load，Text1_KeyPress,Timer1_Timer,Timer2_TimerPrivateSubForm_Load()Label1.Caption=TimeEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenTimer2.Enabled=TrueText1.Enabled=FalseEndIfEndSubPrivateSubTimer1_Timer()Label1.Caption=TimeEndSubPrivateSubTimer2_Timer()StaticaasintegerIfDateDiff(s,Time,Text1.Text)=0Then‘交替显示Ifa=0ThenLabel1.BackColor=RGB(255,0,0)a=1ElseLabel1.BackColor=RGB(255,255,255)a=0EndifEndifEndSub4.补充题2参考Design15.exe文件的运行结果，新建一个Design15.Vbp工程，完成“倒计时”程序的设计（其中窗体文件请命名为Design15.frm）。1）单击“开始计时”按钮后，程序根据选择的时间开始倒计时，命令按钮变为不可使用。2）倒计时过程是将剩余的时间显示在标签Label1中，直到0分0秒为止，改为显示“时间到！”；标签Label1设置为：宋体、粗体、三号，文字居中对齐，固定边框。3）框架“选择时间”内有一组单选钮控件数组，分别选择不同的时间值。只有选择时间后，命令按钮才可以使用。提示：需要编程的事件Form_Load,Command1_Click，Timer1_TimerDimaAsIntegerPrivateSubForm_Load()Option1.Value=TrueCommand1.Enabled=TrueTimer1.Interval=1000Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()IfOption1.Value=TrueThena=60ElseIfOption2.Value=TrueThena=5*60Elsea=10*60EndIfFrame1.Enabled=FalseTimer1.Enabled=TrueCommand1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Ifa0Thena=a-1Label1.Caption=a\60&分&amod60&秒ElseFrame1.Enabled=TrueTimer1.Enabled=FalseLabel1.Caption=时间到!Command1.Enabled=TrueEndIfEndSub5.补充题3参考Design31.exe文件的运行结果，新建一个Design31.Vbp工程，完成应用程序的设计（其中窗体文件请命名为Design31.frm）。具体要求如下：1）在窗体上放置一个水平滚动条、一个标签框和一个命令按钮。2）单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。提示：需要编程的事件Command1_Click,HScroll1_Change，HScroll1_ScrollPrivateSubCommand1_Click()EndEndSubPrivateSubHScroll1_Change()Label1.Left=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Label1.Left=HScroll1.ValueEndSub实验提交说明：1）在D）盘建立个人文件夹，名称为学号后三位与姓名，如001张三；2）在个人文件夹中按实验题建子文件夹，如1；3）建立的VB工程保存在各题的子文件夹中；4）对个人文件夹压缩为rar或zip格式；5）发邮件到[e-mail]主题：VB001张三实验4。