VB如何生成“XXXXX-XXXXX-XXXXX-XXXXX-XXXXX”格式的序列号

更新时间2019-01-26 19:34:54

Randomize

A = Int(Rnd * (9 - 0 + 1)) + 0

B = Int(Rnd * (9 - 0 + 1)) + 0

C = Int(Rnd * (9 - 0 + 1)) + 0

D = Int(Rnd * (9 - 0 + 1)) + 0

E = Int(Rnd * (9 - 0 + 1)) + 0

F = Int(Rnd * (9 - 0 + 1)) + 0

G = Int(Rnd * (9 - 0 + 1)) + 0

H = Int(Rnd * (9 - 0 + 1)) + 0

I = Int(Rnd * (9 - 0 + 1)) + 0

J = Int(Rnd * (9 - 0 + 1)) + 0

K = Int(Rnd * (9 - 0 + 1)) + 0

L = Int(Rnd * (9 - 0 + 1)) + 0

M = Int(Rnd * (9 - 0 + 1)) + 0

N = Int(Rnd * (9 - 0 + 1)) + 0

O = Int(Rnd * (9 - 0 + 1)) + 0

P = Int(Rnd * (9 - 0 + 1)) + 0

Q = Int(Rnd * (9 - 0 + 1)) + 0

R = Int(Rnd * (9 - 0 + 1)) + 0

S = Int(Rnd * (9 - 0 + 1)) + 0

T = Int(Rnd * (9 - 0 + 1)) + 0

Print A; B; C; D; E; "-"; F; G; H; I; J; "-"; K; L; M; N; O; "-"; P; Q; R; S; T

呃呃，我就会这种

购买正版软件就会有唯一的序列号。

固定字符串格式就可以