习题_项目二三大结构

项目二习题一．选择题：1．MsgBox函数中有4个参数，其中必须写明的参数是_________.A．指定对话框中显示按钮的数目B．设置对话框标题C．所有参数都是可选的D．提示信息2．语句X=X+1的正确含义是__________。A．变量X的值与X+1的值相等B．将变量X的值存到X+1中去C．将变量X的值加1后赋给变量XD．变量X的值为13．以下________程序段可以实现X、Y变量值的交换。A．Y=X：X=YB．Z=X：Y=Z：X=YC．Z=X：X=Y：Y=ZD．Z=X：W=Y：Y=Z：X=Y4．InputBox函数返回的函数值的类型是_________。A．数值B．字符串C．根据需要可以是任何类型数据D．数值或字符串5．下列语句中正确的是___________。(多选)A．x+y=5B．N=15C．label1.Text=”time”D．A=x+y6．对于InputBox函数，下列说法正确的是___________。(多选)A．每执行一次InputBox函数，只能输入一个值B．InputBox函数的Prompt参数不能默认C．InputBox函数输入的是数值型D．函数值必须赋予一个变量7．下列语句和函数调用正确的是_____________。(多选)A．MsgBox(“是否继续”)B．X=MsgBox(“是否继续”)C．InputBox(“请输入数据”)=XD．X=InputBox(“请输入数据”)8．执行以下语句后显示结果为______。DimxIfxThenLabel1.Text=xElseLabel1.Text=x+1A．-1B．0C．1D．不确定9．多分支结构的Case语句，下列写法错误的是_______。A．Case1,5,7,9B．Case8To10C．Case10To2D．CaseIs”man”10．语句Ifx=1Theny=1，下列说法正确的是_________。A．x=1和y=1均为赋值语句B．x=1和y=1均为关系表达式C．x=1为关系表达式，y=1为赋值语句D．x=1为赋值语句，y=1为关系表达式11．下面语句正确的是__________。A．Ifx3*yAndxyTheny=x^3B．Ifx3*yAndxyTheny=x3C．Ifx3*y:xyTheny=x^3D．Ifx3*yAndxyTheny=x**312．下列语句不正确的是_______________。（多选）A．Ifx≠yThenLabel1.Text=“x不等于y”B．IfxyThenLabel1.Text=“x不等于y”C．IfxyThenLabel1.Text=“x不等于y”D．ifx≠yLabel1.Text=“x不等于y”13．下面程序段求两个数中大数，______________是正确的。（多选）A．Max=IIf(xy,x,y)B．IfxythenMax=xElseMax=yC．Max=xIfy=xThenMax=yD．Ify=xThenMax=yMax=x14．下列程序段正确的是：___________。（多选）A．Ifmark=90ThenLabel1.Text=优ElseIfmark=80ThenLabel1.Text=良ElseIfmark=70ThenLabel1.Text=中ElseIfmark=60ThenLabel1.Text=及格ElseLabel1.Text=不及格EndIfB．Ifmark60ThenLabel1.Text=不及格ElseIfmark70ThenLabel1.Text=及格ElseIfmark80ThenLabel1.Text=中ElseIfmark90ThenLabel1.Text=良ElseLabel1.Text=优EndIfC．Ifmark=60ThenLabel1.Text=及格ElseIfmark=70ThenLabel1.Text=中ElseIfmark=80ThenLabel1.Text=t良ElseIfmark=90ThenLabel1.Text=优ElseLabel1.Text=不及格EndIfD．SelectCasemarkCaseIs=90Label1.Text=优CaseIs=80Label1.Text=良CaseIs=70Label1.Text=中CaseIs=60Label1.Text=及格CaseElseLabel1.Text=不及格EndSelect15．For-Next循环的初值、终值与步长__________。A．只能是具体的数值B．只能是表达式C．可以是数值表达式D．可以是任何类型的表达式16．执行下面的程序段后，n的值为__________。Forn=1To20IfnMod30Thenm=m+n\3NextnLabel1.Text=nA．15B．18C．21D．2417．For-Next循环结构中，若循环控制变量的步长为0，则________.A．形成无限循环B．循环体执行一次后结束循环C．语法错误D．循环提不执行即结束循环18．下列循环语句能正常结束循环的是____________。A．i=5Doi=i+1LoopUntili0B．i=1Doi=i+2LoopUntili=10C．i=10Doi=i-1LoopUntili0D．i=6Doi=i-2LoopUntili=119．对于循环结构（多选）Do循环体LoopWhile条件则以下叙述中正确的是__________。A．若“条件”是一个为0的常数，则一次也不执行循环体B．“条件”可以是关系表达式、逻辑表达式或常数C．循环体中可以使用ExitDo语句D．如果“条件”总是为True，则不停地执行循环体20．以下____________不是正确的For-Next循环结构。（多选）A．Forx=1ToStep10…NextxB．Forx=3To-3Step-3…NextxC．Forx=1To10Re:…NextxIfi=10ThengotoReD．Forx=3To10Step3…Nexty21．下面哪几个程序段能分别正确显示1！、2！、3！、4！的值__________。（多选）A．Fori=1To4n=1Forj=1Toin=n*jNextjLabel1.Text=nNextiB．Fori=1To4Forj=1Toin=1n=n*jNextjLabel1.Text=nNextiC．n=1Forj=1To4n=n*jLabel1.Text=nNextjD．n=1j=1DoWhilej=4n=n*jLabel1.Text=nj=j+1Loop二．程序填空：1．根据下图，在空格处填入适当的内容：MsgBox(____①______,48,____②_____)2．以下程序的功能是：输入一个3位正整数，将之逆序输出。例如，输入345，则输出543。请在空格处填入适当的内容，构成完整程序。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima%,b%,c%,m%m=InputBox(请输入一个正整数：)a=___________①__________m\100b=______________②______________(m\10)-10*ac=mMod10MsgBox结果=+_________________③__________________Str(100*c+10*b+c)EndSub3．以下程序的功能是：在窗体中每次单击窗体时，窗体均向右移动100缇。请在空格处填入适当的内容，构成完整程序。PublicClassForm1Dimx!PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clickx=x+______①______Me._______②________=xEndSubEndClass4．下列程序用于检查在文本框中输入的表达式中的圆括号是否匹配，请在空格处填入适当的内容，构成完整程序。Dimnum%PrivateSubTextBox1_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesTextBox1.KeyPressIf________①_____________Thenchr(asc(e.keychar))=”)”num=num+1ElseIf__________②___________Thennum=num-1EndIfIfAsc(e.KeyChar)=13ThenIf_______③________Thennum=0Label1.Text=左右括号配对ElseIf_______④________ThenLabel1.Text=左括号多于右括号&num&个ElseLabel1.Text=右括号多于左括号&-num&个EndIfEndIfEndSub5．下面是一模拟袖珍计算器的程序，输出界面如下图所示。请在空格处填入适当的内容，构成完整程序。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimsInput1AsSingle,sInput2AsSingleDimiErrorAsIntegersInput1=Val(TextBox1.Text)sInput2=Val(TextBox2.Text)SelectCase__________①__________textbox3.textCase+TextBox4.Text=Str(sInput1+sInput2)Case-TextBox4.Text=Str(sInput1-sInput2)Case*TextBox4.Text=Str(sInput1*sInput2)Case/IfsInput20ThenTextBox4.Text=Str(sInput1/sInput2)ElseiError=MsgBox(分母为零,出错,vbRetryCancel)IfiError=vbRetryThenTextBox2.Text=_________②____________textbox2.focusElseEndEndIfEndIfCaseElseiError=MsgBox(运算符出错,再输入,vbRetryCancel)IfiError=vbRetryThenTextBox3.Text=TextBox3.Focus()ElseEndEndIfEndSelectEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSub6．输入一个大于0且小于1000的整数，并判断其是否为同构数（所谓同构数，是指此数的平方数的最后几位与该数相等）。例如，252为625，25是同构数，请在空格处填入适当的内容，构成完整程序。PrivateSubForm_Click()Dima!,b!a=Val(InputBox(输入一个数))b=a*aIf___________①____________Thenbmod10=aorbmod100=aorbmod1000=aMsgBoxStr(a)&是同构数ElseMsgBoxStr(a)&不是同构数EndIfEndSub7．编写加密程序。在TextBox1中，将输入字符串中的所有小写字母转换为大写字母，同时按如下规律加密：“A”转换为“C”、“B”转换为