作者iversonjimmy (还没想到捏)
看板Visual_Basic
标题Re: [.NET] 请问一下VB6转换.NET 一段程式码
时间Wed Jun 14 20:54:56 2006
※ 引述《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