UC知道急！如何用VB编写22选5的组合程序
来源：百度知道 编辑：UC知道 时间：2024/06/05 10:02:13
答案 要能写在记事本上 最好能发到我邮箱里谢谢
Private Sub Form_Click()
Randomize
S = " "
For i = 1 To 5
Do
k = Int(Rnd * 22) + 1
Loop While InStr(S, " " & k & " ")
S = S & k & " "
Next
Open "C:\22选5.txt" For Append As #1
Print Trim(S) & " ==> 生成时间:" & Format(Now, "YYYY年MM月DD日 HH时MM分SS秒")
Print #1, Trim(S) & " ==> 生成时间:" & Format(Now, "YYYY年MM月DD日 HH时MM分SS秒")
Close #1
End Sub
'分别打印到窗体与文件(文件采用追加的方式，有生成时间)
给分吧,二楼写的不错.