'Задать коды пропущенных значений для всех числовых переменных ' (одинаковые "миссинги" для всех 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