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 SubPrivate 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 SubPrivate 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 = 30Dim n As Byten = 23Private Sub Command1_Click()Me.Font.Size = 30Dim n As Byten = 23Const er As Byte = 2Dim shang As ByteDim yushu(1 To

原创 多位数乘以一位数

Private Sub Command1_Click()Dim a() As ByteDim b As StringDim changdu As Long, i As Longchangdu = 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()ClsFont.Size = 20Dim n As Integer  Dim sierdun(15) As Integern = 1While n    sie