l6585699-CSDN博客

原创基于VB语言“鞍点”的定位

实验名称：在数组中定位鞍点程序思想：首先生成五行六列的数（在1~100之间）这一步是通过循环实现的，即分别定义i,j，通过循环生成二维数组。第二步，也是较为关键的一步，即找出每一行的最大值并标记，这一步又是怎样实现的呢？很简单，也是通过循环，还记得比较几个数大小的方法吗？其实方法类似，假设a>b,只不过在这里如果为假我们并不交换两个数，而是如

2016-06-16 16:58:34 1242

原创使用VB语言输入个人信息&保存到文档

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 studentli

2016-06-02 18:05:40 689

原创使用VB语言制作登陆界面

Option ExplicitConst MaxLoginTimes As Integer = 3Private Sub cmdLogin_Click() Static loginTimes As Integer loginTimes = loginTimes + 1If loginTimes On Error GoTo ppp Dim Cn

2016-06-02 18:02:49 974

原创冒泡法 15电气 2012

Private Sub Command1_Click() Me.Font.Size = 20 Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10a(i) = Int(Rnd() * 100)Print a(i);Next iPrintDim max As Integer

2016-05-07 17:44:25 224

原创 15 电气 2012 十进制化16进制官方化法

Private Sub Command1_Click() Me.Font.Size = 30 Dim a As IntegerDim b As Integer Dim s As String Dim yushu As Byte a = 1230: b = 16 While a

2016-05-07 17:21:10 339

原创 15 电气 2012 多位数乘以位数并输入到文档

Private Sub Command1_Click()Dim c As ByteDim a() As ByteDim b As StringDim changdu As Integer, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To changdub = Mid(Me.Text1.

2016-04-28 17:07:37 325

原创 15 电气李少振十进制化十六进制程序代码

Private Sub Command1_Click() Me.Font.Size = 60 Print D2H(85)End Sub Public Function D2H(Dec As Long) As String Dim a As String D2H = "" Do While Dec > 0 a = C

2016-04-28 16:55:25 334

原创 15 电气李少振十进制化二进制程序代码

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

2016-04-28 16:54:08 435

原创 15电气李少振多位数乘以一位数程序

Private Sub Command1_Click()Me.Font.Size = 70ClsDim a() As ByteDim r() As ByteDim rm As LongDim d As ByteDim b As ByteDim c As ByteDim chang As Long, i As Longchang = Len(Text1.Tex

2016-04-21 17:28:21 279

原创 15电气李少振三位数乘一位数程序

Option Base 1Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1Len As Long ‘ 定义n1为字节型变量，长度为四个字节 Dim n2() As Byte, n2Len As Long Dim yushu1 As By

2016-04-21 16:13:23 230

原创 Vb两位数乘一位数电气2012

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 Dim yushu2 As Byte Dim sh

2016-04-14 17:36:39 222

原创 15-电气-2012 VB语言中计算一位数乘一位数

Private Sub Command1_Click() Me.Font.Size = 70 Dim n1 As Byte Dim n2 As Byte Dim yushu As Byte Dim shang As Byte Dim tempResult As Byte n1 = Int(Val(Me.Text1

2016-04-14 17:04:29 220

原创 15-电气-李少振在VB中使用循环结构排序

1.首先打开VB6.02.在窗体的适当位置创建一个commandbutton，并在其属性窗口中将caption改为“排序”。3.在窗体的适当位置创建一个textbox。4.在窗体中双击“排序”，并在弹出的对话框中输入代码。代码如下：Option Base 1Private Sub Command1_Click()ClsDim n As Integer

2016-04-14 16:20:00 306

原创应用VB语言程序生成十个随机数

1.在窗体的适当位置创建一个commandbutton，并在其属性窗口中将caption改为“生成数”。2.在窗体中双击“生成数”，并在弹出的对话框中输入如下代码：Private Sub Command1_Click()ClsDim n As IntegerDim wzs(10) As Integern = 1While n wzs(n) = Int(Rnd * 1

2016-04-14 16:15:56 8989

原创作业二

Private Sub Command1_Click()ClsDim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDim i As IntegerDim

2016-03-27 19:50:22 183

原创作业一

Private Sub Commandl_Click ()Dim s As StringDim a As LoadpictureColorConstantss=Label1.CaptionLabel1.Caption=Label2.CaptionLabel2.Caption=sa=Label1.ForeColorLabel1.Forecolor=Label2.F

2016-03-27 19:38:27 235

l6585699的博客