Vimmya-CSDN博客

原创十进制数转换成十六进制数

上图程序为Private Sub Command1_Click()Me.Font.Size = 60Print shiliujinzhi(230)End SubPrivate Function shiliujinzhi(m As Integer)As StringDim n As Byten = mConst shiliu As Byte = 16D

2016-04-28 17:06:33 972

原创将十进制数转换成二进制数

先以数字23为例具体程序为Private Sub Command1_Click()Me.Font.Size = 60Dim n As Byten = 23Const er As Byte = 2 Dim shang As ByteDim yushu(1 To 5) As ByteDim i As Bytei = 5shang = n \ er

2016-04-28 16:44:14 1191

原创多位数乘一位数

我又来了赶紧写写完好睡觉我觉得现在的VB课真的是越来越难听懂了对此我并不想多说什么了现在来说多位数乘一位数具体的程序是Private Sub Command1_Click()ClsMe.Font.Size = 50Dim a() As ByteDim r() As ByteDim b As StringDim c As ByteD

2016-04-27 16:20:26 387

原创三位数乘一位数

今天超级开心具体发生了什么我是不会告诉你的啊哈哈今天总结的程序是三位数乘一位数上图拉具体程序是Private Sub Command1_Click()ClsMe.Font.Size = 50Dim a As ByteDim b As StringDim c As Byte b = Mid(Me.Text1.Text, 1, 1)a1

2016-04-27 16:16:06 577

原创怎样计算两位数与一位数相乘

哈哈我有来了困意来的太快就像龙卷风然而事实是明明刚起没多久....接下来这次的最后一个内容怎样计算两位数乘一位数废话不多说直接上图真的感觉好神奇有没有下面就是具体程序拉Option Base 1Private Sub Command1_Click()Me.Font.Size = 70 Dim n1() As Byte,

2016-04-19 15:45:54 922

原创怎样计算一位数与一位数相乘

不知道该说什么感觉现在的VB越来越难驾驭了如果不让看笔记自己写真的真的很有难度现在先说怎样计算一位数乘一位数同样用图说话具体程序如下Option Base 1Private Sub Command1_Click() Me.Font.Size = 70 Dim n1 As Byte Dim n2 As Byte Dim yus

2016-04-19 15:36:46 615

原创怎样计算阶乘

周末忘做VB作业了现在来补今天下雨了突然降温的天还是窝在寝室里比较舒服跟往常一样依旧先上图改变“阶乘（）”括号内的数字就可以算出不同数的阶乘了恩没错就是这样它的程序如下Private Sub Command1_Click() Font.Size = 70 Print 阶乘(10)End SubPrivate Functio

2016-04-19 15:28:37 1155

原创怎样算出15个数的和

又来了这周事情好多抽时间写VB老实说VB课上的内容没怎么听懂特别是for each t in a的那种方法实在是运行不出来下面就说说我运行出来的算15个数和的几种方法方法1：具体程序为：Option ExplicitPrivate Sub Command1_Click()ClsFont.Size = 70 Dim i As I

2016-04-09 13:44:28 1397

原创 s4：VB之如何更改排序的数字的数量

终于要结束了欣慰的我来放出最后的大招如果不想给15个数排序想给10个或100个等等多个数排序的话应该怎样做呢！！只需要创建一个text就可以了还有别忘了在程序最前面点通用加option base 1因为是前面的升级版所以我来多放几张最后的效果图如果你想排序8个数它是这样的如果你想排序10个数它是这样的如果你想排序12个数它是这

2016-04-03 18:04:52 251

原创 S3：VB之15个数的排序（简化版）

好困虽然我的眼睛是睁着的但是意识好像已经不太清醒了接着S2说的话接下来就是如何排列15个数了依然最先放出一目了然的结果图上图的程序是这样的Private Sub Command1_Click()ClsFont.Size = 30Dim n As IntegerDim xierdun(15) As Integern = 1 While n

2016-04-03 17:03:54 260

原创 s2：VB之如何在15个数中把最小的数放在最后

在S1之后，紧跟着更深一步的思考，如何对15个数排序，首先进行第一组排序，我们可以选出最小的数，然后把它放在最后同样先用效果图说话具体的程序如下：Private Sub Command1_Click()ClsFont.Size = 30Dim n As IntegerDim xierdun(15) As Integern = 1 While n

2016-04-03 16:51:28 381

原创 s1:VB之摆出15个数

清明假期三天，因为家远没能回家，无所事事的待在寝室的我，终于想起了VB这项作业首先，如何利用VB摆出15个数呢？先上我的效果图：是不是很神奇....具体程序如下：Private Sub 排序_Click()ClsFont.Size = 30Dim n As IntegerDim xierdun(15) As Integern = 1 Whi

2016-04-03 16:28:23 323

原创 VB之15个数字的排序

15个数字的排序step1.打开VB程序，在窗体上新建commandbutton图标，在右侧按钮属性栏中，将“caption”改为“排序”，将“name”改为“cmdSort”step2.双击按钮图标，编写程序，程序如下：Private Sub cmdSort_Click()ClsMe.Font.Size = 50Dim a As IntegerDim b As Int

2016-03-26 15:01:20 1690

ahayummy的博客