《【2017年整理】数字处理程序》由会员分享，可在线阅读，更多相关《【2017年整理】数字处理程序（8页珍藏版）》请在金锄头文库上搜索。
1、8. 验证下列命题：设 n 是一个 s1 是 n 的各位数字之和，s2 是 2n 的各位数字之和。若 s1=s2,则n 是 9 的倍数。根据图 2 和程序填写对象的相关属性，X代表该对象无属性。对象 名称（Name） 标题（Caption） 正文（Text）窗体 Frm1 (验证命题) X标签 LblInput (输入一个两位数) X文本框 TxtInput X 空判断按钮 (CmdVerify) 验证 X退出按钮 CmdExit 退出 XPrivate Sub CmdVerify_Click()Dim n As Integer,s1 As Integer,sa As Integern=Val
2、_（TxtInput_)s1=Sm(n)s2=Sm(2*n)If _（s1=s2 and n Mod 9=0）_ThenMsgBox 该命题成立ElseMsgBox 该命题不成立End If TxtInput.Text=TxtInput.SetFocusEnd SubPrivate Sub CmdExit_Click()Unload MeEnd SubPrivate Function Sm(_（ByVal n As Integer）_) As IntegerDim sm1 as integersm1=0Do While nMid(CH,S+1-I,1)Then Exit SubNext I_(
3、F=True)_End Sub9.下面程序的功能是从键盘上输入一个不超过 4 位的十进制正整数，先把该十进数的每一位数字转换位一个 4 位二进制数，再把得到的二进制数依次合并成为一个 16 位的二进制数。例如输入十进制数 359，会得到二进制数 0000001101011001。Private Sub Form_Click()Dim num As Integer, s As String, M As IntegerDim i As Integer, j As Integer, n As Integernum = InputBox(输入一个长度不超过 4 位的十进制正整数：, , 1)_M=nu
4、m_Do While num0j=j + 1n=num Mod 10s=cover(n) & s_num=num10_LoopFor i=1 To 4-js=0000 & sNext iText1.Text=十进制数&CStr(M)&的转换结果是： & sEnd SubPrivate Function cover(ByVal n As Integer)As StringDim i As Integer, s As String, k As IntegerDo Until n 2 Then 是否为左边第二位数p = p + Mid（s, i, 1） 将每位字符串连接End IfNext iCha
5、nge = pEnd FunctionPrivate Sub Command1_Click（）Dim i As Integer, s As StringFor i = 1000 To 9999 在四位数之间查找s = CStr（i） 将数值转变成字符串If Mid （s, 2, 1） = 0 Then 取百位数，并判断是否为0If Val（Change （s ） ） * 9 = i Then 去掉百位数后的数乘 9 后是否等于原来的数List1.AddItem CStr（i ）+ = +Change（s）+ *9 连接成字符串后，添加到列表框内End IfEnd IfNext iEnd Sub
6、9本程序是把给定的二进制整数转换为八进制整数。Private Sub Command1_Click（）Dim a As String, b As String, c As Stringa = InputBox（请输入一个二进制数, 输入框 ）L = 3 -（ Len（a） ）Mod 3a = String（L, 0） & an = Len （a）/ 3 For m = 1 To nb = Mid（a, 3 * m - 2, 3）c = c + zh （b）Next mText1.Text = cEnd SubPrivate Function zh（s As String） As StringD
7、im i As Integer, n As Integer, p As Integerp = 1For i = 2 To 0 Step -1n = n * 2 + Val（Mid （s, p, 1） ）p = p + 1Next izh = Str（n）End Function10找出由两个不同数字组成的平方数，并将结果按图 4 中的格式显示在列表框 List1 中。Option ExplicitPrivate Sub Command1_Click（）Dim I As Long, N As LongFor I = 11 To 300N = I * I If Verify（N） ThenList
8、1.AddItem Str （I*I）+ =+ Str（I）+ * + Str（I）End IfNext IEnd SubPrivate Function Verify（N As Long） As BooleanDim A（0 To 9） As Integer, I As Integer, J As IntegcrDo While N 1 Then Display = Display(S, L - 1)S = Left(S, L - 1) & Right(S, 1) & Mid(S, L, Len(S) - L)Display = SPrint DisplayEnd FunctionS L 打
9、印 层数LAUSIV 6 一LAUSIV 5 二LAUSIV 4 三LAUSIV 3 四LAUSIV 2 五LAUSIV 1 Left(S, 0) & Right(S, 1) & Mid(S, 1, 5)VLAUSI六VLAUSI 2 Left(S, 1) & Right(S, 1) & Mid(S, 1, 4)VILAUS五VILAUS 3 Left(S, 2) & Right(S, 1) & Mid(S, 1, 3)VISLAU四VISLAU 4 Left(S, 3) & Right(S, 1) & Mid(S, 1, 2)VISULA三VISULA 5 Left(S, 4) & Right(S, 1) & Mid(S, 1, 1)VISUAL二VISUAL 6 Left(S, 5) & Right(S, 1) & Mid(S, 1, 0)VISUAL一（13）VLAUSI（14）VILAUS（15）VISUAL分析：过程 Display 是个递归过程。Left （x，n）从 x 字符串左边起取 n 个字符，Right（ x，n）从 x 字符串右边起取 n 个字符，Mid（x，n1，n1）从 x 字符串左边第 n1 个位置开始向右起取以个字符，Len （x）求 x 字符串的长度（字符个数）。
