感謝樓主

slow-1 ,fast-2 請(qǐng)問(wèn)他們一定會(huì)相遇嗎，會(huì)不會(huì)每次都錯(cuò)過(guò)呢？

@fishing
一針見(jiàn)血的回答~ 謝啦!

謝了啊

在中國(guó)玩DOTA不好玩沒(méi)對(duì)手，在新加坡萬(wàn)最爽高手如云

有問(wèn)題直接在我博客上留言即可，我的博客會(huì)自動(dòng)把你的問(wèn)題轉(zhuǎn)到我的郵箱，謝謝，請(qǐng)你也留下自己的聯(lián)系方式，QQ不上，最好留自己email，謝謝~

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.TextBox1.Text <> "" Then
change(Me.TextBox1.Text)
Else
MessageBox.Show("有錯(cuò)誤")
End If
End Sub
Public Function change(ByVal dan As String) As Integer
Dim i, j, h As Integer
Dim f, o As String
Dim g As Integer
Dim m As Integer = 0

i = CType(dan, Integer)
If i > 0 Then


For j = 1 To i
f = CStr(j)
g = f.Length
For h = 0 To g - 1
o = f.Chars(h)
If String.Compare(o, "1") = 0 Then
m += 1

Else
End If
Next
Next

Me.TextBox2.Text = CStr(m)
Else
MessageBox.Show("有錯(cuò)誤")
End If
End Function


End Class

你也是研究JPEG2000的么？
我也是阿
可否一起交流
管硬件入我們的群19187246

oh my god！
好專(zhuān)業(yè)阿，看不懂