国产成人AV一区二区三区在线_国产成人精品无码免费看_国产成人无码无卡在线观看_国产精品成人A区在线观看_国产日韩精品欧美一区_国产亚洲精品自在久久蜜TV_久草热久草热线频97精品_久久久噜噜噜久久中文福利_久久婷婷五月综合色国产免费观看_日日狠狠久久偷偷色综合0,九一桃色在线观看,久久97精品久久久久久久不卡,国产成人精品亚洲精品

VB隨機(jī)生成字符串

訪客2024-12-23 20:18:461

例如,,我要生成一個(gè)16位的字符串,。要求混合數(shù)字,,大寫字母,,小寫字母,。完全隨機(jī),。存入變量a就行,,不用顯示到標(biāo)簽里,。

以下簡單的程序可實(shí)現(xiàn)(每次按command1生成一組)

Private Sub Command1_Click()Randomize '初始化隨機(jī)函數(shù)發(fā)生器,,沒有它,,每次生成隨機(jī)數(shù)相同 For i = 1 To 16 x = Int(Rnd() * 3) If x = 0 Then a = a + Chr(Int(Rnd * 10) + 48) '數(shù)字 ASCII為48到58 Else If x = 1 Thena = a + Chr(Int(Rnd * 26) + 65) '大寫 Else a = a + Chr(Int(Rnd * 26) + 97) '小寫 End If End If NextPrint aEnd Sub

測試結(jié)果

VB隨機(jī)生成字符串

文章評論