在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为:
A.For i=0 To List1.ListCount-1 …… Next
B.For i=0 To List1.Count-1 …… Next
C.For i=0 To List1.ListCount …… Next
D.For i=0 To List1.Count …… Next
第1题:
往窗体Form1上添加一个列表框控件List1,并编写如下代码: Private Sub Form_Load() For i=0T06 Listl.AddItem i Next i End Sub 为了在程序运行时,按住Ctrl键单击列表中的项目可以选中多个项目,可以设置Listl的属性______。
A.Lial.List
B.Listl.Listlndex
C.Listl.MultiSelect
D.Listl.Text
第2题:
往窗体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
第3题:
有下面的程序段,其功能是按图1所示的规律输出数据: Dim a(3,5)As Integer For i=1 To 3 For j=1 To 5 a(i,j)=i+j Print a(i,j); Next Print Next
若要按图2所示的规律继续输出数据,则接在上述程序段后面的程序段应该是( )。
A.For i=1 To 5 For j=1 To 3 Print a(j,i); Next Print Next
B.For i=1 T0 3 For j=1 To 5 Print a(j,i); Next Print Next
C.For j=l To 5 For i=1 To 3 Print a(j,i); Next Print Next
D.For i=1 To 5 For=1 To 3 Print a(i,j): Next Print Next
第4题:
以下for语句中不是死循环的是
A.for(int i=0;i<1;++);
B.for(int i=0∷++);
C.for(int i=1;i>0;++i);
D.for( ;;);
第5题:
往窗体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
第6题:
在窗体上画一个名称为Listl的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为
A.Fori=OTOListI.ListCount?1 … Next
B.Fori=0 To List1.Count?1 … Next
C.Fori=1 To List1.ListCount … Next
D.For i=1 To List1.Count … Next
第7题:
在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为
A. For i=0 To List1.ListCount-1 …… Next
B.For i=0 To ListCount-1 …… Next
C.For i=1 To List1.listCount …… Next
D.For i=1 To ListCount …… Next
第8题:
以下for语句中不是死循环的是( )。
A.for(inti=0;i<1;++i);
B.for(inti=0;;++i);
C.for(inti=1;i>0;++i);
D.for(;;);
第9题:
以下for语句中不是死循环的是( )。
A.for(inti=0;i0;++i);
D.for(;;);
第10题:
设在窗体上有一个名称为Command1的命令按钮,并有以下事件过程: Private Sub Command1_Click() Static b As Variant b=Array(1, 3, 5, 7, 9) … End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9, 7, 5, 3, 1)。为实现此功能,省略号处的程序段应该是:______。
A.For i=0 To 5-1\2 tmp=b(i) b(i)=b(5-i-1) b(5-1-1)=tmp Next
B.For i=0 To 5 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
C.For i=0 To 5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
D.Fori=1 To 5\2 tmp=b(1) b(i)=b(5-i-1) b(5-i-1)=tmp Next
第11题:
在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为( )。
A.For i=0 To List1.ListCount-1
……
Next
B.For i=0 To ListCount-1
……
Next
C.For i=1 To List1.listCount
……
Next
D.For i=1 To ListCount
……
Next
第12题:
第13题:
与“for(i=0;i<10;i++)putchar('a'+i);”功能不同的语句是______。
A.for(i=0;i<10;)putchar('a'+(++i));
B.for(i=0;i<10;)putchar('a'+(i++));
C.for(i=0;i<10;putchar('a'+i),i++);
D.for(i=0;i<=9;i++)putchar('a'+i);
第14题:
窗体上有一个名为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.中国日本韩国新加坡香港
第15题:
在窗体上画一个名称为CoilTlilandl的命令按钮,然后编写如下事件过程: Private Sub command1 Click() Dim m As Integer, i As Integer, x(3)As Integer For i=0 To 3:x(i)=i:Next i For i = 1 To 2: Call sub1(x,i):Next i For i = 0 To 3: Print x(i);: Next i End Sub Private Sub sub1(a()As Integer,k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j < 2 End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
A.0 3 7 5
B.0 1 2 3
C.3 2 4 5
D.0 5 8 3
第16题:
在窗体中添加一个名称为Command1的命令按钮、一个名称为Label1的标签,编写如下代码: Option Base 1 Private Sub Command1_Click( ) a=Array(23,34,25,46,35) ┊ End Sub 过程的功能是求数组a中是奇数的元素的个数,并把结果显示在标签中。为实现此功能,省略号处的程序段应该是
A.For i=0 T0 4 If a(i)Mod 2<>0 Then b=b+1 End lf Next i Label1.Caption=b
B.For i=0 To 4 If a(i)Mod2=0 Then b=b+1 End lf Next i Label1.Caption=b
C.For i=1 To 5 If a(i)Mod 2 ◇Then b=b+1 End lf Next i Label1.Caption=b
D.For=0 To 5 If a(i)Mod 2=0 Then b=b+1 End lf Next i Label1.Caption=b
第17题:
以下for语句中不是死循环的是
A.for(int i=0;i<1;++i);
B.for(int i=0;;++i);
C.for(int i=1;i>0;++i);
D.for(;;);
第18题:
在窗体上有一名为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
第19题:
窗体上有一个命令按钮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.程序出错
第20题:
下列选项中,不能输出100个整数的是( )。
A.for(int i=0;i<100;i++) System.out.println(i);
B.int i=0; do{ System.out.println(i); i++; }while(i<100);
C.int i=0; while(i<100){ System.out.println(i); i++; }
D.int i=0; while(i<100){ i++; if(i<100)continue; System.OUt.println(i); }
第21题:
以下for语句中不是死循环的是
A.for(int i=0;i<1;++i;
B.for(int i=0;;++i;
C.for(int i=1;i>0;++i;
D.for(;;);
第22题:
在窗体上画一个名称为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)
第23题:
往窗体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