- 博客(9)
- 收藏
- 关注
原创 2138成16进制
Private Sub Command1_Click()Me.Font.Size = 50Print shiliujinzhi(2138)End SubPrivate Function shiliujinzhi(m As Integer)As StringDim n As Integern = mConst shiliu As Byte = 16Dim return
2016-05-12 17:09:20
169
原创 选择排序
Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i) Next i Print Dim j As Integer
2016-05-12 17:08:11
129
原创 作业4
Dim n1 As Byte, n1len As LongDim n2 As Byte, n2len As LongDim yushu As ByteDim shang As Byte Dim tempResule As Byte n1len = Len(Me.Text1.Text)n2len = Len(Me.Text2.Text)ReDim n1(n1len
2016-04-21 16:57:08
134
原创 4.14
Option Base 1Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1len As Long Dim n2() As Byte, n2len As Long Dim yushu As Byte Dim shang As Byte Di
2016-04-14 17:39:19
132
原创 15个数排序
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 IntegerDim g As IntegerDim h As IntegerDi
2016-04-14 17:23:08
118
原创 求和
1. Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerDim a(10) As IntegerDim sum As IntegerRandomizeFor i = 1 To 10 a(i) = Int(Rnd * 1000) + 1 sum = sum + a(
2016-04-14 17:15:07
124
原创 3.31
Private Sub Command1_Click()ClsFont.Size = 30Dim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000) n = n + 1Wendn = 1While n If sierdun(n) swap
2016-03-31 17:23:25
142
原创 红糖水白糖水切换vb
打开VB软件在左侧工具箱窗口找到Label,在窗体中适当位置创建一个图标,在右侧属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中,双击forecolor将字体颜色改为红色,双击font将后面的字体调整为适当大小,双击backcolor选择适当背景颜色。在左侧工具箱窗口找到Label,在窗体中适当位置创建一个图标,在右侧属性窗口中找到“caption”
2016-03-28 14:55:02
216
原创 15个数排序
在command1中编辑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 IntegerDim g As Integer
2016-03-28 14:52:02
142
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人