VB顺序结构及选择结构练习

VB顺序结构及选择结构练习一、单选题1.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程PrivateSubCommand1_Click()b=5c=6Printa=b+cEndSub程序运行后，单击命令按扭，其结果为（D）A）a=11B）a=b+cC）a=D）False2.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程PrivateSubCommand1_Click(D)a=11b=5c=6Printa=b+cEndSub程序运行后，单击命令按扭，其结果为（）A）a=11B）a=b+cC）a=D）True3.以下语句的输出结果是（B）a=Sqr(3)PrintFormat(a,”$$####:###”)A）$1.732B）$$1.732C）$1732D）$$00001.7324.以下程序段的输出结果是（D）a=Sqr(3)b=Sqr(2)c=abPrintcA）-1B）0C）FalseD）True5.以下语句的输出结果是（C）PrintFormat$(32548.5,”000,000.00”)A）32548.5B）32,548.5C）032,548.50D）32,548.501.假定有如下语句：answer$=MsgBox(“String1”,,“String2”,“String3”,2)执行该语句后，将显示1个信息框，此时如果单击“确定”按扭，则answer$的值为（D）A）String1B）String2C）String3D）12.InputBox函数返回值的类型为（B）A）数值B）字符串C）变体D）数值或字符串（视输入的数据而定）3.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程。PrivateSubCommand1_Click()a=InputBox(“EntertheFirstinteger”)b=InputBox(“EntertheSecondinteger”)Printb+aEndSub程序运行后，单击命令按扭，先后在2个输入对话框中输入456和123，则输出结果是（D）A）579B）123C）456123D）1234564.执行下面的语句后，所产生的信息框的标题是（A）a=MsgBox(“AAAA”，，”BBBB”,””,5)A）BBBBB）空C）AAAAD）出错，不能产生信息框5.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程PriveteSubCommand1_Click()MsgBoxStr(123+321)EndSub程序运行后，单击命令按扭，则在信息框中显示的提示信息为（B）A）123+321B）字符串”444”C）数值444D）空白6.MsgBox函数的反回值的类型为（A）A）整型(Integer)B）字符串C）变体D）整数或字符串（视选择的按扭而定）1.假定有如下语句：st$=InputBox(“请输入一串字符”,“输入对话框”,“请输入字符串”)当用户输入完毕，按“确定”按扭后，st$变量的内容是（）A）请输入一串字符B）字符串对话框C）请输入字符串D）用户输入内容1.假定有如下语句：PrivateSubForm_Click()Dima,b,xAsIntegera=InputBox(“a=?”)b=InputBox(“b=?”)x=a+bIfabThenx=a-bPrintxEndSub运行时从键盘输入3和4，输入x的值是（C）A）3B）5C）7D）92.假定有如下语句：PrivateSubForm_Click()b=1:a=2PrintIIf(a=b,a,b)EndSub运行后输出的结果是（C）A）0B）1C）2D）33.假定有如下语句：PrivateSubForm_Click()s=Val(InputBox(“InputValueofs:”))SelectCasesCaseIs6f=s+1CaseIs5f=s+2CaseIs4f=s+3CaseElsef=s+4EndSelectPrints;fEndSub运行时从键盘输入6，输出结果是（D）A）67B）68C）69D）6104.假定有如下语句：PrivateSubForm_Click()score=Int(Rnd*10)+80SelectCasescoreCaseIs60a$=“F”Case60To69a$=“D”Case70To79a$=“C”Case80To89a$=“B”CaseElsea$=“A”EndSelectPrinta$EndSub运行时输出的结果是（B）A）AB）BC）CD）D5.假定有如下语句PrivateSubForm_Click()a=Val(InputBox(“请输入a”))b=Val(InputBox(“请输入b”))x=a*a+bIfbaThenx=b*b+aPrintxEndSub运行时从键盘输入3和4，输出X的值是（C）A）12B）13C）19D）206.假定有如下语句PrivateSubForm_Click()K=2IfK=1ThenA=3IfK=2ThenA=2IfK=3ThenA=1PrintAEndSub运行时，输出的结果是（B）A）1B）2C）3D）出错7.假定有如下语句PrivateSubForm_Click()k=Val(InputBox(“请输入一个数”))Ifk=0ThenAbc=4:GoToaIfk=1ThenAbc=3:GoToaIfk=2ThenAbc=2:GoToaIfk=3ThenAbc=1a:Printk;AbcEndSub运行时输入3，输出的结果是（A）A）31B）343C）3432D）343218.设有函数r=1x02x=0则下列能正确计算该函数值的语句是（D）A）Ifx0Thenr=1ElseIfx=0Thenr=2EndIfB）Ifx0Thenr=1ElseIfx=0Thenr=2Elser=1EndIfC）Print(IIf(x0,1,2))D）r=IIf(x0,1,2)二、简答(填空)题1.假设有如下程序，程序运行后，单击窗体输出结果是（032，548.60）PrivateSubForm_Click()a=32548.56PrintFormat(Int((a*10+0.5))/10,”000,000.00”)EndSub2.以下程序段的功能是（对变量X四舍五入后取整）x=8.6y=Int(x+0.5)Printy3.假设有如下程序，程序运行后，单击窗体输出结果是（4）PrivateSubForm_Click()a=25Mod(1-2^3)PrintaEndSub4.以下语句的输出结果是（Beijing）s$=”China”s$=”Beijing”Prints$5.以下语句的输出结果是(3)a%=3.14156Printa%6.设a=Sqr(2)*Sqr(3)，下列语句的输出结果分别是PrintFormat$(a,”000.00”)输出结果：002.45PrintFormat$(a,”###.#00”)输出结果：2.449PrintFormat$(a,”00.00E+00”)输出结果：24.49E-01PrintFormat$(a,”-#.####”)输出结果：-2.4495三、编程题1.编写打印下面三角形图案的源程序（书上55页4题）*************************程序代码：PrivateSubForm_Click()Form1.PrintTab(15);*Form1.PrintTab(14);***Form1.PrintTab(13);*****Form1.PrintTab(12);*******Form1.PrintTab(11);*********EndSubPrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print显示星号三角形,单击窗体开始EndSub2.设a=5,b=2.5,c=7.8，编程序计算y=πab/a+b*c程序代码：PrivateSubForm_Click()a=5:b=2.5:c=7.8y=(3.1416*a*b)/(a+b*c)Print“y=”;yEndSub1.编写求以10为底，求10000的对数值的源程序。PrivateSubForm_Click()Form1.PrintLog(10000)/Log(10)EndSubPrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print计算以10为底，10000的对数Form1.Print单击窗体开始EndSub2.编写求任意数的平方根的源程序，数由键盘输入。PrivateSubForm_Click()x=Val(InputBox$(输入数据))Form1.Print输入数据为;xForm1.Print平方根为;Sqr(x)EndSubPrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print求任意数的平方根Form1.Print单击窗体开始EndSub3.求任意半径和高的圆柱的表面积。PrivateSubCommand1_Click()r=Text1.Texth=Text2.Texts=2*3.14159*r*h+2*3.14159*r*rText3.Text=sEndSub4.编写程序，在文本框中输入英文字符，单击“大写”按钮把英文字符转换为大写，单击“小写”按钮把英文字符转换为小写。PrivateSubCommand1_Click()Text1.Text=UCase$(Text1.Text)EndSubPrivateSubCommand2_Click()Text1.Text=LCase$(Text1.Text)EndSub5.从键盘上输入小时，分和秒，把它转换为秒并输出。PrivateSubForm_Click()H=InputBox(请输入小时,小时)H=Val(H)M=InputBox(请输入分,分)M=Val(M)S=InputBox(请输入秒,秒)S=Val(S)Num=S+M*60+H*60*60PrintH;小时;M;分;S;秒=;Num;秒EndSub1.给定三角形的三条边长，计算三角形的面积。编写程序，首先判断给出的三角形能否构成三角形，如果可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。解：从几何学可知，三角形的两边之和大于第三边。因此，如果输入的三角形三边中两边之和小于或等于另一边长，则不能构成三角形。在这种情况下，给出适当的信息，并要求重新输入。如果能构成三角形，则输出该三角形的面积。代码：PrivateSubForm_Click()Dima,b,c,s,tAsSingleStart:a=InputBox(“请输入A边的边长”)a=Val(a)Ifa=-1ThenEndb=InputBox(“请输入B边的边长”)b=Val(b)c=InputBox(“请输入C边的边长”)c=Val(c)Ifa+b=cOrb+c=aOrc+a=bThenMsgBox“所输入的值不能构成三角形，请重新输入”GoToStartEndIfs=(a+b+c)/2t=Sqr(s*(s-a)*(s-b)*(s-c))Print“三角形的面积为：”;tEndSub2.税务部门征收所得税，规定如下（1）收入在200元以内，免征；（2）收入在200~400元内，超过200元的部分征收税3%；（3）收入超过400元的部分，纳税4%；（4）当收入达到5000元或超过时，将4%税金改为5%；代码：PrivateSubForm_Click()r=InputBox(“请输入您的收入”)r=Val(r)Ifr=200Thentax=0ElseIfr200Andr=400ThenTax=(r-200)*0.03ElseIfr400Andr=5000ThenTax