Skip to main content

Simple Grade Solver


This is a Simple Grade Solver in VB 6.0. Hope this thing will help for those who have an Enrollment System projects. Soon I'll be submitting a Simple Grading System with Database integration ^_^.

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.


1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.


Submitted byAnonymous (not verified)on Mon, 02/01/2010 - 11:52

hindi malinaw kung ilan percent ung quiz, recitation, assignment at exam.... tapos ung result dapat 2 decimal digit lang hindi ginamitan ng format....

Ang daming demands pwede naman wag i-download kung ayaw dba? Or kung may kulang e di ikaw na maglagay ~_~
Submitted byAnonymous (not verified)on Mon, 02/01/2010 - 11:55

dapat hindi textbox ung sa result...kahit nakalock yan makikita mo parin ung insertion point....label nalang ung gamitin mo bro....
Submitted byAnonymous (not verified)on Tue, 02/02/2010 - 12:19

uo nga wag nyo i down load kung ayaw nyo, kanya kanya kc ng style yan eh, kung may kulang lagyan nyo. sna pag nag bigay kayo ng comment in a nice way.
Submitted byAnonymous (not verified)on Wed, 02/03/2010 - 14:15

ahaha mga reklamador ba?? akala mo magagaling sila eh nuh^_^
Submitted byAnonymous (not verified)on Tue, 02/09/2010 - 21:31

gawa nalang kau ng sarili niu! at pakita niu rin!!!
Submitted byAnonymous (not verified)on Sun, 07/11/2010 - 12:46

Private Sub btnCompute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompute.Click Dim number1 As Integer Dim number2 As Integer Dim number3 As Integer Dim answer As Integer answer = (number1 + number2 + number3) / 3 TextBox4.Text = (answer) End Sub ang sagot 0 eh nag lalagay ako ng tatlong 80 dba dapat ang sagot 80 din
Submitted bymrhumbleon Sun, 07/11/2010 - 21:17

bro subukan ung lagyan ng Val function like this dim number1 as integer dim number 2 as integer dim number 3 as integer dim answer as integer number1=val(text1.text) number2=val(text2.text) number3=val(text3.text) answer = (number1 + number2 + number3) / 3 for more vbcode visit me @

napaka simple lng yan kahit hindi pa itinuro ng prof ko yan alam ko na yan sa ICCT din ako nag aaral ito ang pinaka simple code kahit di na kayo mag VAL

dim num1 as integer
dim num2 as integer
dim num3 as integer
compute buttons
num1 = text1.text
num2 = text2.text
num3 = text3.text

text4.text = (num1+num2+num3)/3
ayan ang pinaka maikling code nyan

Submitted byecnirp (not verified)on Fri, 12/13/2013 - 16:17

haha daming salita kokopya nalng ganito oh CTRL C the CTRL v haha :)

kung may kulang man dagdagan nyo nalng nakalagay yan para easy way hindi buong project ang pinapagawa amp!

dami talaga reklamo! gawa gwa din pag may time :)

Add new comment

This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.