• 2022-06-14
    在窗体上画一个名称为Label1的标签,然后画一个名称为HScroll1的滚动 条,其Min和Max属性分别为0和100.程序运行后,如果移动滚动框,则在标签 中显示滚动条的当前值.以下能实现上述操作的程序段是( ).
    A: Private Sub HScroll_Change( ) Label1.Caption=HScroll1.Value End Su
    B: Private Sub HScroll_Click( ) Label1.Caption =HScroll1.Value End Su
    C: Private Sub HScroll_Change( ) Label1.Text=HScroll.Caption End Su
    D: Private Sub HScroll_Click( ) Label1. Text =HScroll.Caption End Su
  • A

    举一反三

    内容

    • 0

      窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是: ______。 A: Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub B: Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub C: Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub D: Private Sub Labell_Click() Label1.Caption=Text1.Text End SUb

    • 1

      在窗体中添加了一个文本框和一个命令按钮(名称分别为tText和bCommand),并编写了相应的事件过程.运行此窗体后,在文本框中输入一个字符,则命令按钮上的标题变为"计算机考试".以下能实现上述操作的事件过程是 A: Private Sub bCommand_Change()Caption = "计算机考试"End Su B: Private Sub bCommand_Click() Caption = "计算机考试" End Su C: Private Sub tText_Click()bCommand.Caption = "计算机考试"End Su D: Private Sub tText_Change()bCommand.Caption = "计算机考试"End Su

    • 2

      在窗体中添加了一个文本框和一个命令按钮(名称分别为tText和bCommand),并编写了相应的事件过程.运行此窗体后,在文本框中输入一个字符,则命令按钮上的标题变为"计算机考试".以下能实现上述操作的事件过程是 A: Private Sub bCommand_Change()Caption = "计算机考试"End Su B: Private Sub bCommand_Click() Caption = "计算机考试" End Su C: Private Sub tText_Click()bCommand.Caption = "计算机考试"End Su D: Private Sub tText_Change()bCommand.Caption = "计算机考试"End Su

    • 3

      设窗体上有一个标签Label 1和一个计时器Timer1,Timer1的Interval属性被设置为1000, Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。下列可以实现上述要求的事件过程是( )。 A: Private Sub Timer1_Timer() Labell.Caption=True End Sub B: Private Sub Timer1_Timer() Labell.Caption=Time$ End Sub C: Private Sub Timer1_Timer() Labell.Interval=1 End Sub D: Private Sub Timer1_Timer() For k=1 To Timerl.Interval Label1.Caption=Timer Next K End Sub

    • 4

      窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是: ______。 A: Private Sub Text1_change() B: Label1.Caption=Text1.Text C: End Sub D: Private Sub Text1_click() E: Label1.Caption=Text1.Text F: End Sub G: Private Sub Label1_Change() H: Label1.Caption=Text1.Text I: End Sub J: Private Sub Label1_Click() K: Label1.Caption=Text1.Text L: End Sub