- 博客(11)
- 收藏
- 关注
原创 制作窗口
制作登录窗口一、 实验目的1、 掌握在窗体上添加控件的方法;2、 了解窗体等基本对象属性的设置方法;3、 掌握可视化数据管理器的使用方法;4、 掌握数据控件及绑定控件的使用方法;5、 掌握代码操作数据库的方法。二、 实验内容1、 建立登录窗口a. 首先放置两个label,左对齐,在label右侧放置两个text box左对齐,并且与label上对齐,在下侧最后放
2016-06-01 20:51:35
393
原创 多位数乘多位数
Private Sub Command1_Click()Dim c As ByteDim a() As ByteDim b As StringDim changdu As Integer, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To changdub = Mid(Me.Text
2016-04-28 19:46:37
329
原创 多位数乘多位数
Private Sub Command1_Click()Dim c As ByteDim a() As ByteDim b As StringDim changdu As Integer, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To changdub = Mid(Me.Text
2016-04-28 19:44:34
326
原创 十六进制
Private Sub Command1_Click()Me.Font.Size = 50Print shiliujinzhi(4545)End SubPrivate Function shiliujinzhi(m As Integer) As StringDim n As Integern = mConst shiliu As Byte = 16Dim retur
2016-04-28 19:42:48
290
原创 二进制
Private Sub Command1_Click()Me.Font.Size = 60Print erjinzhi(23)End Sub Private Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim returns As StringD
2016-04-28 19:41:19
150
原创 九种方法
一节Vb课我终于完成了这个伟大的方法(一) Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerDim a(10) As IntegerDim sum As IntegerRandomizeFor i = 1 To 10 a(i) = Int(Rnd * 1000) +
2016-04-13 22:34:50
194
原创 九种方法
一节Vb课我终于完成了这个伟大的方法(一) Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerDim a(10) As IntegerDim sum As IntegerRandomizeFor i = 1 To 10 a(i) = Int(Rnd * 1000) +
2016-04-13 22:33:57
169
原创 排序
Private sub command1_click Cls Font.size=30Dim n as integerDim size asintegerSize=int(val(me.text1.text))Dim sierdun() asintegerRedim sierdun(size)N=lbound(sierdun)While
2016-04-06 22:37:19
163
原创 计算机
Private sub command1_click Cls Font.size=30Dim n as integerDim size asintegerSize=int(val(me.text1.text))Dim sierdun() asintegerRedim sierdun(size)N=lbound(sierdun)While
2016-04-06 22:31:27
179
1
原创 交换的练习
红糖水与白糖水的交换private sub command1_click( )dim s as stringdim a as loadpictarecolorconstantss=loabl1.captionlabel1.caption=label2.captionlabel2.caption=sa=label1.forecolorlabel1.forecolor=
2016-03-26 18:55:09
183
原创 计算机
Private Sub Command1_Click()ClsDim 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
2016-03-26 18:45:31
204
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人