Msj809487820的博客

原创 制作登录窗口

姓名:孟圣均专业:电气工程及其自动化二班 学号:15050342021制作登录窗口一、实验目的1、    掌握可视化数据管理器的使用方法；2、    掌握数据控件及绑定控件的使用方法；3、    掌握代码操作数据库的方法。二、  实验内容1、    建立登录窗口a．    首先放置两个label，左对齐，在label右侧放置两个text box左对齐，并且与labe

原创 菜单栏的制作

电气二班  孟圣均  15050342021菜单栏的制作1.打开VB2.右击’Form1‘空白处，单击’菜单编辑器‘。3.在‘菜单编辑器’中  标题为“文件（&E）”名称为“file”，单击‘下一个’；  标题为“编辑（&）”，名称为“compile”；  选中’编辑‘，单击‘插入’，单击'右箭头图标'，标题为“新建工程（&N）”，名称为“NewProject”，快

原创 二维数组的鞍

姓名:孟圣均   专业:电气工程及其自动化二班   学号:15050342021二维数组的鞍一、实验目的：1．掌握定长数组和动态数组的使用2．掌握数组的基本操作算法3．掌握过程的定义和调用二、实验内容   找一个n*m的二维数组的“鞍点”。“鞍点”是指它在本行中数值最大，在本列中数值最小。也可能在一个数组中找不到鞍点。输出鞍点的行、列号，如无鞍点则输出“无鞍点”。三

原创 为什麽要判断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  

原创 1 10

原创 登陆？登录？

Option ExplicitConst MaxLoginTimes As Integer = 3Private Sub cmdLogin_Click()    Static loginTimes As Integer    loginTimes = loginTimes + 1If loginTimes     On Error GoTo ppp    Dim Cn

转载 不会编辑了，求救

原创 补图图图

原创 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

原创 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 

原创 230的16进制

原创 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

原创 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

原创 数乘结果保存到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

原创 数乘

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

原创 个位数（一位数）相乘

原创 1到100求和

原创 12的阶乘

原创 vb

原创 任意10个数求和方法5

原创 任意10个数之和 方法4

原创 任意10个数和方法三

原创 10个随机整数和 方法2

原创 任意10个整数加和

学霸就是学霸，惭愧惭愧。

原创 1到100加和

运行成功，太不容易了，哈哈哈哈哈

原创 VB咳咳咳

打开vb后点击commandbutton拖入适当位置点击上方工具按钮在选择选项打开其中的编辑器格式将字体设置为24点击commandbutton后输入如下编码Private Sub Command1_Click()    Cls    Font.Size = 30    Dim n As Integer        Dim sizerdun(15) As Inte

原创 感慨

编程真有意思

原创 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

原创 比大小

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