Public Sub sumar() PROGRAMA$ = "TAULA DE SUMAR" PAUSA = 4 Dim aP: Dim B(10): Dim RESO 1000 Form1.SSPanel6.Caption = "INTRODUEIX EL NÚMERO QUE MANCA" 1010 If Frecu = Fr Then Exit Sub Else Call INICIAR 1020 T = EXERCICI 1030 For numero = 0 To 9 1040 RESP = T + numero 1050 locate (numero + 9), 10: Form1.picture1.Print T; " + "; numero; " = ": locate numero + 9, 24: Form1.inputa RES$: Form1.picture1.Print RES$: RESO = Val(RES$) 1060 If RESO <> RESP Then Call ERRORI: Else GoTo 1090 1070 GoSub 1410 1080 locate (numero + 9), 22: Form1.picture1.Print " ": GoTo 1050 1090 If RESP = RESP Then Call ACERTI 1100 Next 1110 Rem If E <= C(9) Then GoTo 1120 Else GoSub 40180: E = 0: GoTo 1030 1120 Rem saltada 1121 e = 0 1130 Form1.picture1.Cls 1140 For X = 1 To 9 Form1.picture1.Cls 1150 B(X) = Int(Rnd * 10) 1160 aP = T + B(X) 1170 locate 15, 25: Form1.picture1.Print " " 1180 locate 15, 13: Form1.picture1.Print T; " + "; B(X); " = " 1190 locate 15, 27: Form1.inputa RES$: Form1.picture1.Print RES$: RO = Val(RES$) 1200 If RO <> aP Then Call ERRORI Else GoTo 1230 1210 GoSub 1410 1220 GoTo 1180 1230 If RO = aP Then Call ACERTI 1240 Next X 1250 If e <= 2 Then GoTo 1260 Else GoTo 1120 1260 Rem taula saltada: 1270 e = 0: Form1.picture1.Cls 1290 For X = 1 To 10: Form1.picture1.Cls 1300 B(X) = Int(Rnd * 10) 1310 aP = T + B(X) 1320 locate 15, 21: Form1.picture1.Print " " 1330 locate 15, 15: Form1.picture1.Print T; " + "; " "; " ="; aP; 1340 locate 15, 21:: Form1.inputa R$: Form1.picture1.Print RES$: RO = Val(RES$) 1350 If RO <> B(X) Then Call ERRORI Else GoTo 1380 1360 GoSub 1410 1370 GoTo 1330 1380 If RO = B(X) Then Call ACERTI 1390 Next X 1400 If e <= 2 Then GoTo 1000 Else GoTo 1260 1410 Rem 1420 Form1.picture1.Cls 1430 For NUM = 0 To 9: 1440 RE = T + NUM 1450 locate NUM + 8, 15: Form1.picture1.Print T; " + "; NUM; " = "; RE 1460 Next NUM 1470 PAUSA = 8: Call TIEMPO: Form1.picture1.Cls: Return End Sub

function sumar(){
  let aP;
  let B=new Array(10);
  let RESO;
  let numero;
  let T;

  document.getElementById("SSPanel6").innerHTML = "INTRODUEIX EL NÚMERO QUE MANCA";

  if(frecu == fr){
    return;
  }
  else{
    iniciar();
  }

  T = exercici;

  for(numero = 0; numero < 10; numero++){
    RESP = T + numero;
    document.getElementById("numero").innerHTML = T + "  +  " + numero + " = ";
    RESO = parseInt(document.getElementById("RES").value);
    document.getElementById("RES").innerHTML = RESO;
    if(RESO != RESP){
      errori();
    }
    else{
      continue;
    }
    document.getElementById("numero").innerHTML = "    ";
  }