执行如下代码, 则程序的运行结果是________。 a = list(range(1,20,2)) b = list(range(1,20,3)) c = [] for i in a: if i in b: c.append(i) print(c)
第1题:
窗体上有一个名为List1的列表框,程序执行时在窗体上单击,输出的结果是( )。 Priate Sub Form_Click() For i=0 To List1.ListCount-1 If i Mod 2=0 Then Print List1.List(i); End If Next i End Sub Private Sub Form_Load() List1.AddItem"中国" List1.AddItem"日本" List1.AddItem"韩国" List1.AddItem"新加坡" List1.AddItem"香港" End Sub
A.中国韩国
B.日本新加坡
C.中国韩国香港
D.中国日本韩国新加坡香港
第2题:
下列程序的执行结果是( )。 a=75 If a>90 Then i=4 If a>80 Then i=3 If a>70 Then i=2 1f a>60 Then i=1 Print "i=";i
A.i=1
B.i=2
C.i=3
D.i=4
第3题:
程序段如下: Dim i As Integer,s As Integer For i=4 To 1 Step-1 s=s+i Next i Print s,i执行的结果是( )。
A.10 0
B.9 1
C.10 1
D.9 0
第4题:
往窗体Form1上添加一个列表框控件List1,并编写如下代码: Private Sub Form_Load() For i=0 To 6 List1.AddItemi Next i End Sub 为了在程序运行时,按住Ctrl键单击列表中的项目可以选中多个项目,可以设置List1的属性 _________。
A.List1.List
B.List1.ListIndex
C.List1.MultiSelect
D.List1.Text
第5题:
窗体上有一个命令按钮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.程序出错
第6题:
在窗体上建立一个名称为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 Sub
A.政治化学生物
B.无显示
C.英语物理语文
D.生物
第7题:
在窗体上画一个名称为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 Sub
A.List1.Text=Str(a(i))+ vbCrLf
B.List1.Text=Str(a(i))+ vbCrLf
C.List1.AddItem a(i)
D.List1.AddItem=a(i)
第8题:
运行以下程序后,输出的结果是 for i=1 to 3 cls print" i=",i; Next
A.123
B.3
C.i=1i=2i=3
D.i=3
第9题:
对于生成器对象x = (3 for i in range(5)),连续两次执行list(x)的结果是一样的。
第10题:
代码for i in range(3):print(i,end=’,’)的执行结果为()。
第11题:
对
错
第12题:
对
错
第13题:
设有下面的循环: i=0 While i<=1 i=i+3 Print i Wend 则运行后的输出结果是
A.1
B.2
C.3
D.4
第14题:
执行下列程序段时,分别在输入框中输入2、4、6,则执行结果是______。 Dim A(4) As Integer Dim B(4) As Integer For i = 0 To 2 A(i + 1) = Val (InputBox (“请输入数据”)) B(3 - i) = A(i + 1) Next i Print B(i)
A.2
B.4
C.6
D.8
第15题:
往窗体Form1上添加一个列表框控件List1,并编写如下代码: Private Sub Form_Load() For i=0 To 6 List1.AddItem i Next i End Sub 为了在程序运行时,按住Ctrl键单击列表中的项目可以选中多个项目,可以设置List1的属性______。
A.List1. List
B.List1. ListIndex
C.List1. MultiSelect
D.List1. Text
第16题:
在窗体上有一名为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 Sub
B.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 Sub
C.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 Sub
D.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
第17题:
下列程序的执行结果是( )。 a =75 If a > 90 Then i=4 If a > 80 Then i=3 If a > 70 Then i=2 If a > 60 Then i=1 Print "i="; i
A.i=1
B.i=2
C.i=3
D.i=4
第18题:
设有下面的循环。 i=0 While i<=1 i=i + 3 Print i Wend 则运行后的输出结果是
A.1
B.2
C.3
D.4
第19题:
A.0 1 2
B.1 2
C.0 1
D.1
第20题:
已知x=list(range(20)),那么语句print(x[100:200])的输出结果为()。
第21题:
已知x=list(range(20)),那么语句print(x[100:200])无法正常执行。
第22题:
表达式(i**2for i in range(100))的结果是个元组。
第23题:
对
错
第24题: