ww15050341031的博客

原创 10个数

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

原创 登陆界面制作........

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

原创 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) &

原创 实验名称：在VB中对于随机数ab的比较大小

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

原创 实验名称：红糖水白糖水的交换

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

原创 两位数乘以一位数

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

原创 几种循环结构

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

原创 15050341031

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

原创 1234566666