网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
（ 7 ）在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为 Labl1 、 Timer1 和Command1 ， 如图 1 所示 。 程序运行后 ， 如果单击命令按钮 ， 则标签开始闪烁 ， 每秒钟 “ 欢迎 ”二字显示、消失各一次，如图 2 所示。以下是实现上述功能的程序，请填空。
Private Sub Form_Load （）
Label1.Caption= " 欢迎 "
Timer1.Enabled=False
Timer1.Interval= 【 7 】
End Sub
Private Sub Timer1_Timer （）
Label1.Visible= 【 8 】
End Sub
Private Sub command1_Click （）
【 9 】
End Sub
参考答案
更多 “ （ 7 ）在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为 Labl1 、 Timer1 和Command1 ， 如图 1 所示 。 程序运行后 ， 如果单击命令按钮 ， 则标签开始闪烁 ， 每秒钟 “ 欢迎 ”二字显示、消失各一次，如图 2 所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load （）Label1.Caption= " 欢迎 "Timer1.Enabled=FalseTimer1.Interval= 【 7 】End SubPrivate Sub Timer1_Timer （）Label1.Visible= 【 8 】End SubPrivate Sub command1_Click （）【 9 】End Sub ” 相关考题
考题
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入一个具有大小写的字符串，则在标签中显示的内容全部为大写。请填空。
考题
在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。编写如下程序：Private Sub Form_Load（）Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click（）Timer1.Enabled=TrueEnd SubPrivate Sub Command2_Click（）Timer1.Enabled=FalseEnd SubPrivate Sub Timer1_Timer（）If Label1.LeftLabel1.Left = Label1.Left + 20ElseLabel1.Left=0End IfEnd Sub程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是（ ）。A．标签的移动方向为自右向左B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动D．标签按指定的时间间隔移动
考题
在窗体上画一个名称为Labe11、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timerl的计时器控件，并把其Interval属性设置为500，如下图所示。编写如下程序： Private Sub Form_Load() Timer1.Ena bled=False End Sub Private Sub Commandl_ChCk() Timer1.EnaA．标签的移动方向为自右向左B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C．当标签全部移出窗体后，将从窗体的另一端出现，重新移动D．标签按指定的时间间隔移动
考题
（22）在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labcl1，然后编写如下事件过程：Private Sub Command1_Click( )Counter=0For i=1 To 4For j=6 To 1 Step -2Counter=Counter+1Next jNext iLabel1.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是（ ）。A）11B）12C）16D）20
考题
在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：Sub S(x As Integer，Y As Integer)Static z As Integery=x*x+zz=yEnd SubPrivate Sub Command1_Click()Dim i As Integer，z As Integerm=0z=0For i=1 To 3S i，zm=m+zNext iLabel1．Caption=Str(m)End Sub程序运行后，单击命令按钮，在标签中显示的内容是A．50B．20C．14D．7
考题
在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter＝0 For i=1 To 4 For j＝6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Captidn=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是______。A．11B．12C．16D．20
考题
请根据以下各题的要求设计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所示。
考题
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和 Commandl，然后编写如下两个事件过程： Prirate SUb Command1 Click() strText = InputBox(“请输入”) Textl.Text = strText End Sub Private Sub Text1 Change() Labell.Caption = Right(Trim(Text1.Text)， 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是A．空B．abcdefC．abcD．def
考题
在窗体上画一个标签、一个计时器和…个命令按钮，其名称分别为Label1、Tliner1和Command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“炊迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。Prirate Sub Form_L．aad()Labell．Caption=“欢迎”Timer1．Enabled=FalseTimer1．Interval=【 】Commandl．Caption=“开始闪烁”End sut)Private Sub Timer1_rrimer()Label1．visible=【 】Emi subPTivate Sub Commandl_Click()【 】End sub
考题
在窗体上画一个名称为Timer1的计时器、一个名称为Command1的命令按钮和一个名称为Labell的标签。程序如下： Private Sub Command1_Click() Timer1．Enabled=True Timer1．Interval=1000 End Sub Private Sub Timerl_timer() Labell．Caption=Time End Sub 当运行程序后，单击命令按钮，将在标签中显示的内容为A．TimeB．TrueC．1000D．10：06：55
考题
在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是： ______。A．27B．28C．29D．30
考题
在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labe11，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(TextText)+0.5) LabeCaption=Str(x) End Sub 程序运行后，在文本框中输入653，单击命令按钮，标签中显示的内容是______。A．27B．28C．29D．30
考题
在窗体上画1个水平滚动条(名称为HS1，最小值为0，最大值为80)和3个命令按钮(名称分别为C1、C2、C3，标题分别为“左端”、“居中”和“右端”)，然后编写适当的事件过程。程序运行后，如果单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。程序的运行情况如图1—1所示(单击“左端”命令按钮)。存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。2．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。在窗体上画一个命令按钮，其名称为C1，标题为“清除”，编写适当的事件过程。程序运行后，如果单击命令按钮，则清除窗体的标题，程序运行结果如图1—2所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sit2.vbp，窗体文件名为sjt2.frm。
考题
在窗体上画一个名称为Label1、标题为“Visual Basic考试”的标签，两个名称分别为Conmmnd1和Com— mand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。编写如下程序： Private Sub Form_Load( ) Timer1.Enabled=False End Sub Private Sub Command1_Click( ) Timer1.Enabled=True End Sub PrivateSubCommand2_Click( ) Fimerl.Enabled=False End Sub Private SubTimer1_Timer( ) If Label1.Left＜Width Then Label1.Left=Label1.1eft+20 Else Label1.Left=0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是A．标签的移动方向为自右向左B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C．当标签全部移出窗体后，将从窗体的另—端出现并重新移动D．标签按指定的时间间隔移动
考题
在窗体上画一个名称为CommRnd1的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：Private Sub Command1 Click()s=0For i=1 TO 15x=2*i-1if x Mod 3；0 Then s=s+lNext iLabe11.Caption=sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是上【 】。
考题
在窗体上画一个名称为Labell、标题为“ViSBalBasic考试”的标签，两个名称分别为 Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。编写如下程序： Private Sub Form Load() Timerl.Enabled = False End Sub Private Sub Command1 Click() Timer1.Enabled = True End Sub Private Sub Command2 Click() Timerl.Enabled = False End Sub Private Sub Timerl Timer() If Labell．Left＜Width Then Labell.Left = Labell.Left+20 Else Labell.Left = 0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是A．标签的移动方向为自右向左B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C．当标签全部移出窗体后，将从窗体的另一端出现，重新移动D．标签按指定的时间间隔移动
考题
在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（ ）。A. 20是一个奇数B. 20C. 20是一个偶数D. 2
考题
在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Conlmand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图16-7所示。 编写如下程序： Private Sub Form_Load() Timer1. Enabled=False End Sub Private Sub Command1_Click() Timer1. Enabled=True End Sub Private Sub Command2_Click() Timer1. Enabled=False End Sub Private Sub Timer1_Timer() If Label1. Left＜Width Then Label1. Left=Label1. Left+20 Else Label1. Left=0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是______。A．标签的移动方向为自右向左B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动D．标签按指定的时间间隔移动
考题
在窗体上画两个名称分别为Label1和Label2的标签，再画一个名称为Command1的命令按钮，然后编写如下事件过程：运行上面的程序，单击命令按钮．其输出结果是A．8 9B．8 18C．64 9D．64 18
考题
在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。编写如下程序： Private Sub Form_Load( ) Timer1．Enabled=false End Sub Private Sub Command1 Click( ) Timer1．Enabled=True End Sub Private Sub Timer1_Timer( ) If Label1．Left＜Width Then Label1．Left=label1．Left+20 Else Label1．Left=0 End If End Sub程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是A．标签的移动方向为自右向左B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C．当标签全部移出窗体后，将从窗体的另一端出现并重新移动D．标签按指定的时间间隔移动
考题
在名为Form1的窗体上绘制一个标签，其名称为Lab1，标题为“计算机等级考试”， Borderstyle属性为1，可以根据标题自动调整大小：再绘制一个命令按钮，其名称和标题均为Cmd1。编写适当的事件过程，使程序运行后，如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。程序运行情况如下图所示。注意：文件必须存放在考生文件夹中，工程文件名为execise111.vbp，窗体文件名为 execise111.frm。
考题
（1）在名为Form1的窗体上绘制两个标签（名称分别为Label1和Label2，标题分别为“长”和“宽”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“输入”）。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。（2）在名为Form1的窗体上绘制一个标签（名称为Label1，标题为“输入”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”）。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。
考题
窗体上有一个名为Button1的命令按钮和一个标签框，然后编写如下事件过程： 程序运行后，单击命令按钮，则在标签框上显示的内容是（）A5.8B5C7D无数据
热门标签
最新试卷