首页 > 大学本科

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

题目内容（请给出正确答案）

[单选题]

当程序运⾏时,在窗体上单击⿏标,以下哪个事件()是窗体不会接收到的。

A.MouseDown

B.MouseUp

C.Click

D.Load

答案

查看答案

发布时间：2023-02-05

更多“当程序运⾏时,在窗体上单击⿏标,以下哪个事件()是窗体不会接收到的。”相关的问题

第1题

在窗体上设置一个命令按扭，编写的事件过程为： Private Sub Command1_Click（) Sum = 0 x =0 Do

在窗体上设置一个命令按扭，编写的事件过程为： Private Sub Command1_Click() Sum = 0 x =0 Do While x<>-1 x =InputBox$(“请输入一个正整数 x：”) Sum = Sum + x Loop Print x, SumEnd Sub 当程序运行时，单击该命令按扭，在输入对话框中依次输入3、5、7、9、-3和-1，则在窗体上出现的运行结果是：

A、-1 21

B、-1 20

C、-3 9

D、3 -1

点击查看答案

第2题

下列程序，当单击窗体时s的值是（）。PrivateSubForm_CliCk，DimsAsinteger，s=11\3+11mod3，prints，end sub。

A.3

B.4

C.5

D.6

点击查看答案

第3题

下列程序实现的功能是：当在窗体上单击时，将在窗体上输出c:\a1．txt文件中的所有小写字母。 Pri

vate Sub Form_Click() Dim Ch As String*1 Open"c:\a1．txt"For Input As 10 Do While【】 Ch=Input(1，10) If【】Then Print Ch； End If Loop 【】 End Sub

点击查看答案

第4题

下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。 Private Sub fo

rm_ Click() Dim Ch As String * 1 Dim n As Integer Open "c:\a1. txt" for Input As 10 do while【】 Ch = Input(1, 10) if【】 then n=n+1 End if Loop【】 Close 10 End Sub

点击查看答案

第5题

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click（) Di

在窗体上画一个名称为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 请填空。

点击查看答案

第6题

在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对

话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。 Private Sub Command1_Click() CommonDialog1．Filter=【】 CommonDialog1．FilterIndex=【】 CommonDialog1．ShowSave Info．Text=【】 End Sub

点击查看答案

第7题

在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”（Name属性值为mnuMenu)，然后为其设计两个子菜

在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu)，然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdD)和“减少菜单”(Name属性值为mnuDel)，另外设置一个标题为空的菜单项＜控件数组)，其Name属性值为mnuDyn，Index值为0，Visible属性值为False；然后编写以下程序来实现增加和减少菜单项的功能，完成程序。 Dim Inxld As Integer Private Sub mnuAdd_Click() Dim mnuc As String mnuc=InputBox("input caption") InxId；InxId+1 【】mnuDyn(InxID) mnuDyn(InxlD)，Calption=mnuc mauDyn(InxID).Visible=True End Sub Private SubmnuDel_Click() Dim i As Integer If【】Then MsgBox "菜单项已全部被删除" Else Unload mnuDyn(InxID) InxId=InxId-1 End If End Sub

点击查看答案

第8题

在一个窗体上有两个命令按钮，cmdMax 和 cmdMin。单击cmdMax时，窗体上显示“字体由小变大”，字号每次

增加2；单击cmdMin时，窗体上显示“字体由大变小”，字号每次减小2。请填空。 Private Sub Form_Load() Forml．Caption =“字体变化示范” cmdMax．Caption=“字体变大” cmdMin．Caption=“字体变小” End Sub Private Sub cmdMax_Click() 【】 Forml．Print”字体由小变大” End Sub Private Sub cmdMin_Click() 【】 Forml．Print“字体由大变小” End Sub

点击查看答案

第9题

在窗体上选择多个控件应按______键然后单击各控件。

点击查看答案

第10题

在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer,y As

在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer,y As Integer) M=IIf(x＞y,x，y) End FUNction Private Sub Command1 Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,B0 End Sub 程序运行后，单击命令按钮，输出结果为【】。

点击查看答案

第11题

在某路由器上查看LSP，看到如下结果，则以下哪个说法是正确的（）。[Huawei]displaymplslspLSPInformation：LDPLSPFECIn/OutLableIn/OutIFVrfName；1.1.1.1/32NULL/1024-/GE0/0/2；1.1.1.1/321027/1024-/GE0/0/2；2.2.2.2/32NULL/3-/GE0/0/2；2.2.2.2/321028/3-/GE0/0/2；3.3.3.3/32NULL/3-/GE0/0/0；3.3.3.3/321026/3-/GE0/0/0；4.4.4.4/323/NULL-/-。

A.发送目标地址为3.3.3.3的数据包时，打上标签1026，然后发送

B.发送目标地址为4.4.4.4的数据包时，不打标签直接发送

C.当路由器收到标签为1024的数据包，将把标签更换成1027然后发送

D.发送目标地址为2.2.2.2的数据包时，不打标签直接发送

点击查看答案