vb控制结构综合练习

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