part4 基本控制结构与数组.docx

part4 基本控制结构与数组.docx

《part4 基本控制结构与数组.docx》由会员分享，可在线阅读，更多相关《part4 基本控制结构与数组.docx（44页珍藏版）》请在冰豆网上搜索。

part4基本控制结构与数组

10.3

（21）下面正确使用动态数组的是

　　A）Dimarr（）AsInteger

　　…

　　ReDimarr（3,5）

　　B）Dimarr（）AsInteger

　　…

　　ReDimarr（50）AsString

　　C）Dimarr（）

　　…

　　ReDimarr（50）AsInteger

　　D）Dimarr（50）AsInteger

　　…

　　ReDimarr（20）

　（23）有下面的程序段，其功能是按图1所示的规律输出数据

　　Dima（3,5）AsInteger

　　Fori=1To3

　　Forj=1To5

　　a（i,j）=i+j

　　Printa（i,j）;

　　Next

　　Print（换行）

　　Next

（1）i=1

1）j=12）j=23）j=34）j=45）j=5

a（1,1）=2a（1,2）=3a（1,3）=4a（1,4）=5a（1,5）=6

输出23456

（2）i=2

1）j=12）j=23）j=34）j=45）j=5

a（2,1）=3a（2,2）=4a（2,3）=5a（2,4）=6a（2,5）=7

输出34567

（3）i=3

输出45678

　　若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是

　　A）Fori=1To5

　　Forj=1To3

　　Printa（j,i）;

　　Next

　　Print

　　Next

　　B）Fori=1To3

　　Forj=1To5

　　Printa（j,i）;

　　Next

　　Print

　　Next

　　C）Forj=1To5

　　Fori=1To3

　　Printa（j,i）;

　　Next

　　Print

　　Next

　　D）Fori=1To5

　　Forj=1To3

　　Printa（i,j）;

　　Next

　　Print

　　Next

（26）计算圆周率∏的近似值的一个公式是∏/4=1-1/3+1/5-1/7+…+（-1）n-1/（2*n-1）。

　　某人编写下面的程序用此公式计算并输出π的近似值：

　　PrivateSubComand1_Click（）

　　PI=1

　　Sign=1

　　n=20000

　　Fork=3Ton

　　Sign=-Sign

　　PI=PI+Sign/k

　　Nextk

　　PrintPI*4

　　EndSub

　　运行后发现结果为3.22751，显然，程序需要修改。

下面修改方案中正确的是

　　A）把Fork=3Ton改为Fork=1Ton

　　B）把n=20000改为n=20000000

　　C）把Fork=3Ton改为Fork=3TonStep2

　　D）把PI=1改为PI=0

（27）下面程序计算并输出的是

　　PrivateSubComand1_Click（）

　　a=10

　　s=0

　　Do

　　s=s+a*a*a

　　a=a-1

　　LoopUntila<=0

　　Prints

　　EndSub

　　A）13+23+33+…+103的值

　　B）10!

+…+3!

+2!

+1!

的值

　　C）（1+2+3+…+10）3的值

　　D）10个103的和

　　（28）若在窗体模块的声明部分声明了如下自定义类型和数组

　　PrivateTyperec

　　CodeAsInteger

　　CaptionAsString

　　EndType

　　Dimarr（5）Asrec

　　则下面的输出语句中正确的是

　　A）Printarr.Code

（2）,arr.Caption

（2）

　　B）Printarr.Code,arr.Caption

　　C）Printarr

（2）.Code,arr

（2）.Caption

　　D）PrintCode

（2）,Caption

（2）

对数组的操作只能是对数组每一个元素的操作，不能直接用数组名代表整个数组

（34）窗体上有一个名为Command1的命令按钮，并有下面的程序：

　　PrivateSubComand1_Click（）

　　Dimarr（5）AsInteger

　　Fork=1To5

　　arr（k）=k

　　Nextk

arr

（1）=1,arr

（2）=2,arr（3）=3,arr（4）=4,arr（5）=5

　　progarr（）

　　Fork=1To5

　　Printarr（k）；’输出数组中的每一个元素

　　Nextk

　　EndSub

　　Subprog（a（）AsInteger）

