codice della pagina da copiare e incollare

<%@ Page Language="VB" Debug="true" %>
<script runat="server">

' Insert page code here
'
sub Page_Load (sender As object, e As EventArgs)
If not Page.IsPostBack then
Session("parzial") = 0
Session("memo") = 0
tbDisplay.Text = ""
end if
end sub

Sub visualizza(sender As Object, e As EventArgs)
tbDisplay.Text += sender.text
End Sub

Sub svuota(sender As Object, e As EventArgs)
tbDisplay.Text = ""
Session("parzial") = 0
Session("memo") = 0
End Sub

Sub opera(sender As Object, e As EventArgs)
Dim parziale As double

parziale = Cdbl(tbDisplay.Text)


if sender.id = "addizione" then
Session("parzial") = Cdbl(Session("parzial") + parziale)
Session("memo") = "1"
tbDisplay.Text = ""
else if sender.id = "sottrazione" then
Session("parzial") = Session("parzial") - parziale
Session("memo") = "2"
tbDisplay.text = ""
else if sender.id = "moltiplicazione" then
Session("parzial") = Cdbl(Session("parzial") * parziale)
Session("memo") = "3"
tbDisplay.text = ""
else if sender.id = "divisione" then
Session("parzial") = Cdbl(Session("parzial") / parziale)
Session("memo") = "4"
tbDisplay.Text = ""
end if

End Sub

Sub calcola(sender As Object, e As EventArgs)
Dim temp As double
temp = Cdbl(tbDisplay.Text)
If Session("memo") = "1" then
Session("parzial") = Cdbl(Session("parzial") + temp)
else if Session("memo") = "2" then
Session("parzial") = Cdbl(Session("parzial") - temp)
else if Session("memo") = "3" then
Session("parzial") = Cdbl(Session("parzial") * temp)
else if Session("memo") = "4" then
Session("parzial") = Cdbl(Session("parzial") / temp)
end if
tbDisplay.Text = Session("parzial")

End Sub

</script>
<html>
<head>
</head>
<body>
<form runat="server">
<input type="hidden" name="parzialeCamp" />
<table style="WIDTH: 304px; HEIGHT: 209px" bordercolor="black" border="3">
<tbody>
<tr>
<td>
<div align="center">
<asp:Button id="Button1" onclick="svuota" runat="server" Text="CE"></asp:Button>
</div>
</td>
<td colspan="4">
<p align="right">
<asp:TextBox id="tbDisplay" runat="server"></asp:TextBox>
</p>
</td>
</tr>
<tr>
<td>
<p align="center">
<asp:Button id="pul1" onclick="visualizza" runat="server" Text="1" value="1"></asp:Button>
</p>
</td>
<td>
<p align="center">
<asp:Button id="pul2" onclick="visualizza" runat="server" Text="2"></asp:Button>
</p>
</td>
<td>
<p align="center">
<asp:Button id="pul3" onclick="visualizza" runat="server" Text="3"></asp:Button>
</p>
</td>
<td>
<p align="center">
<asp:Button id="addizione" onclick="opera" runat="server" Text="+"></asp:Button>
</p>
</td>
<td>
</td>
</tr>
<tr>
<td>
<p align="center">
<asp:Button id="pul4" onclick="visualizza" runat="server" Text="4"></asp:Button>
</p>
</td>
<td>
<p align="center">
<asp:Button id="pul5" onclick="visualizza" runat="server" Text="5"></asp:Button>
</p>
</td>
<td>
<p align="center">
<asp:Button id="pul6" onclick="visualizza" runat="server" Text="6"></asp:Button>
</p>
</td>
<td>
<p align="center">
<asp:Button id="sottrazione" onclick="opera" runat="server" Text="-"></asp:Button>
</p>
</td>
<td>
</td>
</tr>
<tr>
<td>
<p align="center">
<asp:Button id="pul7" onclick="visualizza" runat="server" Text="7"></asp:Button>
</p>
</td>
<td>
<p align="center">
<asp:Button id="pul8" onclick="visualizza" runat="server" Text="8"></asp:Button>
</p>
</td>
<td>
<p align="center">
<asp:Button id="pul9" onclick="visualizza" runat="server" Text="9"></asp:Button>
</p>
</td>
<td>
<p align="center">
<asp:Button id="moltiplicazione" onclick="opera" runat="server" Text="*"></asp:Button>
</p>
</td>
<td>
</td>
</tr>
<tr>
<td>
<p align="center">
</p>
</td>
<td>
<p align="center">
<asp:Button id="pul0" onclick="visualizza" runat="server" Text="0"></asp:Button>
</p>
</td>
<td>
</td>
<td>
<p align="center">
<asp:Button id="divisione" onclick="opera" runat="server" Text="/"></asp:Button>
</p>
</td>
<td>
<p align="center">
<asp:Button id="totale" onclick="calcola" runat="server" Text="="></asp:Button>
</p>
</td>
</tr>
</tbody>
</table>

</form>
</body>
</html>


e verificare perchè non riesce a fare le operazioni diverse dall'addizione