vb程序设计for循环练习

《vb程序设计for循环练习》由会员分享，可在线阅读，更多相关《vb程序设计for循环练习（5页珍藏版）》请在装配图网上搜索。

1、1.终止FOT/NEXT循环的条件是：_2.决定FOR/NEXT循环次数的因素是循环变量的_,_,和步长。3.FOR/NEXT循环的步长为_时可以省略。4.FOR I=A TO B STEP C，循环次数的表达式为 _.5.写出下面程序的结果。(1)For i=-5 to -11 step -3S=s+iPrint sNext (2)A$=”ls”For x=5 to 3 step -1A$=a$+a$Next xPrint mid$(a$,x,3)(3)for i=9 to 2 step -6i=i+2print i*2;next iprint i*2;(4)for i=1 to 10if

2、i2=i/2 then 40s=s+i40 nextprint s(5)p=1for a=10 to 2 step -2p=p*anext a?a,p(6)s$=”for i=65 to 70 step 2s$=s$+chr$(i)next print s$(7)c$=”1234”for i=1 to len(c$)n=n+val(mid$(c$,i)next print n(8)for x=0 to 100 step 2print xnext x程序循环了_次。(9)for x=-3 to 7 step 2print x;next (10)for x=8 to 7 step -2print

3、x;next x(11)for x=2 to 7 step 2x=x+2print x;next x(12)for x=-2 to -7 step -2x=-x2print x;next x(13)for x=1.5 to 11 step 1.5print x;next x(14)for x%=1.5 to 15 step 1.5print x%;next x%(15)for i=1 to 10print I;i=i+1next i(16)for i=1 to 10print I;i=i*2next i(17)for a=1 to 5b=a*a+1print a,bc=a*anext apri

4、nt “b=”;b,”c=”;c(18)for i=-5 to 5if i0 then x=x+iif i0 then y=y+inext iprint “x=”;xprint “y=”;y(19)s=0:m=1for k=1 to 100s=s+m*k:m=-mnext kprint s(20)for i=2 to 1 step -1print inext iprint i(21)s=0for i=1 to 5y=rnd(1)+1s=s+int(y)next print s(22)k=1:s=0for i=1 to 5s=s+k*ik=-knext iprint s(23)for i=10

5、to 6 step -1J=iNext iPrint j;i(24)p=1For a=10 to 2 step -2P=p*aNext aPrint a,p(25)x=1For i=1 to 3If k=1 then a=x*xIf k=2 then a=x*x+1If k=1 thenP=1Elseif i=2 thenP=2Elseif i=3 thenP=3ElseP=4End ifPrint ps=s+pnext iprint s(27)dim a(10)for i=1 to 10A(i)=i*10+iNext iPrint a(i-1);(28)dim a(10)for i=1 to

6、 10A(i)=i*10+iNext iPrint a(6) mod a(5)(29)dim a(10)For i=1 to 10 step 2A(i)=i*10.5+iNext iPrint a(7);a(3)(30)dim a(5) as integerFor i=1 to 4A(i)=2*i-1Next iPrint a(a(i)+i)(31)dim a$(5)A$(1)=”A”:a$(2)=”B”For i=3 to 5A$(i)=a$(I-1)+a$(i-2)Print a$(i)Next i(32)dim a(2)for i=-2 to 0A(abs(i)=i*2Next Prin

7、t a(1);a(2)(33)dim a(5)for i=2 to 5A(i)=i-1A(a(i)=i2Print a(a(i);Next i(34)dim a(10)For i=1 to 10A(i)=iNext iFor i=1 to 10A(i)=a(11-i):print a(i);Next i(35)for j=5 to 8A=a*10+jNext jPrint a(36)aa$=”43.2”:bb$=”98.7”Cc$=aa$+bb$Dd=val(cc$)Print dd(37)bb$=”Inviting a friend to dinner”M=len(bb$)For j=1 t

8、o mB$=mid$(bb$,j,1)If b$=”n” then x=x+1Next jPrint x(38)option base 1b=array(“home”,”once”,”establish”)For i=1 to 3A=a+left(b(i),i)Next iPrint a6.计算 S=1+1/2+1/31/10 S=0 FOR TO_ S=_ NEXT PRINT S7.计算S=(12)+(34)+(910) S=0FOR I=1 TO_ S=S+_ NEXT I PRINT S8.求1100 奇数的平方和,即 S = 1 2 +3 2 + +992。 FOR I=1 TO_

9、S=S+_ NEXT I PRINT “SUM=”; S 9.输入任一字符串, 然后按相反次序打出来 INPUT A$ M=_ B$=“” FOR K=M TO 1 STEP-1 B$=_ C$=C$+B$ NEXT K PRINT C$10.用子程序的方法求2!+3!+4!的值 S=0 FOR T=2 TO 4 S=S+P NEXT T PRINT “2!+3!4!=”; S END P=1 FOR K=1 TO_ NEXT K NEXT K_11.输入一个较短的字符串,查找是否包含在字符串 “The COMPAQ Personal Computer BASIC”中,并指出短字符串在长字符中

10、串中的位置。 AS=“The COMPAQ Personal Computer BASIC” N=LEN(AS) INPUT B$ M=LEN(B$) FOR I=1 TO_ C$=MID$(_) IF C$=B$ THEN PRINT“YES”;I;:GOTO 100 NEXT I PRINT“NO”12.有如下程序:For ii=1 to 146 step 3 Print “a”;Next i程序运行后会打印( )A.146个a B.49个a C.73个a D.46个a13.选择题(1)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Pr

11、ivate Sub Command1_Click()Dim i As Integer,n As IntegerFor I=0 To 50i=i+3n=n+1If i10 Then exit forNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A) 2 B) 3 D) 4 D) 5(2)设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);Next End Sub程

12、序运行后，单击窗体，则在窗体上显示的是A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4(3)在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后 编写如下事件过程： Private Sub Commandl_C1ick() S0 For i1 T0 15 x2*i一1 1f x Mod 30 Then ss十1 Nexti LabellCaption=s End Sub程序运行后，单击命令按钮，则标签中显示的内容是 A)1 B)5 C)27 D)45(4)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：P

13、rivate Sub Command1_Click()For n = 1 To 20If n Mod 3 0 Then m = m + n 3Next nPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是A）15 B）18 C）21 D）2414.程序填空.(1)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。 Private Sub Commandl_C1ick() Fori1To 20 xInt(_*200+100) If_7 0 Then Print xSS十 _ 83 End If Next i Print “Sum”：S End Sub (2) 执行下面的程序段后，i的值为 _ ，s的值为_ 。s = 2For i = 3.2 To 4.9 Step 0.8s = s + 1Next i5