최대 최소 썸네일형 리스트형 VB(비주얼 베이직) 랜덤함수 난수생성 , 최대,최소 구하기 랜덤함수를 이용하여 난수생성하고, 최댓값 최솟값 구하기! Option ExplicitPrivate num(4) As Integer Private Sub Command1_Click()Dim i As Integer Randomize For i = 0 To 4 Step 1num(i) = Int(Rnd() * (20) + 1)Next i Text1.Text = num(0)Text2.Text = num(1)Text3.Text = num(2)Text4.Text = num(3)Text5.Text = num(4)End Sub Private Sub Command2_Click()Dim min As IntegerDim i As Integer min = num(0)For i = 1 To 4 Step 1If min > num(.. 더보기 이전 1 다음