　　n=Ubound（a）‘UBound（数组名，[维数]）返回指定维的上界，n=5

　　Fori=nTo2step-1

　　Forj=1Ton-1

　　ifa（j）

　　t=a（j）:

a（j）=a（j+1）:

a（j+1）=t

　　EndIf

　　Nextj

　　Nexti

　　EndSub

　　程序运行时，单击命令按钮后显示的是

　　A）12345

　　B）54321

　　C）01234

　　D）43210

　（8）有如下程序：

　　PrivateSubForm_Click（）

　　n=10

　　i=0

　　Do

　　i=i+n

　　n=n-2

　　LoopWhilen>2

　　Printi

　　EndSub

　　程序运行后，单击窗体，输出结果为【10】。

　（9）在窗体上画一个名称为Command1的命令按钮。

然后编写如下程序：

　　OptionBase1

　　PrivateSubCommand1_Click（）

　　Dima（10）AsInteger

　　Fori=1To10

　　a（i）=i

　　Next

　　Callswap（a（））

　　Fori=1To10

　　Printa（i）;

　　Next

　　EndSub

　　Subswap（b（）AsInteger）

　　n=Ubound（b）

　　Fori=1Ton/2

　　t=b（i）

　　b（i）=b（n）

　　b（n）=t

　　【12】n=n-1

　　Next

　　EndSub

　　上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a

（1）与a（10）的值互换，a

（2）与a（9）的值互换，……。

请填空。

09．9

（22）有如下过程代码：

　　Subvar_dim（）

　　StaticnumaAsInteger

　　DimnumbAsInteger

　　numa=numa+2

　　numb=numb+1

　　printnuma;numb

　　EndSub

　　连续3次调用var_dim过程，第3次调用时的输出是

　　A）21

　　B）23

　　C）61

　　D）63

注意：

静态变量（通过static定义的变量）在程序结束运行前，内存中始终保留它原有的值。

第一次调用var_dim过程时，numa=0,numb=0

numa=2,numb=1输出21

第二次调用var_dim过程时，numa保留原来的值2，numa=2，但是numb被重新赋值为0

numa=2+2=4,numb=0+1=输出41

第三次调用var_dim过程时，numa保留原来的值4，numa=4，但是numb被重新赋值为0

numa=4+2=6,numb=0+1=输出61

（23）在窗体上画1个命令按钮，并编写如下事件过程：

　　PrivateSubCommand1_Click（）

　　Fori=5to1step-0.8

　　PrintInt（i）;

　　Nexti

　　EndSub

（1）i=5

输出Int（5）=5

（2）i=5-0.8=4.2

输出Int（4.2）=4

（3）i=4.2-0.8=3.4

输出3

（4）i=3.4-0.8=2.6

输出2

（5）i=2.6-0.8=1.8

输出1

（6）i=1.8-0.8=1

输出1

（7）i=1-0.8=0.2超出了终值的范围，循环体不再执行

　　运行程序，单击命令按钮，窗体上显示的内容为

　　A）543211

　　B）54321

　　C）43211

　　D）443211

（24）在窗体上画1个命令按钮，并编写如下事件过程：

　　PrivateSubCommand1_Click（）

　　Dima（3,3）

　　Form=1To3

　　Forn=1To3

　　Ifn=mOrn=4-mThen

　　a（m,n）=m+n

else

a（m,n）=0

　　EndIf

　　Printa（m,n）;

　　Nextn

　　Print

　　Nextm

　　EndSub

（1）m=1

1）n=12）n=23）n=3

a（1,1）=2a（1,2）=0a（1,3）=4

（2）m=2

1）n=12）n=23）n=3

a（2,1）=0a（2,2）=4a（2,3）=0

（3）m=3

1）n=12）n=23）n=3

a（3,1）=4a（3,2）=0a（3,3）=6

　　运行程序，单击命令按钮，窗体上显示的内容为

　　A）200

　　040

　　006

　　B）204

　　040

　　406

　　C）230

　　340

　　006

　　D）200

　　045

　　056

（26）窗体上有1个名称为Text1的文本框；1个名为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。

Timer1的事件过程如下：

　　PrivateSubTimer1_Timer（）

