题目内容
（请给出正确答案）
注意：程序中不得使用变量，也不能使用循环结构。存盘时必须存放在考生文件夹下，工程文件名保存为sjt3．vbp，窗体文件名保存为sjt3．frm。
如果结果不匹配，请 联系老师 获取答案
更多“在名称为Form1的窗体上添加一个名称为Label1、标题为…”相关的问题
.jpg){kind=spacer}
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i＝0 To Combo1.ListCount-1
If Combo1.Text=【 】Then
Label2.Caption="输入项已在组合框中。"
Exit Sub
End If
Next i
Label2.Caption="已成功添加新输入项。"
Combo1.【 】Combo1.Text
End If
End Sub
（1）在名称为Form1的窗体中画一个名称为Label1的标签，其标题为"0"，BorderStyle属性为1：再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图8-1所示。
图8-1
注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。
（2）在窗体上设置一个文本框，名称为Text1，再添加一个命令按钮，名称为Command1，标题为"当前时间/日期切换"；每次单击按钮时，Text1就显示出当前时间，再单击一次，Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图8-2所示。
图8-2
注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2.vbp与sj2.frm。
Private Sub Combol_KeyPress（KeyAscii As Integer）
If KeyAscii=13 Then
For i=0 To Combo1 ListCount-1
If Combo1 Text= 【 12 】 Then
Label2 Caption=" 输入项已在组合框中。 "
Exit Sub
End If
Next i
Label2 Caption=" 已成功添加新输入项。 "
Combo1 ______ Combo1 Text
End If
End Sub
的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失；单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit2．vbp，窗体文件名保存为sjr2．frm。
A．11
B．a=11
C．0
D．False
.jpg)
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise57.vbp，窗体文件名为execise57.frm。
A.Text1．FontName= HScroll1．Max
B.Text1．FontSize= HScroll1．Min
C.Text1．FontSize= HScroll1．Value
D.Text1．FontBold= HScroll1．Value
