更多"在窗体中添加一个列表框(listBox1)和一个命令按钮,并编写如下代"的相关试题:
[单项选择]在窗体中添加一个列表框(listBox1)和一个命令按钮,并编写如下代码:Private Sub Command1_ Click( ) Dim Entry, I, Msg Msg = "Choose Ok to add 100 items to your list box." MsgBox Msg for I = 1 To 100 Entry = "Entry" & I List1. AddItem Entry Next IEnd Sub程序完成的功能是______。
A. 本示例使用AddItem方法增加100项给一个列表框
B. 本示例使用AddItem方法向一个列表框中添加的内容是1~100的列
C. 本示例使用AddItem方法向一个列表框中添加的内容是1~100的和
D. 本示例使用AddItem方法增加101项给一个列表框
[单项选择]窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目,然后单击命令按钮,将该项目从列表框删除。程序如下:
Private Sub Command1_Click( )
Dim In As Integer
In=______
List.Remove Ind
End Sub
则在程序的空白行的语句是( )。
A. List1.Index
B. List1.ListIndex
C. List1.Text
D. List1.ListCount
[填空题]在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图6-1所示。下面是实现上述功能的程序,请填空。
Private Sub Form_Load( )
List1.AddItem "AAAAA"
List1.AddItem "BBBBB"
List1.AddItem "CCCCC"
List1 .AddItem "DDDDD"
End Sub
Private Sub Command1_Click( )
Dim L1 As Integer
L1 =
If L1 > = 0 Then
List1.RemoveItem______
Label1.Caption =
Else
MsgBox"请选择要删除的项目"
End If
End Sub
[填空题]在窗体上添加一个命令按钮Command1,然后编写如下代码:
Private Sub Command1_Click( )
sum=0
For i=3 To 7
sum=i+2
Next i
MsgBox sum+i
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是______。
[填空题]在窗体上添加一个命令按钮Command1,然后编写如下事件过程。
Private Sub Command1_Click( )
Dim b,k
For k=1 To 6
b=23+k
Next k
MsgBox k+b
End Sub
打开窗体后,单击命令按钮,消息框数据的结果是______。
[填空题]在窗体中添加一个命令按钮,然后编写如下代码:
Private Sub Command1_Click( )
a=InputBox("请输入一个整数")
b=InputBox("请输入一个整数")
Print Val(a)+Val(b)
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入21和45,输出结果为 【10】 。
[单项选择]在窗体中添加一个命令按钮,然后编写如下代码: Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To 3 x=x+6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,输出结果是
A. 7
B. 15
C. 21
D. 538
[单项选择]在窗体上添加一个命令按钮,然后编写如下事件过程:
Phvate Sub Commanl_Click( )
Dima(10)As Integer
Dimp(3)As InteSer
k=5
Fori=1 To 10
a(i)=i
Nexti
Fori=1 To 3
p(i)=a(i*i)
Nexti
Fori=1 To 3
k=k+p(i)*2
Nexti
Printk
End Sub
该程序的运行结果为( )。
A. 35
B. 33
C. 31
D. 29