加减运算.sbs

SPSS的实战介绍

Sub Main
	Dim sinA As Single
	Dim sinB As Single
	Dim sinSum As Single
	Begin Dialog UserDialog 410,252,"加减运算",.DialogFunc ' %GRID:10,7,1,1
		TextBox 160,77,140,28,.Txt2
		Text 70,35,70,14,"数 值 1",.Text1
		Text 70,84,80,14,"数 值 2",.Text2
		TextBox 160,126,140,28,.Txt3
		Text 70,133,60,14,"和或差",.Text3
		PushButton 70,189,80,28,"求  和",.Sum
		PushButton 170,189,80,28,"求  差",.Subtract
		PushButton 270,189,80,28,"取  消",.Cancel
		TextBox 160,28,140,28,.Txt1
	End Dialog
	Dim dlg As UserDialog
	Dialog dlg
End Sub
Function DialogFunc%(DlgItem$, Action%, SuppValue%)
    Select Case Action%
    Case 1 ' 对话框初始化
        Beep
    Case 2 ' 控件的值改变或控件被单击
       Select Case DlgItem
         Case  "Sum"
           DlgText "Text3","和"
           DlgText "Txt3",CStr(CSng(DlgText("Txt1"))+CSng(DlgText("Txt2")))
            DialogFunc% = True '如果单击了“Hello”按钮，则不关闭对话框
        Case "Subtract"
            DlgText "Text3","差"
           DlgText "Txt3",CStr(CSng(DlgText("Txt1"))-CSng(DlgText("Txt2")))
            DialogFunc%=True
        Case "Cancel"
            DialogFunc=False
        End Select
    End Select
End Function