imacat/stattool
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed styles (added a space after MsgBox and the following open parenthesis.)

Browse Source
This commit is contained in:
依瑪貓 2016-09-08 21:25:11 +08:00
parent 38f767c386
commit c81698e63a
5 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
1CorRel.vb
View File

@ -45,7 +45,7 @@ Sub subRunCorrelation As Object
sSheetName = oRange.getSpreadsheet.getName
If oSheets.hasByName (sSheetName & "_correl") Then
sExisted = "Spreadsheet """ & sSheetName & "_correl"" exists. Overwrite?"
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
If nResult = IDNO Then
Exit Sub
End If

2
2PTTest.vb
View File

@ -45,7 +45,7 @@ Sub subRunPairedTTest As Object
sSheetName = oRange.getSpreadsheet.getName
If oSheets.hasByName (sSheetName & "_ttest") Then
sExisted = "Spreadsheet """ & sSheetName & "_ttest"" exists. Overwrite?"
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
If nResult = IDNO Then
Exit Sub
End If

2
3ITTest.vb
View File

@ -57,7 +57,7 @@ Sub subRunIndependentTTest As Object
Else
sExisted = "Spreadsheet " & sExisted & " exists. Overwrite?"
End If
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
If nResult = IDNO Then
Exit Sub
End If

2
4ANOVA.vb
View File

@ -57,7 +57,7 @@ Sub subRunANOVA As Object
Else
sExisted = "Spreadsheet " & sExisted & " exists. Overwrite?"
End If
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
If nResult = IDNO Then
Exit Sub
End If

2
5Chi2GoF.vb
View File

@ -45,7 +45,7 @@ Sub subRunChi2GoodnessOfFit As Object
sSheetName = oRange.getSpreadsheet.getName
If oSheets.hasByName (sSheetName & "_chi2") Then
sExisted = "Spreadsheet """ & sSheetName & "_chi2"" exists. Overwrite?"
nResult = MsgBox(sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
nResult = MsgBox (sExisted, MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)
If nResult = IDNO Then
Exit Sub
End If