Задать коды пропущенных значений для всех числовых переменных

'Задать коды пропущенных значений для всех числовых переменных
' (одинаковые "миссинги" для всех Numeric-переменных).
'Автор: Rafael Osorio (usenet, 25 февраля 2000, пятница)

Sub Main
	
	Dim i As Integer
	Dim info As ISpssInfo
	
	Set info = objSpssApp.SpssInfo

	For i = 0 To info.NumVariables - 1

		If info.VarType(i) = 0 Then
			
			objSpssApp.ExecuteCommands "MISSING VALUES " &info.VariableAt(i) &" (-8,-9)." , False
		
		End If
				
	Next

End Sub