vb习题基本的控制结构

《vb习题基本的控制结构》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第四章基本的控制结构习题一、选择题1.下面正确的赋值语句是（c）。（A）x+y=30（B）y=π*r*r（C）y=x+30（D）3y=x2.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是（a）。（A）x=1:y=1:z=1（B）x=1,y=1,z=1（C）x=y=z=1（D）xyz=13.赋值语句：a=123+Mid（"123456”,3,2）执行后，a变量中的值是（157）。4.赋值语句：a=123&Mid（"123456”,3,2）执行后，a变量中的值是（”12334”）。5.InputB

2、ox函数返回值的类型为（字符串）。6.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()a=InputBox(“请输入第一个数”)b=InputBox(“请输入第二个数”)Printb+aEndSob程序运行后，单击命令按钮，先后在两个输入框中分别输入456和123，则输出结果是（123546）。7.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dimaasinteger,basintegera=Inp

3、utBox(“请输入第一个数”)b=InputBox(“请输入第二个数”)Printb+aEndSob程序运行后，单击命令按钮，先后在两个输入框中分别输入456和123，则输出结果是（579）。8.设a=10,b=20，则不能实现变量a,b交换的是（a）。（A）c:=a:b:=a:a:=c（B）c:=a:a:=b:b:=c（C）c:=b:b:=a:a:=c（D）c:=a:d:=b:b:=c:a:=d9.VB提供了结构化程序设计的三种基本结构是选择结构、循环结构、顺序结构11.设x为未赋值的整型变量，语

4、句ifxthenPrintxelseprintx+1执行后的结果是（1）。12.语句ifx=1theny=1，下列说法正确的是（c）。（A）x=1和y=1均为赋值语句（B）x=1和y=1均为关系表达式（C）x=1为关系表达式，y=1为赋值语句（D）x=1为赋值语句，y=1为关系表达式13.下面程序段求两个数中的大数，（b）不正确。（A）max=iif(x>y,x,y)（B）ifx>ythenmax=xelsemax=y（C）max=x（D）ify>=xthenmax=yify>=xthenmax=ym

5、ax=x14.在DoUntil条件------Loop循环结构中，正确的描述是（b）。（A）如果“条件”是一个为0的常数，则一次循环体也不执行（B）如果“条件”是一个为0的常数，则至少执行一次循环体（C）如果“条件”是一个不为0的常数，则至少执行一次循环体（D）不论“条件”是否为“真”，至少要执行一次循环体15.设a=6，则执行x=IIf（a>5，-1，0）后，x的值为（-1）。2..阅读程序段：fori=1to3forj=1toifork=jto3a=a+1nextknextjnextiprinta

6、执行此段程序后的结果是：14分析程序的运行结果1.阅读程序段：x=1y=4dountily>4x=x*yy=y+1loopprintx执行此段程序后的结果是：44.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_click()X=0Dountilx=-1a=Val(InputBox(“请输入a的值”))b=Val(InputBox(“请输入b的值”))X=Val(InputBox(“请输入X的值”))a=a+b+xLoopPrintaEndSub程序运行后，单击命令

7、按钮,依次在输入对话框中输入5、4、3、2、1、-1，则输出结果是：23.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_click()Fori=1to4X=4Forj=1to3X=3Fork=1to2X=x+6NextkNextjNextiPrintxEndsub程序运行后，单击命令按钮，输出结果是：156.在窗体上画两个文本框text1、text2和一个命令按钮command1，然后编写如下事件过程：Privatesubcommand1_click()X=0Do

8、whilex<50X=(x+2)*(x+3)N=n+1LoopText1.text=str(n)Text2.text=str(x)Endsub程序运行后，单击命令按钮，在两个文本框中显示的值分别是：2725.在窗体上画一个文本框text1，然后编写如下事件过程：PrivateSubForm_Load()Text1.text=””Text1.setfocusFori=1to10Sum=Sum+iNextiText1.text=sumEndsub程序运行后，