2. 计算机
  3. (1)在考生目录下有一个工程文件sjt3．vbp，窗体上有一个组合框Combo1，其中已经预设了内容；还有一个文本框Text1和三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“修改”、“确定”、“添加”。程序运行时

(1)在考生目录下有一个工程文件sjt3．vbp，窗体上有一个组合框Combo1，其中已经预设了内容；还有一个文本框Text1和三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“修改”、“确定”、“添加”。程序运行时

admin2015-06-30  37
问题  (1)在考生目录下有一个工程文件sjt3．vbp，窗体上有一个组合框Combo1，其中已经预设了内容；还有一个文本框Text1和三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“修改”、“确定”、“添加”。程序运行时，“确定”按钮不可用，如图所示。

    程序的功能是：在运行时，如果选中组合框中的一个列表框，单击“修改”按钮，则把该项复制到Text1中(可在Text1中修改)，并使“确定”按钮可用；若单击“确定”按钮，则把修改后的Text1中的内容替换组合框中该列表项的原有内容，同时使“确定”按钮不可用；若单击“添加”按钮，则把在Text1中的内容添加到组合框中。
    所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件和属性。最后把修改后的文件按原文件名存盘。
    (2)在考生目录下有一个工程文件Sjt4．vbp，窗体中有两个滚动条分别表示红灯亮和绿灯亮的时间(秒)，移动滚动框可以调节时间，调节范围为1—10秒。刚运行时，红灯亮。单击“开始”按钮则开始切换：红灯到时后自动变为黄灯，1秒后变为绿灯；绿灯到时后自动变为黄灯，1秒后变为红灯，如此切换(如图所示)。

    所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。
    提示：在三个图片框picture1、picture2、picture3中分别放置了红灯亮、绿灯亮、黄灯亮的图标，并重叠在一起，当要使某个灯亮时，就使相应的图片框可见，而其他图片框不可见，并保持规定时间，时间到就切换为另一个图片框可见，其他图片框不可见。
    注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。
选项
答案（1）【操作步骤】 步骤1：打开本题工程文件，确定控件的属性。程序中用到的控件及属性见表3.154。 [*] 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Text1 = Combo1.Text Command2.Enabled = True End Sub Private Sub Command2_Click() Combo1.List(Form1.Combo1.ListIndex) = Text1 Text1 = "" Command2.Enabled = False End Sub Private Sub Command3_Click() Combo1.AddItem Text1 End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】 步骤1：打开本题工程文件,计时器的Enabled属性设为True。 步骤2：分析并编写程序代码。 程序提供代码 Dim red, green Private Sub Command1_Click() red = HScroll1.Value green = HScroll2.Value Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If Picture1.Visible Then red = red - 1 If red = 0 Then Picture1.Visible = False Picture3.Visible = True End If ElseIf Picture3.Visible Then Picture3.Visible = False If red = 0 Then Picture2.Visible = True red = HScroll1.Value Else Picture1.Visible = True green = HScroll2.Value End If ElseIf Picture2.Visible Then green = green - 1 If green = 0 Then Picture2.Visible = False Picture3.Visible = True End If End If End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/5MQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)