wonderful world - Invidious

PROGRAM: WRITE A PROGRAM IN VISUAL BASIC TO DEVELOP RESULT OF A STUDENT INCLUDING TOTAL MARKS ,PERCENTAGE AND CLASSES

Private Sub Command1_Click()
Text8.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text)
End Sub
Private Sub Command2_Click()
Text9.Text = Val(Text8.Text) / 500 * 100
End Sub
Private Sub Command3_Click()
If Text9.Text > 35 And Text9.Text <= 60 Then Text10.Text = "pass with first class"
ElseIf Text9.Text > 0 And Text9.Text < 75 Then Text10.Text = "pass with second class"
ElseIf Text9.Text > 0 And Text9.Text < 35 Then Text10.Text = "you are failed"
Else
Text10.Text = " pass with destination "
End Sub

Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub

Private Sub Command5_Click()
End
End Sub

2 years ago | [YT] | 3

View 1 reply

Wonderful world

PROGRAM: WRITE A PROGRAM IN VB TO FIND A FACTORIAL NUMBER IN VB
Private sub command1_click()
dim i , f, n, as integer
n= val (text1.text)
f=1
for i = f * i
next
text2.text=1
end sub
private sub command2_click()
text1.text=" "
text2.text=" "
end sub
private sub command3_ click()
end
end sub

2 years ago | [YT] | 3

View 0 replies

Wonderful world

PROGRAM: WRITE A PROGRAM IN VISUAL BASIC TO FIND A LARGER NUMBER IN VB
Private sub command1_click()
dim number 1 as integer, number 2 as integer , number 3 as integer
number1=val(text1.text)
number2= val(text2.text)
number3=val(text3.text)
if number 1 > number 2 > and number 1 > number 3
then
label4. caption=number1
else if number 2 > number 1 and number 2 > number 3
then
label4. caption=number 2
else
label 4. caption = number 3
end if
end sub

Private Sub Command1_Click()
Text4.Text = Str(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

2 years ago (edited) | [YT] | 3

View 0 replies

Wonderful world

PROGRAM: WRITE A PROGRAM IN VISUAL BASIC TO CALCULATE THE SUM OF FIRST 100 NATURAL NUMBER.
Private sub command1_click()
dim sum,i as integer
sum=0
for i=1 to 100
sum = sum + i
next
text1.text=sum
end sub
private sub command2_click()
text1.text=""
end sub

2 years ago | [YT] | 2

View 0 replies

Wonderful world

PROGRAM: TO FIND THE AREA OF CIRCLE
private sub command1_click()
text2.text=3.14*text1.text*text1.text
end sub
private sub command2_click()
text1.text=""
text2.text=""
end sub
private sub command3_click()
end
end sub