cai18732646484-CSDN博客

原创 VB中的二维鞍点

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

2016-06-02 18:10:06 1446

原创冒泡排序法---vb

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

2016-05-19 17:43:47 2372

原创 vb中的十六进制

Private Sub Command1_Click() Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a = 230: b = 16 While a yushu = a Mod b If yushu s = yushu & s Else s =

2016-05-19 17:41:56 1836

原创多位数乘两位数乘法

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

2016-04-21 17:13:46 1633

原创给随机的十个数求和

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

2016-04-11 14:49:02 485

原创给随机的一组数排序

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

2016-03-31 17:46:53 490

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

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

2016-03-31 17:23:15 213

原创给一组随机数排序

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

2016-03-28 14:40:01 426

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

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

2016-03-26 10:14:13 187

原创 VB中数字的交换

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

2016-03-26 09:59:28 2396

cai18732646484的博客