Want to ask bosses vb this topic how to do-CodePudding

Bosses look at the title 8??

CodePudding user response:

reference 1/f, crispy big ice cream reply:

exam? Is this cheating?

but the teacher assigned homework is no course exercises the problem is you don't how can so to ask bosses

CodePudding user response:

Even in brackets behind the score,

Incredibly said again, this topic basis, if the "people" is not how to do, so what are you going to do in your class this semester.

CodePudding user response:

Very difficult,,,, an appetite

CodePudding user response:

Random (Sub)
Dim As Integer I
Dim BW, SW, GW, J As Integer
Dim S As String
Dim a (1 To 100) As an Integer
For I=1 To 100
A (I)=Int (Rnd * 899 + 100)
GW=a (I) the Mod 10
SW=(a (I) the Mod 100 - GW)/10
BW=(a (I) - SW * 10 - GW)/100

If GW Mod 2=0 And SW Mod 2=0 And BW Mod 2=0 Then
J=J + 1
S=S & amp; A (I) & amp; "; "
If J Mod 10=0 Then
S=S & amp; A (I) & amp; "; "& amp; CRH (13)
End the If
End the If
Next
MsgBox S

End Sub

CodePudding user response:

Study study study study

CodePudding user response:

I would tell you simple ideas at random, needless to say, must use random function to put interval, and then want to what kind of number in it

CodePudding user response:

Random (Sub)
Dim a
Dim b
Dim t
Dim I

A=""
T=1
I=1

For t=1 To 10

For I=1 To 10

B=Int (Rnd () * 899 + 100)

If the Int (100) b/Mod 2=0 And Int ((b - Int (* 100)/100 b)/10) Mod 2=0 And Int ((b - Int b/10 * 10)) Mod 2=0 Then

A=b & amp; ", "& amp; A

End the If

Next

The Debug. Print t & amp; Content: "group" & amp; A

A=""

Next

End Sub

For reference only