　　StaticflagAsInteger‘flag的默认值是0

　　Ifflag=0Thenflag=1‘flag=1

　　flag=-flag‘flag=-1

　　Ifflag=1Then

　　Text1.ForeColor=&HFF&   ‘&HFF&为红色

　　Else

　　Text1.ForeColor=&HC000& ‘&HC000&为绿色

　　EndIf

　　EndSub

第一次计时时间到，文本框中的文字为绿色flag=-1

第二次计时时间到，文本框中的文字为红色flag=1

第三次计时时间到，文本框中的文字为绿色flag=-1

　　以下叙述正确的是

　　A）每次执行这些事件过程时，flag的初始值为0

　　B）flag的值只可能取0或1

　　C）程序执行后，文本框的文字每5秒改变一次颜色

　　D）程序有逻辑错误，Else分支总也不能被执行

（27）为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：

　　PrivateSubCommand1_Click（）

　　Dima%,s%,k%

　　s=1

　　a=2

　　Fork=2To10

　　a=a*2

　　s=s+a

　　Nextk

　　Text1.Text=s

　　EndSub

　　执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是

　　A）把s=1改为s=0

　　B）把Fork=2To10改为Fork=1To10

　　C）交换语句s=s+a和a=a*2的顺序

　　D）同时进行B）、C）两种修改

（33）窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上（见图）；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。

要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。

　　为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序：

　　PrivateSubTimer1_Timer（）

　　Fork=Line1.X1ToLine2.X1Step100

　　IfShape1.Left+Shape1.Width

　　Shape1.Left=Shape1.Left+100

　　EndIf

　　Nextk

　　EndSub

　　运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。

为得到与题目要求相符的结果，下面修改方案中正确的是

　　A）把设计器的Interval属性设置为1

　　B）把Fork=Line1.X1ToLine2.X1Step100和Nextk两行删除

　　C）把Fork=Line1.X1ToLine2.X1Step100改为Fork=Line2.X1ToLine1.X1Step100

　　D）把IfShape1.Left+Shape1.Width

计时器的Timer事件中，没有必要用for循环来控制次数，因为计时器的Interval属性已经决定了每隔一定的时间自动执行Timer事件。

（35）窗体如图1所示。

要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。

若编写以下程序来实现此功能：

　　PrivateSubCommand1_Click（）

　　Dimn%,k%

　　n=Len（Text1.Text）

　　Fork=0ToList1.ListCount-1

　　IfLeft（List1.List（k）,n）=Text1.TextThen

　　List1.RemoveItemk

　　EndIf

　　Nextk

　　EndSub

　　在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。

这说明程序不能适应所有情况，需要修改。

正确的修改方案是把Fork=0ToList1.ListCount-1改为

　　A）Fork=List1.ListCount-1To0Step-1

　　B）Fork=0ToList1.ListCount

　　C）Fork=1ToList1.ListCount-1

　　D）Fork=1ToList1.ListCount

在列表框中删除某些项目时，应从最后一项开始往前查找符合条件的项，并进行删除，要确保列表框中仍然存在的项的ListIndex值不发生改变。

（7）设有整形变量s，取值范围为0~100，表示学生的成绩。

有如下程序段：

　　Ifs>=90Then

　　Level=”A”

　　ElseIfs>=75Then

　　Level=”B”

　　ElseIfs>=60Then

　　Level=”B”

　　Else

　　Level=”D”

　　EndIf

　　下面用SelectCase结构改写上述程序，使两段程序所实现的功能完全相同。

请填空。

　　SelectCases

　　Case 【9】>=90

　　Level=”A”

　　Case75To89

　　Level=”B”

　　Case60To74

　　Level=”B”

　　Case 【10】

　　Level=”D”

　　【11】　

09.3

（17）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:

Private　Sub　Command1_Click（）

　　c=1234

　　c1=Trim（Str（c））

　　For　i=1　To　4

　　　　　Print　____

　　Next

End　Sub

程序运行后,单击命令按钮，要求在窗体上显示如下内容：

1

12

123

1234

则在横线处应填入的内容为

A）Right（c1,i）

B）Left（c1,i）

C）Mid（c1,i,1）

D）Mid（c1,i,1）

（18）假定有一下程序段

For　i=1　To　3

　　　　For　j=5　To　1　Step　-1

　　　　Print　i*j

Next　j

Next　i

则语句Printi*j的执行次数是

A）15B）16C）17D）18

（19）在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为

　　Command1），然后编写如下事件过程：

Private　Sub　Command1_Click（）

　　x=0

　　Do　While　x<50

　　　　　x=（x+2）*（x+3）

　n=n+1

　　Loop

　　Text1.Text=Str（n）

　　Text2.Text=Str（x）

End　Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为

A）1和0B）2和72C）3和50D）4和168

（20）阅读程序：

Private　Sub　Command1_Click（）

　　a=0

　　For　j=1　To　15

　　　　　　a=a+j　Mod　3

　　Next　j

　　Print　a

End　Sub

程序运行后，单击窗体，输出结果是

A）105B）1C）120D）15 

（22）语句Dima（-3To4,3To6）AsInteger定义的数组的元素个数是

A）18B）28C）21D）32 

（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

（1）i=4

s=0+a（4）*1=4j=10

（2）i=3

s=4+a（3）*10=34j=100

（3）i=2

s=34+a

（2）*100=234j=1000

（4）i=1

s=234+a

（1）*1000=1234j=10000

i=0退出循环，输出1234

程序运行后，单击命令按钮，其输出结果是

A）4321B）1234C）34D）12 

（24）假定通过复制，粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是

A）数组中每个命令按钮的名称（Name属性）均为Command1

B）若未做修改,数组中每个命令按钮的大小都一样

C）数组中各个命令按钮使用同一个Click事件过程

D）数组中每个命令按钮的Index属性值都相同

 （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）0B）1C）2D）3

退出循环时循环变量的值应该超出终值的范围，而不是正好为终值。

（6）窗体如图所示,其中汽车是名称为Image1的图像框，命令按钮的名称Command1,

　　计时器的名称为Timer1,直线的名称为Line1。

程序运行时，单击命令按钮，则

　　汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。

请填空完成下面

　　的属性设置和程序，以便实现上述功能。

1）Timer1的Interval属性的值应事先设置为【6】100

2）PrivateSubCommand1_Click（）

Timer1.Enabled=True

EndSub

3）PrivateSubTimer1_Timer（）

IfImage1.Left>【7】Line1.x1Then

Image1.Left=【8】Image1.Left-100

EndIf

EndSub

 7.上题【7】的答案是

 8.上一题【8】的答案是

 14.本程序实现文本加密。

先给定序列:

a1,a2,...,an,它们的取值范围是1~n,而且互

不相同。

加密算法是:

把原文本中第k个字符放到加密后文本的第a（k）个位置处。

若原文本长度大于n，则只对前面n个字符加密,后面的字符不变；若原文本长度小于n，则在后面补字符"*"使文本长度为n后再加密。

例如：

若给定序列a1,a2,...a7分别为2,5,3,7,6,1,4

　　当文本为“PROGRAM"时，加密后的文本为"APOMRRG"

　　当文本为"THANK"时，加密后的文本为"*TA*HKN"

下面的过程code实现这一算法。

其中参数数组a（）中存放给定序列（个数与数组a的元素

个数相等）a1,a2,a3...的值，要加密的文本放在参数变量mystr中，过程执行完毕，加

密后的文本仍然放在变量mystr中。

请填空。

Option　Base　1

Private　Sub　code（a（）　As　Integer,　mystr　As　String）

　　Dim　ch　As　String,　c1　As　String

　　n　=　UBound（a）　-　Len（mystr）

　　If　n　>　0　Then

　　　　　mystr　=　mystr　&　String$（n,　"*"）

　　End　If

　　ch　=　mystr

　　For　k　=　【14】1　To　UBound（a）

　　　　　c1　=　Mid（mystr,　k,　1）

　　　　　n　=　【15】a（k）

　　　　　Mid（ch,　n）　=　c1

　　Next　k

　　mystr　=　ch

End　Sub

15.上一题【15】的答案是

08.9

21.

窗体上有Command1、Command2两个命令按钮。

现编写以下程序：

　　Option　B