인풋박스로 입력한 학점에맞는 장학금을계산해서

납부금액을 알려주는 프로그램만드는 다중 if문 문제인데요ㅠㅠ

어디가잘못된건지모르겠어요ㅠㅠ

 

 

Private Sub Form_Load()
AutoRedraw = True
Dim a As Integer
Dim g As String
g = InputBox(\"평균 평점을 입력하세요\", \"평균 평점 입력\")
a = Val(g)

<BLOCKQUOTE style=\"MARGIN-RIGHT: 0px\" dir=ltr>

If a >= 4.3 Then
    Print
    Print \"전액장학금을 지급받았습니다. 수업료는 0 원 입니다.\"
ElseIf a >= 4.1 And 4.3 > a Then
    Print
    Print \"반액장학금을 지급받았습니다. 수업료는 1500000 원 입니다\"
ElseIf 4.1 > a And a >= 3.9 Then
    Print
    Print \"장학금을 지급받았습니다. 수업료는 2250000 원 입니다.\"
Else
    Print
    Print \"장학금을 지급받지못했습니다. 수업료는 3000000 원 입니다.\"
End If
End Sub

 

 

제 생각엔 틀린곳이없는데 학점에맞는 등록금이안나와요ㅠㅠ

</BLOCKQUOTE>



또 1부터 30까지 369게임의 결과를 출력하는 프로그램을 함수를 이용하여 짜주실수있나요.?ㅠㅠ
1=1 3=* 36=** 이런식으로 하라는데 이건 감도 안잡혀요ㅠㅠ
ㅠㅠ도와주세요