VB6.0 的程序阅读题

'一、

Function Cala(x As Integer, ByVal y As Integer) 'x是按址传递，y是按值传递

  x = x + y

   If x > 0 Then

     丛败Cala = x

  Else

     Cala = y

  End If

End Function

Private Sub Command1_Click()

   Dim m As Integer, n As Integer

   m = 18

   n = -8

   Text1.Text = Cala(m, n) 'm执行前为18，执行后m=10,n不变仍然为-8

   Text2.Text = Cala(m, n) '答纤执行前m=10，n=-8，执行后，m为2,n为-8,cala返回2

End Sub

‘二

Private Sub Command1_Click()

   Dim m As Integer, a As Integer

   For a = 1 To 10

      If a Mod 4 <> 0 Then’1到10里，只有渗举颤a为4和8时，a mod 4=0

          m = m + a \ 4

      End If

   Next a

   Print m

End Sub

1\4=0  2\4=0  3\4=0  5\4=1  6\4=1  7\4=1  9\4=2  10\4=2

0+0+0+1+1+1+2+2=7

Option Explicit

Dim T As Integer

Private Sub Form_Load()

Label1.Caption = "绿灯戚渗行"

Label1.ForeColor = vbGreen

Shape1.Shape = 3

Shape1.FillStyle = 0

Shape1.FillColor = vbGreen

Label1.ForeColor = vbGreen

Label1.FontSize = 18

Timer1.Interval = 1000

T = 0

End SubPrivate Sub Timer1_Timer()

T = T + 1

Select Case T

Case 1 To 3:

Shape1.FillColor = vbGreen

Label1.Caption = "绿灯行"

Label1.ForeColor = vbGreen

Shape1.Shape = 3

Case 4 To 5:

Shape1.FillColor = vbYellow

Label1.ForeColor = vbYellow

Label1.Caption = "注意"

Case 6 To 8:

Shape1.FillColor = vbRed

Label1.ForeColor = vbRed

Label1.Caption = "红灯停高旅脊"

Case 9 To 10:

Shape1.FillColor = vbYellow

Label1.ForeColor = vbYellow

Label1.Caption = "注镇野意"

T = 0

End Select

End Sub

---