Private Sub Form_Click()For i = 0 To 4 Step 0.2 a = 15 + i If a * 10 Mod 4 = 0 Then n = a * 10 / 4 Print a; "是0.4的"; n; "倍"Else Print a End If Next i End Sub