| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 18:31:55 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=49240125643d6926d0b57adfaaa490f0b4474ba85c392292ac96730bd7ca6df8a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22zi7ZYW6lq0ok8IL4Rt7NMwdYZgMX4rFM%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d06fe9b96d6cd6-BLR
Public Class Form1 Private Sub btncalculate_Click(ByVal sender As Sys - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub btncalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtncalculate.Click
- Dim bytepercentage As Byte
- lbloutput.Visible = True
- lbloutput.Text = txtinput.Text / txtfullmark.Text * 100
- bytepercentage = lbloutput.Text
- Select Case bytepercentage
- End Select
- If txtinput.Text > txtfullmark.Text Then
- lbloutput.Text = "Error your input is invalid"
- lbloutput.Visible = False
- ElseIf lbloutput.Text >= 80 Then
- lblgrade.Text = ("A")
- ElseIf lbloutput.Text >= 70 Then
- lblgrade.Text = ("B")
- ElseIf lbloutput.Text >= 60 Then
- lblgrade.Text = ("C")
- ElseIf lbloutput.Text >= 50 Then
- lblgrade.Text = ("D")
- ElseIf lbloutput.Text <= 50 Then
- lblgrade.Text = ("E")
- End If
- End Sub
- end class
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐Exchange Exploit⭐⭐ 4
JavaScript | 4 sec ago | 0.24 KB
-
⭐ G2A Bug ⭐ (Get more on BTC swaps) ✅ NEVER S...
JavaScript | 7 sec ago | 0.24 KB
-
⭐⭐⭐Profit Method⭐⭐
Java | 8 sec ago | 0.10 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ 3
JavaScript | 8 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ W
JavaScript | 14 sec ago | 0.24 KB
-
⭐✅ Jack's Profit Method ✅ NEVER SEEN BEF...
JavaScript | 16 sec ago | 0.24 KB
-
⭐⭐⭐Make $15OO in 2O minutesV E⭐⭐
Java | 19 sec ago | 0.10 KB
-
⭐⭐Exchange Exploit⭐⭐ 9
JavaScript | 20 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
