- 博客(14)
- 收藏
- 关注
原创 自己建造的登录窗口
自己建造的登录窗口一实验目的❶自己学习,自己寻找方法,建造窗口。❷掌握可视化数据管理器的使用方法。❸掌握代码操作数据库的使用方法。二实验内容⒈ 编写一个“用户登录“的程序,对用户输入的用户名和密码进行验证。⑴ 用户名不超过6位数,密码不超过6位数。⑵ 用户名可以为有数字和非数字字符。⑶ 密码输入时,屏幕上不能显示输入字符,以“*“代替。
2016-06-17 19:17:36
326
原创 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
495
原创 排序+自己保存在路径里
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
291
原创 选择法
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
277
原创 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
231
原创 冒泡法
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
241
原创 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
331
原创 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
656
原创 个位数乘积
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
361
原创 十个随机数的求和
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
858
原创 哪错的排序
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
354
原创 排序
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
265
原创 时钟的制作
1.打开VB设计软件2.在左侧工具栏中找到闹钟图标,点击,然后在右侧Form1的空白区域中选择任意区域,出现闹钟图标,点击图标在右侧表格中将Interval后面的0改为1000,双击图标输入“屏幕1.caption=time()”,关闭窗口。3.在左侧工具栏中,选择A型图标Label按钮,再在右侧Form1中空白区域选择任意区域,出现一个空白区域,选中该图标,在右下角表格中“名称”后面的“
2016-03-29 16:35:55
487
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人