9.2016.物电学院 电气一班 辛雅松 15050341033
一。十进制化为十六进制
在左侧工具栏中，选择"Text"文本框图标，再在右侧Form1中空白区域选择大小适宜的区域，画出文本框。重复一次，再做出一个文本框。
在左侧工具栏中，选择按钮型图标“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“转换”，双击图标，输入如下
Private Sub Command1_Click()
Me.Font.Size = 30
Cls
Dim x As Long
x = Me.Text1.Text
Dim n As Byte
n = Me.Text2.Text
Dim yushu As Long
Dim s As String
Dim yu As String
While x <> 0
yushu = x Mod n
If yushu < 10 Then
yu = yushu
Else
yu = Chr(yushu + 55)
End If
s = yu & s
x = x \ n
Wend
Print s
End Sub
注 ：text1 输入要转换的十进制数， text2中要转换成几进制数就输入几。
二。选择排序法——排序十个随机数
在左侧工具栏中，选择按钮型图标“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“排序”，双击图标，输入如下
Private Sub Command1_Click()
Cls
Dim a(1 To 10) As Integer
Dim i As Byte
Dim j As Byte
Dim t As Long
For i = 1 To 10
a(i) = 10 + Rnd() * 100
Next i
For i = 1 To 10
Print a(i);
Next i
Print
For i = 1 To 9
For j = i + 1 To 10
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To 10
Print a(i);
Next i
End Sub
注：假设第一个数最大，拿它依次与剩下九个数作比较，如果它大，则不变，如果它小，则两数位置对调，以此选出最大数，且最大数在第一位；然后再拿第二个数与剩下八个数依次比较，方法同上，选出第二大的数放在第二位，以此类推。
三。冒泡排序法——排序十个随机数
在左侧工具栏中，选择按钮型图标“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“排序”，双击图标，输入如下
Private Sub Command1_Click()
Cls
Dim a(1 To 10) As Integer
Dim i As Byte
Dim j As Byte
Dim t As Long
For i = 1 To 10
a(i) = 10 + Rnd() * 100
Next i
For i = 1 To 10
Print a(i);
Next i
Print
For i = 1 To 9
For j = 1 To 10 - i
If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 1 To 10
Print a(i);
Next i
End Sub
注：冒泡法思想为小数沉底，大数上浮。即相邻两数作比较，大数放前，小数放后，以此将本轮最小数放在最后，下一轮比较次数 = 上一轮次数 - 1，以此将每轮最小数均放在最后，使得排序成功。
9.2016.物电学院 电气一班 辛雅松 15050341033相关推荐
- 鹿山学院电气与计算机工程系,广西科技大学鹿山学院电气与计算机工程系.doc...
广西科技大学鹿山学院电气与计算机工程系 电计系发[ 2018]28号 关于开展电气与计算机工程系 2018 年度 "评优"工作的通知 系属各单位: 为加强我系思想政治教育工作,深入 ...
- adam算法效果差原因_信电学院本科生提出AI新算法：速度比肩Adam，性能媲美SGD，ICLR领域主席赞不绝口...
晓查 乾明 发自 凹非寺 量子位 报道 | 转自公众号 QbitAI 两位学霸本科生,一位来自浙大,一位来自北大. 他们在实习期间,研究出一种新的AI算法,相关论文已经被人工智能顶级会议ICLR 2 ...
- 浙大计算机系 信电系,奇崛之路——浙江大学信电学院2018年成绩盘点
原标题:奇崛之路--浙江大学信电学院2018年成绩盘点 2018年是孕育的一年,一篇国际合作高水平论文登上2019Nature首刊:2018年是充实的一年,6位高层次人才倾力加盟:2018年是突进的一 ...
- 电赛获奖计算机专业有用吗,计电学院获奖喜报
原标题:计电学院获奖喜报 投稿来源:计电e之光 2019年8月,计电学院在全国大学生电子设计竞赛和第15届湖南省大学生程序设计竞赛中,均收获了喜人的成绩. 获2019年全国大学生电子设计竞赛一等奖 8 ...
- 网易云信联合浙江大学信电学院成立创新与实践基地，探索音视频前沿技术
在新冠疫情对各行各业的持续冲击下,以音视频为代表的非接触式产业成为数字经济的有力支撑,并呈现出极大的发展潜力.为夯实音视频技术研发能力,让创新驱动发展,11月28日,在网易创新企业大会上,来自网易核心 ...
- 杭州水利水电学院计算机多少学,杭州的一所很容易考上的公办本科大学——浙江水利水电学院...
杭州是浙江省会,是副省级城市和长江三角洲中心城市之一:自秦朝设县治以来已有2200多年的历史,市内人文古迹众多,孕育出西湖文化.良渚文化以及许许多多的故事传说:因风景秀丽,被誉为"人间天堂& ...
- 浙江水利水电学院计算机管理办法,浙江水利水电学院校级重点学科建设管理办法-科技处.PDF...
浙江水利水电学院校级重点学科建设管理办法-科技处 浙江水利水电学院校级重点学科建设管理办法 第一章 总则 第一条 学科建设是高等学校发展的一项长期战略任务,是 高等学校建设的核心,是提高教学质量和科研 ...
- Imagination和浙江大学信电学院签署合作协议，校企共创大学课程新篇章
2021年9月8日,Imagination和浙江大学信息与电子工程学院签署合作协议.此次合作是Imagination大学项目(IUP)的一部分,也是Imagination与中国高校合作的新篇章.双方将 ...
- 深圳职业技术学院计算机专业分数线,2016深圳职业技术学院分数线
篇一:深圳市2016高中录取分数线,还2015中考分数线(带2015-2016本科升学率) 深圳市2015-2016年高中学校第一批录取标准(深户公办类) 深圳市2015-2016年高中学校第一批录取 ...
最新文章
- 模型大十倍，性能提升几倍？谷歌研究员进行了一番研究
- java多线程中volatile关键字
- LiveVideoStackCon 北京站，好久不见
- python中lines是什么类型_Python中splitlines()方法的使用简介
- php基础教学笔记,php学习笔记：基础知识
- 985博士妈妈辅导女儿作业被气哭：博士父母带娃真是太难了...
- 定位的特殊特性（HTML、CSS）
- Mysql 数据库/表 备份 与 还原
- Swift编程必备的iOS库 Pod
- 《穿越计算机的迷雾》读书笔记四
- icem不同的划分网格，但是质量差不多
- 速腾聚创三维激光雷达 实现cartographer 建图复现工作（代完成）
- 计数oracle,SQL数据透视表子组计数
- [Unity3D] [学习] Unity3D的官方文档
- android 电话管理
- 武科大计算机学院毕业生薪资,扎薪丨2018高校毕业生薪酬排行榜发布！华科排64、武大排90，非北上广还能去吗？...
- [转贴] 扫盲转贴：Rootkit技术发展史
- 垃圾邮件识别-朴素贝叶斯算法
- PostGIS教程二：PostGIS的安装
- AMOS分析技术：斜交验证性因子分析；介绍如何整理出能够放入论文的模型信效度结果