slow-1 ,fast-2 請(qǐng)問他們一定會(huì)相遇嗎，會(huì)不會(huì)每次都錯(cuò)過呢？
re: DotA很好玩很上癮，搞它[未登錄] fish 2008-06-20 19:34
在中國玩DOTA不好玩沒對(duì)手，在新加坡萬最爽高手如云
有問題直接在我博客上留言即可，我的博客會(huì)自動(dòng)把你的問題轉(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