单项选择题

执行下列程序后，鼠标单击窗体，输出结果为

Private Sub Form_Click()

Print "Click"；

End Sub

Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)

Print "Donw"

End Sub

Private Sub Form_MouseUp(ButtonAs Integer，Shift As Integer，X As Single，Y As Single)

Print "Up"

End Sub

A．DownUpClick
B．ClickDownUp
C．DownClickUp
D．UpDownCliek

<上一题目录下一题>

热门试题

单项选择题

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=Fun2(Fun1(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer) As Integer x=x+y:y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer，y As Integer) As Integer Fun2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是Ａ) 2 4 2 4 Ｂ) 2 4 4 8 Ｃ) 10 10 58 58 Ｄ) 4 4 8 8

单项选择题

设在窗体上有个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Const Alt=4 Const Key_F2=&H71 altdown%=(Shift And Alt)＞0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Text1.Text= BBBBB End If End Sub 上述程序运行后，如果按“Shift+F2”组合键，则在文本框中显示的是

A．Alt+F2
B．BBBBB
C．随机出几个数
D．文本框内容无变化

相关试题