Crowdly
Додати до Chrome
Questions Bank (1532821 total)
Quel est le code qui permet de réaliser l'interface suivante ?
Визначити трудові ресурси малого міста (тис. осіб), якщо відомо: кількість населення містоутворюючої групи – 7,4 тис. осіб; питома вага містоутворюючої групи населення – 30 %; питома вага несамодіяльної групи населення – 49 %.
De quels différents matériels et logiciels informatiques aurez-vous besoin afin de mener à bien l'opération avec 3 athlètes ?
Validez toutes les solutions viables
Quel est le résultat de cette boucle ?
Dim i As Integeri = 1Do Until i > 5 i = i + 2LoopMsgBox i
En analysant le code suivant, indiquez le comportement attendu de la procédure.
Sub MaProcedure()
Dim var1, var2 as integer
Dim var3 as byte
var1=-600
var2=var1*2
var3=200
var3=Cint(var3)
var3=var2+var3
Msgbox var3
End Sub
Quelle est la meilleure boucle pour parcourir un tableau statique, MonTab, en VBA ?
Quelle est le nombre d'éléments d'un tableau déclaré avec la ligne de code suivante ?
Dim Tab(1 to 5) as integer
A la lecture du code suivant, que se passera-t-il si l'utilisateur choisit Ignorer ?
Sub Extraction()Dim pib As DoubleDim pays As StringDim rep, erreur As Byte
erreur=0
i=1
Saisie:pays = InputBox("Quel est le pays dont vous voulez extraire les données ?", "Extraction de données")Do While Cells(i , 1) <> pays i = i + 1Looppib = Cells(i , 2)If pib = "N/A" Then rep = MsgBox("Les données pour le " & pays & " ne sont pas significatives. Souhaitez vous poursuivre ?", vbQuestion + vbAbortRetryIgnore, "Données macroéconomiques") If rep = 3 Then GoTo Fin ElseIf rep = 4 Then GoTo Saisie Else MsgBox "Données non significatives" GoTo Saisie erreur=erreur+1
End IfEnd IfFin:
MsgBox "Il y a eu " & erreur & " erreurs d'extraction pendant cette session"
End Sub
Pourquoi ce code plante-t-il avec une erreur de dépassement de capacité ?
Dim i As Integer, j As Integeri = 1Do While i < 5 j = 10 Do While j > 0 j = j + 1 Loop i = i + 1LoopДля боротьби з хворобами сільськогосподарських культур використовують: