第6章程序控制结构..docVIP

第6章 程序控制结构 6.1 典型考题分析与解答 1．在窗体上有两个文本框和一个命令按钮（Name属性分别为Text1、Text2和Command1），其中任意一个文本框用来输入一个正实数，单击命令按钮后，在另一个文本框输出该数的平方根。下面事件过程中的第一个If/End If结构的作用是：判断如果没有在某一个文本框中输入实数就单击命令按钮，则给出错误信息，然后结束程序的运行。第二个If/End If的作用是：判断在哪一个文本框中输入实数，以便在另一个文本框中输出结果。 Private Sub Command1_ CliCk() If 　[1]　 Then MsgBox(Please Input Data ) Exit Sub End If If 　[2]　 Then Text1.Text=Str(Sqr(Val(Text2.Text))) Else Text2.Text=Str(Sqr(Val(Text1.Text))) End If End Sub 【分析】如果文本框的Text属性值为空，说明在文本框中没有输入数据，所以第一个空应填写语句：Text1.Text= And Text2.Text= 或：Text1= And Text2= 如果文本框的Text属性的长度为0，说明该文本框的Text为空串。从第二个If_Else_End If结构看出，如果条件为真，要将Text2中的内容放入Text1中。这个条件应是第一个文本框为空，所以第二个空应填写语句： Len(Text1.Text)=0。 注意不能写成Len(Text2.Text)=0，这样写虽然没有语法错误，程序运行时也不会出错，但不能实现题目所要求的功能。 【解答】Text1.Text= And Text2.Text= 或：Text1= And Text2= ；Len(Text1.Text)=0 2．下列语句中，语法正确的是　　　　。 A．R^2=9 B．ab = 3 C．a=b3 D．Let a=5，b=10 【分析】本题主要是考核学习者掌握赋值语句的书写格式。 赋值语句的命令动词是Let，Let可以省略，其格式为 [Let]变量名=表达式 赋值语句功能是：先计算表达式的值，然后把表达式的值赋给赋值号左边变量。 选项A错误。赋值号左边是一个算术表达式，不符合赋值语句的格式要求。 选项B错误。赋值号左边是一个关系表达式，不符合赋值语句的格式要求。 选项C正确。赋值号右边是一个关系表达式“b3”，将b3的逻辑值赋给变量a。 选项D错误。一条Let语句只能给一个变量赋值，该语句试图用一个赋值语句给两个变量赋值是错误的。若将该语句改为 Let a = 5 : b = 10 就正确了，实际上是用冒号把它分开而成为两条赋值语句。 【解答】C 3．在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 10 x = 3 For j=1 To 3 x = x + 3 Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是　　　　。 A．9 B．12 C．90 D．93 【分析】本题主要是考核学习者掌握“For语句”的编写。 题目中给出的是一个两层For循环的程序。语句“x=3”要执行10次。语句“x=x+3”要执行30次。但不管外循环执行几次，每开始一个内循环时，x总是被重新赋初值3。所以内循环最后一次执行时，x从初值3开始，执行3次加3的操作，最后x的值是12。 【解答】B 4．下列程序的功能为输出如下的图形。程序不完整，请在　[1]　、　[2]　处填入所需内容。 ******** ******** ******** ******** Private Sub Command1_Click() For i=1 To 4 Print Tab(10+i)； For j=　[1]　 Print * ; 　[2]　 Print Next i End Sub 【分析】本题主要是考核学习者掌握“双重循环结构”语句的编写。 题目中给出这类测试的程序通常有一个双重循环结构，外循环决定打印输出行的数量，内循环决定每行输出的字符和字符个数，通常在Print语句中用一个Tab函数确定每行第一个字符的打印位置。程序的外循环变量i从1增加到4，步长为1，循环4次，因此打印输出4行。内循环的循环变量j，其初值和终值均不知道。我们从各行打印输出的字符均为8个“*”号，而内循环的Print语句每次打印输出1个“*”号，因此可以肯定，内循环的循环次数为8次。如果我们将循环变量j的初值定为1，终值定为8，即可满足本题的要求。我们给出的 【解答】为1 To 8。在进入内循环以前的Pri