spss：生成你想要的ID

tongtian

　   输入你想编的case数目，操作方法：只要将这个程序粘贴到SPSS的脚本窗口，点击RUN即可。到时需要多少记录由你来定。
　　Sub Main
　　Dim strCmd As String
　　Dim vNbCases As Variant
　　Dim lngNumCases As Long
　　Do vNbCases ＝InputBox（”建立多少记录的数据文件?”，“输入记录数，默认是100．”，”100”）
　　If vNbCases ＝ “”Then Exit Sub
　　Loop Until IsNumeric（vNbCases）
　　strCmd ＝ strCmd & “NEW FILE．”& vbCrLf
　　strCmd ＝ strCmd & “INPUT PROGRAM．”& vbCrLf
　　strCmd ＝ strCmd & “LOOP id＝1 TO ”& vNbCases & “．”& vbCrLf
　　strCmd ＝ strCmd & “END CASE．”& vbCrLf
　　strCmd ＝ strCmd & “END LOOP．”& vbCrLf
　　strCmd ＝ strCmd & “END FILE．”& vbCrLf
　　strCmd ＝ strCmd & “END INPUT PROGAM．”& vbCrLf
　　strCmd ＝ strCmd & “FORMATS id （F8）．”& vbCrLf
　　strCmd ＝ strCmd & “EXECUTE．”& vbCrLf
　　objSpssApp．ExecuteCommands （strCmd，False）
　　End Sub