Bonjour a tous il a quelque chose que je ne comprend pas dans ce script VBSpourtant je suis avec le Bloc-Note)
 
Option Explicit
 
Dim Title, Choice, vbCrlf, Ops
 
Dim N1, N2, Result
 
Title = "Calculatrice"vbCrlf = Chr(13)
 
Ops = Split("l'addition,la soustraction,la multiplication,la division,la racine carrée,","," )
 
Do
 
[img][/img]Choice = -1
 
Do
 
Choice = Inputbox("Veuillez choisir l'opération que vous désirez effectuer :" & vbCrlf & vbCrlf & "1) Addition" & vbCrlf & "2) Soustraction" & vbCrlf & "3)
 multiplication" & vbCrlf & "4) Division" & vbCrlf & "5) Racine carrée" & vbCrlf & "0) Quitter", Title)
Loop While Choice<0 Or Choice>5
 
If Choice <> 0 Then
 
n1 = CCur(InputBox("Entrez le premier nombre :", Title)) : n2 = n1
 
If Choice <> 5 Then n2 = CCur(InputBox("Entrez le deuxième nombre : ", Title))
 
On Error Resume Next
 
Select Case Choice
 
Case 1 : Result = n1+n2
Case 2 : Result = n1-n2
Case 3 : Result = n1*n2
Case 4 : Result = n1/n2
Case 5 : Result = n2^0.5
End Select
On Error Goto 0
 
If (Choice > 3) And (N2 <= 0) Then Result = "[erreur]" Else MsgBox "Le résultat de " & Ops(Choice-1) & " est " & Result, vbInformation, "Résultat"
 
ElseIf MsgBox("Souhaitez vous quitter l'application ?", vbYesNo, Title) = vbYes Then
 
WScript.quit
 
End If
 
 
Loop
 
:j'essaye de me creuse la tête  mais j'arrive pas a l'améliorer  pour en faire des cases si quelqu'un qui si connait essaye de le modifier et de me le renvoyer sa serait gentil

A oui j'ai oublier de préciser ceci est une calculatrice en [VBS]

                                aider moi svp je comprend pas trop

VBS, ce n'est pas prévu pour faire des fenêtres et des cases ou des boutons.