수다닷컴

그림파일이 안맞아서 이미지로 못띄우고 파일로 첨부했는데요 ..

한 폼에 학번이름 국어영어수학점수 총점 평균을 각각 레이블로두고,
그 레이블들 옆에 텍스트box로 입력칸을 만들고 밑에 출력이라는 명령버튼을 누르면,

modal(모달 방식)로 창이 하나 더 떠서
=========================================================
학점 이름 국어 영어 수학 총점 평균 학점
=========================================================이러면서 결과창이 하나 더 뜨게 만드는 건데요 (폼 추가해서요)
아직 초보고 해서 넘 어려워요 ㅜㅜ

제가 발버둥치면서 한 소스코드는 Form1에

Private Sub cmdoutput_Click() //출력버튼이름을 cmdOutput이라고 했어요.
Dim total, average

total = Val(txtkor.Text) + Val(txteng.Text) + Val(txtmat.Text) //kor=국어 , eng=영어 , mat은 수학.
average = Format(total / 3, ###.0)

lbladd.Caption = 총점 : & total //lbladd=레이블총점
lblave.Caption = 평균 : & average //lblave=레이블 평균. frmsub.Show vbModal

Select Case average
Case Is = 91
lblmark.Caption = 학점 : A
Case 81 To 90
lblmakr.Caption = 학점 : B
Case 71 To 80
lblmark.Caption = 학점 : C
Case 61 To 70
lblmark.Caption = 학점 : D
Case Else
lblmark.Caption = 학점 : F // 이줄에서 에러가 뜸 ㅜ_ㅜ영문을 모르겠네요.
End Select

cmdok.Text = : txtkor.Text = : txteng.Text = : txtmat.Text = : 여기까진데요 ,
비베 고수님들 부탁드립니다. ㅜㅜ 초보에게어울리는 쉬운소스로요.대신 학번조건이, 학번치면 첫글자는 영문이어야하고, 영문+숫자 조합으로 되어야하고
맞으면 학번텍스트박스옆 레이블에 맞습니다or틀립니다가 떠야해요 메시지박스로 말구요.
제가 한게 ,

private Sub cmd_Click() // 학번텍스트박스옆에 조회명령버튼을(cmdClick)라고했어요.이거누르면 엪에 맞or틀립니다 뜨게요.

If txtnum.Text = ???? Then // txtnum은 텍스트박스 학번이름.
lblsearch.Caption = 맞습니다
Else
lblsearch.Caption = 틀립니다
End If

End Sub

인데, 틀리게써도 맞게써도 조회버튼 누르면 옆에 레이블에
무조건 틀립니다만 나오네요 ㅜㅜㅜ헝.헝..

신청하기