QZH060001-优快云博客

原创 15 电气齐振昊 VB中制作鞍点（老师讲解）K=m+1

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

2016-06-16 12:56:07 785

原创 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-05-26 17:19:21 5202

原创 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 studentqi

2016-05-26 17:17:40 1086

原创 15 电气齐振昊 VB 中16进制

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 230: b = 16While a yushu = a Mod bIf yushu s = yushu & sElses = Chr(yushu + 55) &

2016-05-07 17:36:46 376

原创 15 电气齐振昊 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-07 17:35:38 454

原创 15 电气齐振昊 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 j = 1 To 9For i = j + 1 To 10

2016-05-07 17:34:31 392

原创 15 电气齐振昊 VB中多位数乘一位数并输入到文本文档中

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-21 17:05:14 373

原创 15 电气齐振昊 VB中三位数乘一位数

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, yushu3 As Integ

2016-04-17 17:18:21 428

原创 15 电气齐振昊 VB中两位数乘一位数

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-17 16:59:50 339

原创 VB中几种循环结构

Private Sub Command1_Click()ClsDim n As IntegerDim s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print a(n)n = n + 1Wend

2016-04-17 16:54:27 3886

原创 15电气齐振昊在VB中排序（使用循环机构，在textbox中输入要排序的个数即可）

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

2016-03-31 17:25:25 573

原创 15 电气齐振昊在VB中把最小的数排到最后

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

2016-03-31 17:18:08 508

原创 15电气齐振昊在VB中用循环结构生成10个数

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

2016-03-31 17:03:12 581

原创 15电气齐振昊实验名称：15个数排序

实验名称：15个数排序实验步骤在桌面中双击VB6.0打开程序在工具箱窗口找到command的图标，单击图标并在窗体中适当位置创建并在属性窗口中找到caption并把其后面改为“排序”在窗体中双击command图标，并在弹出的对话框中输入代码代码如下：Dim a As IntegerDim b As Intege

2016-03-26 17:52:37 594

原创 15电气齐振昊实验名称：在VB中三个数的排序

实验名称：在VB中三个数的排序在桌面中双击VB6.0打开程序在工具箱窗口找到command的图标，单击图标并在窗体中适当位置创建并在属性窗口中找到caption并把其后面改为“排序”在窗体中双击command图标，并在弹出的对话框中输入代码。代码如下：Dim a As IntegerDim b As Integer

2016-03-26 17:46:56 941

原创 15电气齐振昊实验名称：在VB中对于随机数ab的比较大小

实验名称：在VB中对于随机数ab的比较大小实验名称：在VB中对于随机数ab的比较大小实验步骤：在桌面中双击VB6.0打开程序在工具箱窗口找到command的图标，单击图标并在窗体中适当位置创建并在属性窗口中找到caption并把其后面改为“排序”在工具箱窗口找到textbox的图标，单击图标并在窗体中适当位置创建。在窗

2016-03-26 17:41:15 438

原创 15电气齐振昊实验名称：红糖水白糖水的交换

实验名称：红糖水白糖水的交换打开VB软件在工具箱窗口找到Label，单击图标并在窗体中适当位置创建，在属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中，双击forecolor将后面字体颜色改为红色，双击 font将后面的字体调整为适当大小，双击backcolor将背景颜色改为灰色。在工具箱窗口找到Label，单击图

2016-03-20 16:39:44 568

原创 15电气齐振昊实验名称：VB中数字的交换

实验名称：VB中数字的交换启动VB软件在工具箱窗口找到command button的图标，单击图标并在窗体的适当位置创建，在属性窗口中找到caption并把其后面改为“交换”。在窗体中双击“交换”，并在弹出的对话框中输入ClsDim b As Integer, c As IntegerDim d As Integerc

2016-03-20 16:35:22 526

原创 15电气齐振昊实验名称：在VB中制作计时器（运行时时间是停止的）

实验名称：在VB中制作计时器（运行时时间是停止的）实验步骤：在桌面中双击VB6.0打开程序。在工具箱窗口找到计时器timer的图标，单击图标并在窗体中创建计时器。在窗体中双击计时器图标，在弹出的对话框中输入“屏幕1.caption=time( )”然后关闭窗口。选定计时器timer，在属性窗口中找到interval并将

2016-03-20 16:33:11 867

原创 15电气齐振昊实验名称：在VB中制作计时器

实验名称：在VB中制作计时器实验步骤：在桌面中双击VB6.0打开程序。在工具箱窗口找到计时器timer的图标，单击图标并在窗体中创建计时器。在窗体中双击计时器图标，在弹出的对话框中输入“屏幕1.caption=time( )”然后关闭窗口。选定计时器timer，在属性窗口中找到interval并将后面的数值改为1000

2016-03-20 16:27:28 635

QZH060001的博客