数字处置程序.docVIP

8. 验证下列命题：设n是一个s1是n的各位数字之和，s2是2n的各位数字之和。若s1=s2,则n是9的倍数。根据图2和程序填写对象的相关属性，X代表该对象无属性。 对象 名称（Name） 标题（Caption） 正文（Text） 窗体 Frm1 (验证命题) X 标签 LblInput (输入一个两位数) X 文本框 TxtInput X 空 判断按钮 (CmdVerify) 验证 X 退出按钮 CmdExit 退出 X Private Sub CmdVerify_Click() Dim n As Integer,s1 As Integer,sa As Integer n=Val__（TxtInput_) s1=Sm(n) s2=Sm(2*n) If ___（s1=s2 and n Mod 9=0）___Then MsgBox 该命题成立 Else MsgBox 该命题不成立 End If TxtInput.Text= TxtInput.SetFocus End Sub Private Sub CmdExit_Click() Unload Me End Sub ? Private Function Sm(___（ByVal n As Integer）___) As Integer Dim sm1 as integer sm1=0 Do While n0 sm1=sm1+n Mo