能让我进组一秒钟吗 我死也要投给爱情买卖

I say 米亲都可给5搜舅 嫩木len一接good bye time to say 揪打击do la啵叽码❌ 嘟搜嫩hunnit bandsI'm a $
I'm a $ I'm a $♥ with a dollar sign Is a $♡♡ I'm a ♥ ❤️ I'm a ♥ ♥ with a dollar signIs a $

我60岁
I say 米亲都可给5搜舅 嫩木len一接good bye time to say 揪打击do la啵叽码❌ 嘟搜嫩hunnit bandsI'm a $
I'm a $ I'm a $♥ with a dollar sign Is a $♡♡ I'm a ♥ ❤️ I'm a ♥ ♥ with a dollar signIs a $

#假如仙侠世界招式名越稀有威力越大#
至尊秘籍：随机汉字生成器

Public Class Form1

Public Function 十进制转二进制(ByVal n As Long) As String

Dim s$ = ""

Do Until n = 0

s = n Mod 2 & s

n = n \ 2

Loop

十进制转二进制 = s

End Function

Public Function 二进制转十进制(ByVal s As String) As Long

Dim n&

For i = 1 To Len(s)

n = n * 2 + Mid(s, i, 1)

Next

二进制转十进制 = n

End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim s$ = "", s1$, s2$

Randomize()

For i = 1 To Int(10 * Rnd()) + 1

s1 = 十进制转二进制(Int(70 * Rnd()) + 177)

s2 = 十进制转二进制(Int(93 * Rnd()) + 161)

s = s & Chr(二进制转十进制(s1 & s2) - 65536)

Next

Me.Text = s

End Sub
End Class