guolu1-优快云博客

原创窗体的生成

实验目的1. 了解窗体的使用实验内容1. 打开vb2. 在form上单击右键，找到菜单编辑器，在标题和名称上写文件后确认，然后在写下编辑后确认。3. 点击最下方的编辑，然后点击上方的插入，再点击向右的箭头，后再标题和名称里写新建工程后确认，重复上步骤，在标题和名称里写打开工程后确认，再一次重复上述步骤，在标题里-，名称为横线。

2016-06-16 18:04:57 302

原创二维数组m*n的鞍点

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 i As Byte, j As Byte

2016-06-02 18:21:36 597

原创 shijiujinzhi

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:45:27 428

原创十进制到十六进制

Private Sub Command1_Click() Me.Font.Size = 30 Print shiliujinzhi(230)End SubPrivate Function shiliujinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 16

2016-04-28 17:41:06 343

原创十进制到二进制

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

2016-04-28 17:39:15 265

原创二进制转化

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:34:16 450

原创十进制转化为二进制（23）

Private Sub Command1_Click() Me.Font.Size = 30 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 sh

2016-04-28 16:45:05 982

原创 chengfa

(一）一位数与一位数Private Sub Command1_Click() Cls Dim a() As Byte Dim r() As Byte Dim b As String Dim c As Byte Dim i As Long Dim L As Long L = Len(Me.Text1.Text)

2016-04-21 17:43:54 344

原创 2*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 yushu1 As Byte, yushu2 As Byte Dim shang As B

2016-04-14 17:27:55 453

原创九种求和方法

（一） 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 = sum + a

2016-04-13 22:03:05 275

原创 VB 课感受

通过这段时间的学习，我感觉这门课有点难，所以我决定，以后的每一节课都要认真听课，课下好好看书。

2016-03-27 15:02:11 336

原创十五个数的排序

Private Sub cmdSort_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 IntegerDim

2016-03-27 14:54:05 328

guolu1的博客