陋博

废话不说,直接进入正题.建一个 按钮Command1 和一个 Textbox Text1 ,下面只以男名为例.女名同理. 原代码: Private Sub Command1_Click() Dim x1, x2, x3, x4, x5, x6, x7, x8, x9, z, o, o2, o3, o4 As String o = "伟勇毅俊峰强平保东文辉力明永健世广志义兴良海山仁波宁贵福生龙元胜学祥才发武新利清飞彬富顺信子杰昌成星光天达安岩中茂进林有坚和博诚先敬震振壮会思群心邦承乐绍功松善厚庆磊民友裕河江超浩亮政谦亨奇翰朗...

模块代码 Option Explicit Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long...