vb高职考(高三)如何做程序题

如何做程序题西湖职高高三VB教学2011-10-25内容初始界面如图，标签“会动的文字”位于窗体左侧。单击“移动”按钮在“移动”按钮右侧出现“停止”按钮，同时标签向右水平移动（每间隔0.05秒向右移动100缇）。当标签移动到窗体外侧时标签从窗体左侧进入（垂直位置不变）重新开始水平向右移动。单击“停止”按钮标签停止运动，同时“停止”按钮不可见。静态设置？动态设置？静态设置：初始能看得到的文字、位置、状态等。1）标签：“会动的文字”2）标签：位于窗体左侧。3）按钮：“移动”，位置4）按钮：“停止”，位置在“移动”按钮右侧5）按钮：“停止”，一开始不出现6）其它：默认动态设置（代码实现）1）单击“移动”按钮在“移动”按钮右侧出现“停止”按钮，同时标签向右水平移动（每间隔0.05秒向右移动100缇）。2）单击“停止”按钮标签停止运动，同时“停止”按钮不可见。静态设置？动态设置？当标签移动到窗体外侧时标签从窗体左侧进入（垂直位置不变）重新开始水平向右移动。事件事件每间隔0.05秒向右移动100缇•过一段时间，就发生一种有规律地变化，如动画（图形移动），时间变化（文字变化），就要用到时钟控件。•时钟事件的特点是，专门处理变化的内容。•一般的开始与停止按钮，只是时钟的开关而已。•时钟的Timer事件因为执行频率很高，所以一般只放与变化有关的代码。事件标准答案答：1、新建VB工程，添加标签Label1，按钮Command1和Command2，时钟Timer1；2、在属性窗口分别设置Label1的Caption属性为“会动的文字”，Command1和Command2的Caption属性依次为“移动”，“停止”。并设置Command2的Visible属性为False。设置Timer1的Enabled为False，Interval为50。3、设置3个控件的位置如程序要求。其他默认。纯代码法表格法文字描述法标准答案在代码窗口输入如下代码：PrivateSubCommand1_Click()command2.visible=true‘在“移动”按钮右侧出现“停止”按钮Timer1.enabled=true‘让时钟工作EndSubPrivateSubCommand2_Click()command2.visible=false‘“停止”按钮不可见Timer1.enabled=false‘标签停止运动EndSub标签停止运动，同时“停止”按钮不可见在“移动”按钮右侧出现“停止”按钮，同时标签向右水平移动返回标准答案PrivateSubTimer1_Timer()Iflabel1.leftme.widththen‘标签移动到窗体外侧时label1.left=-label1.width‘标签从窗体左侧进入Elselabel1.left=label1.left+100EndifEndSub标签向右水平移动（每间隔0.05秒向右移动100缇）。当标签移动到窗体外侧时标签从窗体左侧进入（垂直位置不变）重新开始水平向右移动。Iflabel1.leftme.widththen‘标签移动到窗体外侧时label1.left=-label1.width‘标签从窗体左侧进入Endiflabel1.left=label1.left+100表格描述法答：1、新建VB工程，添加如下对象，并设置相应的属性，如下表：对象名属性名属性值Label1Caption会动的文字Command1Caption移动Command2Caption停止Command2VisibleFalseTimer1EnabledFalseTimer1Interval50Form1全部默认纯代码法Privatesubform_load()label1.caption=“会动的文字”command1.caption=“移动”command2.caption=“停止”command2.visible=falsetimer1.enabled=falsetimer1.interval=50EndSub答：1、新建VB工程，在Form1中添加对象Label1,Command1,Command2,Timer1。对象名属性名属性值Label1Caption会动的文字Command1Caption移动Command2Caption停止Command2VisibleFalseTimer1EnabledFalseTimer1Interval50Form1全部默认答：1、新建VB工程，添加标签Label1，按钮Command1和Command2，时钟Timer1；2、在属性窗口分别设置Label1的Caption属性为“会动的文字”，Command1和Command2的Caption属性依次为“移动”，“停止”。并设置Command2的Visible属性为False。设置Timer1的Enabled为False，Interval为50。3、设置3个控件的位置如程序要求。其他默认。4、编写代码如下：PrivateSubCommand1_Click()command2.visible=true‘在“移动”按钮右侧出现“停止”按钮Timer1.enabled=true‘让时钟工作EndSubPrivateSubCommand2_Click()command2.visible=false‘“停止”按钮不可见Timer1.enabled=false‘标签停止运动EndSubPrivateSubTimer1_Timer()Iflabel1.leftme.widththen‘标签移动到窗体外侧时label1.left=-label1.width‘标签从窗体左侧进入Elselabel1.left=label1.left+100EndifEndSub2、编写代码如下：PrivateSubCommand1_Click()command2.visible=true‘在“移动”按钮右侧出现“停止”按钮Timer1.enabled=true‘让时钟工作EndSubPrivateSubCommand2_Click()command2.visible=false‘“停止”按钮不可见Timer1.enabled=false‘标签停止运动EndSubPrivateSubTimer1_Timer()Iflabel1.leftme.widththen‘标签移动到窗体外侧时label1.left=-label1.width‘标签从窗体左侧进入Elselabel1.left=label1.left+100EndifEndSub答：1、新建VB工程，添加如下对象，并设置相应的属性，如下表：对象名属性名属性值Label1Caption会动的文字Command1Caption移动Command2Caption停止Command2VisibleFalseTimer1EnabledFalseTimer1Interval50Form1全部默认PrivateSubCommand1_Click()command2.visible=trueTimer1.enabled=trueEndSubPrivateSubCommand2_Click()command2.visible=falseTimer1.enabled=falseEndSubPrivateSubTimer1_Timer()Iflabel1.leftme.widththen‘标签移动到窗体外侧时label1.left=-label1.width‘标签从窗体左侧进入Elselabel1.left=label1.left+100EndifEndSubPrivatesubform_load()label1.caption=“会动的文字”command1.caption=“移动”command2.caption=“停止”command2.visible=falsetimer1.enabled=falsetimer1.interval=50EndSub答：1、新建VB工程，在Form1中添加对象Label1,Command1,Command2,Timer1。2、编写代码如下：