求助大佬vb怎么现实随机文字

level 2

如果犹豫是种天赋楼主

如题

2023年09月17日 04点09分 1

level 8

tbzp666

Randomize
HzAsc1 = Int(Rnd() * 10) + 127
HzAsc2 = Int(Rnd() * 10) + 127
Text1.Text = ChrB(HzAsc1) + ChrB(HzAsc2)

2023年09月18日 08点09分 2

klimaa

这个是UTF-16LE编码，不好碰。

2023年09月18日 10点09分

玖叁邀

汉字有asc码。把这个编码随机出就可以了

2023年09月21日 03点09分

吧务

level 16

放飞希望，追逐梦想

你想怎么随机？

2023年09月19日 10点09分 3

level 4

玖叁邀

'Print Asc("阿")
'Print Asc("组")
'Print Chr(-Int(Rnd() * (20318 - 10263)) - 10263); 'Int(Rnd() * 10) + 127

2023年09月21日 03点09分 4

level 11

余思培

Call Randomize
Dim High As Long, Low As Long, Key As Long
High = (Int(Rnd() * 72) + &HB0)
Low = IIf(Int(Rnd() * 2) = 1, (Int(Rnd() * 63) + &H40), (Int(Rnd() * 33) + &H80))
Key = High*256 Or Low
Print Chr(Key)
' Print Chr((Int(Rnd() * 72) + &HB0) * 256 Or IIf(Int(Rnd() * 2) = 1, (Int(Rnd() * 63) + &H40), (Int(Rnd() * 33) + &H80)))
或许可以试试这个 [滑稽]

2023年09月22日 09点09分 6