试卷或问卷的可靠度分析

输入你想编的case数目，操作方法：只要将这个程序粘贴到SPSS的脚本窗口，点击RUN即可。到时需要多少记录由你来定。
Sub Main
Dim strCmd As String

Dim vNbCases As Variant

Dim lngNumCases As Long
Do vNbCases =InputBox("建立多少记录的数据文件？", "输入记录数，默认是１００．","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