본문 바로가기
반응형

VB

VB MDI를 이용해 메모장 만들기(새파일,창닫기,저장,불로오기,종료) VB(비쥬얼베이직) MDI를 이용해 메모장 만들기(새파일,창닫기,저장,불로오기,종료) 새파일 .창닫기 저장 불러오기 불러온 화면 Private Sub close_Click() Unload MDIForm1.ActiveFormEnd Sub Private Sub exit_Click() EndEnd Sub Private Sub load_Click()On Error GoTo err_rtn Dim strFile As String, TextLine As String, TotalLine As String Dim FileNumber As Integer CommonDialog1.InitDir = "c:\" CommonDialog1.Filter = "텍스트 파일(*.txt)|*.txt|모든파일(*.*)|*.*" Common.. 더보기
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 더보기
VB 성적처리기 만들기!!! VB(비쥬얼 베이직)으로 성적처리기를 작성하시오!! 소스코드Private Sub Command1_Click()Dim sum As IntegerDim avg As DoubleDim count As IntegerDim grade As String If Check1.Value = 1 Thensum = sum + CInt(Text3.Text)count = count + 1End IfIf Check2.Value = 1 Thensum = sum + CInt(Text4.Text)count = count + 1End IfIf Check3.Value = 1 Thensum = sum + CInt(Text5.Text)count = count + 1End IfIf Check4.Value = 1 Thensum = sum + C.. 더보기
반응형

티스토리툴바