


全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
VB常用算法-进制转化1、十进制正整数m转换为R(216)进制的字符串。 思路: 将m不断除r取余数,直到商为0,将余数反序即得到结果。 算法实现: Private Function Tran(ByVal m As Integer, ByVal r As Integer) As String Dim StrDtoR As String, n As Integer Do While m o n = m Mod r m = m r If n 9 Then StrDtoR = Chr(65 + n - 10) & StrDtoR Else StrDtoR = n & StrDtoR End If Loop Tran = StrDtoR End Function 2、R(216)进制字符串转换为十进制正整数。 思路:R进制数每位数字乘以权值之和即为十进制数。 算法实现: Private Function Tran(ByVal s As String, ByVal r As Integer) As integer Dim n As Integer, dec As Integer s = UCase(Trim(s) For i% = 1 To Len(s) If Mid(s, i, 1) = A Then n = Asc(Mid(s, i, 1) - Asc(A) + 10 Else n = Val(Mid(s, i, 1) End If dec = dec + n * r (Len(s) - i) Next i Tran = dec End Function 解题技巧 进制转化的原理要清楚,同时编写代码时候要留意16进制中的AF字符的处理。 3、实战练习 1) 补充代码(2002秋二(9) 本程序是把给定的二进制整数转换为八进制整数。 Option ExplicitPrivate Sub Command1_Click() Dim a As String, b As String, c As String Dim L As Integer, m As Integer, n As Integer a = InputBox(请输入一个二进制数, 输入框) (1) a = String(L, 0) & a (2) For m = 1 To n / 3 b = Mid(a, 3 * m - 2, 3) (3) Next m Text1.Text = cEnd SubPrivate Function zh(s As String) As String Dim i As Integer, n As Integer, p As Integer p = 1 For i = 2 To 0 Step -1 (4) p = p + 1 Next i zh = Str(n)End Function2) 补充代码(2001春二(7) 下面程序是把给定的16进制正整数转换为10进制数。 Option Explicit16 进制正整数转换为10进制数Private Sub Command1_Click() Dim St As String, Dem As Long St = InputBox(输入一个十六进制数) Dem = Convert(St)Print St; =; Dem End SubPrivate Function Convert(S As String) As Long Dim N As Integer, I As Integer, Substring As String * 1 Dim P As Long, K As Long, Asc1 As Integer N = ( 1 ) P = 16 N For I = 1 To N P = P / 16 Substring = ( 2 ) Select Case Substring Case 0 To 9 K = K + P * Val(Substring) Ca
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 疫情过渡期复课教学计划
- 病案室文书审核及上报流程他
- 初级中学生源稳定计划
- 2025小学期末教学质量数据统计方案范文
- 小学数学奥数思维训练 数论专项:带余除法(含解析)
- 教科版六年级科学信息技术应用计划
- 婚礼布场拆卸流程
- 2024-2025年苏教版小学数学四年级上册校本教学计划
- 小学2025年春季学期学生行为教育计划
- 三年级下册数学个性化教学计划
- 2025年安徽省邮政行业职业技能大赛(快递员赛项)备赛试题库(含答案)
- 汽车产业链协同发展-洞察阐释
- 航空发动机关键部件项目运营管理手册(范文)
- 2025年中国社区O2O商业模式市场分析报告
- 高中数学试卷江苏真题及答案
- 水泥检测试题及答案
- 泰享懂你 康养友伴-2024年新康养需求洞察白皮书-华泰人寿
- 校长竞聘笔试题目及答案
- 夜间作业安全培训培训资料
- 2025-2030“一带一路”背景下甘肃省区域经济发展分析及投资前景报告
- 2025五级应急救援员职业技能精练考试题库及答案(浓缩400题)
评论
0/150
提交评论