zhengqian680的博客

原创 十六进制

Private Sub Command1_Click() Me.Font.Size = 70  Dim a As Integer  Dim b As Integer  Dim s As String  Dim yushu As Byte  a = 1230: b = 16  While a  yushu = a Mod b  s = f(yushu) & s a = a \

原创 小于65536的数的十六进制数

Private Sub Command1_Click()  Print shiliujinzhi(1256) End Sub Private Function shiliujinzhi(m As Integer) As String  Dim n As Integer  n = m  Const er As Byte = 16  Dim shang As Byte  Dim ret

原创 小于256任意数的二进制数

Private Sub Command1_Click()  Print erjinzhi(220) End Sub Private Function erjinzhi(m As Byte) As String  Dim n As Byte  n = m  Const er As Byte = 2  Dim shang As Byte  Dim returns As String

原创 23的二进制数

Private Sub Command1_Click() Me.Font.Size = 30 Dim n As Byte n = 23Private Sub Command1_Click() Me.Font.Size = 30 Dim n As Byte n = 23 Const er As Byte = 2 Dim shang As Byte Dim yushu(1 To

原创 多位数乘以一位数

Private Sub Command1_Click() Dim a() As Byte Dim b As String Dim changdu As Long, i As Long changdu = Len(Text1.Text) ReDim a(changdu) For i = 1 To changdu     b = Mid(Me.Text1.Text, i, 1)  

原创 一位数乘以一位数

原创 VB作业2 排序

原创 VB作业1

第一次写VB作业，之前在课堂上不会做，墨迹半天就下课了，作业不知道该怎么写。这次终于写了第一次作业，有开始就有接下来，所以以后好好认真写每一次作业！ Private Sub Command1_Click() Cls Font.Size = 20 Dim n As Integer   Dim sierdun(15) As Integer n = 1 While n    sie