Re: [.NET] 請問一下VB6轉換.NET 一段程式碼
※ 引述《iversonjimmy (還沒想到捏)》之銘言：
: ※ 引述《iversonjimmy (還沒想到捏)》之銘言：
: : 如題
: : If guess(c, n) = "4A0B" Then '呼叫guess程序判斷
: : TextBox1.Text = "恭喜您在第" & q & "次猜對了"
: : Button1.Enabled = False
: : Else
: : 如果要宣告guess(c,n)
: : 請問要如何更改 才能改成VB.NET阿~???
: 嘻嘻
: 對不起 害大家迷糊了
: 我是指If guess(c, n) = "4A0B" Then '呼叫guess程序判斷 <---這行
: ~~~~~~
: 要在【.NET】上執行 它會出現錯誤
: 麻煩解答囉~謝謝!!
對不起 我還真迷糊...
Private Function guess(ByRef x As String, ByRef y As String) As String
Dim i As Short
Dim w As Short
Dim A As Short
Dim B As Short
For i = 1 To 4
If Mid(x, i, 1) = Mid(y, i, 1) Then
A = A + 1
End If
Next i
For i = 1 To 4
For w = 1 To 4
If w <> i And Mid(x, w, 1) = Mid(y, i, 1) Then
B = B + 1
End If
Next w
Next i
guess = A & "A" & B & "B"
End Function
這樣如果換成【.NET】的話
該怎麼宣告guess呢??
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.143.224.152
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
