검색어 입력폼

비주얼 베이직 코딩 총 정리

저작시기 2008.09 |등록일 2009.06.19 | 최종수정일 2019.08.23 한글파일한컴오피스 (hwp) | 27페이지 | 가격 900원

소개글

수치해석과 관련된 비주얼 베이직 코딩 총 정리

목차

1에서 1000까지 홀수의 합과 평균을 구하는 코딩을 하시오.
1월1일부터 12월 31일까지 온도 자료를 읽고 월별 최대, 최소, 평균을 구하는 코딩
y=2x^2-5x+3 의 근을 구하는 코딩
비주얼베이직이란 무엇인가?
계산기의 사칙연산 구연 프로그램 작성
달력 프로그램
7월~9월 수위를 시간별로 나타내는 프로그램
길이 단위 변환 프로그램
올해 강우량 월별로 계산하여 막대그래프로 나타내는 프로그램

본문내용

1에서 1000까지 홀수의 합과 평균을 구하는 코딩을 하시오.
Private Sub Command_Click()
Label1.Caption =
For i = 1 To 1000 Step 2
t = t + i
Next
Label1.Caption = t
End Sub
1월1일부터 12월 31일까지 온도 자료를 읽고 월별 최대, 최소, 평균을 구하는 코딩
Dim ns(100), nc(100), nr(100), ad(100), lat(100), longi(100), bdate(100) As String
Dim stEle(100) As Single
Dim nn, year As Integer
Private Sub cmdAT_Click()

Dim lm(12), year As Integer
Dim at(12, 31) As Single

lm(1) = 31: lm(2) = 28: lm(3) = 31: lm(4) = 30: lm(5) = 31: lm(6) = 30
lm(7) = 31: lm(8) = 31: lm(9) = 30: lm(10) = 31: lm(11) = 30: lm(12) = 31
X1 = 1000: X2 = 9000
Y1 = 500: Y2 = 7000

picGraph.Cls
picGraph.BackColor = QBColor(15)
picGraph.Line (X1, Y1)-(X2, Y2), QBColor(0), B

Open c:workatdj2007.txt For Input As #1

For i = 1 To 12
For j = 1 To 31

Input #1, at(i, j)

Next j
Next i

Close

참고 자료

없음
다운로드 맨위로