VB2010 all in all (簡易)

作者：艾草│2015-04-29 08:24:18│巴幣：0│人氣：170

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

If k1 = int2 Then

Console.WriteLine("YES")

Else

Console.WriteLine("NO")

End If

ReDim token(1)

Loop

Console.Read()

引用網址：https://home.gamer.com.tw/TrackBack.php?sn=2821833
All rights reserved. 版權所有，保留一切權利

相關創作

留言共 0 篇留言

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

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

Lobster0627 給全體巴友：
大家可以多多來我的YT頻道看看哦(*´∀`)~♥https://www.youtube.com/@lobstersandwich看更多我要大聲說5小時前