lzybcd123-CSDN博客

原创二维数组的鞍点

二维数组m*n的鞍点一：实验目的设计vb程序，找到二维数组m*n中的鞍点。二：实验内容1.打开vb。2.单击工具栏中的commandbutton,在form1上单击左键出现commandbutton。3.单击commandbutton开始编写代码。程序代码注：括号内为解释说明。Option Base 1（'m*n的二维数组，m行,n列）Dim anma(

2016-06-02 18:06:26 630

原创 shiliujinzhi

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

2016-04-28 17:44:41 205

原创任意数二进制转化

Private Sub Command1_Click() Me.Font.Size = 20 Print erjinzhi(230) End SubPrivate Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 2 Dim returnS

2016-04-28 17:40:06 208

原创十进制到二进制

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

2016-04-28 17:39:31 184

原创乘法

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

2016-04-21 17:41:38 184

原创两个数相乘

1、一个数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 yushu As Byte Dim shang As

2016-04-14 17:36:35 349

原创九种求和方法

一节课的收获（一） 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 =

2016-04-13 22:16:50 224

原创排序

Private Sub Command1_Click() Dim n As Integer Dim sierdun(15) As Integer n = 1 While n sierdun(n) = Int(Rnd * 1000) n = n + 1 Wend Dim swap As Integer

2016-04-05 22:10:26 177

原创 VB课感悟

通过这一阶段的学习，我接触了VB这一门新的计算机语言，可能是第一次学习，感觉有点难，不过我相信自己可以学好的，加油吧！

2016-03-28 14:22:07 307

原创十五个数的顺序排列

Private Sub command2_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-27 15:14:30 256

lzybcd123的博客