题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2023-12-30 18:45:40

[单项选择]执行下列程序后,鼠标单击窗体,输出结果为( )。   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,Y As Single)      Print“Up”   End Sub
A. J2DE
B. J2SE
C. J2ME
D. Y2EE

更多"执行下列程序后,鼠标单击窗体,输出结果为( )。   Priva"的相关试题:

[单项选择]执行下列程序后,鼠标单击窗体,输出结果为

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
[单项选择]执行下列程序后,鼠标单击窗体,输出结果为( )。   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,Y As Single)      Print“Up”   End Sub
A. DownUpClick
B. ClickDownUp
C. DownClickUp
D. UpDownClick
[单项选择]执行下列程序后,鼠标单击窗体,输出结果为______。
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"Down"
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print "Up"
End Sub
A. DownUpClick
B. ClickDownUp
C. DownClickUp
D. UpDownClick
[单项选择]执行下面这段程序后,单击命令按钮,窗体中输出结果是 ______。 Private Sub Command1_Click( ) a=1 : b=4 : c = 9 : d = 5 If a < b Then If c<d Then x=True Else If a<c Then x=False Else x=True End If End If End If Print Val(x) End Sub
A. True
B. False
C. 0
D. 1
[填空题]下面运行程序后,单击命令按钮,输出的结果是【 】。   Private Sub Command1_Click( )    Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2#    For i=1 To 4     a(i) =i    Next i    For i=3 To 6     b(i) =i    Next i    s1=YAS(A)    s2=YAS(B)    Print"s1=";s1;"s2=";s2   End Sub   Function YAS(a( )As Integer)    Dim t#,i%    t=1    For i=LBound(A) To UBound(A)     t=t * a(i)    Next i    YAS=t   End Function

我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

截图扫码使用小程序[完全免费查看答案]
请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码