数字处理程械尿.docVIP

8. 验证下列命题：设n是一个s1是n的各位数字之和，s2是2n的各位数字之和。若s1=s2,则n是9的倍数。根据图2和程序填写对象的相关属性，X代表该对象无属性。 对象名称（Name）标题（Caption）正文（Text）窗体Frm1(验证命题)X标签LblInput(输入一个两位数)X文本框TxtInputX空判断按钮(CmdVerify)验证X退出按钮CmdExit退出XPrivate 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 Mod 10 ___（n=n\10）___ Loop Sm=sm1 End Function 8. 下面程序的功能是验证回文数猜想。任取一自然数，将其倒过来，并将这两个数相加，然后把这个和数倒过来，与原来的和数相加……重复这个过程有限次，必将得到一个回文数。 所谓回文数指左右数字完全对称的自然数，例如，121，12321，898，111均是回文数。根据猜想，假如取一自然数68?68+86=154?154+451=605?605+506=1111，经过三步运算就得到回文数1111。 Option Explicit Private Sub Form_Click() Dim S As Long,D As Long,Sum As Long Dim Flg As Boolean S=InputBox(输入一个正整数) Do D=Fun(S) Sum =S+D Print Sum;=;S;+;D Call Comp(Sum,Flg) S=___(Sum)___ Loop Until Flg Print Sum;是回文数 End Sub ? Private Function Fun(N As Long)As Long Dim Char As String,J As Long Dim I As Integer,Slen As Integer Char=Ltrim(Str(N)) ___(Slen=Len(Char))___ J=1 For I=1 To Slen Fun=Fun+Val(Mid(Char,I,1))*J ___(J=J*10或J=10^i)___ Next I End Function Private Sub Comp(N As Long,F As Boolean) Dim Ch As String,S As Integer,I As Integer S=Len(Ltrim(Str(N))) F=False Ch=Ltrim(Str(N)) For I=1 To___(S)___ If Mid(Ch,I,1)Mid(CH,S+1-I,1)Then Exit Sub Next I ___(F=True)___ End Sub 9.下面程序的功能是从键盘上输入一个不超过4位的十进制正整数，先把该十进数的每一位数字转换位一个4位二进制数，再把得到的二进制数依次合并成为一个16位的二进制数。例如输入十进制数359，会得到二进制数0000001101011001。 Private Sub Form_Click() Dim num As Integer, s As String, M As Integer Dim i As Integer, j As Integer, n As Integer num = InputBox(输入一个长度不超过4位的十进制正整数：, , 1) ___M=num__ Do While num0 j=j + 1 n=num Mod 10 s=cover(n) s ___num=num\10__ Loop For i=1 To 4-j s=0000 s Next i Text1.Text=十进制数CStr(M)的转换结果是： s End Sub Private Function cover(ByVal n As Int