*용* 스토어

*용*

개인

팔로워0 팔로우

소개

등록된 소개글이 없습니다.

전문분야 등록된 전문분야가 없습니다.

판매자 정보

학교정보

입력된 정보가 없습니다.

직장정보

입력된 정보가 없습니다.

자격증

입력된 정보가 없습니다.

판매지수

판매중 자료수

1개
전체 판매량

0개
최근 3개월 판매량

0개
자료후기 점수

-
자료문의 응답률

-

전체자료 1개

DSS 프로그램 문제

1. 간단한 변환문제1) 온도는 화씨와 섭씨가 있다. 우리는 주로 섭씨를 쓰지만 미국에서는 주로화씨를 사용한다. 화면에서 섭씨를 입력받아 화씨로 변환시켜 출력하는 프로그램을작성하라.Private Sub Command1_Click()Dim x As IntegerDim y As Doublex = CInt(Text1.Text)y = (9 / 5) * x + 32Label1.Caption = yEnd Sub2) 자료의 수가 n개일 때 Quick 정렬을 사용하면 nlog2n번의 비교후에 정렬이완성된다. 화면에서 n을 받아들인 후 정렬 비용(비교회수)를 계산하는 프로그램을 작성하라.Private Sub Command1_Click()Dim x, y As Integerx = Text1.Texty = x * Log(x) / Log(2)Label1.Caption = yEnd Sub3) 전세계 인구는 10억 단위로 했을 때 다음의 식으로 표현 된다.인구 = 5.5*(1+e0.02*t)t는 연차로 1995년이 1값을 갖는다. 연도를 넣으면 인구수를 출력하는 프로그램을 작성하라.Private Sub Command1_Click()Dim x, y, t As Doublex = Text1.Textt = x - 1994y = 5.5 * (1 + Exp(0.02 * t))Label1.Caption = yEnd Sub2.선택구조1)자연수를 입력받아 5의 배수이면 “5의 배수 임”을 출력하고 아니면 “5의 배수가 아님”을 출력Private Sub Command1_Click()Dim x As Integerx = CInt(Text1.Text)If x Mod 5 = 0 ThenLabel1.Caption = " 5의 배수임"ElseLabel1.Caption = "5의 배수가 아님"End IfEnd Sub2)소득세율은 소득에 따라 다르다. 소득을 입력받으면 그에 해당하는 세율을출력하는 코드를 작성하시오소득세율0 - 10008%1000 - 400017%4000 - 800026%8000이상35%Private Sub Command1_Click()Dim x As Integerx = CInt(Text1.Text)If x < 1000 ThenLabel1.Caption = "8%"ElseIf x < 4000 ThenLabel1.Caption = "17%"ElseIf x < 8000 ThenLabel1.Caption = "26%"ElseLabel1.Caption = "35%"End IfEnd Sub3)Select Case 문: 자료가 이산형(discrete)일 때 사용화면에서 비타민 종류를 입력받아서 이 비타민이 많이 포함된 음식을 출력하는코드 작성-비타민A: 당근, B: 삼겹살, C: 귤Private Sub Command1_Click()Dim testvalue As Stringtestvalue = Text1.TextSelect Case testvalueCase "비타민A": Label1.Caption = "당근"Case "비타민B": Label1.Caption = "삼겹살"Case "비타민C": Label1.Caption = "귤"End SelectEnd Sub3. For Loop문1)화면에서 n을 입력 받은 후 다음 급수의 합을 구하라sum = 1/(1*2) + 1/(2*3) + ... + 1/(n*(n+1))Private Sub Command1_Click()Dim i, n As IntegerDim sum As Doublen = CInt(Text1.Text)For i = 1 To nsum = sum + 1 / (i * (i + 1))Next iLabel1.Caption = sumEnd Sub2) n을 입력받은 후 1부터 n사이의 3의 배수의 합을 구하라Private Sub Command1_Click()Dim i As Integern = CInt(Text1.Text)For i = 0 To n Step 3sum = sum + iNext iLabel1.Caption = sumEnd Sub4.Do While Loop1)1부터 시작해서 합이 2000을 초과하는 최소의 n을 구하시오.Private Sub Command1_Click()Dim i As IntegerDim sum As Longi = 0sum = 0Do While sum < 2000sum = sum + ii = i + 1LoopLabel1.Caption = iEnd Sub2)자동차가 시속 80km로 달리는데 뉴욕에서 워싱턴까지는 830km라고 한다.뉴욕에서 워싱턴까지 가는데 최소 몇 시간이 소요 되겠는가?(시간은 정수로)Private Sub Text1_Click()Dim i, sum As Integersum = 0i = 0Do While sum < 830sum = sum + 80i = i + 1LoopText1 = iEnd Sub1)다음식을 계산하는 프로그램을 작성하시오. (단 t는 정수)y = e0.5*t => y = Exp(0.5 * x)Private Sub Command1_Click()Dim x, y As Integerx = Text1.Texty = Exp(0.5 * x)Label1.Caption = yEnd Sub2)다음의 간단한 계산기를 작서하시오+에 관한 Command Button eventPrivate Sub Command1_Click()Dim x, y, z As Integerx = CInt(Text1.Text)y = CInt(Text2.Text)z = x + yLabel2.Caption = zEnd SubPrivate Sub 덧셈_Click()Dim x, y, z As Integerx = CInt(Text2.Text)y = CInt(Text3.Text)z = x + ylabel3.Caption = zEnd SubPrivate Sub 뺄셈_Click()Dim x, y, z As Integerx = CInt(Text2.Text)y = CInt(Text3.Text)z = x - ylabel3.Caption = zEnd SubPrivate Sub 곱셈_Click()Dim x, y, z As Integerx = CInt(Text2.Text)y = CInt(Text3.Text)z = x * ylabel3.Caption = zEnd SubPrivate Sub 나눗셈_Click()Dim x, y, z As Doublex = CInt(Text2.Text)y = CInt(Text3.Text)z = x / ylabel3.Caption = zEnd Sub3) 1부터 100까지 홀수의 합을 구하는 프로그램을 작성하시오Private Sub Text1_Click()Dim i, sum As Integersum = 0For i = 1 To 100 Step 2sum = sum + iNext iText1.Text = sumEnd Sub4) 1부터 20까지 숫자의 제곱의 합을 구하시오Private Sub Text1_Click()Dim i, sum As Integersum = 0For i = 1 To 20sum = sum + i ^ 2Next iText1.Text = sumEnd Sub5) 다음 대화 내용을 읽고 철수가 일해야 할 일수를 계산하는 프로그램을작성하시오.철수 : 엄마! 16,000원짜리 MP3를 갖고 싶어요.엄마 : 네가 매일 신발장 정리를 하면 하루에 80원씩 용돈을 줄테니그걸 모아서 사렴.철수 : 좋아요! 엄마 고맙습니다.(그럼 며칠 간 일해야 하나?)Private Sub Text1_Click()Dim i, sum As Integersum = 0i = 0Do While sum < 16000sum = sum + 80i = i + 1LoopText1 = iEnd Sub6) 학생들의 성적이 다음과 같다. 성적이 80점 이하인 학생들의 성적의 평균을구하라.{67, 70, 78, 82, 88, 90, 100}Private Sub Text1_Click()Dim x(7) As IntegerDim i, sum As Integerx(0) = 67x(1) = 70x(2) = 78x(3) = 82x(4) = 88x(5) = 90x(6) = 100i = 0sum = 0Do while x(i) < 80sum = sum + x(i)i = i +1Loopavg = sum / iText1 = avgEnd Sub7) 나이에 따라 선호하는 색상이 다르다고 한다. 20살까지는 노란색, 30살까지는 핑크색, 40살까지는 푸른색, 그 이상은 빨강색이라 한다. 나이를 입력하면 선호하는 색상이 무엇인지 나타내라.Private Sub Command1_Click()Dim x As Integerx = CInt(Text1)

경영/경제| 2010.11.17| 7페이지| 1,000원| 조회(103)

DSS, For Loop문, Do While Loop, 변환문제

미리보기

닫기