作业帮 > 综合 > 作业

(急!)从3000个常用汉字中随机生成3个字的程序应该怎么写?3个字可重复出现.

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/30 04:39:08
(急!)从3000个常用汉字中随机生成3个字的程序应该怎么写?3个字可重复出现.
(急!)从3000个常用汉字中随机生成3个字的程序应该怎么写?3个字可重复出现.
把这3000个常用汉字贴到记事本中,汉字之间不留空格,不换行.保存为"d:\1.txt".
再运行下面的程序即可:
Private Sub Command1_Click()
Dim a As String
Open "d:\1.txt" For Input As #1
Line Input #1,a
For i = 1 To 3
t = Int(Rnd() * 3000 + 1)
Print Mid(a,t,1);
Next i
Print
Close #1
End Su