- 博客(8)
- 收藏
- 关注
RSS订阅原创 多位数乘多位数
Private Sub Command1_Click() Dim c As Byte Dim a() As Byte Dim b As String Dim changdu As Integer, i As Long changdu = Len(Text1.Text) ReDim a(changdu) For i = 1 To changdu b = Mid(Me.Text
2016-04-28 19:46:37
339
原创 多位数乘多位数
Private Sub Command1_Click() Dim c As Byte Dim a() As Byte Dim b As String Dim changdu As Integer, i As Long changdu = Len(Text1.Text) ReDim a(changdu) For i = 1 To changdu b = Mid(Me.Text
2016-04-28 19:44:34
333
原创 十六进制
Private Sub Command1_Click() Me.Font.Size = 50 Print shiliujinzhi(4545) End Sub Private Function shiliujinzhi(m As Integer) As String Dim n As Integer n = m Const shiliu As Byte = 16 Dim retur
2016-04-28 19:42:48
303
原创 二进制
Private Sub Command1_Click() Me.Font.Size = 60 Print erjinzhi(23) End Sub Private Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 2 Dim returns As String D
2016-04-28 19:41:19
158
原创 九种方法
一节Vb课我终于完成了这个伟大的方法 （一） Option Explicit Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer Dim sum As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 1000) +
2016-04-13 22:34:50
204
原创 九种方法
一节Vb课我终于完成了这个伟大的方法 （一） Option Explicit Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer Dim sum As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 1000) +
2016-04-13 22:33:57
180
原创 排序
Private sub command1_click Cls Font.size=30 Dim n as integer Dim size asinteger Size=int(val(me.text1.text)) Dim sierdun() asinteger Redim sierdun(size) N=lbound(sierdun) While
2016-04-06 22:37:19
174
原创 计算机
Private sub command1_click Cls Font.size=30 Dim n as integer Dim size asinteger Size=int(val(me.text1.text)) Dim sierdun() asinteger Redim sierdun(size) N=lbound(sierdun) While
2016-04-06 22:31:27
190
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人