29到259中出现多少次3的计算方法

你用个For循环下不就可以了啊。
对计步数再用下IF判断里面有没有三
很简单的啊

Sub sub1()
Dim int1 As Integer
Dim str1 As String
Static sng1 As Single
sng1 = 0
int1 = 0
For int1 = 29 To 300
str1 = CStr(int1)
If int1 < 99 Then
If Mid(str1, 1, 1) = 3 And Mid(str1, 2, 1) <> 3 Then
sng1 = sng1 + 1
ElseIf Mid(str1, 2, 1) = 3 And Mid(str1, 1, 1) <> 3 Then
sng1 = sng1 + 1
ElseIf Mid(str1, 2, 1) = 3 And Mid(str1, 1, 1) = 3 Then
sng1 = sng1 + 2
Else
sng1 = sng
End If
ElseIf int1 > 99 Then
If Mid(str1, 1, 1) = 3 And Mid(str1, 2, 1) <> 3 And Mid(str1, 3, 1) <> 3 Then
sng1 = sng1 + 1
ElseIf Mid(str1, 1, 1) <> 3 And Mid(str1, 2, 1) = 3 And Mid(str1, 3, 1) <> 3 Then
sng1 = sng1 + 1
ElseIf Mid(str1, 1, 1) <> 3 And Mid(str1, 2, 1) <> 3 And Mid(st