第三部分 循环结构程序设计.pptVIP

使用动态数组的注意事项 For…Next循环语句 真题部分 12.(2009.3)(20)阅读程序： Private?Sub?Command1_Click() ?a=0 For?j=1?to?15 ?? a=a+j?mod?3 Next?j Print?a? End?Sub 程序运行后，单击窗体，输出结果是（ ）。 A）105??? B)1??? C)120???? D)15 13.(2009.3)(23)在窗体上画一个命令按钮，其名称为command1,然后编写如下代码： Option?Base?1 Private?Sub?Command1_Click() ?? Dim?a ?? a?=?Array(1,?2,?3,?4) ?? j?=?1 ?? For?i?=?4?To?1?Step?-1 ??? ?s?=?s?+?a(i)?*?j ???? j?=?j?*?10 ???Next?i ???Print?s End?Sub 程序运行后，单击命令按钮后，其输出结果是（ ）。 A）4321??????B）1234?????C）34??????D）12 14.(2009.3)(25)在窗体上面画一个命令按钮，名称为Command1，然后编写如下代码： Option?Base?0 Private?Sub?Command1_Click() ???Dim?A1(4)?As?Integer,A2(4)?As?Integer ???For?k=0?To?2 ???????A1(k+1)=InputBox(请输入一个整数) ???????A2(3-k)=A1(k+1) ???Next?k ???Print?A2(k) ?End?Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（ ）。 A）0????????????????B）1??????????????C）2??????????????D）3 15.(2009.3)(32)设有以下程序： ??Private?Sub?Form_Click() ??????X=50 ??????For?i=1?To?4 ????????? Y=InputBox(请输入一个整数) ????????? Y=Val(y) ????????? If?y?Mod?5=0?Then ?????????? ??a=a+y ??????????? ?x=y ????????? Else ?????????? ??a=a+x ?????????End?If ? ?????Next?i ?? ????Print?a ? End?Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。 ??A）100????????B）50??????????C）120????????????D）70 16.(2008.9)(21)窗体上有Command1、Command2两个命令按钮。现编写以下程序： Option Base 0 Dim a() As Integer, m As Integer Private Sub Command1_Click() ? m = InputBox(请输入一个正整数) ? ReDim a(m) End Sub Private Sub Command2_Click() ? m = InputBox(请输入一个正整数) ? ReDim a(m) End Sub 运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是（ ）。 A）5 B）6 C）10 D)11 17.(2008.9)(22)在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程： Private Sub Command1_Click() ? Counter = 0 ?For i = 1 To 4 ? For j = 6 To 1 Step -2 ??? Counter = Counter + 1 ? Next j ?Next i ?Label1.Caption = Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是（ ）。 A）11 B）12 C）16 D)20 18.(2008.9)(23)在窗体上画一个名为Command1的命令按钮，然后编写以下程序： Private Sub Command1_Click() ? Dim m(10) As Integer ? For k =