Private Sub Form_Click()
Print "Click";
E.nd Sub
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print "Donw"
E.nd Sub
Private Sub Form_MouseUp(ButtonAs Integer,Shift As Integer,X As Single,Y As Single)
Print "Up"
E.nd Sub
A.DownUpClick
B.ClickDownUp
C.DownClickUp
D.UpDownCliek
[单选题]执行下列程序后,鼠标单击窗体,输出结果为 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(Button As Integer,Shift_As Integer,X As Single
[单选题]执行下列程序后,鼠标单击窗体,输出结果为Private Sub Form_Click()Print "Click";E.nd SubPrivate Sub Form_mouseDown(Button As Integer,ShiftA.s Integer, X As Single, Y As Single)Print "Donw"E.nd SubPrivate Sub Form_MouseUp(ButtonAsInteger,ShiftA.s Integer, X As Single,
[单选题]执行下列程序后,鼠标单击窗体,输出结果为。 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(Button As Integer,Shift_ As Integer,X As Single
[单选题]执行下列程序后,鼠标单击窗体,输出结果为 。Private Sub Form_Click()Print "Click";E.nd SubPrivate Sub Form_MouseDown(Button As Integer, Shift _A.s Integer, X As Single, Y As Single)Print "Donw"E.nd SubPrivate Sub Form_MouseUp(Button As Integer, Shift _A.s Integer, X A
[单选题]执行下列程序后,鼠标单击窗体,输出结果为A.DownUpCliekB.CliekDownUpC.DownCliekUpD.UpDownClick
[单选题]运行下列程序:Option Base 1Private Sub Form_Click()y = 43x = Array(21, 4, 50, 18, 23, 44, 87, 32, 67, 70)F.or i = 1 To 10If x(i)< y Thenz = x(i) + 1y = x(i)E.lsez = z + yE.nd IfNext iPrint zE.nd Sub单击窗体后,则在窗体上显示的结果是()。A.43B.21C.37D.44
[主观题]有如下程序:Option Base 1Private Sub Form_Click()D.im arr,SumSum=0F.or i=1 To 10If arr(i)/3=arr(i)/3 ThenE.nd IfNext iE.nd Sub程序运行后,单击窗体,消息框的输出结果为( )。
[单选题]阅读程序: Option Base 1 Private Sub Form_Click( ) Dim arr,Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub程序运行后,单击窗体,输出结果为A.13B.14C.27D.15
[单选题]单击窗体时,下列程序段的执行结果为( )。 Private Sub Form_Crick() Line(200,200)-(400,400) Print"+++++++++++++++++++" Print"*******************" End SubA.在窗体上画一斜线,从斜线终点处开始打印两行符号B.在窗体上画一斜线,从斜线起点处开始打印两行符号C.在窗体上画一斜线,从窗体左上角开始打印两行符号D.从窗体左上角开始打印两行符号,从符号结束处开始画一斜线
[单选题]运行下列程序,单击窗体后输出的结果是( )。Private Sub Form_Click()D.im aD.im s As Integer, i As Integera = Array(1, 2, 3, 4, 5, 6)s = 1F.or i = 5 To 1 Step -2s = s * a(i)Next iPrint sE.nd SubA. 15B. 48C. 120D. 720