以下是一个事件处理过程,这个过程的名称为()。PrivateSubCommand1_Click()Print"北京欢迎你!"EndSub
A.Click
B.Command1_Click()
C.EndSub
D.Command1
A.Click
B.Command1_Click()
C.EndSub
D.Command1
在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程: Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位于文本框中,则能够触发KeyPress事件的操作是______。
A.单击鼠标
B.双击文本框
C.鼠标滑过文本框
D.按下键盘上的某个键
A.-5
B.25
C.-1
D.1
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是()。
A.4
B.5
C.6
D.7
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),然后编写如下几个事件过程: Private Sub Form_Load() Timer1.Enabled=False Timer1.Interval=【 】 End Sub Private Sub Form_Click() Timer1.Enabled=【 】 End Sub Private Sub Timer1_Timer() Label1.Caption=【 】 End Sub 程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟变换一次(见图)。请填空。
在窗体上画一个名称为Command1的命令按钮。编写如下事件过程: Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后,单击命令按钮,要求窗体上显示的输出结果为: 5 456 34567 2345678 123456789 请填空。
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),如图16-11所示,然后编写如下几个事件过程: Private Sub Form_Load() Timer1. Enabled=False Timer1. Interval=【 】 End Sub Private Sub Form_Cliek() Timer1. Enabled=【 】 End Sub Private Sub Timer1_Timer() Label1. Caption=【 】 End Sub 程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟改变一次。请填空。
在名称为Form1的窗体上添加一个名称为Text1的文本框;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Show和Hide,标题分别为“显示”、“隐藏”,请编写适当的事件过程,使程序运行时,单击“隐藏”菜单项,文本框消失;单击“显示”菜单项,文本框重新出现,程序运行后的窗体如图所示。要求程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sit2.vbp,窗体文件名保存为sjr2.frm。