- 博客(6)
- 收藏
- 关注
原创 选择法排序
其实与冒泡法排序的原理是相同的就是通过依次比较大下来确定顺序Private Sub Command1_Click()ClsMe.Font.Size = 20Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i)N
2016-05-07 17:51:25 349
原创 0~255的数转换为二进制
2016年4月28日明天就要回家了,但还是得写作业所以我又来敲代码了,今天的内容是将一个数转换为二进制代码如下:Private Sub Command1_Click()Me.Font.Size = 50Print erjinzhi(23)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As B
2016-04-28 16:33:23 4053
原创 练习多位数乘一位数
在按钮中输入以下代码:Dim c As ByteDim a() As ByteDim b As StringDim changdu As Long, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To changdu b = Mid(Me.Text1.Text, i, 1) a
2016-04-21 16:55:48 396
原创 任意数比大小新方法
2016.03.31.学习新的更简便的比较大小方法1.将通用设置为option base 12.新建按钮3.新建一个文本框3.在按钮中输入以下代码ClsFont.size = 30Dim n As IntegerDim size As Integersize = Int(Val(Me.Text1.Text))Dim sierdun() As Intege
2016-03-31 17:15:46 517
原创 15电气刘慧岩作业
1.打开VB2.新建一个按钮。3.双击按钮,在新的窗口中输入以下代码Private Sub Command1_Click()ClsMe.Font.Size = 24Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As
2016-03-25 16:47:36 566
原创 随机数比较大小
1.打开VB,创建按钮。2.将按钮名称改为cmdsort,其caption改为“交换了”3.双击按钮,在新界面输入以下代码:Private Sub CMDsort_Click()ClsMe.Font = 50Dim a As IntegerDim b As Integera = Int(Rnd * 1000)b = Int(Rnd * 1000)If
2016-03-24 16:48:18 1643
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人