Question

VB程序求出各位数为6且能被3整除的三位数共有多少个?

Answer 1

建个按钮控件：（下程序还可以显示每个数）

'VB程序求出各位数为6且能被3整除的三位数共有多少个?
Private Sub Command1_Click()
Dim cout As Integer
For i = 100 To 999
If i Mod 10 = 6 And i Mod 3 = 0 Then
Print i;
cout = cout + 1

If cout Mod 5 = 0 Then
Print
End If

End If
Next

Print cout;"个"
End Sub

------------------
下面这个只能求个数
'VB程序求出各位数为6且能被3整除的三位数共有多少个?
Private Sub Command1_Click()
Dim cout As Integer
For i = 100 To 999
If i Mod 10 = 6 And i Mod 3 = 0 Then
cout = cout + 1
End If
Next

Print cout; "个"
End Sub

Answer 2

Dim NCount As Integer
Private Sub Form_Load()
For i = 1 To 999
If Right(i, 1) = "6" Then
If i Mod 3 = 0 Then
List1.AddItem i
NCount = NCount + 1
End If
End If
Next i
MsgBox "个位数为6且能被3整除的三位数有" & NCount & "个"
End Sub

在窗体上放一个ListBox控件

Answer 3

求出各位数为6且能被3整除的三位数共有多少个?
print ((996-106)/10+1)\3;
select case (996-106)/10+1) mod 3
case 1 :if 106 mod 3 =0 then print "+1"
case 2 :if 106 mod 3 <>1 then print "+1"
end select

Answer 4

Private Sub Command1_Click()
For i = 106 To 996 Step 10
If i Mod 3 = 0 Then j = j + 1
Next
Print j
End Sub