© 1999-2048 dssz.net 粤ICP备11031372号
[VB] 抽 奖
说明: 就是好抽奖vbrivate Sub Command1_Click() On Error GoTo md Dim code, tmp, tmp2, tmp3 As String filename = App.Path & "\data.txt" code = Text1.Text tmp = Left(code, 2) tmp = tmp + "0000" tmp2 = "" Open filename For Input As #1 While Not (EOF(1)) Line Input<qq_29083923> 上传 | 大小:2kb