热线电话:13121318867

登录
首页精彩阅读试卷或问卷的可靠度分析
试卷或问卷的可靠度分析
2017-04-22
收藏

试卷或问卷的可靠度分析

输入你想编的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

数据分析咨询请扫描二维码

最新资讯
更多
客服在线
立即咨询