版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、控制结构A) 0B) 1 C) ”D) False、选择题4 .设 a=6,则执行 x=llf(a>5,-1,0) 后,x的值为1.VB的3种结构化程序设计的 3种基本结构A) 5 B) 6 C) 0 D) - 15.下面程序段的运行结果是A)选择结构、过程结构、顺序结构cj=85B)递归结构、选择结构、顺序结构If cj>90 The n dj="A"C)过程结构、转向结构、递归结构If cj>80 The n dj="B"D)选择结构、顺序结构、循环结构If cj>70 The n dj="C"2.用If句
2、表示分段函If cj>60 The n dj="D"If cj<60 The n dj="E"fx3 -1fr+iX >1,以下X c1Prin t "dj="dj示方法不正确。A) f=xA3+1A) dj=B B) dj=C C) dj=D D) dj=EIf x>=1 The n f=s3-16 .下列语句正确的是B) If x>=1 The n f=x3-1A) If K<3*N And k>N The n N=k3If x<1 The n f=x3+1B) If K<3*
3、N And k>N The n N=k3C) If x>=1 The n f=x3-1C) If K<3*N : k>N The n 11=心3f=x3+1D) If K<3*N And k>N The n N=k*3D) If x<1 The n f=x3+1 ElseF=x3-17 .设 X=2.0 , y=8.0 , z=6.0 , L=True , 列Visual Basic 表达式中值为 True则下的是3.执行下面的程序段后显示结果是A) X+Z>Y AND LPrivate Sub Form_Click()B) NOT(Y<Z
4、+X)<>NOT LDim mC) NOT L OR (L=Y+X=Z)If m The n Print m Else Print m+1D) Y+X>=Z+X AND (L AND FALSE)End Sub8.要判断”月收入在 2000元以上(含2000元)且 5000 元以下(不含 5000 元)”的职Next J工,应使用的逻辑表达式是PrintA) M>=2000 AND M<=5000Next IB) M>=2000 OR M<=5000End SubC) M>=2000 AND M<5000单击命令按钮后,运行结果D) M&g
5、t;=2000 OR M<5000A) BBB) A9下列程序段的执行结果为CCCBBx=Int(69-60)*Rnd+60)DDDDCCCSelect Case xEEEEEDDDDCase Is>90C) BD) AAPrint " 优秀"CCBBBCase 80 To 89DDDCCCCPrint " 良好"EEEEDDDDDCase 60 To 7911在窗体上画一个名称为 Text1 的文本框Print " 合格"和一个名称为 Comma nd1的命令按钮,然后编写如下事件过程:Case ElsePrint &q
6、uot; 不合格 "Private Sub Command1_Click()Dim i As Integer,n As IntegerEnd SelectFor i=0 To 50A) 优秀 B) 良好 C) 合格 D) 不合格10 在窗体上画一个命令按钮,名称为i=i+3Comma nd1然后编写如下程序:运行结果n=n+1If i>10 Then Exit ForPrivate Sub Command1_Click()NextFor I=1 To 4Text1.Text=Str(n)For J=0 To IEnd SubPrint Chr(65+I);程序运行后, 单击命令
7、按钮, 在文本框中显Next iA) 2 B) 3 C) 4 D) 5执行上面的三重循环后, a 的值为12在窗体上画一个命令按钮,然后编写如下事件过程:A) 3 B) 9C) 14D) 2114.在窗体上画一个文本框(其Name属性Private Sub Command1_Click()为 Text1 ),然后编写如下事件过程:For i=1 To 4Private Sub Form_Load()x=4Text1.Text=""For j=1 To 3Text1.SetFocusx=3For i=1 To 10For k=1 To 2Sum=Sum+ix=x+6Next
8、iNext kText1.Text=SumNext jEnd SubNext i上述程序的运行结果是Print xA) 在文本框Text1中输出 55End SubB) 在文本框Text1中输出 0程序运行后,单击命令按钮,输出结果是C) 出错D) 在文本框Text1中输出不定值A) 7 B) 15 C) 157 D) 53815有如下程序:13阅读下面的程序段:a=10For i=1 To 3b=4For j=1 To iFor j=1 To 20 Step -2For k=j To 3a=a+1b=b+4Next kNext jNext j示的值是a=a+5Print a;bave=sum
9、/4运行后,输出的结果是print" 第 "n;" 个人的平均成绩为"aveA) 10 4 B) 60 24C) 110 44 D)5540Next n16有如下程序:上述程序运行后结果不正确, 调试中发现有 一条语句出现在程序中的位置不正确。 这条d$=""语句是a$="abcde"A) sum=0# B) sum=sum+scoreFor i=Len(a) To 1 Step -1d=d+Mid(a,i,1)C) ave=sum/4 分: "aveD) print" 第 "n;&q
10、uot; 人的均Next i18下列程序的输出结果是Print d$Dim y As Integer运行后,输出的结果是y=10A) abcde B) edcbaC) acebdD)While y<>0ecadbWend算出每位学生的平均分并输出,程序如下:Print "y=" ; yDim n As Integer,k As IntegerA) y=0 B) y=1 C) y= 随机值 D) y=-1Dim score As Single,sun As Single,ave As19以下程序的输出结果是SingleDim m As Integersum=0#m
11、=1For n=1 To 10While m<=3For k=1 To 4m=m+1score=InputBox(" 请输 入一 门 课 的成绩 ")Print m;sum=sum+scoreWendNext kA) 2 B) 2 3C) 2 3 4D) 2 3 4 5y=y-117.在Command1_Click事件程序的功能是:按顺序读入 10 名学生 4门课程的成绩。计20下面的程序运行结果是o命令按钮,然后编写如下事件过程:Private Sub Form_Click()Private Sub Command1_Click()m=0Dim x As Integ
12、er,n As IntegerDo Until 0x=1m=m+1n=0If m>10 Then Exit DoDo While x<20Loopx=x*3Print mn=n+1End SubLoopA) 0 B) 10 C) 11 D) 出错Text1.Text=Str(x)21.下面程序运行语句Print m执行的次数Text2.Text=Str(n)End SubPrivate Sub Form_Click()Dim m As Integer,n As Integer程序运行后, 单击命令按钮, 在两个文本框 中显示的值分别是m=0A) 15 和 1 B) 27 和 3 C
13、) 195 和 3 D) 600 和4Dom=m+1For n=10 To 1 Step -323.在窗体上画两个文本框(其Name属性分别为 Text1 和 Text2 )和一个命令按钮 (其Name属性为Command1,然后编写如下事件 过程:m=m+nPrivate Sub Command1_Click()Print mx=0Next nDo While x<50Loop While m<50x=(x+2)*(x+3)End SubA) 4 B) 8 C) 12 D) 16Loop22在窗体上画两个名称分别为Text1 、n=n+1Text1.Text=Str(n)Text
14、2的文本框和一个名称为Command1的Text2.Text=Str(x)出为End SubPrivate Sub Form_Click()程序运行后, 单击命令按钮, 在两个文本框Dim x As Single中显示的值分别为1执行下面的程序,当输入的值为5 时输x=InputBox("X")A) 1 和 0 B) 2 和 72 C) 3 和 50 D) 4 和 168If x<0 Then '24在窗体上画一个命令按钮,然后编写如下事件过程:y=1 : Print yElseIf x>=0 ThenPrivate Sub Command1_Click
15、()y=2 : Print yx=0ElseIf x>=1 ThenDo Until x=-1y=3 : Print ya= InputBox("请输入 A 的值")Elsea=Val(a)y=4 : print yb=InputBox("请输入B的值”)End Ifb=Val(b)End Subx=InputBox("请输入 x 的值")x=Val(x)2下面的程序将从 InputBox 到的 3 个数按从大到小输出。输入对话框得阅读程序并填a=a+b+xLoopPrint aEnd Sub程序运行后, 单击命令按钮, 依次在输入对 话
16、框中输入 5、4、3、2、1、-1 ,则输出结果为空。如果程序运行时分别输入和 25.7 三个数,则输出为Private Sub Form_Click()12.3 、 35.8Dim a As Integer,b As Integer,c AsIntegera=InputBox("b=InputBox("c=InputBox("输入一个数输入一个数输入一个数")")")A) 2B) 3C) 14 D) 15If b>a Then二、填空题d=a : a=b : b=dEnd IfCase 3If c>a ThenW2 =
17、"d=a : a=c : c=dCase 4End IfW2 = "If c>b ThenCase 5End IfW2 = "四"Print a;b;cCase 6End SubW2 = " 五 "3下列程序运行时,单击窗体,执行结果 为说明:在窗体上有一个 Label 控件,名为lblDate 。Dim Y As Integer, D As Integer, W1 AsIntegerDim Rq As DateDim W2 As StringPrivate Sub Form_Click()Rq = DateYear(Rq)d=
18、Day(Rq)m=Month(Rq) :Case 7W2 = " 六 "End Selectlbldate.Caption = "今天是 " & Y & " 年" &M & " 月" & D & " 日" & W2End Sub4执行下面的程序段后,a=5For i=2.6 To 4.9 Step 0.6s=s+1W1 = Weekday(x)Next iSelect Case W1Case 15下面是一个体操评分程序。 除去一个最高分和一
19、个最低分, (设满分为 10 分)。20 位评委,计算平均分W2 = " 日 "Max=0W2 = " 一 "For i=1 To 20Case 2Min=10n=Val(InputBox" 请输入分数 ")Dim j As Integer,s As Integer8以下程序段的输出结果是oIfThen Max=nDoIfThen Min=ns=s+js=s+nj=j+1Next iLoop Until j=5s=Print "s="sp=s/189以下程序段,程序运行后,要求执行Print" 最高分 &
20、quot;Max," 最低分 "Min次循环。x=1Print" 最后得分 :"p6下面程序的功能是求 1到 100的平方和,Do如果平方和超过了 1000 则跳出循环,输出x=x+1此时的和 S。print 15For I=1 To 100loop Untils=s+i*i10下列程序运行后,内层循环的循环总次If s>1000 ThenEnd Ifnext iabc:Print s7以下程序段的输出结果是num=0While num<=2num=num+1Print numWendFor x= 1 to 4For y =1 to xPri
21、nt yNext yNext x四、程序阅读题1写出下面程序的运行结果。Private Sub Form_Click()Dim s As Integer,k As Integer,m AsInteger,n As Integers=1For m=1 To 3Next kFor n=m To 3Next jFor k=n To m Step -1Next is=s*kprint xNext k,n,mEnd SubPrint sEnd Sub4写出下面程序的运行结果。Private Sub Form_Click()2写出下面程序的运行结果。m=0Dom=m+1Private Sub Form_C
22、lick()For i=3 To 1 Step -1Print Spc(10-i);If m>10 Then Exit DoFor j=1 To 2*i-1Loop Until m<10Print "*"Print mNext jEnd SubPrint5写出下面程序的运行结果。Next iPrivate Sub Form_Click()End SubDim m As Integer,n As Integer3写出下面程序的运行结果。m=10DoPrivate Sub Form_Click()m=m+nFor i=1 To 4x=4For n=10 To m s
23、tep -1For j=1 To 3m=m+nx=3Next nFor k=1 To 2Loop While m<50x=x+6Print m;nEnd SubPrint a6.写出下面程序的运行结果。五、程序填空题Private Sub Form_Click()1 .下面的程序段是检查输入的文字段中大Dim m As In teger, n As In teger,k AsIn tegerm=1 : n=a : k=5括号是否配对,并显示相应的结果。本程序 在文本框中边输入,边统计大括号的个数, 以输入回车符作为输入结束标志, 结果。然后显示Do While m<=k* nDim
24、 cou nt1%,str As Stri ngm=m*nPrivate Sub Text1_Ke yP ress(KeyAscii AsIn teger)n=n+1str=Print m;nIf str="" ThenLoopcoun t1=co un t1+1Print m;nElseIf str="" ThenEnd SubEnd If7.写出下面程序的运行结果。If KeyAscii=13 ThenDim i As In teger,a As In tegerIfDo While i<20The nDo While TruePrint &q
25、uot;左右大括号配对”If i Mod 10=0 ThenElseIfElseExit DoThe nPrint "左大括号多” ;count1;"个i=i-1ElseEnd IfPrint "右大括号多” ;-count1;"个Loopi=i+11 : a=a+iEnd IfLoopEnd IfEnd Subm=I nt(101*R nd)2 .阅读下面分段函数及其程序,请填空:Print m2x +20120八'30-0.5X50-X1°(X c-10) (-10 <x v0) (0 < X c 20) (20 <
26、;x <40) (40 <x c50) (50 <x)Print mSelect Case mCase(超过5个字符)此空不能Dim X As Sin gle,y As Sin glePrint "不及格"x= inputBox("请输入 X")Case 6lf(x<-10) ThenPrint "良好”y=0#Case 7,8Elself(x<0) ThenPrint "良好”y=2*x+20Case ElseElself()ThenPrint "优秀”y=20End SelectElself
27、(x<40) ThenEnd SubElself(x<50) Then4.下面的程序输入X的值,按以下公式求 丫y=50-x值。y=0End lfPrin t "X="x;"Y="y3.随机产生0-100的整数作为某门功课的分数,按 0-59、6069、70-89、90-100 划分为不及格、及格、良好、优秀4个层次,阅读程序并填空。Private Sub Form_Click()Dim m100 X100 <X <00<X <100100 < X <200Private Sub Comma nd1_Cli
28、ck()X=Val(Text1.Text)Select Case XCasePrin t "X<-100 OR X>200"CaseY=100-XCaseFib on acciY=100+XF1=1,F2=1,F n=Fn-1+F n-2(n>=2)CaseDim a As In teger, b As In tegerY=400Dim c As In teger, i As In tegera = 1: b = 1: i = 3End SelectPrint a, b,Text2.Text=YEnd SubDo While (i <= 20)以下程序是利用公式1111兀=4*( -川)来计算兀的值。1357其中,变量k表示当前符号项,t表示当前项,n表示当前项的序号,要求精度控制在0.00001内。试分析程序,完成空格处填的IfThe n内容。PrintDim pi As Si ngle,t As Si ngleEnd IfDim n As Si ngle,k As Si ngleLooppi=0 : n
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 苏教版四年级下册数学第三单元 三位数乘两位数 测试卷附答案(考试直接用)
- 年产10GWh储能电池系统项目环评报告表
- 废旧轮胎、塑料再生资源回收利用项目环评报告表
- 心脏骤停的应急处理练习卷含答案
- 盐城师范学院《轮滑》2022-2023学年第一学期期末试卷
- 盐城师范学院《教育经典名著与影片赏析》2023-2024学年第一学期期末试卷
- 2024年海运货代项目发展计划
- 2025新课改-高中物理-必修第3册(20讲)12 B实验:练习使用多用电表 中档版含答案
- 2024设备机械采购合同
- 学校环境保护协议
- 【行政管理社会调查计划+调查记录表+调查报告5600字】
- 有机肥料项目验收方案
- 餐券模板完整
- 三查四定表完整版本
- 江苏省连云港市东海县2023-2024学年七年级上学期期中道德与法治·历史试卷(解析版)
- (完整文本版)货物验收单
- 广东省深圳市2023一2024学年三年级上学期科学期中核心素养提升试卷
- 江苏省南通市海门区多校2023-2024学年上学期期中联考八年级数学试卷
- 人教版九年级道德与法治 上册 第三单元《文明与家园》大单元整体教学设计
- 铭记历史勿忘国耻(课件)小学生主题班会通用版
- 电能表安装作业指导书
评论
0/150
提交评论