비주얼베이직 썸네일형 리스트형 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(.. 더보기 VB(비주얼베이직) 구구단, 팩토리얼 구하기!! VB(비쥬얼베이직) 구구단, 팩토리얼 구하기입니다. Private Sub Command1_Click()Dim num As IntegerDim str As StringDim i As Integer num = CInt(Text1.Text) For i = 1 To 9 Step 1str = str & num & "*" & i & "=" & num * i & Chr(13)Next i Label1.Caption = str End Sub Private Sub Command2_Click()Dim num As IntegerDim str As StringDim fact As LongDim i As Integer num = CInt(Text1.Text)fact = 1fact = num For i = num - 1 To 1 .. 더보기 VB(비주얼베이직) 두 수를 입력 받아 작은 수에서 큰 수까지의 합계를 구하기 두 수를 입력 받아 작은 수에서 큰 수까지의 합계를 구하시오!!! 소스코드 Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim sum As Integera = CInt(Text1.Text)b = CInt(Text2.Text)sum = aFor i = a + 1 To b Step 1sum = sum + iNext i Label4.Caption = sumEnd Sub 더보기 이전 1 다음