cai18732646484-CSDN博客

原创 VB中的二维鞍点

今天学习了用vb的程序输出一个二维鞍点，程序如下：Option Base 1Dim anma() As IntegerDim m As Byte, n As BytePrivate Sub Command1_Click() Cls Me.Font.Size = 30 m = 5: n = 6 ReDim anma(m, n) Dim

2016-06-02 18:10:06 1444

原创冒泡排序法---vb

Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 1000)Print a(i);Next iPrintFor i = 1 To 9For j = 1 To 10 - i

2016-05-19 17:43:47 2369

原创 vb中的十六进制

Private Sub Command1_Click()Me.Font.Size = 50Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 230: b = 16While a yushu = a Mod bIf yushu s = yushu & sElses =

2016-05-19 17:41:56 1827

原创多位数乘两位数乘法

1.打开VB程序，在窗口中创建一个Command窗体和两个Text窗体。2.将Command窗体改名为乘法，Text窗体删除命名。3.双击Command窗体，在弹出的的窗口中输入以下内容ClsDim c As ByteDim a() As ByteDim b As StringDim changdu As Long, i As Longchangdu = Len(T

2016-04-21 17:13:46 1630

原创给随机的十个数求和

1.在左侧的工具栏中找到commandbutton,并在窗体的适当位置创建。2.双击command1，在弹出的窗口中输入以下内容Private Sub Command1_Click()ClsFont.Size = 20Dim n As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000

2016-04-11 14:49:02 479

原创给随机的一组数排序

1.在左侧的工具栏中找到Commandbutton并创建2.双击Command1，在弹出的窗口中输入以下内容Option Base 1Private Sub Command1_Click()ClsFont.size = 20Dim n As IntegerDim size As Integersize = Int(Val(Me.Text1.Text))Dim s

2016-03-31 17:46:53 488

原创随机输出十个数且最后一个最小

1.在左侧工具栏中找到一个Commandbutton图标，并在适当位置创建。2.双击Command1，在弹出的窗体中输入以下程序内容ClsFont.Size = 20Dim n As IntegerDim sierdun(10) As Integern = 1While n sierdun(n) = Int(Rnd * 1000) n =

2016-03-31 17:23:15 212

原创给一组随机数排序

1.打开VB程序软件2.在左侧的工具栏中找到TextBox，如图，并新建一个Text，输入其名称 abcdefghijklmno.3.同样在左侧的工具栏中找到CommandButton并新建，并给其改名为排列。得到如下图形4.双击打开CommandButton，在所探出的窗口中输入以下内容：ClsDim a As IntegerDim b As Inte

2016-03-28 14:40:01 425

原创红糖水与白糖水的交换

1.在工具箱窗口找到Label图标，单击图标并在窗体中适当位置创建，在属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中，双击forecolor将后面字体颜色改为红色，双击 font将后面的字体调整为适当大小，双击backcolor将背景颜色改为灰色。

2016-03-26 10:14:13 185

原创 VB中数字的交换

1.首先，在左侧工具栏中找到command button的图标，并在适当位置处创建。2.在属性窗口中找到capition并在他的后面将名字改为“交换”。3.在窗体中双击“交换”，并在弹出的对话框中输入以下内容ClsDim b As IntegerDim c As IntegerDim d As Integerc = Int(Rnd() * 1000)b = Int(

2016-03-26 09:59:28 2393

cai18732646484的博客