En considérant le code suivant, combien de fois le

traitement sera-t-il réalisé ?

Nbtours = 10

For n=1 to Nbtours

     Nbtours = Nbtours +2

Next n

La procédure Kiplante()

a pour objectif d’enregistrer les meilleurs temps d’un athlète dans une feuille

Excel. On veut obtenir le nom du coureur et son meilleur temps dans une même

ligne. On suppose que la valeur saisie pour la variable Chrono est toujours

strictement supérieur à 0. Le code ne fonctionne pas comme désiré.

Pourquoi ?

Option Explicit

Sub Kiplante()

Dim NbTours, i as

Integer

Dim Chrono,

ChronoEnreg as Long

Dim Coureur as

String

ChronoEnreg = 0

Coureur = Inputbox(« Quel

est le nom de l’athlète ? »)

Cells(« A1 »)

= Coureur

NbTours = Inputbox

(« Combien de tours de pistes ? »)

For i=1 to NbTours

     Chrono = Inputbox (« Quel temps pour

le tour n° » & i)

     If Chrono < ChronoEnreg Then

          Cells(« A2 ») = Chrono

          Cells(« A3 ») = NbTours

          ChronoEnreg = Chrono

     End if

Next i

End Sub

טעות

בוצעה ע"י התמחירן של חברת

(1)  

העלות שיוחסה לעלויות שהושלמו והועברו במשך

הרבעון [להלן: (1)]

(2)  

 העלות

שיוחסה ליחידה שוות עלות (יחידה אקוויוולנטית) [להלן: (2)]

Quelle est la valeur de la variable Différence après la

séquence d’instructions suivantes :

Dim i As Integer , Différence As Integer

For i = 1 to 3

Différence = Différence - i 

Next i

MsgBox Différence

Soit la macro suivante :

Sub Addition()

Dim a as string

Dim b as string

a = "10"

b= "12"

Msgbox a + b

End sub

Quel est le résultat affiché dans la MsgBox ?

La procédure Kiplante()

a pour objectif d’enregistrer les meilleurs temps d’un athlète dans une feuille

Excel. On veut obtenir le nom du coureur et son meilleur temps dans une même

ligne. On suppose que la valeur saisie pour la variable Chrono est toujours

strictement supérieur à 0. Le code ne fonctionne pas comme désiré.

Pourquoi ?

Option Explicit

Sub Kiplante()

Dim NbTours, i as Integer

Dim Chrono,

ChronoEnreg as Long

Dim Coureur as

String

ChronoEng = 60000

Coureur =

Inputbox(« Quel est le nom de l’athlète ? »)

Cells(« A1 »)

= Coureur

NbTours = Inputbox

(« Combien de tours de pistes ? »)

For i=1 to NbTours

     Chrono = Inputbox (« Quel temps pour

le tour n° » & i)

     If Chrono < ChronoEng Then

          Cells(« A2 ») = Chrono

          Cells(« A3 ») = NbTours

          ChronoEng = Chrono

     End if

Next i

End Sub

On demande à un utilisateur de taper une date dans une boite de dialogue jusqu’à ce que la frappe n’est pas reconnue comme une date par le

système, il faut réafficher la boite de dialogue. On écrira alors :

Le joueur 1  saisit

un nombre (ici compris entre 0 et 1000000) que le joueur 2 doit deviner. On

demande donc au joueur 1 de « Saisir le nombre à deviner ». Pour se faire, on

devra écrire

La inversa de la matriz con coeficientes en es:

Si  es la matriz ampliada asociada a un sistema de ecuaciones lineales en entonces dicho sistema es