ETH官方钱包

創作內容

0 GP

VB2010 all in all (簡易)

作者：艾草│2015-04-29 08:24:18│巴幣：0│人氣：179
Dim sr As StreamReader = New StreamReader("C:\Users\scvs\Desktop\測試in1.txt")
Do Until sr.EndOfStream = True


            Dim temp As String = sr.ReadLine
            Dim sep() As String = {" "}
            Dim token() As String = temp.Split(sep, StringSplitOptions.RemoveEmptyEntries)
            Dim int1 As Integer = Len(token(1))
            Dim int2 As Integer = Len(token(0))
            Dim st1 As String = "" : st1 = token(0)
            Dim qa1 As String = "" : qa1 = token(1)
            Dim wt As Integer = 0
            Dim f As Integer = 1
            Dim ans As String = ""
            Dim k1 As Integer = 1
            For k = f To int1
                Dim qa2 As String = Mid(qa1, k, 1)
                Dim st2 As String = Mid(st1, k1, 1)
                Dim w1 As Integer = Asc(st2)
                Dim w2 As Integer = Asc(qa2)
                If w1 = w2 Then
                    k1 = k1 + 1
                End If
                If k1 = int2 Then Exit For
            Next
            If k1 = int2 Then
                Console.WriteLine("YES")
            Else
                Console.WriteLine("NO")
            End If      
            ReDim token(1)
        Loop
        Console.Read()
引用網址：http://www.jamesdambrosio.com/TrackBack.php?sn=2821833
All rights reserved. 版權所有，保留一切權利

相關創作

留言共 0 篇留言

我要留言提醒：您尚未登入，請先登入再留言

喜歡★sakura5439 可決定是否刪除您的留言，請勿發表違反站規文字。

前一篇：VB2010 簡易蛇行方... 後一篇：VB2010 數字階層 ...


face基於日前微軟官方表示 Internet Explorer 不再支援新的網路標準，可能無法使用新的應用程式來呈現網站內容，在瀏覽器支援度及網站安全性的雙重考量下，為了讓巴友們有更好的使用體驗，巴哈姆特即將於 2019年9月2日 停止支援 Internet Explorer 瀏覽器的頁面呈現和功能。
屆時建議您使用下述瀏覽器來瀏覽巴哈姆特：
。Google Chrome（推薦）
。Mozilla Firefox
。Microsoft Edge（Windows10以上的作業系統版本才可使用）

face我們了解您不想看到廣告的心情? 若您願意支持巴哈姆特永續經營，請將 gamer.com.tw 加入廣告阻擋工具的白名單中，謝謝 !【教學】