(1)在名称为Form1的窗体中画一个名称为lblClock的标签,其标题为“0”,BorderStyle属性为1;再添加一个名称为tmrClock 的计时器。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,每隔一秒钟标签中的数字加1。如图1-3

admin2019-01-16  30

问题 (1)在名称为Form1的窗体中画一个名称为lblClock的标签,其标题为“0”,BorderStyle属性为1;再添加一个名称为tmrClock 的计时器。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,每隔一秒钟标签中的数字加1。如图1-341所示的是程序刚启动时的情况。程序中不得使用任何变量。

    注意:存盘时必须存放在考生文件夹下,工程文件名为vbsj3.vbp,窗体文件名为vbsj3.frm。
    (2)在考生文件夹下有一个工程文件vbsj4.vbp,要求程序运行后,如果多次单击列表框中的项,则可同时选择这些项。而如果单击“显示”按钮,则在窗体上输出所有选中的列表项(如图1-342所示)。

    要求:修改列表框的适当属性,使得运行时可以多选,并去掉程序中的注释符,把程序中的“?”改为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。
    程序源码:
    Private Sub cmdDisplay_Click()
    ’    For i = ? To ?
    ’        If lstItem.? = True Then
    Print lstItem.List(i)
    End If
    Next
    End Sub

选项

答案第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,按表2-180在窗体中画出控件并设置其相关属性。 [*] 步骤2:双击窗体上的计时器控件,在其Timer事件过程中加入以下代码: 参考代码: Private Sub tmrClock_Timer() lblClock.Caption = Val(lblClock. _ Caption) + 1 End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件vbsj4.vbp ,将列表框的MultiSelect属性值设置为1-simple。 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: For i = 0 To lstItem.ListCount – 1 If lstItem.Selected(i) = True Then 步骤3:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/YuFp777K
0

最新回复(0)