ZK137856-CSDN博客

原创自己建造的登录窗口

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

2016-06-17 19:17:36 275

原创鞍点的寻找

转载交钱

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

原创 my information

Private Type student name As String * 2 xuehao As String * 11 sex As Boolean zhuanye As String * 2 school As String * 4 xueyuan As String * 2 End Type Private Sub Command1_Click() Dim z

2016-05-12 18:12:43 446

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

Private Sub Command1_Click() Cls Font.Size = 30 Dim a(10000) As Integer Dim j As Integer Dim i As Integer For i = 1 To 10000 a(i) = 10 + Int(Val(Rnd * 10000)) Next i For j = 1 To 9999 For

2016-05-12 17:25:47 244

原创选择法

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

2016-05-07 18:17:26 231

原创 16进制

Private Sub Command1_Click() Dim a As Long Dim b As Integer Dim yushu As Byte Dim s As String a = 123456 b = 16 While a yushu = a Mod b If yushu s = yushu & s Else s = Chr(yushu + 55) &

2016-05-07 18:16:23 188

原创冒泡法

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

2016-05-07 17:57:50 212

原创 n乘一位数

Private Sub Command1_Click() Cls Font.Size = 30 Dim c1 As Byte Dim c2 As Byte Dim a() As Byte Dim b As String Dim changdu As Long, i As Long changdu = Len(Text1.Text) ReDim a(changdu) For i

2016-04-21 17:39:51 286

原创 2位数乘与1位数

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

2016-04-14 17:24:17 601

原创个位数乘积

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

2016-04-14 16:43:17 311

原创十个随机数的求和

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 808

原创哪错的排序

Option Base1 Private Sub Command1_Click() Cls Dim n As Integer Dim size As Integer size=Int(Val(Me.Text1.Text)) Dim a() As Integer ReDim a(size) n=LBound(a) while n a(n)=Int(Rnd*1000) n=n+1

2016-04-05 16:47:29 323

原创排序

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

2016-03-29 17:08:09 225

原创时钟的制作

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

2016-03-29 16:35:55 423

ZK137856的博客