




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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("”,3,2)执行后,a变量中的值是( 157 )。4. 赋值语句:a=123 & Mid("”,3,2)执行后,a变量中的值是(”12334” )。5. InputBox函数返回值的类型为
2、( 字符串 )。6. 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a=InputBox(“请输入第一个数”) b=InputBox(“请输入第二个数”) Print b+a End Sob 程序运行后,单击命令按钮,先后在两个输入框中分别输入456和123,则输出结果是( )。 7. 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a as integer, b as integer a=InputBox(“请输入第一个数”) b=InputBox(“请输入第二个数”
3、) Print b+a End Sob 程序运行后,单击命令按钮,先后在两个输入框中分别输入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为未赋值的整型变量,语句if x then Print x else print x+1 执行后的结果是( 1 )。1
4、2. 语句if x=1 then y=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)if x>y then max=x else max=y(C)max=x (D)if y>=x then max=y if y>=x then max=y max=x14. 在Do Until 条件 -Loop循环结构中,正确的描述是( b
5、)。(A)如果“条件”是一个为0的常数,则一次循环体也不执行(B)如果“条件”是一个为0的常数,则至少执行一次循环体(C)如果“条件”是一个不为0的常数,则至少执行一次循环体(D)不论“条件”是否为“真”,至少要执行一次循环体15. 设a=6,则执行x=IIf(a>5,-1,0)后,x的值为( -1 )。 2. .阅读程序段: for i=1 to 3 for j=1 to i for k=j to 3 a=a+1 next k next j next i print a执行此段程序后的结果是:14分析程序的运行结果1.阅读程序段: x=1 y=4 do until y>4 x=x
6、*y y=y+1 loop print x执行此段程序后的结果是:44. 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_click() X=0 Do until x=-1 a=Val(InputBox(“请输入a的值”) b= Val(InputBox(“请输入b的值”) X=Val(InputBox(“请输入X的值”) a=a+b+x LoopPrint aEnd Sub程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果是:23. 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1
7、_click() For i=1 to 4 X=4 For j=1 to 3 X=3 For k=1 to 2 X=x+6 Next k Next j Next i Print xEnd sub程序运行后,单击命令按钮,输出结果是:156. 在窗体上画两个文本框text1、 text2和一个命令按钮command1,然后编写如下事件过程:Private sub command1_click() X=0 Do while x<50 X=(x+2)*(x+3) N=n+1 Loop Text1.text=str(n) Text2.text=str(x)End sub程序运行后,单击命令按钮,
8、在两个文本框中显示的值分别是:2 725. 在窗体上画一个文本框text1,然后编写如下事件过程:Private Sub Form_Load() Text1.text=” Text1.setfocus For i=1 to 10 Sum=Sum+i Next i Text1.text=sumEnd sub程序运行后,在文本框中显示的结果是:557. 阅读程序: Private Sub Form_click() Dim k%,n%,m% n=10 m=1 k=1 Do while k<=n m=m*2 k=k+1 Loop Print m End sub程序运行后,单击窗体,输出结果为:1
9、0248. 阅读程序: Private Sub Form_click() A=0 For i=1 to 2 For j=1 to 4 If j mod 2<>0 then a=a+1 End if a=a+1 Next j Next i Print a End sub程序运行后,单击窗体,输出结果为:1210. 在窗体上一个命令按钮command1,然后编写如下事件过程:private Sub command1_click() dim x as integer, n as integer x=1 : n=0 do while x<20 x=x*3 n=n+1 loop pri
10、nt x, nend sub程序运行时,单击命令按钮,结果为:279. 阅读程序:Private sub form_click() S$=InputBox(“输入一个数据串”) For i=1 to Len(s) If Mid(s,i,1)=”;” then k=k+1 Next i If right(s,1)<>”;” then k=k+1 Print kEnd sub运行程序时,从键盘输入数据串“56;76;4;22;45;65;87”,输出的结果是:711. 阅读程序:Private sub command1_click() X=7 For i=1 to 4 K=val(in
11、putbox(“please input:”) If k mod 5=0 then Y=y+k X=k Else Y=y+x Endif Print y Next iEnd sub程序运行时,从键盘输入2、5、7、10,输出的结果为:312. 阅读程序:Private sub command1_click() s$=inputbox(“请输入一个字符串:”) for i=1 to len(s) t=mid(s,i,1) if t>=”a” and t<=”z” then n=n+1 elseif t>=”A” and t<=”Z” then m=m+1 elseif t
12、>=”0” and t<=”9” then k=k+1 endif next iprint “k=”;k;”m=”,m;”n=”;nend sub程序运行时,从键盘输入字符串”*35Abc46GHks,erw345?/3”,输出的结果为:k=8 m=3 n=713. 阅读程序:private sub command1_click() dim cr as string*2 cr=chr(13)+chr(10) 回车换行字符串 for i=1 to 5 for j=I to 5 s=s & space(1) & “*” next j s=s & cr next
13、i print send sub程序运行时,结果为:14. 阅读程序:private sub command1_click() dim cr as string*2 cr=chr(13)+chr(10) 回车换行字符串 for i=1 to 5 for j=i to 5 s=s & space(1) & “*” next j s=s & cr & space(i) next i print send sub程序运行时,结果为:16. 阅读程序:private sub command1_click() s$=”*abcdef*54*#eee” do i=i+2 l
14、oop until mid(s,I,1)=”*” print I,left(s,i)end sub程序运行时,输出的结果为:14*abcdef*15. 阅读程序:private sub command1_click() a=val(inputbox(“input a:”) b=val(inputbox(“input b:”) x=a*(a+b) if b>a then x=b*(b+a) print xend sub程序运行时,从键盘输入5、4,输出的结果为:17. 阅读程序:private sub command1_click() a$=” b$=”ABCDEFGHIJ” text1=
15、” for i=1 to 5 s$=mid(a$,9-i,1)+mid(b$,i,1) text1=text1+s$ next iend sub程序运行后,文本框text1中的内容是:8a7b*6c5d4e18. 阅读程序:private sub command1_click() a$=” b$=”ABCDEFGHIJ” text1=” for i=1 to 5 s$=mid(a$,9-i,2)+mid(b$,i,1) text1= s$ + text1 next iend sub程序运行后,文本框text1中的内容是:45e56d67c78b89a19. 阅读程序:private sub c
16、ommand1_click() a$=” c=6 d=5 do while d>0 d=val(mid(a,10-i,1) i=i+1 if d>c then c=c+1 loop print c+dend sub程序运行后,输出的结果为:820. 在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:Private Sub Command1_Click() s = 0 For i = 1 To 15 x = 2 * i - 1 If x Mod 3 = 0 Then s = s + 1 Next i Label1.Caption =
17、sEnd Sub程序运行后,单击命令按钮,则标签中显示的内容是 5二、 简答题1. 指出下列赋值语句中的错误(包括运行时产生的错误)。(1)10x=sin(x)+y (2)c=3+sqr(-3) (3)c+x+y=c*y (4)x=sin(x)/(20 mod 2)2. Msgbox作为函数使用时与Inputbox的区别?各自获得的是什么值?3. 语句:IF 表达式 Then 中的表达式可以是算术、字符、关系、逻辑表达式中的哪些?4. 指出下列语句中的错误。(1)If xy Then print x(2)If 10<x<20 Then x=x+20(3)If c>=”A” a
18、nd c<=”Z” Then Print “大写字母” Else If c>=”a” and c<=”z” Then Print “小写字母” End If5. 按照条件,写出相应的条件语句。(1)当C字符变量中第三个字符是”C”时,利用Msgbox显示”yes”,否则显示”No”。(2)利用If语句、Select Case语句两种方法计算分段函数:当x>20当10x20当x<10(3)利用If语句和IIf函数两种方法求三个数x、y、z中的最大值,并将其放入Max变量中。6. 计算下列循环语句的次数:(1)For I=-3 To 20 step 4 (2)For
19、I=-3.5 To 5.5 step 0.5(3)I=-3.5 To 5.5 step -0.5 (4)I=-3 To 20 step 07. 下列3090为语句标号,分别标记该语句,第40句共执行了几次?第50句共执行了几次?第90句语句显示的结果是多少?30 for j=1 to 12 step 340 for k=6 to 2 step -250 mk=k60 print j,k70 next k80 next j90 print j,k,mk8. 如果事先不知道循环次数,如何用For Next结构来实现?9. 利用循环结构,实现如下功能:(1)(2)分别统计1100中,满足3的倍数、7
20、的倍数的数各为多少个?(3)将输入的字符串以反序显示。例如,输入”ASDFGHJKL”,显示”LKJHGFDSA”。10. 下面程序运行后的结果是什么?该程序的功能是什么?(2)Private Sub Command1_Click() Dim x%,y%,z% x=242 y=44 z=x*y Do Until x=y If x>y Then x=x-y else y=y-x Loop Print x,z/xEnd Sub(1)Private Sub Command1_Click() Dim x$,n% n=20 x=” Do While n<>0 n=n mod 2 n=n2 x=chr(48+a) & x Loop Print xEnd Sub 11. 利用随机函数产生20个50100范围内的随机数,显示它们的最大值、最小值和平均值。四、将下列程序补充完整1. 输入任意长度的字符串,要求将字符顺序倒置,例如,将输入的“ABCDEFG”变换成“GFEDCBA”。Private sub command1_click() Dim a$,i%,c$,d$ a=inputbox$(“输入字符串:”) n=( len(a) ) for i= to step -1 c=mid(a,i,1) d= ( c ) print
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 卷1-备战2022年中考生物【名校地市好题必刷】全真模拟卷(全国2024)·第一辑(解析版)
- 安全教育:打雷下雨时怎办
- 金融员工法律知识
- 气体钢瓶安全操作规程
- 家庭住宅木地板安装合同
- 学区房二手房买卖合同模板
- 建筑设计退休设计师聘用协议
- 水电站后勤保障合同
- 美食广场餐饮服务人员培训计划
- 钢筋施工拓展协议
- GB/T 44679-2024叉车禁用与报废技术规范
- 高压真空断路器及成套设备型式试验的项目参数及试验方法
- 连接器领域:立讯精密企业组织架构及部门职责
- 汉语拼音书写纸(打印版).
- 手铐使用技术
- 高一物理必修一课程纲要Word版
- 设备单机试运转记录
- 人教版小学数学三年级下册《年 月 日》的认识-文档资料
- 全风险全流程外包概述
- 培养研究生的一点经验和体会.PPT
- 变电站电气工程质量监理旁站点及旁站监理记录
评论
0/150
提交评论