VB教程第7章课堂讨论.

主页第7章习题讨论退出单选题多选题(无)填空题编程题主页补充1.假设已通过下列Sub语句定义了SubA过程。若要调用该过程，可以采用______语句。SubSubA(xAsInteger）A.PrintSubA(20)B.CallSubA(50000)C.y=SubA(700)D.SubA32000答案：D单选题主页2．下面程序运行的结果是PrivateSubForm_Load()ShowDimxAsInteger,x1AsIntegerx=5:x1=4CallKtest(x,x1)Printx;x1;CallKtest(x,x1)Printx;x1EndSubSubKtest(ByValtAsInteger,t1AsInteger)t=t+5t1=t1+t*2EndSubA.10142539B.524445C.524544D.10241544答案：C主页在窗体上已经建立了一个文本框Text1和一个命令按钮(Command1)，运行程序后单击命令按钮，则在文本框Text1中显示的内容是DimaAsInteger'模块级变量PrivateSubCommand1_Click()DimbAsInteger,cAsIntegera=2:b=-1CallMySub(b,c)c=c+b:CallMySub(c,b)a=a+cText1.Text=a+b+cEndSubSubMySub(ByValx,y)DimbAsIntegera=x+a+bx=2*a+xy=x+1EndSub答案：10填空补充题填空补充题主页1.设计一个能检查是否为数字字符串的通用过程，调用该过程检验三个文本框中输入的字符是否都是数字。如果都是数字，则求这三个数字之和并把结果显示在第4个文本框中。编程第1题编程及上机调试第1题主页PrivateSubCommand1_Click()DimaAsString,bAsString,cAsStringa=Trim(Text1.Text)b=Trim(Text2.Text)c=Trim(Text3.Text)Ifche(a)Andche(b)Andche(c)ThenText4.Text=Val(a)+Val(b)+Val(c)ElseText4.Text=存在非数字字符EndIfEndSubFunctionche(xAsString)AsBooleanche=TrueFork=1ToLen(x)s=Mid(x,k,1)Ifs0Ors9Thenche=FalseExitForEndIfNextkEndFunction主页2.编写一个标准模块，该模块包含一个能比较3个数大小和送回大数的Sub过程。调用该过程来求6个数的最大数。利用文本框控件数组和文本框来分别输入数据和输出最大数。编程及上机调试第2题主页PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=Val(Text4.Text)e=Val(Text5.Text)f=Val(Text6.Text)Callmax(a,b,c,m)Callmax(m,d,e,m)Callmax(m,f,f,m)Text7.Text=mEndSub'标准模块文件Submax(x,y,z,m)'比较三个数大小并返回大数IfxyThenm=xElsem=yIfmzThenm=zEndSub主页编写程序时一定要考虑到程序的优化问题.衡量程序优化的基本标准是采用好的算法、结构合理、简明易读、运行时间短和占用内存空间少。下面给出一个求解某个问题的程序，但运行时间比较长，请读者修改程序，并求出正确的答案。把324表示为3个加数之和,使第一个加数能被23整除,第二个加数能被19整除,第三个加数能被43整除,求出这3个加数等于多少?编程及上机调试主页PrivateSubForm_Load()showFora=1to324Forb=1to324Forc=1to324if(aMod23=0)And(bMod19=0)And(cMod43=0)_And(a+b+c=324)ThenPrint“这三个加数是：”;a,b,cEndifNextc,b,aEndSub主页PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i)NextPrintsEndSub程序运行后，单击命令按钮，在窗体上显示的是A)6B)7C)8D)9答案：B单选题（29）在窗体上画出一个名称为command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：主页(34)在窗体上画一个名称为command1的命令按钮，然后编写如下程序：DimswAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX20ThenY=XElseY=20+XEndIffunc=YEndFunction单选题主页PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)sw=FalseEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)sw=TrueEndSubPrivateSubCommand1_Click()DimintnumAsIntegerintnum=InputBox()IfswThenPrintfunc(intnum)EndIfEndSub程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为A)输出0B)输出25C)输出45D)无任何输出答案：D单选题主页PublicSubfun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextiEndSub在窗体上画一个名称为text1的文本框和一个名为command1的命令按钮。然后编写如下的事件过程：PrivateSubCommand1_Click()Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=i+1Nextfunarr,nText1.Text=Str(n)EndSub程序运行后，单击命令按钮，则在文本框中显示的内容是A)30B）25C)20D)15答案：C单选题（35）设有如下通用过程主页(11)在名称为form1的窗体上画一个文本框，其名称为text1,在属性窗口中把该文本框的multiline属性设置为true，然后编写如下的事件过程：PrivateSubForm_Click()Opend:\text\smtext1.txtForInputAs#1DoWhileNot______LineInput#1,aspect$whole$=shole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close#1Opend:\test\smtext2.txtForOutputAs#1Print#1,_______Close#1EndSub上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。答案：eof(1)Whole$填空题主页PrivateSubForm_Load()ShowFori=1To11PrintTab(20-i);Forj=1Toi-1IfjiThenk=jElsek=2*iEndIfIfk9Theni=kPrintChr(k+47);NextiNextjEndSub