lv8830-优快云博客

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

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

2016-06-16 17:21:05 771

原创鞍点的实验报告

Option Base 1 Private Sub Command1_Click() Cls Me.Font.Size = 30 Dim anma() As Integer Dim m As Integer, n As Integer m = 5: n = 6 ReDim anma(m, n) Dim i As Integer, j As Integer For i = 1 To

2016-06-16 17:19:23 649

原创鞍点程序

Option Base 1 Private Sub Command1_Click() Cls Me.Font.Size = 30 Dim anma() As Integer Dim m As Integer, n As Integer m = 5: n = 6 ReDim anma(m, n) Dim i As Integer, j As Integer For i = 1 To

2016-06-02 17:14:03 388

原创实验报告

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

2016-05-26 17:23:36 309

原创用户名与密码

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

2016-05-19 17:59:40 993

原创学生信息

Private Type students name As String stuno As Double sex As String grade As Integer age As Integer pro As String End Type Private Sub Command2_Click() Dim i As students i.name = "lvjianxun

2016-05-12 18:15:46 286

原创选择法排序

Private Sub Command3_Click() Me.Font.Size = 30 Cls Dim a(10) As Integer Dim t As Integer Dim i As Integer Dim j As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Next i For j = 1 To 9

2016-05-07 17:46:32 356

原创起泡法排序

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

2016-05-07 17:14:04 292

原创将230转换为16进制数

Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim yushu(1 To 2) As Integer Dim i As Integer a = 230 b = 16 i = 1 While a yushu(i) = a Mod b a = a \

2016-05-07 16:54:24 1364

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

Private Sub Command1_Click() Me.Font.Size = 60 Dim b As Integer b = Int(Val(Me.Text1.Text)) Print erjinzhi(b) End Sub Private Function erjinzhi(m As Integer) As String Me.Font.Size = 60 Cls D

2016-04-28 17:42:54 1580

原创 23转化为二进制数

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

2016-04-28 16:42:18 1591

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

Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim c As Integer Dim a() As Integer Dim b As String Dim changdu As Long, i As Long changdu = Len(Text1.Text) ReDim a(changdu) For i = 1 To

2016-04-21 17:24:26 277

原创三位数成一位数

Private Sub Command1_Click() Cls Dim a1 As Integer Dim a2 As Integer Dim a3 As Integer Dim b1 As String Dim b2 As String Dim b3 As String Dim c As Integer Dim d1 As Integer Dim d2 As Integer

2016-04-21 16:25:42 408

原创简单数的乘法结果

Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim n1 As Integer Dim n2 As Integer Dim yushu As Integer Dim shang As Integer Dim tempresult As Double n1 = (Val(Me.Text1.Text)) n2 = (Val(M

2016-04-14 17:05:01 328

原创求1到10的和

Private Sub Command7_Click() Cls Print f(10) End Sub Private Function g(x As Integer) As Long If x = 1 Then g = x Else g = x + g(x - 1) End If End Function

2016-04-11 14:45:35 1166

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

Private Sub Command4_Click() Cls Dim n As Integer Dim a(10) As Integer n = 1 Do Until n > 10 a(n) = Int(Rnd * 1000) sum = sum + a(n) n = n + 1 Loop Print sum End Sub Private Sub Command

2016-04-11 14:44:11 783

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

Private Sub Command3_Click() Cls Dim n As Integer Dim a(10) As Integer n = 1 Do While n a(n) = Int(Rnd * 1000) sum = sum + a(n) n = n + 1 Loop Print sum End Sub Private Sub Command6

2016-04-11 14:42:58 427

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

Private Sub Command1_Click() Cls Dim n As Integer Dim a(10) As Integer n = 1 While n a(n) = Int(Rnd * 1000) Print a(n) n = n + 1 Wend Dim sum As Integer s = 0 n = 1 While n sum = sum +

2016-04-11 14:41:09 1480

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

Private Sub 排序_Click() Cls Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer Dim i As Integer Dim j As

2016-04-11 14:39:18 651

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

2016-04-10 17:31:30 9877

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

Option Explicit Private Sub Command1_Click() Cls Dim i As Integer Dim sum As Integer Dim a(10) As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 1000) sum = sum + a(i) Next i Print sum

2016-04-10 17:23:00 1556

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

Option Base 1 Private Sub Command1_Click() Cls Dim a As Integer Dim b As Integer b = Int(Val(Me.Text1.Text)) Dim hello() As Integer ReDim hello(b) a = LBound(hello) While a hello(a) = Int(R

2016-04-10 17:16:31 233

lv8830的博客