- 博客(6)
- 收藏
- 关注
RSS订阅转载 vb登陆界面设计
用VB新建一个工程，在窗体Form1上画两个label控件，一个是Label1一个是Label2，把Label1的Caption属性设为“用户名”，Label2的Caption属性设为“密码”，然后分别在这俩Label右边各画一个textbox控件，一个叫Text1，一个叫Text2，把Text2的PasswordChar属性设为“*”，同时把两个Textbox的Text属性设为空（就是都清空），
2016-05-26 18:11:40
7054
原创 二进制数字转为十六进制数
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim ys As Integera = m: b = 16 (m为任意二进制数)While a ys = a Mod bs = f(ys) & sa = a \ bWendPr
2016-05-07 17:32:00
388
原创 今天的作业，，，，前几天的再补吧
Private Sub Command1_Click()ClsDim a() As ByteDim b As StringDim c As ByteDim c1 As ByteDim c2 As ByteDim i As Long, changdu As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i =
2016-04-21 17:07:59
212
原创 隔了几天的作业
好几天没写作业，，并不是因为忘了或者说懒，真真的是因为登陆不上，，，重新注册也不行，，到现在欠了几篇也不太清楚。。。先写几篇，，把作业补齐吧，，，Private Sub Command1_Click()Dim n1 As LongDim n2 As LongDim yushu As LongDim shang As LongDim tempresult As Long
2016-04-21 16:16:36
176
原创 排序第二节课
Dim n As IntegerDim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000)n = n + 1WendDim swap As Integerm = 1While m n = 1 While n If sierdun(n)
2016-03-31 17:05:27
165
原创 数字大小排序
Private Sub Command1_Click()Dim 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-03-24 17:44:49
481
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人