ZK137856-CSDN博客

原创自己建造的登录窗口

自己建造的登录窗口一实验目的❶自己学习，自己寻找方法，建造窗口。❷掌握可视化数据管理器的使用方法。❸掌握代码操作数据库的使用方法。二实验内容⒈ 编写一个“用户登录“的程序，对用户输入的用户名和密码进行验证。⑴ 用户名不超过6位数，密码不超过6位数。⑵ 用户名可以为有数字和非数字字符。⑶ 密码输入时，屏幕上不能显示输入字符，以“*“代替。

2016-06-17 19:17:36 284

原创鞍点的寻找

转载交钱

2016-06-02 18:09:05 793 1

原创 my information

Private Type studentname As String * 2xuehao As String * 11sex As Booleanzhuanye As String * 2school As String * 4xueyuan As String * 2End TypePrivate Sub Command1_Click()Dim z

2016-05-12 18:12:43 454

原创排序+自己保存在路径里

Private Sub Command1_Click()ClsFont.Size = 30Dim a(10000) As IntegerDim j As IntegerDim i As IntegerFor i = 1 To 10000a(i) = 10 + Int(Val(Rnd * 10000))Next iFor j = 1 To 9999For

2016-05-12 17:25:47 251

原创选择法

Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd * 100)Next iDim j As IntegerDim t As IntegerFor j = 1 To 9 For i = j + 1 To 10

2016-05-07 18:17:26 240

原创 16进制

Private Sub Command1_Click()Dim a As LongDim b As IntegerDim yushu As ByteDim s As Stringa = 123456b = 16While a yushu = a Mod bIf yushu s = yushu & sElses = Chr(yushu + 55) &

2016-05-07 18:16:23 195

原创冒泡法

Private Sub Command1_Click()ClsFont.Size = 30Dim a(10) As IntegerDim j As IntegerDim i As IntegerFor i = 1 To 10a(i) = 10 + Int(Val(Rnd * 100))Next iFor j = 1 To 9For i = 1 To 10

2016-05-07 17:57:50 219

原创 n乘一位数

Private Sub Command1_Click()ClsFont.Size = 30Dim c1 As ByteDim c2 As ByteDim a() As ByteDim b As StringDim changdu As Long, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i

2016-04-21 17:39:51 293

原创 2位数乘与1位数

Option Base 1Private Sub Com_Click()ClsMe.Font.Size = 50Dim n1() As Byte, n1len As LongDim n2() As Byte, n2len As LongDim yushu1 As ByteDim shang As ByteDim yushu2 As ByteDim tempr

2016-04-14 17:24:17 609

原创个位数乘积

Private Sub Com_Click()ClsMe.Font.Size = 50Dim n1 As ByteDim n2 As ByteDim yushu As ByteDim shang As ByteDim tempresult As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Val(Me.Text2

2016-04-14 16:43:17 320

原创十个随机数的求和

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

2016-04-12 16:21:48 814

原创哪错的排序

Option Base1Private Sub Command1_Click()ClsDim n As IntegerDim size As Integersize=Int(Val(Me.Text1.Text))Dim a() As IntegerReDim a(size)n=LBound(a)while na(n)=Int(Rnd*1000)n=n+1

2016-04-05 16:47:29 327

原创排序

1.打开VB。2.在左侧工具栏中，选择按钮型图标“CommandButtion”按钮，再往右侧Form1中的空白区域选择任意区域，出现按钮图标后，选中图标，在右下角表格中把“Caption”后面的“Command1”改变成“排序”，双击图标，输入如下：CLSME.FONT.SIZE=70Dim a As IntegerDim b As IntegerDim c As Int

2016-03-29 17:08:09 230

原创时钟的制作

1.打开VB设计软件2.在左侧工具栏中找到闹钟图标，点击，然后在右侧Form1的空白区域中选择任意区域，出现闹钟图标，点击图标在右侧表格中将Interval后面的0改为1000，双击图标输入“屏幕1.caption=time（）”，关闭窗口。3.在左侧工具栏中，选择A型图标Label按钮，再在右侧Form1中空白区域选择任意区域，出现一个空白区域，选中该图标，在右下角表格中“名称”后面的“

2016-03-29 16:35:55 431

ZK137856的博客