请用通俗易懂的语言解释该代码的意思Function SJS() As String Application.Volatile Randomize Dim i,j As Integer Dim iFlag As Boolean SJS = Int(Rnd() * 10) For i = 1 To 5 iFlag = True Do While iFlag j = Int(Rnd() * 10) If InStr(SJS,j) =

来源:学生作业帮助网 编辑:作业帮 时间:2024/10/05 21:10:21
请用通俗易懂的语言解释该代码的意思Function SJS() As String Application.Volatile Randomize Dim i,j As Integer Dim iFlag As Boolean SJS = Int(Rnd() * 10) For i = 1 To 5 iFlag = True Do While iFlag j = Int(Rnd() * 10) If InStr(SJS,j) =
xRQkP+=H+aZD a-9Kɒv >nҺp-iI;"p ssz;_X71[d뾵Zyݳϝs2:ceʡo;fIT˄°ZLɐ<"oAmE`]TsڶT;6B! %)/3(i$Ne!ZWshpaHkȈ/AV+ Yc5 fha!T aH&~7"(d$u.5Mj ^Gғ:Us0oݟh]ټSF>kњMMhgwdPE՗tg +:foss"MZŴM]Z|i؉Gk/p8B+7HV<[^f7WcE>`Z# ש8?vhC9ݳJYx}j ف;mx2ge'\KD~*

请用通俗易懂的语言解释该代码的意思Function SJS() As String Application.Volatile Randomize Dim i,j As Integer Dim iFlag As Boolean SJS = Int(Rnd() * 10) For i = 1 To 5 iFlag = True Do While iFlag j = Int(Rnd() * 10) If InStr(SJS,j) =
请用通俗易懂的语言解释该代码的意思
Function SJS() As String Application.Volatile Randomize Dim i,j As Integer Dim iFlag As Boolean SJS = Int(Rnd() * 10) For i = 1 To 5 iFlag = True Do While iFlag j = Int(Rnd() * 10) If InStr(SJS,j) = 0 Then iFlag = False Loop SJS = SJS & j Next i End Function 请用通俗易懂的语言解释上述代码的意思,切记不要用专业名字 ,如"返回"什么的 我对代码一窍不通,请用老百姓的语言来说

请用通俗易懂的语言解释该代码的意思Function SJS() As String Application.Volatile Randomize Dim i,j As Integer Dim iFlag As Boolean SJS = Int(Rnd() * 10) For i = 1 To 5 iFlag = True Do While iFlag j = Int(Rnd() * 10) If InStr(SJS,j) =
得到一个各位均不相同的6位数,如960534、074356. if InStr(SJS, j) = 0 Then iFlag = False用于判断新产生的一位数字是否在之前的几位数中出现
麻烦采纳,谢谢!