搜索
本文由goodlak贡献．1填空题1．设变量r表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为（s=3.14159*r*r）。2．给命令按钮Command2的Caption属性赋予字符串“退出”使用的赋值语句为（Command2.Caption=＂退出＂）。3．为了求n的阶乘，要求用户输入n的值。程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（n=val（InputBox（＂请输入一个求阶乘的数：＂，＂求数的阶乘＂））。４．如果使用MsgBox对话框显示提示信息“退出本系统？”，并显示“是（Yes）”和“否（No）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”，则调用MsgBox函数的形式为（MsgBox（＂退出本系统?＂，4+32+0，＂提示信息＂））。５．如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！”号和标题“文件查找”，则使用的MsgBox语句为（MsgBox＂文件未找到＂，0+48+0，＂文件查找＂）。６．要在当前窗体Form和立即窗口输出字符串“VisualBASIC6.0”使用的Print方法分别是(Print“VisualBASIC6.0”)和(Debug.Print“VisualBASIC6.0”)。７．使用Print方法时，若用逗号分隔，则按(标准)格式输出各表达式的值，若用分号分隔，则按(紧凑)格式输出各表达式的值。８．注释语句是一个（非执行）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。９．判别变量i是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句为（IfiMod2=0Thenprintx）。10．判别变量x是否大于0，若大于0，则累加到变量s1中，否则，累加到变量s2中，使用的单行结构条件语句为（Ifx0Thens1=s1+xElses2=s2+x）。2x+1x0y=0x=02x−1x011．给定分段函数，求y的值，使用的单行结构条件语句为Ifx0Theny=2*x+1ElseIfx=0Theny=0Elsey=2*x-1）。12．判别a是否等于b，若a=b，则输出字符串“aisequaltob”的块结构条件语句为（）。答案：Ifa=bThenPrint“aisequaltob”End（13．判别ch是否为小写字母，若是，输出“yes”；否则，输出“No”的块结构条件语句为（）。答案：IfAsc(ch)=97AndAsc(ch)=122ThenPrint“Yes”ElsePrint“No”EndIf14．若一个case子句中的表达式表由逗号分隔的若干个常数组成，则它的含义是：当测试表达式的值等于（这些常数中的某一个）时，执行该case子句相应的程序块。15．若case子句中的表达式表列具有形式：表达式1To表达式2，则它的含义是：当测试表达式的值等于（这个范围内的值）时，执行该case子句相应的程序块。16．若case子句中的表达式表列具有形式：关系运算符表达式，Is则它的含义是：当测试表达式的值满足（Is后的关系）时，执行该case子句相应的程序块。17．在循环语句中，反复执行的程序段称为（循环体）进入循环体的条件称为；（循环条件）；中止循环体执行的条件称为（结束循环条件）。3．2选择题１．下列赋值语句中，(d)是正确的。ａ)x！＝＂abc＂a)t=b:b=a:a=tc)t=a:a=b:b=tb)a％＝＂10e＂c)x＋１＝５d)s＄＝1002．下列选项中，(d)不能交换变量a和b的值。b)a=a+b:b=a-b:a=a-bd)a=b:b=a3．若在消息框MsgBox中显示“确定(Ok)”和“取消(Cancel)”两个按钮，则buttons参数的设置值是(b)。a)0a)0a)1a)c)b)1b)256b)2c)3b)d)c)2c)512d)4IfxThent=t*xIfx0Theny=2*x-1:PrintxEndIfd)34．若在消息框MsgBox中选择第二个按钮为默认值，则buttons参数的设置值是(bd)768)。5．若单击了“终止（Abort）”按钮，则MsgBox函数的返回值是（c）。6．以下不正确的单行结构条件语句是（d）。IfxyThenPrint“xy”IfxMod3=2Then?x7．给定程序段DimaAsInteger,bAsInteger,cAsIntegera=1：b=2：c=3Ifa=c-bThenPrint#####ElsePrint*****b)有语法错d)输出*****Thenmax=aThenmax=bmax=aElsemax=bEndIf以上程序（c）。a)没有输出c)输出#####a)b)IfIfabab8．把a,b之中的最大值存放于max，下面语句书写正确的是（d）。ElseEndIfc)Ifabmax=aElsemax=bd)IfabThenThenmax=aElsemax=bEndIf9.下列Case语句中正确的是（c）。a)SelectCasexCase1Or3Or5y=x*x-1CaseIs10y=x+1EndSelectb)SelectCasexCase1,3,5y=2*x-1CaseIsx=1Y=2*x+1EndSelectc)SelectCasexCaseIs=0y=x-1CaseIs0y=Sqr(x)+1EndSelectd)SelectCasexCasex=1Andx=5y=x-1CaseIs10y=x*x+1EndSelect10．执行下列程序段后屏幕上（c）。i%=10:Sum=0Whilei1Sum=Sum+ii=i-1WendPrintSuma)无显示b)显示10c)显示54d)显示5511．执行下列程序段输出结果是（c）。x%=2Dowhilex8Print“*”；x=x+2Loopa)*b)**c)***d)****12．设有程序段Dimk%k=5Dountilk=0k=k-1Loop则下面对循环语句描述正确的是（c）。a)循环体1次也不执行b)循环体执行1次c)循环体执行5次d)循环体执行无限次13．下面描述中错误的是（a,c）。a)执行Dountil条件…loop语句中，当循环条件为false时，结束循环体的执行。b)执行While条件…Wend语句时，循环体可能一次也不执行。c)Do…loopWhile条件语句的循环体可能一次也不执行。d)执行Do…loopUntil条件语句中，当循环条件为true时，结束循环体的执行。14．下面程序段中循环语句的循环次数是（b）。Forx=10To1Step-3PrintxNextxa)0b)4b)4c)5c)5d)1015．执行语句Fora)3i=1to3:i=i+1:Nexti后变量i的值是（cd)6）。16．下面程序段执行后输出结果是（b）。Fori=1To2s=1Forj=0Toi-1s=s+s*jNextjPrints,Nextia)11b)12c)21d)223．3阅读下列程序，写出执行结果1.PrivateSubForm_ClickPrint–2*3/2,“Visual”&“BASIC”，Not53，0.75Print–2*3/2;“Visual”&“BASIC”;x=12.34Print“x=”；PrintxEndSubNot53;0.75答案：-3-3x=12.34VisualBASICVisualBASICFalse.75False.752．PrivateSubForm_ClickPrintTab(10);-100;Tab(20);200;Tab(30);-300PrintSpc(10);-100;Spc(10);200;Spc(10);-300EndSub答案：-100-1003．x=12.35200200-300-300PrivateSubForm_ClickPrintFormat(x,”###.##”)PrintFormat(x,”##.##”)PrintFormat(x,”000.00”)PrintFormat(x,”00.0”)PrintFormat(x,”0.00%”)PrintFormat(x,”$##.##”)PrintFormat(x,”+##.##”)PrintFormat(x,”00.00E+00”)EndSub答案：12．3512．35012．3512．41235．00%$12.35+12.3512.35e+004．PrivateSubCommand1_Click()Dima%,b%,c%,s%,w%,t%a=-1:b=3:c=3s=0:w=0:t=0Ifc0Thens=a+bIfa=0ThenIfc=0Thenw=a-bEndIfElseIfc0Thenw=a-bElset=cEndIfc=a+bPrinta,b,cPrints,w,tEndSub答案：5．-123020PrivateSubCommand1_Click()Dimx%,y%x=InputBox(请输入x的值：)SelectCasexCase1,3,5y=x-1Case6To10y=x+1Case2,4y=2*xCaseIs10y=x*x+1EndSelectPrintx=;x,y=;yEndSub（x的输入值为2.5、8、4和15）答案：x=2x=8x=4x=15y=4y=9y=8y=2266．PrivateSubCommand1_Click()Dimi%,t!t=1:i=1Whilei10t=t*ii=i+2WendPrintt=;tEndSub答案：t=9457．PrivateSubCommand1_Click()Dimi%,x%,y%x=1:y=1:i=1DoUntili8IfiMod2=1Thenx=x*iElsey=y*iEndIfi=i+1LoopPrintx=;x,y=;yEndSub答案：x=105Dimp%,s%p=1:s=1Doy=3848．PrivateSubCommand1_Click()p=p+2:s=s+pLoopWhilep10Prints=;sEndSub答案：s=369．PrivateSubCommand1_Click()Dimm%,n%Form=1to3n=0Whilen=m-1Printm,nn=n+1WendNextmEndSub答案:1223330010123．4编程题1.输入一个学生成绩，若成绩在85分以上，则输出“verygood”；若成绩在60分到80分之间，则输出“good”；若成绩低于60分，则输出“nogood”。解答：(1)界面设计和属性设置在窗体上建立两个标签、两个文本框和两个命令按钮。窗体和窗体上控件的主要属性设置如表3-3-1所示。表3-3-1控件名称Form1Label1Label2Text1Text2Command1Command2第1题的属性设置属性值根据分数给定评语分数评语空串空串开始结束属性名CaptionCaptionCaptionTextTextCaptionCaption(2)程序代码PrivateSubCommand1_Click()Dimscore!score=Val(Text1.Text)Ifscore=85ThenText2.Text=Verygood!ElseIfscore=60ThenText2.Text=Good!ElseText2.Text=Nogood!EndIfEndSubPrivateSubCommand2_Click()EndEndSub(3)运行情况运行程序后，屏幕出现用户界面。把鼠标移到Text1文本框并单击，输入分数。然后，单击“开始”命令按钮，系统执行Command1_Cli