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

[主观题]

窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，

将该项目从列表框删除。程序如下： Private Sub Command1_Cliek() Dim In As Integer In=______ List.Remove Ind End Sub 则在程序的空白行的语句是()。

A．List1.Index

B．List1.ListIndex

C．List1.Text

D．List1.listCount

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“窗体上有一个命令按钮Command1和一个列表框List1。…”相关的问题

第1题

窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click（)x = InputBox（

窗体上有一个命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click()

x = InputBox("x=")

y = InputBox("y=")

Print x + y

End Sub

运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是()。

A、 444

B、 123321

C、 123+321

D、出错信息

点击查看答案

第2题

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（）。A.Private S

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（）。

A.Private Sub Form1 Click（） End Sub···

B.Private Sub Form. Cliok（） End Sub···

C.Private Sub Command1 click（） End Sub···

D.Private Sub Command Click（） End Sub···

点击查看答案

第3题

窗体上有一个命令按钮Command1和一个列表框List1，其中List1有0、1、2、3、4的内容，有下列程序：Privat

窗体上有一个命令按钮Command1和一个列表框List1，其中List1有0、1、2、3、4的内容，有下列程序： Private Sub Command1_Click() Dim i，s For i=0 To List1．ListCount s=s+List1．List(i) Next i Print s End Sub 程序运行后，单击命令按钮，则窗体上显示的是

A．0

B．10

C．01234

D．程序出错

点击查看答案

第4题

设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程：Private Sub Command1_Clic

设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是()。

A．Basic

B．cisaB

C．BASIC

D．CISAB

点击查看答案

第5题

窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：Private Sub Command1 Click（）

窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：

Private Sub Command1 Click（）

Static x As Variant

n=0

x=Array(1，2，3，4，5，6，7，8，9，10)

While n＜=4

x(n)=x(n+5)

Print x(n)：

n=n+1

Wend

End Sub

运行程序，单击命令按钮Command1，窗体上显示的是（）。

A.1 2 3 4 5

B.6 7 8 9 10

C.2 3 4 5 6

D.6 2 3 4 5

点击查看答案

第6题

在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下： Private Function fun（B

在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Cliek() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出()。

A．6

B．7

C．8

D．9

点击查看答案

第7题

在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Com

mand1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。

Private Sub Form_Load（）

Command1  Enabled=False

End Sub

Private Sub Text1_ ________ （）

Command1  Enabled=True

End Sub

点击查看答案

第8题

在窗体上有一个命令按钮Command1，编写如下程序：Private Sub Command1_Click（) Print pp1（3,7)End

在窗体上有一个命令按钮Command1，编写如下程序： Private Sub Command1_Click() Print pp1(3,7) End Sub Public Function pp1(x As Single,n As Integer)As Single If n=0 Then pp1=1 Else If n Mod 2=1 Then pp1=x*x+n Else pp1=x*x-n End If End If End Function 程序运行后，单击该命令按钮，屏幕上显示的是()。

A．2

B．1

C．0

D．16

点击查看答案

第9题

在窗体上有一个命令按钮Command1，编写下列程序：Private Sub Command1_Click（)Print pp1（3,7)End

在窗体上有一个命令按钮Command1，编写下列程序：

Private Sub Command1_Click()

Print pp1(3,7)

End Sub

Public Function pp1(x As Single,n As Integer)As Single