비쥬얼베이직

비쥬얼베이직

작성일 2023.07.06댓글 1건
    게시물 수정 , 삭제는 로그인 필요

profile_image 익명 작성일 -

비쥬얼베이직에서 두 수의 최대공약수를 구하는 방법은 인수분해를 활용하는 것입니다. 아래는 비쥬얼베이직 코드 예시입니다.

```vb

' 두 수의 최대공약수를 구하는 함수

Function 최대공약수(수1 As Integer, 수2 As Integer) As Integer

Dim 작은수 As Integer

Dim 큰수 As Integer

Dim 나머지 As Integer

' 두 수 중 작은 수와 큰 수를 구분합니다.

If 수1 < 수2 Then

작은수 = 수1

큰수 = 수2

Else

작은수 = 수2

큰수 = 수1

End If

' 큰 수를 작은 수로 나눈 나머지를 구합니다.

나머지 = 큰수 Mod 작은수

' 나머지가 0이 될 때까지 반복하여 최대공약수를 구합니다.

Do While 나머지 <> 0

큰수 = 작은수

작은수 = 나머지

나머지 = 큰수 Mod 작은수

Loop

' 최대공약수를 반환합니다.

최대공약수 = 작은수

End Function

' 예시: 두 수의 최대공약수를 구합니다.

Dim 수1 As Integer

Dim 수2 As Integer

Dim 최대공약수값 As Integer

수1 = 24

수2 = 36

최대공약수값 = 최대공약수(수1, 수2)

MsgBox 두 수의 최대공약수는 최대공약수값 입니다.

```

위 코드는 두 수 중 작은 수를 구하고, 큰 수를 작은 수로 나눈 나머지를 구하는 과정을 반복하여 최대공약수를 구하는 방법입니다. 예시에서는 수1에 24, 수2에 36을 대입하여 최대공약수를 구하고 있습니다. 코드를 실행하면 메시지 박스에 두 수의 최대공약수는 12입니다.라는 결과가 출력됩니다.

엑셀 비쥬얼 베이직 입력 오류

비쥬얼 베이직 입력할 때 한글이 제멋대로 입력되는 오류가 자꾸 발생합니다. 예를 들어 ‘가나다’ 입력시 ‘나다나’로 입력되고 , ‘가나다라’ 입력시 ‘다라다나’로...

비쥬얼베이직

비쥬얼베이직 질문 인수분해로 두 수의 최대공약수 찾기 비쥬얼베이직에서 두 수의 최대공약수를... 아래는 비쥬얼베이직 코드 예시입니다. ```vb ' 두 수의...

비쥬얼베이직

비쥬얼베이직에 console이 색이 없어서 그러는데 왜 안나오는지 아시나요 알면 고치는 방법도 비쥬얼베이직에서... 콘솔 색상 설정 확인: 비쥬얼베이직에서 콘솔 색상을...

엑셀 비쥬얼베이직 질문

그림과 같이 비쥬얼 베이직 탐색기만 나오는데 원래는 화면이 2:8정도 비율로 나오지않나요? 이거 어떻게 처음 설정대로 복구하나요 ㅠㅠ 안녕하세요 1. 창을...

비쥬얼베이직 질문

비쥬얼베이직으로 유클리드 호제법을 써서 최대공약수를 구해주세요 예제 GetGCD 함수를 정의하여 유클리드 호제법을 구현하고, Main 함수에서 사용자로부터 두 정수를...

엑셀 비쥬얼 베이직

엑셀 비쥬얼 베이직 사용중 VBA project 이 메뉴가 사라졌는데 어떻게 다시 뜨게 할 수 있을까요??? 엑셀 사용 초보자입니다ㅠㅠ 도와주세요 컨트롤+R

엑셀 비쥬얼베이직 디버그 중단

엑셀 비쥬얼 베이직 사용시 계속 디버그 중단 이라고 나오고 컴파일 중단이라고 나옵니다 어떻게 처리 하면 되나요 오류가 있거나 실행중에 문제가(예를들자면, 불러오는...

비쥬얼베이직 vb파일

비쥬얼베이직 vb 파일을 할려고 하는데 계속 sin파일이 되는데 어떻게 해야 하나요? 안녕하세요 SW FIT 입니다. VB(Visual Basic) 파일이 ".vb" 파일이 아닌 ".sin" 파일로 저장되는...