Sub Main
	Begin Dialog UserDialog 270,119
		Text 20,7,200,14,"請(qǐng)選擇一種統(tǒng)計(jì)分析方法："
		OKButton 80,91,100,21
		CheckBox 20,35,90,14,"回歸分析",.CheckBox1
		CheckBox 20,63,90,14,"相關(guān)分析",.CheckBox2
		CheckBox 140,35,110,14,"聚類分析",.CheckBox3
		CheckBox 140,63,100,14,"因子分析",.CheckBox4
	End Dialog
    Dim dlg As UserDialog
    dlg.CheckBox1 = 1
    dlg.CheckBox2=1
    dlg.CheckBox3=1
    dlg.CheckBox4=1
    Dialog dlg    ' 顯示對(duì)話框,等待OK鍵響應(yīng)
    If dlg.CheckBox1=1 Then
      Debug.Print "選擇了回歸分析方法"
    End If
    If dlg.CheckBox2=1 Then
      Debug.Print "選擇了相關(guān)分析方法"
    End If
    If dlg.CheckBox3=1 Then
      Debug.Print "選擇了聚類分析方法"
    End If
    If dlg.CheckBox4=1 Then
      Debug.Print "選擇了因子分析方法"
    End If
End Sub