vb复习题讲解讲述.ppt

阅读下面的程序，写出执行结果 1. I=0 For G=10 To 19 step 3 I=I+1 Next G Print I 执行结果为: 4 2. A=“ABBACDDCBA” For I = 6 To 2 step -2 X=Mid(A,I,I) Y=Left(A,I) Z=Right(A,I) Z=XYZ Next I Print Z 执行结果为: BBABBA 阅读下面的程序，写出执行结果 3. P=0 S=0 Do P=P+2 S=S+P Loop While P11 Print “S=”;S 执行结果为: S=42 4. S=0:T=0:U=0 For X = 1 To 3 For Y = 1 To X For Z = Y To 3 S=S+1 Next Z T=T+1 Next Y U=U+1 Next X Print S;T;U 执行结果为:14 6 3 阅读下面的程序，写出执行结果 5. Private Sub Form_Click() K=0 For I=1 to 2 For J=1 to 3 K=I+1 Next J For J=1 to 7 K=K+1 Next J Next I Print K End Sub 执行结果为: 10 6. Private Sub Form_Click() Dim A(3,4) For I=1 to 3 For J=1 to 4 A(I,J)=(I-1)*2+J Print A(I,J); Next J Print Next I End Sub 执行结果为:1 2 3 4 3 4 5 6 5 6 7 8 7. Private Sub Form_Click() Test 2 End Sub Private Sub Test(x as integer) x = x * 2 + 1 If x 6 Then Call Test(x) End If x = x * 2 + 1 Print X; End Sub 23 47 8. Dim A(5,5) as integer for each X in A Private Sub Form_Click() S=S+X  for i=1 to 5 next X for j=1 to 5 Print “S=“;S A(i,j)=i-j End Sub print A(I,j); next j print next I 0 -1 -2 -3 -4 0 -1 -2 -3 1 0 -1 -2 2 1 0 -1 3 2 1 0 S=0 编写程序 1.下面程序用于计算N=1+(1+3)+(1+3+5)+…+(1+3+5+…+39) 2.下面程序用于计算 12-22+32-42+…+(N-1)2-N2 Private Sub Command1_Click() T=0 M=1 Sum=0 Do T=T+ M Sum=Sum+ T M=M+2 Loop While M=39 Print “Sum=”;Sum End Sub Private Sub Command1_Click() N=Val(Inputbox(“请输入大于零的偶数N:”)) S=0:I=1:C=1 Do S=S+C*I*I C=C*(-1) I=I+1 Loop While i=N Print “S=”;S End Sub 3。编写程序，要求输入三角形的三条边长，判断