2009
骞达紙绉嬶級涓婃満
Visual Basic
锛?/p>
VB03
锛夌瓟妗?/p>
涓�銆佹敼閿?/p>
銆?/p>
棰樼洰
銆戞湰绋嬪簭鐨勫姛鑳芥槸锛屾壘鍑烘墍鏈変袱浣嶆暣鏁颁腑鐨勨�滈暅鍙嶅钩鏂规暟瀵光�?/p>
銆?/p>
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, fn As Integer, st As String
For n = 11 To 99
If InStr(CStr(n), "0") = 0 Then
'err <> 0
fn = fx(n)
If validate(n, fn) And n <> fn Then
st = n & "^2=" & n ^ 2 & "," & fn & "^2=" & fn ^ 2
List1.AddItem st
End If
End If
Next n
If List1.ListCount = 0 Then List1.AddItem "
鏃犻暅鍙嶅钩鏂规暟
"
End Sub
Private Function fx(ByVal n As Integer) As Integer
'err
鏃?/p>
ByVal
Dim s As String
Do
s = s & CStr(n Mod 10)
'err s & Str(n Mod 10)
n = n \ 10
Loop Until n = 0
fx = s
End Function
Private Function validate(p As Integer, q As Integer) As Boolean
If fx(p ^ 2) = q ^ 2 Then
validate = True
End If
End Function
浜屻�佺紪绋嬮
銆?/p>
棰樼洰
銆?/p>
缂栧啓绋嬪簭锛?/p>
鎵惧嚭杈撳叆瀛楃涓蹭腑
ASCII
浠ｇ爜鍊兼渶澶х殑瀛楃锛?/p>
鎶婂畠绉诲姩鍒板師瀛楃涓茬殑鏈?/p>
灏撅紝鍏朵粬瀛楃鐨勬帓鍒楅『搴忕淮鎸佷笉鍙樸�?/p>
Option Explicit
Private Sub Command1_Click()
Dim st1 As String, st2 As String, sa() As String * 1
Dim i As Integer, n As Integer, mc As String * 1, k As Integer
st1 = Text1
n = Len(st1)
ReDim sa(n)
For i = 1 To n
sa(i) = Mid(st1, i, 1)
Next i