最新数字处理程序.docxVIP

8.验证下列命题：设n是一个si是n的各位数字之和，s2是2n的各位数字之和。若s仁s2, 则n是9的倍数。根据图2和程序填写对象的相关属性， X代表该对象无属性。 rWnl rWnl 退出 对象 名称（Name 标题(Caption ) 正文（Text） 窗体 Frmi （验证命题） X 标签 Lbl In put （输入一个两位数） X 文本框 TxtI nput X 空 判断按钮 (CmdVerify ) 验证 X 退出按钮 CmdExit 退出 X Private Sub CmdVerify_Click() Dim n As In teger,s1 As In teger,sa As In teger n=Vai (Txt In put 一) s1=Sm( n) s2=Sm(2* n) If ( si=s2 and n Mod 9=0 ) Then MsgBox 该命题成立” Else MsgBox 该命题不成立” End If Txtl nput.Text= Txtln put.SetFocus End Sub Private Sub CmdExit_Click() Un load Me End Sub Private Function Sm( ( ByVai n As Integer ) ) As Integer Dim smi as in teger sm仁0 Do While n0 smi=smi+n Mod 10 (n=n\10 ) Loop Sm=sm1 End Function 8.下面程序的功能是验证回文数猜想。 任取一自然数，将其倒过来，并将这两个数相加， 然 后把这个和数倒过来，与原来的和数相加……重复这个过程有限次，必将得到一个回文数。 所谓回文数指左右数字完全对称的自然数，例如， 121 ,12321 , 898, 111均是回文数。根据 猜想，假如取一自然数 68 68+86=154 154+45仁605 605+506=1111，经过三步运算就得到 回文数1111。 Opti on Explicit Private Sub Form_Click() Dim S As Lon g,D As Lon g,Sum As Long Dim Flg As Boolea n S=InputBox(输入一个正整数) Do D=Fu n(S) Sum =S+D Print Sum;=;S;+;D Call Comp(Sum,Flg) S= (Sun) Loop Un til Flg Print Sum; 是回文数 End Sub Private Fun cti on Fun(N As Lon g)As Long Dim Char As Stri ng,J As Long Dim I As Integer,Slen As Integer Char=Ltrim(Str(N)) (Slen=Len(Char)) J=1 For I=1 To Sle n Fun=Fu n+Val(Mid(Char,l,1))*J (J=J*10 或 J=109 ) Next I End Function Private Sub Comp(N As Lon g,F As Boolea n) Dim Ch As Stri ng,S As In teger,I As In teger S=Le n(Ltrim(Str(N))) F=False Ch=Ltrim(Str(N)) For 1=1 To___( S)_ If Mid(Ch,l,1)Mid(CH,S+1-l,1)Then Exit Sub Next I ___(F=True)_ End Sub 9.下面程序的功能是从键盘上输入一个不超过 4位的十进制正整数，先把该十进数的每一位 数字转换位一个4位二进制数，再把得到的二进制数依次合并成为一个 16位的二进制数。例 如输入十进制数 359，会得到二进制数 0000001101011001。 Private Sub Form_Click() Dim num As In teger, s As String, M As In teger Dim i As Integer, j As Integer, n As Integer num = InputBox( 输入一个长度不超过 4位的十进制正整数：”，，1) M=num_ Do While num0 j=j + 1 n=n um 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