![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB
文章平均质量分 52
Vimmya
这个作者很懒,什么都没留下…
展开
-
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 · 324 阅读 · 0 评论 -
怎样计算一位数与一位数相乘
不知道该说什么感觉现在的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 · 618 阅读 · 0 评论 -
怎样计算阶乘
周末忘做VB作业了现在来补今天下雨了突然降温的天还是窝在寝室里比较舒服跟往常一样依旧先上图改变“阶乘()”括号内的数字就可以算出不同数的阶乘了恩没错就是这样它的程序如下Private Sub Command1_Click() Font.Size = 70 Print 阶乘(10)End SubPrivate Functio原创 2016-04-19 15:28:37 · 1157 阅读 · 0 评论 -
十进制数转换成十六进制数
上图程序为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 · 994 阅读 · 0 评论 -
将十进制数转换成二进制数
先以数字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 · 1194 阅读 · 0 评论 -
三位数乘一位数
今天超级开心具体发生了什么我是不会告诉你的啊哈哈今天总结的程序是三位数乘一位数上图拉具体程序是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 · 578 阅读 · 0 评论 -
多位数乘一位数
我又来了赶紧写写完好睡觉我觉得现在的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 · 390 阅读 · 0 评论 -
怎样算出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 · 1401 阅读 · 0 评论 -
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 · 1692 阅读 · 0 评论 -
s4:VB之如何更改排序的数字的数量
终于要结束了欣慰的我来放出最后的大招如果不想给15个数排序想给10个或100个等等多个数排序的话应该怎样做呢!!只需要创建一个text就可以了还有别忘了在程序最前面点通用加option base 1因为是前面的升级版所以我来多放几张最后的效果图如果你想排序8个数它是这样的如果你想排序10个数它是这样的如果你想排序12个数它是这原创 2016-04-03 18:04:52 · 253 阅读 · 0 评论 -
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 · 261 阅读 · 0 评论 -
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 阅读 · 0 评论 -
怎样计算两位数与一位数相乘
哈哈我有来了困意来的太快就像龙卷风然而事实是明明刚起没多久....接下来这次的最后一个内容怎样计算两位数乘一位数废话不多说直接上图真的感觉好神奇有没有下面就是具体程序拉Option Base 1Private Sub Command1_Click()Me.Font.Size = 70 Dim n1() As Byte,原创 2016-04-19 15:45:54 · 924 阅读 · 0 评论