lv8830-CSDN博客

原创 VB语言“用户名”与“密码”实验报告

VB语言5“用户名”与“密码”实验报告姓名：吕建勋学号：15050341019 实验日期：2016.5.26实验内容：首先创作一个登录页面，然后输入相应的字并对字符大小进行修改，然后建立数据库，在数据库内建立数据表并对表格进行相应的命名，然后编制程序，最后运行输出结果。实验步骤：登录-Form-frmlogin StartUpPosition=2，账号-Label Text

2016-06-16 17:21:05 686

原创鞍点的实验报告

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-16 17:19:23 570

原创鞍点程序

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:14:03 315

原创实验报告

Vb语言设计“用户名与密码”实验报姓名：吕建勋学号：15050341019 实验日期：2016年5月19日实验内容：用Label和Text设计出一个“用户名与密码”的程序，建立数据库并向其中添加记录，利用“工程——引用”建立第三方和数据库的联系，学习一新言（SQL

2016-05-26 17:23:36 251

原创用户名与密码

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-19 17:59:40 898

原创学生信息

Private Type studentsname As Stringstuno As Doublesex As Stringgrade As Integerage As Integerpro As StringEnd TypePrivate Sub Command2_Click()Dim i As studentsi.name = "lvjianxun

2016-05-12 18:15:46 228

原创选择法排序

Private Sub Command3_Click()Me.Font.Size = 30ClsDim a(10) As IntegerDim t As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 100)Next iFor j = 1 To 9

2016-05-07 17:46:32 277

原创起泡法排序

Private Sub Command2_Click()Me.Font.Size = 30ClsDim a(10) As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 100)Next iFor j = 1 To 9For i = 1 To 9If a(i) t = a(i)

2016-05-07 17:14:04 244

原创将230转换为16进制数

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim a As IntegerDim b As IntegerDim yushu(1 To 2) As IntegerDim i As Integera = 230b = 16i = 1While a yushu(i) = a Mod ba = a \

2016-05-07 16:54:24 1114

原创任意0到255内的数转换为2进制

Private Sub Command1_Click()Me.Font.Size = 60Dim b As Integerb = Int(Val(Me.Text1.Text))Print erjinzhi(b)End SubPrivate Function erjinzhi(m As Integer) As StringMe.Font.Size = 60ClsD

2016-04-28 17:42:54 1381

原创 23转化为二进制数

Private Sub Command1_Click()Me.Font.Size = 60Dim i As IntegerDim b As IntegerConst a As Integer = 2Dim shang As IntegerDim yushu(1 To 5) As Doubleb = 23i = 5shang = b \ ayushu(i) =

2016-04-28 16:42:18 1141

原创任意一个n位数乘一位数

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim c As IntegerDim a() As IntegerDim b As StringDim changdu As Long, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To

2016-04-21 17:24:26 231

原创三位数成一位数

Private Sub Command1_Click()ClsDim a1 As IntegerDim a2 As IntegerDim a3 As IntegerDim b1 As StringDim b2 As StringDim b3 As StringDim c As IntegerDim d1 As IntegerDim d2 As Integer

2016-04-21 16:25:42 314

原创简单数的乘法结果

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim n1 As IntegerDim n2 As IntegerDim yushu As IntegerDim shang As IntegerDim tempresult As Doublen1 = (Val(Me.Text1.Text))n2 = (Val(M

2016-04-14 17:05:01 270

原创求1到10的和

Private Sub Command7_Click()ClsPrint f(10)End SubPrivate Function g(x As Integer) As LongIf x = 1 Theng = xElseg = x + g(x - 1)End IfEnd Function

2016-04-11 14:45:35 1023

原创用do-until语句求随机十个数的和

Private Sub Command4_Click()ClsDim n As IntegerDim a(10) As Integern = 1Do Until n > 10a(n) = Int(Rnd * 1000)sum = sum + a(n)n = n + 1LoopPrint sumEnd Sub Private Sub Command

2016-04-11 14:44:11 705

原创用do-while语句求随机是个数的和

Private Sub Command3_Click()ClsDim n As IntegerDim a(10) As Integern = 1Do While n a(n) = Int(Rnd * 1000)sum = sum + a(n)n = n + 1LoopPrint sumEnd SubPrivate Sub Command6

2016-04-11 14:42:58 365

原创用while语句求随机十个数个的和

Private Sub Command1_Click()ClsDim n As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)Print a(n)n = n + 1WendDim sum As Integers = 0n = 1While n sum = sum +

2016-04-11 14:41:09 1358

原创用if语句随机生成十个数，排序

Private Sub 排序_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 j As

2016-04-11 14:39:18 589

vb是一门计算机及编程语言，也算是一项知识含量较高的东西。学习的这段时间，我明白了万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程时一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程。我们每学一点，就赶快把他用到实际的程序中去，自己多学，多用多实践，水平才能不断提高，这既是“学以致用”。多看别人的代码，及时看不懂也没关系，可以把这些大妈输入到机子里运行，然后根据运行结果去体会程序的

2016-04-10 17:31:30 9634

原创随机生成十个数，排顺序

Option ExplicitPrivate Sub Command1_Click()ClsDim i As IntegerDim sum As IntegerDim a(10) As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 1000)sum = sum + a(i)Next iPrint sum

2016-04-10 17:23:00 1383

原创随机生成任意个数，然后排大小

Option Base 1Private Sub Command1_Click()ClsDim a As IntegerDim b As Integerb = Int(Val(Me.Text1.Text))Dim hello() As IntegerReDim hello(b)a = LBound(hello)While a hello(a) = Int(R

2016-04-10 17:16:31 191

lv8830的博客