itgle.com

设计一个计时程序。该程序用户界面如图所示，由一个文本框(Text1)、两个按钮：命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后，单击开始按钮，则开始计时，文本框中显示秒数，单击停止按钮，则计时停止。单击窗口则退出。请在【 】、【 】和【 】处填入适当的内容，将程序补充完整。Option ExplicitDim iPrivate Sub Command1_Click()i＝0Timer1.Interval=1000TimerEnabled=TrueEnd SubPrivate

题目

设计一个计时程序。该程序用户界面如图所示，由一个文本框(Text1)、两个按钮：命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后，单击开始按钮，则开始计时，文本框中显示秒数，单击停止按钮，则计时停止。单击窗口则退出。请在【 】、【 】和【 】处填入适当的内容，将程序补充完整。

Option Explicit

Dim i

Private Sub Command1_Click()

i＝0

Timer1.Interval=1000

TimerEnabled=True

End Sub

Private Sub Command2_Click()

TimerEnabled=False

End Sub

Private Sub Form_Click()

【 】Me

End Sub

Private Sub Form_Load()

TimerEnabled=False

TextText=0

End Sub

Private Sub Timer1_【 】()

i=i+1

TextText=【 】

End Sub

相似考题

1.请根据以下各题的要求设计Visual Basic应用程序(包括界面和代码)。1．在窗体(名称为Form1)上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏；而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图1—1所示。注意；存盘时，工程文件名为sjt1.vbp．窗体文件名为sjt1.frm。2．在Form1的窗体上画一个命令按钮，其名称为C1，标题为“显示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图1—2所示。

2.在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Com mand2的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。请在【 】、【 】和【 】处填入适当的内容，将程序补充完整。

3.阅读以下说明和Visual Basic 码，将应填入(n)处的字名写在对应栏内[说明] 设计一个计时程序。该程序用户界面由一个文本框(text 1)，两个按钮——命令按钮1 (Command 1)按钮、命令按钮(Command 2)组成。程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数，按停止按钮，则计时停止。单击窗口则退出。Option ExplicitDim IPrivate Sub Command1 _ Click( )i=0Timer1. Interval = 1000(1)End SubPrivate Sub Command2_ Click( )Timer1. Enabled = FalseEnd subPrivate Sub Form. Click((2)End SubPrivate Sub Form. _Load( )Timer1. Enabled = False(3)End SubPrivate Sub Timer1 _ Timer( )i=i+1(4)End Sub

4.在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click()Text 1="VB programming"Text 2=Text 1Text 1="ABCD"End Sub程序运行后，单击命令按钮，文本框Text 2中显示的内容为【 】。

更多“ 设计一个计时程序。该程序用户界面如图所示，由一个文本框(Text1)、两个按钮：命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后，单击开始按钮，则开始计时，文本框中显示秒数，单击停止”相关问题

  • 第1题：

    有一个VBA计算程序的功能如下：该程序用户界面由3个文本框和3个按钮组成，3个文本框的名称分别为Text1、Text2和Text3，3个按钮分别为清除(名为Command1) 、计算(名为 Command2) 和退出(名为Command3) 。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1和Text2两个文本框中输入的数值的和并将结果存放在Text3文本框中；单击退出按钮则退出。请将下列程序填空补充完整。

    Private Sub Command1_Click(


    正确答案：
    解析： 由题目可知，Text3中存放的是两个文本框数值的和，所以第1空应该填gal(Me!Text1)；If…Else…End If语句中，缺少结束语句，所以第2空应该填End If；Command3的功能是退出，而退出有两种，一种是退出窗体，一种是退出Access，如果是退出窗体，则使用Close方法，如果是退出Access，则使用Quit方法。

  • 第2题：

    在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

    程序运行后，单击命令按钮，在文本框中显示的值是

    A．2

    B．3

    C．4

    D．5


    正确答案：B
    题只能计算当i>1所循环的次数。注意i在循环体内被强行加3，到For循环时．还要再加步长1，这相当于因此，n=3。选择B。

  • 第3题：

    在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：

    Private Sub Command1_Click()

    Text1＝"VB programming"

    Text2＝Text1

    Text1＝"ABCD"

    End Sub

    程序运行后，单击命令按钮，文本框Text2中显示的内容为【 】。


    正确答案：VB programming
    VB programming 解析：本段程序是先把"VB programming"赋给Text1，然后再把Text1的内容赋给Text2，最后把"ABCD"赋给Text1。最后Text1中的内容是"ABCD"，而Text2中的内容是"VB programming"。

  • 第4题：

    在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：程序运行后，单击命令按钮，在文本框中显示的是（ ）。

    A. 2

    B. 3

    C. 4

    D. 5


    正确答案：B
    B)    【解析】本题考查循环程序的分析。题中循环变量为i，步长为1，循环体中i每次变化都增加3，因此执行一次循环后，i的值增加4，当i大于10时退出循环，所以每次循环后i的值为：3，7，11。当i为11时退出循环，所以循环共执行了3次。

  • 第5题：

    设计一个计时Access应用程序。该程序界面如图所示，由一个文本框(名为Text1)、一个标签及两个命令按钮(一个标题为开始，命名为Command1；另一个标题为停止，命名为Command2)组成。程序功能为：打开窗体运行后，单击"开始"按钮，则开始计时，文本框中显示秒数，单击"停止"按钮，则计时停止；双击"停止"按钮，则退出。请填空补充完整。

    Dim i

    Private Sub Command1_Click()

    i＝0

    Me.TimerInterval＝1000

    End Sub

    Private Sub Command2_Click()

    【 】

    End Sub

    Private Sub Command2_DblClick(Cancel As Integer)

    DoCmd.【 】

    End SubPrivate Sub Form_Load()

    Me.TimerInterval＝0

    Me! Text1＝0

    End Sub

    Private Sub Form_Timer()

    i＝i＋1

    Me! Text1＝【 】

    End Sub


    正确答案：Me.TimerInterval=0 Close(Quit) i
    Me.TimerInterval=0 , Close(Quit) , i

相关内容