rothen ecotronics Bern: ASP-Skript "SWP-Einfï¿½hrung ASP: Verzweigung mit If, Zufallszahl"

<%@ Language=VBScript %>
<%
Response.Expires = 0
%>
<html>
<head>
<title>SWP-Einführung ASP: Verzweigung mit If, Zufallszahl</title>
</head>
<body>
<%
'Variablen deklarieren
Dim sngzufallszahl, strvergleich
'Zufallsgenerator anstossen
Randomize()
'Zufallszahl erzeugen
sngzufallszahl = Rnd()

'Verzweigung mit Wenn
If sngzufallszahl < 0.5 Then
  strvergleich = "kleiner"
Else
  strvergleich = "grösser"
End If

Response.Write("Die Zufallszahl " & sngzufallszahl & " ist " & _
  strvergleich & " als 0.5!" & vbCrLf)
%>


</body>
</html>

Demo: uebungen/uebung03if.asp

Letzter Update: 26.12.2021 16:48

Zurück zur Liste mit ASP-Übungen auf www.ecotronics.ch