做一个抽号的VB程序，要求是X排X列显示在屏幕上，随机抽取某排某列那种，求帮助！
答案:2 悬赏:10
解决时间 2021-02-03 20:15
- 提问者网友：喵星人荷西
- 2021-02-02 22:21
做一个抽号的VB程序，要求是X排X列显示在屏幕上，随机抽取某排某列那种，求帮助！
最佳答案
- 二级知识专家网友：随心随缘不随便
- 2021-02-02 23:51
加个txt,共20排20列
dim ss As String
Private Sub Command2_Click()
Dim s1 As String, s2 As String, s3 As String, i As Integer
Randomize Time()
Do While InStr(1, ss, s3) <> 0 Or s3 = ""
s1 = Int(Rnd * (20 - 1))
s2 = Int(Rnd * (20 - 1))
s3 = s1 & "排" & s2 & "列"
Loop
ss = ss & "," & s3
MsgBox s3
Text1.Text = ss
End Sub
dim ss As String
Private Sub Command2_Click()
Dim s1 As String, s2 As String, s3 As String, i As Integer
Randomize Time()
Do While InStr(1, ss, s3) <> 0 Or s3 = ""
s1 = Int(Rnd * (20 - 1))
s2 = Int(Rnd * (20 - 1))
s3 = s1 & "排" & s2 & "列"
Loop
ss = ss & "," & s3
MsgBox s3
Text1.Text = ss
End Sub
全部回答
- 1楼网友：疯山鬼
- 2021-02-03 01:21
再也不回答这种简单问题了 都抢着回答 刚回答完 前面的回答都被选择为最佳答案了
再看看别人怎么说的。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