Anrise-CSDN博客

原创二进制与十六进制

二进制Private Sub Command1_Click() Print erjinzhi(25) EndSubPrivate Function erjinzhi(m As Byte) AsString Dim n As Byte n = m Const er As Byte = 2

2016-05-07 20:45:53 770

原创数的16进制转换加选择排序法,冒泡排序法

为什么要发明16进制呢?答:8进制16进制来源于2进制,有些数串太长用二进制不方便,用十六进制更方便人们看.Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Byte a = 1230: b = 16 Whi

2016-05-07 19:52:47 1395

原创乘法运算

乘法运算:在vb中如果位数超过一定的数量计算结果就会出错,所以必须编制一套程序供其运算.(以前每次上vb课一般都是照着老师编好的程序录入运行,感觉好轻松,但是交完作业后再想想感觉自己收获并不大啊.因为我连一个完整的程序都读不懂,只会机械的复制粘贴,半个学期过去了也上了八次vb课了,感觉自己还没有入门,真害怕有一天别人问我,你vb学得怎么样啊,依然四个字"菜的不行".今天老师花了他宝贵的时间耐心

2016-04-21 19:22:53 629

原创随机生成10个数求和方法(11)

随机生成10个数求和上述Sum可以不声明默认为0但是有option explicit必须声明否则不合法生成并输出10个数求和Private Sub Command1_Click()ClsDim i As Integer, s As Integer, n AsIntegerDim a(10) As Integer n =1While n a(n

2016-04-14 21:45:52 6952 1

原创运算

今天练习了一位数加一位数,俩位数加一位数,1.一位数加俩位数Private SubCommand1_Click()Dim n1 As ByteDim n2 As ByteDim yushu As ByteDim shang As ByteDim tempresult AsByten1 =Int(Val(Me.Text1.Text))n2 =Int(Val(M

2016-04-14 20:02:36 452

上周进行了15个数的排序，多次的复制粘贴我竟然是一个一个粘的（捂脸），今天上课才反应过来其实可以一变二，二变四，四变八…….如约而至，老师教给了我们简单的方法。但是程序有点多来不及记下来（没有过目不忘的本事），甚至没有拍下来，所以做作业的时候有点慢，过程中出现了好多问题。感觉vb有点像数学的证明题，但是又不完全像，因为有时候判卷老师没有勇气把我的证明过程全部看完，看着差不多就会把分给我，但是计算机

2016-03-31 22:18:50 444

原创 15教育技术冯志超

2016 3 24第一次写博客今天的vb课上的还阔以，主要学习了数字的交换，排序，if函数的简单运用等等。感触最深的是15个数的排序问题。用了好多的复制粘贴。下面让我们来回忆一下，首先建一个小按钮双击后开始输入程序。1. 给A-O这15个字母赋一种数值型如Dim a As Integer Dim b As Integer Dim c As Integer……2.

2016-03-24 22:59:46 660 1

Anrise的博客