Mr_Blade-CSDN博客

原创个人信息

Private Type studentname As String * 3stuNo As String * 11sex As Booleanage As Byteprof As String * 2grade As SingleEnd TypePrivate Sub Command1_Click()Dim qizhenhao As studentqi

2016-05-12 18:09:53 362

原创二进制

Private Sub Command1_Click()Print erjinzhi(25000)End SubPrivate Function erjinzhi(m As Long) As StringDim n As Longn = mConst er As Byte = 2Dim returns As StringDim shang As LongDim

2016-04-28 17:24:12 273

原创 N位数乘以1位数

Private Sub Command1_Click()ClsDim a() As ByteDim b As StringDim c As ByteDim c1 As ByteDim c2 As ByteDim i As Long, changdu As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i =

2016-04-21 17:20:57 327

原创 VB中两个数乘以一个数

Option Base 1Private Sub Command1_Click() Cls 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

2016-04-14 17:25:07 574

原创排序在text框中输入将要排序的数字个数

在窗体的适当位置创建一个commandbutton，并在其属性窗口中将caption改为“排序”。在窗体的适当位置创建一个textbox。Option Base 1（此句话要在通用条件下）Private Sub Command1_Click()ClsDim n As IntegerDim size As Integersize = Int(Val(Me.Text

2016-04-14 17:06:28 362

原创《15个数字的排序代码》15电气1班43号

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-31 16:49:05 606

原创《3个数字的排序》15电气43号

1.首先，打开VB程序2.然后在左侧工具栏中找到command button的图标，并在Form1的右下角适当大小的创建。3.在属性窗口中找到capition并将它后面“Command1”改为“交换”。4.在窗体中双击“交换”，并在弹出的对话框中输入以下内容ClsDim b As IntegerDim c As IntegerDim d As Integerc

2016-03-31 16:44:38 566

原创《实践名称：用VB制作计时器小工具》15电气43号

步骤：1. 用鼠标左键双击运行桌面上的Microsoft Visual Basic 6.0中文版；2. 在工具箱窗口找到计时器Timer的图标（形状如同一个小闹钟），单击该图标在窗体任意位置创建计时器；3. 在窗体中双击计时器图标，在弹出的对话框中输入以下内容：“屏幕1.Caption=time（）”然后关闭该对话框；然后单击计时器图标，将Inte

2016-03-31 16:30:45 1466

博客