list=[i for i in rang（10，30，10）]，list[：：-1]结果为（）
在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程： Private Sub Form_Load() For i=1 To 10 List1.AddItem i * 10 Next i Text1.Text=" " End Sub Private Sub List1_Click() Print List1.Text + Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的第四行，则在窗体上输出的结果为A．40123B．163C．123D．30123
点击查看答案
在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为：A．For i=0 To List1.ListCount-1 …… NextB．For i=0 To List1.Count-1 …… NextC．For i=0 To List1.ListCount …… NextD．For i=0 To List1.Count …… Next
往窗体Form1上添加一个列表框控件List1，并编写如下代码： Private Sub Form_Load() For i=0 To 6 List1.AddItem i Next i End Sub 为了在程序运行时，按住Ctrl键单击列表中的项目可以选中多个项目，可以设置List1的属性______。A．List1. ListB．List1. ListIndexC．List1. MultiSelectD．List1. Text
在窗体上有一名为list1的列表框和名为Command1的命令按钮，要求程序运行后；如果单击命令按钮，则把列表框中所有的列表项目写到顺序文件list.txt 中。下列能完成该操作的程序是______。A． Private Sub Command1_Click() Open “c:\list.txt”For Input As #1 For i=0 To Listl.ListCount-1 Print #1，List1.List(i) Next i Close #1 End SubB．Private Sub Command1_lick() Open “c:\list.txt”For Output As #1 For i=0 To List1.ListCount Print #1，List1.List(i) Next i Close #1 End SubC．Private Sub Command1_Click() Open “c:\list.txt”For Output As #1 For i=0 To List1.ListCount -1 Print #1，List1. List(i) Next i C1ese #1 End SubD．Private Sub Command1_Click() Open “c:\list.txt”For As #1 For i=0 To List1.ListCount Print #1，List1.List(i) Next i Close #1 End Sub
窗体上有一个命令按钮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．0B．10C．01234D．程序出错
在窗体上建立一个名称为List1的列表框、一个名称为Text1文本框和一个名称为 Command1的命令按钮，如图20-12如示。程序代码如下，如果在程序运行过程中单击命令按钮，则在文本框中显示的内容是( )。 Private Sub Command1_Click() Dim i As Integer Text1．Text=" " For i=0 To List1．ListCount If i Mod 2=1 Then Text1．Text=Text1．Text+List1．List(i) End If Next i End Sub Private Sub Form_Load() List1．AddItem"英语" List1．AddItem"政治" List1．AddItem"物理" List1．AddItem"化学" List1．AddItem"语文" List1．AddItem"生物" End SubA．政治化学生物B．无显示C．英语物理语文D．生物
在窗体上画一个名称为Command1的命令按钮和一个名称为List1的列表框。如下图所示程序的功能是：单击命令按钮后，程序用“筛选法”求出1-100之间的全部素数。并将素数在列表框中显示出来。根据题意，填空处应选择Option Base 1 Dim a(100)As Integer Private Sub Command1_Click() n = 100 For i = 2 To Sqr(n) For j = i + 1 To n If j Mod i = 0 And a(j)＜＞ 0 Then a(j)= 0 Next j Next i For i = 1 To n If a(i)＜＞ 0# Then Next i End Sub Private Sub Form_Load () For i = 1 To 100 a (i)=i Next i End SubA．List1.Text=Str(a(i))+ vbCrLfB．List1.Text=Str(a(i))+ vbCrLfC．List1.AddItem a(i)D．List1.AddItem=a(i)
