비주얼베이직으로 성적처리 프로그램 짜는것좀 도와주세요~~내공올인!!

1번에서 6번까지 제가 가진 프로그램의 내용이네요 ;;

 

비율을 입력받는 화면이라면... 별로 어렵지 않게 하실수있을뜻하네요..

 

우선 간단한 내용부터 올려드릴께요

 

자세한건 메일주세요 ^^

미리 말씀드리지만 프로그램은 제가 직접짠건아님을 밝혀드립니다.

 

 

Dim sunwi, imsi(10)
Private Sub Command1_Click()

 

End

 

End Sub

Private Sub Command2_Click()

Form2.Hide

Form1.Show

 

End Sub

Private Sub Command3_Click()

 

Form2.Hide

Form1.Text1.Text = "이름"
Form1.Text2.Text = "국어"
Form1.Text3.Text = "영어"
Form1.Text4.Text = "수학"
Form1.Text5.Text = "사회"
Form1.Text6.Text = "과학"

Form1.Show

Form1.Text7.SetFocus

For a = 1 To i
   
    For p = 1 To 9
       
        grid1.TextMatrix(a, p) = ""
       
    Next p
   
Next a

grid1.Rows = 1

End Sub

Private Sub Command4_Click()

For w = 1 To grid1.Rows - 2

    For e = w + 1 To grid1.Rows - 1
   
        If grid1.TextMatrix(w, 6)        
            For p = 0 To 9
               
                imsi(p) = grid1.TextMatrix(e, p)
               
                grid1.TextMatrix(e, p) = grid1.TextMatrix(w, p)
               
                grid1.TextMatrix(w, p) = imsi(p)
           
            Next p
           
        End If
   
    Next e
   
Next w

 

End Sub

Private Sub Command5_Click()

For w = 1 To grid1.Rows - 2

    For e = w + 1 To grid1.Rows - 1
   
        If grid1.TextMatrix(w, 6) > grid1.TextMatrix(e, 6) Then
       
            For p = 0 To 9
               
                imsi(p) = grid1.TextMatrix(e, p)
               
                grid1.TextMatrix(e, p) = grid1.TextMatrix(w, p)
               
                grid1.TextMatrix(w, p) = imsi(p)
           
            Next p
           
        End If
   
    Next e
   
Next w

End Sub

Private Sub Command6_Click()

 

For q = 1 To grid1.Rows - 1
   
    sunwi = 1
   
   
    For o = 1 To grid1.Rows - 1
       
        If q = o Then GoTo 100
       
        If grid1.TextMatrix(q, 6)            
            sunwi = sunwi + 1
       
       
        End If
       
100 Next o

grid1.TextMatrix(q, 9) = sunwi

Next q

 

End Sub