yj1356534605的博客

原创 2138转换成十六进制

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

原创 选择法排序

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

原创 1230转换成16进制

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Integera = 1230: b = 16While a     yushu = a Mod b    s = f(yushu) & s    a = a \ bWendPri

原创 十进制转换成二进制

Private Sub Command1_Click()Me.Font.Size = 30Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 16Dim returns As StringDim s

原创 作业3

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 yushu1 As Byte, yushu2 As Byte    Dim shang A

原创 作业 2

Private Sub Command1_Click()Dim c As ByteDim a() As ByteDim b As StringDim changdu As Integer, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To changdub = Mid(Me.Text1.

原创 15级电气2班阳军作业

Private Sub Command1_Click()Dim c As ByteDim a() As ByteDim b As StringDim changdu As Integer, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To changdub = Mid(Me.Text1.

原创 九种求和方法

（一） 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

原创 VB上机

原创 vb作业