l6585699的博客

Private  Sub  Commandl_Click () Dim s  As  String Dim a As LoadpictureColorConstants s=Label1.Caption Label1.Caption=Label2.Caption Label2.Caption=s a=Label1.ForeColor Label1.Forecolor=Label2.F

Option Base 1 Private Sub Command1_Click()       Me.Font.Size = 70     Dim n1() As Byte, n1Len As Long        ‘ 定义n1为字节型变量，长度为四个字节     Dim n2() As Byte, n2Len As Long           Dim yushu1 As By

Private Sub Command1_Click()    Me.Font.Size = 60    Print erjinzhi(120) End Sub Private Function erjinzhi(m As Byte) AsString    Dim n As Byte     n= m    Const er As Byte = 2    Dim returnS

Private Sub Command1_Click()     Me.Font.Size = 60     Print D2H(85) End Sub  Public Function D2H(Dec As Long) As String      Dim a As String      D2H = ""      Do While Dec > 0          a = C

Option Base 1 Private 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     Dim yushu2 As Byte     Dim sh

Private Sub Command1_Click()     Me.Font.Size = 70     Dim n1 As Byte     Dim n2 As Byte     Dim yushu As Byte     Dim shang As Byte          Dim tempResult As Byte     n1 = Int(Val(Me.Text1

1.首先打开VB6.0 2.在窗体的适当位置创建一个commandbutton，并在其属性窗口中将caption改为“排序”。 3.在窗体的适当位置创建一个textbox。 4.在窗体中双击“排序”，并在弹出的对话框中输入代码。 代码如下： Option Base 1 Private Sub Command1_Click() Cls Dim n As Integer

1.在窗体的适当位置创建一个commandbutton，并在其属性窗口中将caption改为“生成数”。 2.在窗体中双击“生成数”，并在弹出的对话框中输入如下代码： Private Sub Command1_Click() Cls Dim n As Integer Dim wzs(10) As Integer n = 1 While n wzs(n) = Int(Rnd * 1

Private Sub Command1_Click() Cls Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer Dim i As Integer Dim

Private Sub Command1_Click() Me.Font.Size = 70 Cls Dim a() As Byte Dim r() As Byte Dim rm As Long Dim d As Byte Dim b As Byte Dim c As Byte Dim chang As Long, i As Long chang = Len(Text1.Tex