sinat_34242847的博客

原创 vb

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  

原创 找出二维数组 n*m中的“鞍点”

找出二维数组 n*m中的“鞍点”姓名：刘兆国学号：15050342020 实验日期：2016.5.26Private Sub Command1_Click()Dim i As Integer, j As Integer, c As Integer, r As IntegerDim n As Integercs1xsFor i = 1 To 4    For 

原创 VB语言设计“用户名”与“密码”实验报告

VB语言设计“用户名”与“密码”实验报告姓名：刘兆国学号：15050342020实验日期：2016.5.26实验内容：首先创作一个登录页面，然后输入相应的字并对字符大小进行修改，然后建立数据库，在数据库内建立数据表并对表格进行相应的命名，然后编制程序，最后运行输出结果。实验步骤：登录-Form-frmlogin StartUpPosition=2，账号-Label Text

原创 vb

Private Sub Command1_Click()ClsPrintFor n = 1 To 8 Print Tab(n + 20);  For m = 1 To 10   Print Spc(1); "*";  Next m  PrintNext nEnd Sub

原创 vb

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

原创 vb

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

原创 vb()

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);Nex

原创 vb(选择法排序)

Private Sub Command1_Click()Me.Font.Size = 50ClsDim a(1 To 10) As IntegerDim i As ByteDim j As ByteDim t As LongFor i = 1 To 10    a(i) = 10 + Rnd() * 100Next iFor i = 1 To 10 

原创 vb

Private Sub Command1_Click()Me.Font.Size = 50ClsDim a As LongDim b As Bytea = 230b = 16Dim yushu As LongDim s As StringDim yu As StringWhile a     yushu = a Mod b    If yushu

原创 vb

Private Sub Command1_Click()    Me.Font.Size = 60    Print erjinzhi(23)End SubPrivate Function erjinzhi(m As Byte) As String    Dim n As Byte    n = m    Const er As Byte = 16    Dim

原创 vb

Private Sub Command1_Click()    Me.Font.Size = 60    Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) As String    Dim n As Byte    n = m    Const er As Byte = 2    Dim

原创 vb

打开vb后点击commandbutton拖入form1中，在吧textbox踏入form中创建两个。Private Sub cmdMutil_Click()ClsDim n() As ByteDim r() As ByteDim b As StringDim c As ByteDim i As LongDim L As LongL = Len(Me.Text

原创 vb

打开vb后点击commandbutton拖入form1中，在吧textbox踏入form中创建两个。再点击comandante进入输入以下语句Private Sub cmdMulti_Click()Dim a As Byte, c As IntegerDim b As Stringb = Me.Text1.Texta = Int(Val(b))b = Me.Text

原创 vb

原创 vb

Private Sub Command1_Click()ClsDim i As Integer, s As IntegerDim sum As IntegerFor i = 1 To 10 Step 1Randomizea = Int(Rnd * 1000)sum = sum + aNextPrint "和为" & sumEnd Sub

原创 vb

Private SubCommand1_Click()    Dim i As Integer    Dim a(10) As Integer    Dim sum As Integer    Randomize    For i = 1 To 10        a(i) = Int(Rnd * 1000) + 1        sum = sum + a(i) 

原创 vb

打开vb后点击commandbutton进入界面后输入Private Sub Command1_Click()ClsDim n As Integer, s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n

原创 vb

打开vb后点击commandbutton拖入适当位置点击上方工具按钮在选择选项打开其中的编辑器格式将字体设置为24点击commandbutton后输入如下编码Private Sub Command1_Click()ClsDim x(15) As Integer, n As Integern = 1While n x(n) = Int(Rnd * 1000)n = n +

原创 vb

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

原创 排序

Private Sub 排序_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 j As

原创 比大小

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 

原创 作业

进入vb后选择command并拖入form中点击form进入code中输入Private Sub Command1_Click()ClsMe.Font.Size = 70Dim a As Integer, b As Integer, c As Integerc = Int(Rnd() * 1000)b = Int(Rnd() * 1000)Print "a="