2. 计算机
  3. (1)在名称为Forml的窗体中画一个名称为Textl的文本框，再添加一个名称为Timer1的计时器。请设置适当的控件属性并编写适当的事件过程，使得程序在运行时，每隔3秒钟文本框中的数字加1，如图62—3所示。程序中不得使用任何变量。 注意：存盘时

(1)在名称为Forml的窗体中画一个名称为Textl的文本框，再添加一个名称为Timer1的计时器。请设置适当的控件属性并编写适当的事件过程，使得程序在运行时，每隔3秒钟文本框中的数字加1，如图62—3所示。程序中不得使用任何变量。 注意：存盘时

admin2010-07-13  35
问题 (1)在名称为Forml的窗体中画一个名称为Textl的文本框，再添加一个名称为Timer1的计时器。请设置适当的控件属性并编写适当的事件过程，使得程序在运行时，每隔3秒钟文本框中的数字加1，如图62—3所示。程序中不得使用任何变量。
    注意：存盘时必须存放在考生文件夹下，工程文件名为sj3．vbp，窗体文件名为sj3．frm。
    (2)在考生文件夹下有一个工程文件sj4．vbp和窗体文件sj4．frm，要求程序运行后，单击可以选择列表中的多项。而如果单击“输出”按钮，则在Labell上输出所有选中的列表项，如图62—4所示。

    注意：修改列表框的适当属性，使得运行时可以多选并去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。
选项
答案(1)根据题意，新建“标准EXE”工程，将一个文本框控件和一个计时控件添加到窗体中，文本框的名称为Textl、Text属性为“0”，Timer的名称为Timerl、Interval属性为3 000(毫秒)。双击Timerl，进入代码窗口，编写如下代码： Private Sub Timerl_Timer() Textl．Text=Val(Textl．Text)+1 ’每执行一次数值加1 End Sub 单击[*]按钮运行程序，并按要求保存。 (2)根据题意，将一个List控件、一个标签和一个命令按钮添加到窗体中，列表框的名称为Listl，在其List属性中添加以下6项：“Iteml”、“Item2”、“Item3”、“Item4”、“Item5”和“Item6”，每输入一个后按“Ctrl+Enter”组合键换行输入下一个元素，当输入完成后，按回车键，则元素添加完成，标签的名称为Labell、Caption属性为空，命令按钮的名称为Commandl、Caption属性为“输出”。双击Commandl进入代码编写窗口，编写如下代码： Private Sub Commandl_Click() Dim str As String Dim i As Integer str="" For i=0 To Listl．ListCount-1 ’利用for循环来逐个判断List项是否被选中 If Listl．Selected(i)=True Then str=str+Listl．List(i)+vbCrLf’如果被选中，则放入到str字符串中 End If Next i Labell．Caption=str’在Labell中输出字符串 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/Oyg0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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