- 博客(11)
- 收藏
- 关注
原创 选择法排序
Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i)Next iPrintDim j As IntegerFor j = 1 To 9For i = j + 1
2016-05-07 17:58:39 191
原创 16进制
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Integera = 1230b = 16While a yushu = a Mod b s = f(yushu) & s a = a \ b Wend
2016-05-07 17:54:04 229
原创 二进制
Private Sub Command1_Click()Me.Font.Size = 60Print erjinzhi(23)End Sub Private Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim returns As StringD
2016-04-28 16:42:24 255
原创 作业
Private Sub Command1_Click() Cls Dim a() As Byte Dim r() As Byte Dim b As String Dim c As Byte Dim i As Long Dim L As Long L = Len(Me.Text1.Text) ReDim a(L
2016-04-21 17:13:57 148
原创 阶乘
Private Sub Command1_Click()ClsFont.Size = 70Print 阶乘(12)End SubPrivate Function 阶乘(n As Integer) As LongIf n = 1 Then阶乘 = 1Else阶乘 = n * 阶乘(n - 1)End IfEnd Function
2016-04-21 16:19:39 181
原创 两数相乘
Private Sub Command1_Click()ClsMe.Font.Size = 70Dim n1 As ByteDim n2 As ByteDim yushu As ByteDim shang As Byte Dim tempresult As Byte n1 = Int(Val(Me.Text1.Text))n2 = Int(V
2016-04-14 17:08:52 285
原创 ????????
原搬硬套写下了程序,也能运行出来就是不知道啥意思Private Sub Command1_Click() Cls Font.Size = 70 Dim arr(5) As Integer For i = 1 To 5 arr(i) = i Next For Each t In arr
2016-04-14 16:21:29 160
原创 随机生成10个数并求和方法二
Private Sub Command1_Click()ClsDim n As Integer, s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print a(n)n = n + 1Wends = 0
2016-04-07 16:59:25 586
原创 随机生成10个数并求和法一
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) + 1 sum = sum + a(i)
2016-04-07 16:29:17 2379
原创 作业呀
按这个程序Private Sub Command1_Click()Cls Font.Size = 30 Dim n As Integer Dim sierdum(15) As Integer n = 1 While n sierdum(n) = Int(Rnd * 1000) n = n +
2016-03-31 17:06:24 175
原创 vb
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-03-28 14:17:05 160
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人