- 博客(29)
- 收藏
- 关注
原创 制作登录窗口
姓名:孟圣均专业:电气工程及其自动化二班 学号:15050342021制作登录窗口一、实验目的1、 掌握可视化数据管理器的使用方法;2、 掌握数据控件及绑定控件的使用方法;3、 掌握代码操作数据库的方法。二、 实验内容1、 建立登录窗口a. 首先放置两个label,左对齐,在label右侧放置两个text box左对齐,并且与labe
2016-06-22 18:07:39 601
原创 菜单栏的制作
电气二班 孟圣均 15050342021菜单栏的制作1.打开VB2.右击’Form1‘空白处,单击’菜单编辑器‘。3.在‘菜单编辑器’中 标题为“文件(&E)”名称为“file”,单击‘下一个’; 标题为“编辑(&)”,名称为“compile”; 选中’编辑‘,单击‘插入’,单击'右箭头图标',标题为“新建工程(&N)”,名称为“NewProject”,快
2016-06-22 18:06:21 436
原创 二维数组的鞍
姓名:孟圣均 专业:电气工程及其自动化二班 学号:15050342021二维数组的鞍一、实验目的:1.掌握定长数组和动态数组的使用2.掌握数组的基本操作算法3.掌握过程的定义和调用二、实验内容 找一个n*m的二维数组的“鞍点”。“鞍点”是指它在本行中数值最大,在本列中数值最小。也可能在一个数组中找不到鞍点。输出鞍点的行、列号,如无鞍点则输出“无鞍点”。三
2016-06-22 18:05:37 685
原创 为什麽要判断k<m和K>m+1
Option Base 1Dim anma() As IntegerDim m As Byte, n As BytePrivate Sub Command1_Click()ClsMe.Font.Size = 30m = 5: n = 6ReDim anma(m, n)Dim i As Integer, j As IntegerFor i = 1 To m
2016-06-02 18:07:37 470
原创 登陆?登录?
Option ExplicitConst MaxLoginTimes As Integer = 3Private Sub cmdLogin_Click() Static loginTimes As Integer loginTimes = loginTimes + 1If loginTimes On Error GoTo ppp Dim Cn
2016-05-26 17:13:12 470
原创 1到100随机数
Private Sub Command1_Click()ClsDim a(1 To 100) As LongDim i As LongDim j As LongDim t As LongFor i = 1 To 100 a(i) = 10 + Rnd() * 100Next iFor i = 1 To 100 Print a(i)Next
2016-05-12 17:59:20 1493
原创 10个随机数
Private Sub Command1_Click() Cls Dim a(1 To 10) As Integer Dim i As Byte Dim j As Byte Dim t As Byte For i = 1 To 10 a(i) = 10 + Rnd() * 100 Next i
2016-05-07 17:39:03 438
原创 23的·16进制
Private Sub Command1_Click()Me.Font.Size = 60Print erjinzhi(23)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 16Dim returns As StringDim
2016-04-28 17:03:39 1238
原创 23的2进制数
Private Sub Command1_Click()Me.Font.Size = 60Print erjinzhi(23)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim returns As StringDim s
2016-04-28 16:47:18 760
原创 数乘结果保存到123文件里
Private Sub Command1_Click()ClsDim a() As ByteDim r() As ByteDim b As StringDim c As ByteDim i As LongDim L As LongL = Len(Me.Text1.Text)ReDim a(L)For i = 1 To L b = Mid(Me.Te
2016-04-21 17:34:18 339
原创 数乘
Private Sub Command1_Click()ClsDim a() As ByteDim r() As ByteDim b As StringDim c As ByteDim i As LongDim L As LongL = Len(Me.Text1.Text)ReDim a(L)For i = 1 To L b = Mid(Me.Te
2016-04-21 16:59:35 348
原创 VB咳咳咳
打开vb后点击commandbutton拖入适当位置点击上方工具按钮在选择选项打开其中的编辑器格式将字体设置为24点击commandbutton后输入如下编码Private Sub Command1_Click() Cls Font.Size = 30 Dim n As Integer Dim sizerdun(15) As Inte
2016-03-31 16:22:15 379
原创 3个数比大小
Dim a(3) As Double, i As Integer, t As Integer For i = 1 To 3 a(i) =InputBox("请输入第" &i & "个数") Next i If a(1) If a(1) If a(2) MsgBox "排序后的输出是:" & vbCrLf & a(1
2016-03-24 17:44:08 401
原创 比大小
Private Sub cmdSort_Click() Dim A(14) As Integer Dim I, J As Integer Dim Temp As Integer Form1.Cls Randomize For I = 0 To 14 A(I) = Int(Rnd * 1000) Next I For I = 0 To 14
2016-03-24 17:42:03 219
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人