- 博客(12)
- 收藏
- 关注
原创 用户名与密码 实验报告
Vb 用户名与密码 实验报告姓名:杨锦彪 学号:15050342034 实验内容:用Label和Text设计出一个“用户名与密码”的程序,建立数据库并向其中添加记录,利用“工程——引用”建立第三方和数据库的联系,学习一新言(SQL)。 程序编码:Option Explicit
2016-06-02 17:52:53 826
原创 鞍点程序
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
2016-06-02 17:51:36 313
原创 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 18:07:50 2997
原创 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
2016-05-12 17:03:26 336
原创 比较大小(比较法)
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-12 17:00:30 401
原创 比较大小(冒泡法)
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-12 16:53:19 492
原创 十进制转化成十六进制
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
2016-05-12 16:50:00 908
原创 选择法排序
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
2016-05-12 16:48:04 351
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人