vb手机号码抽奖程序

答案:3 悬赏:50 手机版

解决时间 2021-04-03 20:58

提问者网友：一抹荒凉废墟
2021-04-03 11:52

要代码！！！急用用VB做一个手机号码抽奖的程序，要代码。。我要交作业。

最佳答案

五星知识达人网友：第幾種人
2021-04-03 11:59

'一个copyzhidaoCommand1
Private Sub Command1_Click()
Dim a As String, b As Integer, c As String
b = Int(Rand(3, 1))
Select Case b
Case 1
c = "3"
Case 2
c = "5"
Case 3
c = "8"
End Select
a = "1" + c + Rand(9, 0) + Rand(9, 0) + Rand(9, 0) + Rand(9, 0) + Rand(9, 0) + Rand(9, 0) + Rand(9, 0) + Rand(9, 0) + Rand(9, 0)
MsgBox a
End Sub
Function Rand(U1, B1) As String
Rand = CStr(Int(Rnd * (U1 - B1) + B1))
End Function

全部回答

1楼网友：动情书生
2021-04-03 13:09

不知道

2楼网友：酒安江南
2021-04-03 12:32

一共11位数，第一位是1，不管。第二位有些什么（3、5、8好像就这些吧），然后的几位都随机生成（0-9），最后把这几个数连接就行了吧。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息