- 博客(22)
- 收藏
- 关注
原创 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
2016-06-02 17:48:12 326
原创 找出二维数组 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
2016-06-02 17:13:58 1246
原创 VB语言设计“用户名”与“密码”实验报告
VB语言设计“用户名”与“密码”实验报告姓名:刘兆国学号:15050342020实验日期:2016.5.26实验内容:首先创作一个登录页面,然后输入相应的字并对字符大小进行修改,然后建立数据库,在数据库内建立数据表并对表格进行相应的命名,然后编制程序,最后运行输出结果。实验步骤:登录-Form-frmlogin StartUpPosition=2,账号-Label Text
2016-06-02 17:11:35 1635
原创 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
2016-05-26 17:53:53 183
原创 vb
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:10:28 168
原创 vb
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:03:29 148
原创 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
2016-05-12 17:29:07 271
原创 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
2016-05-07 17:43:27 6026
原创 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
2016-05-07 17:26:23 152
原创 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
2016-04-28 17:05:44 145
原创 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
2016-04-28 16:40:43 220
原创 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
2016-04-21 16:48:03 170
原创 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
2016-04-21 16:23:15 183
原创 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
2016-04-07 17:05:03 211
原创 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)
2016-04-07 17:03:53 156
原创 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
2016-04-07 17:00:46 197
原创 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 +
2016-03-31 17:42:41 156
原创 vb
打开vb后点击commandbutton拖入适当位置点击上方工具按钮在选择选项打开其中的编辑器格式将字体设置为24点击commandbutton后输入如下编码Private Sub Command1_Click() Cls Font.Size = 30 Dim n As Integer Dim sizerdun(15) As In
2016-03-31 16:44:49 173
原创 排序
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
2016-03-24 17:57:46 126
原创 比大小
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:44:48 167
原创 作业
进入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="
2016-03-17 17:16:11 154
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人