下列程序运行时，单击窗体，执行结果为【 】。说明：在窗体上有一Label控件，名为lblDate。Dim Y As Integer,m As Integer,d As Integer,w1 As IntegerDim Rq As DateDim W2 As StringPrivate Sub Form_Click()Rq=DateY=Year(Rq): m=Month(Rq)∶d=Day(Rq)w1=Weekday(x)Select Case w1Case 1W2="日"Case 2W2="一"Case

题目

下列程序运行时，单击窗体，执行结果为【 】。

说明：在窗体上有一Label控件，名为lblDate。

Dim Y As Integer,m As Integer,d As Integer,w1 As Integer

Dim Rq As Date

Dim W2 As String

Private Sub Form_Click()

Rq=Date

Y=Year(Rq): m=Month(Rq)∶d=Day(Rq)

w1=Weekday(x)

Select Case w1

Case 1

W2="日"

Case 2

W2="一"

Case 3

W2="二"

Case 4

W2="三"

Case 5

W2="四"

Case 6

W2="五"

Case 7

W2="六"

End Select

bldatE．Caption="今天是"&Y&"年"&m&"月"&d&"日"&"星期"&W2

End SUb

相似考题

1.假定已在一个窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置该窗体的Name属性，预先应执行的操作是()A.单击窗体上有控件的地方B.单击任一个控件C.不执行任何操作D.双击窗体的标题栏

2.多窗体程序是由多个窗体组成,在缺省情况下,VB在应用程序执行时,总是把( )指定为启动窗体。A、不包含任何控件的窗体B、命名为Frm1的窗体C、包含控件最多的窗体D、设计时的第一个窗体

3.多窗体程序是由多个窗体组成。在缺省情况下,VB在应用程序执行时,总是把()指定为启动窗体。A：不包含任何控件的窗体B：设计时的第一个窗体C：包含控件最多的窗体D：命名为FRM1的窗体

4.（ 18 ）在程序运行时，下面的叙述中正确的是A ）用鼠标右键单击窗体中无控件的部分，会执行窗体的 Form_Load 事件过程B ）用鼠标左键单击窗体的标题栏，会执行窗体的 Form_Click 事件过程C ）只装入而不显示窗体，也会执行窗体的 Form_Load 事件过程D ）装入窗体后，每次显示该窗体时，都会执行窗体的 Form_Click 事件过程

参考答案和解析
正确答案：今天是****年**月*/日星期*
今天是****年**月*/日星期*
更多“下列程序运行时,单击窗体,执行结果为【】。说明:在窗体上有一Label控件,名为lblDate。Dim YAs Intege ”相关问题

  • 第1题：

    在程序运行时，下面的叙述中正确的是（ ）。

    A.用鼠标右键单击窗体中任何无控件部分，会执行窗体的Form—Load事件过程

    B.用鼠标左键单击窗体的标题栏，会执行窗体的Form—Click事件过程

    C.只装入而不显示窗体，也会执行窗体的Form—Load事件过程

    D.装入窗体后，每次显示该窗体时，都会执行窗体的Form—Click事件过程


    正确答案：C
    C。【解析】Form_Load事件只在显示窗体时发生。

  • 第2题：

    多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。

    A不包含任何控件的窗体 

    B设计时的第一个窗体 

    C包含控件最多的窗体 

    D命名为Frm1的窗体


    B
    略

  • 第3题：

    为了在程序运行时弹出一个菜单，程序中应使用________。

    A．窗体的Show方法

    B．窗体的PopupMenu方法

    C．窗体的ShowMenu方法

    D．所单击控件的PopupMenu方法


    窗体的PopupMenu方法

  • 第4题：

    新建一个工程，在窗体中创建一个标签，名字是Label1。要求实现的功能是：单击窗体后，在标签控件中显示三号字体的字符串“为人民服务”。程序运行结果如图6所示。程序中不得使用任何变量。

    注意：存盘时必须存放在考生文件夹下，工程文件名为ylc2.vbp，窗体文件名为ylc2.frm。


    正确答案：(1) Visual Basic集成环境中执行“文件”→“新建工程”命令选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择标签控件在窗体中画出一个标签。在其属性窗口中将Visible属性改为FalseCaption属性设置为“为人民服务”双击Font属性将字体大小设置为三号字。 (3)双击标签弹出代码窗口在其中输入如下代码： Private Sub Form_Click() Labell.Visible=True End Sub (4)按F5键运行程序。如图6所示。 (5)执行“文件”→“保存工程”命令将工程文件命名为ylc2.vbp窗体文件命名为 ylc2.frm。
    (1) Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。 (2)在工具箱中选择标签控件，在窗体中画出一个标签。在其属性窗口中，将Visible属性改为False，Caption属性设置为“为人民服务”，双击Font属性，将字体大小设置为三号字。 (3)双击标签弹出代码窗口，在其中输入如下代码： Private Sub Form_Click() Labell.Visible=True End Sub (4)按F5键运行程序。如图6所示。 (5)执行“文件”→“保存工程”命令，将工程文件命名为ylc2.vbp，窗体文件命名为 ylc2.frm。 解析：(2)第2小题考查的仍然是对Visible属性的操作。可参见前面的讲解。

  • 第5题：

    新建一个窗体，在窗体上添加一个Label（标签）控件，命名为lblExe，显示文本为“单击窗体，我就不见了！”。当单击窗体时判断，如果标签可见，则变为不可见；如果标签不可见，则变为可见。


    C

相关内容