ad2000x的博客

原创 用户名与密码 实验报告

Vb   用户名与密码   实验报告姓名：杨锦彪  学号：15050342034                            实验内容：用Label和Text设计出一个“用户名与密码”的程序，建立数据库并向其中添加记录，利用“工程——引用”建立第三方和数据库的联系，学习一新言（SQL）。              程序编码：Option Explicit

原创 鞍点程序

Option Base 1Private Sub Command1_Click()ClsMe.Font.Size = 30Dim anma() As IntegerDim m As Integer, n As Integerm = 5: n = 6ReDim anma(m, n)Dim i As Integer, j As IntegerFor i = 1 To

原创 vb制作登陆界面（程序部分）

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

原创 1230转化成十六进制

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Integera = 1230: b = 16While a     yushu = a Mod b    s = f(yushu) & s    a = a \ bWendPri

原创 比较大小（比较法）

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

原创 比较大小（冒泡法）

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

原创 十进制转化成十六进制

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Integera = 1230: b = 16While a     yushu = a Mod b    s = f(yushu) & s    a = a \ bWendPri

原创 选择法排序

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Integera = 1230: b = 16While a     yushu = a Mod b    s = f(yushu) & s    a = a \ bWendPri

原创 vb 十进制转二进制

vb 十进制转二进制

原创 VB随机出五个数并排序

原创 随机出五个数

原创 VB输入数值随机出数并按从大到小排序