


全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 河南职业技术学院《世界现代设计史》2023-2024学年第一学期期末试卷
- 公共卫生应急响应2025年资金申请与公共卫生舆情监控报告
- 陕西省西安市78中学2025届九年级化学第一学期期末达标检测模拟试题含解析
- 2024-2025学年湖南省长沙市长郡滨江中学七年级数学第一学期期末质量跟踪监视试题含解析
- 公路货运行业数字化转型效率提升的物流行业物流智能化技术应用报告
- 共享出行市场技术创新对行业格局的影响:2025年商业模式创新报告
- 能源设备环境监测技术培训与应用解析
- 西安美术学院《影视动画作品赏析》2023-2024学年第一学期期末试卷
- 油料运输使用管理办法
- 治安涉企案件管理办法
- 2025年安徽省邮政行业职业技能大赛(快递员赛项)备赛试题库(含答案)
- 汽车产业链协同发展-洞察阐释
- 航空发动机关键部件项目运营管理手册(范文)
- 2025年中国社区O2O商业模式市场分析报告
- 高中数学试卷江苏真题及答案
- 水泥检测试题及答案
- 滴灌带造颗粒合同协议
- 学校总务后勤工作总结模版
- 《蛇咬伤应急处理》课件
- 2025年锚栓市场发展现状
- 养猪场建设项目可行性研究报告(模板范文)
评论
0/150
提交评论