비주얼 베이직 코딩 총 정리
- 최초 등록일
- 2009.06.19
- 최종 저작일
- 2008.09
- 27페이지/ 한컴오피스
- 가격 1,000원
소개글
수치해석과 관련된 비주얼 베이직 코딩 총 정리
목차
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
참고 자료
없음