- 博客(15)
- 收藏
- 关注
RSS订阅原创 15电气李书鹏5.12VB作业（1）
Private Sub Command1_Click()Type student Name As String stuNo As String sex As Boolean age As Byte prof As String grade
2016-05-12 17:58:28
296
原创 15电气李书鹏5月7日vb作业（2）
冒泡法对十个数重新进行排序建立一个commad在command中输入以下内容Private Sub Command1_Click()ClsDim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = Int(Rnd * 100)Print a(i)Next i
2016-05-07 17:34:35
412
原创 15电气李书鹏5月7日VB作业（1）
将1230转换为16进制数字建立一个command在command中输入以下内容Private Sub Command1_Click() Me.Font.Size = 30 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a = 123
2016-05-07 17:23:36
391
原创 15电气李书鹏4月28日VB作业（3）
二进制转换为十六进制建立一个commandPrivate Sub Command1_Click()Me.Font.Size = 50Print shiliujinzhi(4545)End SubPrivate Function shiliujinzhi(m As Integer) As StringDim n As Integern = mConst shili
2016-04-28 17:31:16
603
原创 15电气李书鹏4月28日VB作业（2）
将十进制数转换为十六进制数例如将230转换为十六进制数建立一个command 在command中输入以下内容Private Sub Command1_Click() Me.Font.Size = 60 Print D2H(230)End SubPublic Function D2H(Dec As Long) As String Dim a A
2016-04-28 16:56:15
493
原创 15电气李书鹏4月28日Vb作业（1）
将一个数转化为二进制数例如将230转换为二进制建立一个command 在command中输入以下内容Private Sub Command1_Click() Me.Font.Size = 60 Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) As String Dim
2016-04-28 16:32:11
509
原创 15电气李书鹏4月21日作业
多乘1建立一个command 和两个text在command中输入以下内容Private Sub Command1_Click()ClsDim a() As ByteDim r() As ByteDim rm As LongDim d As ByteDim b As ByteDim c As ByteDim chang As Long, i As
2016-04-21 17:03:45
614
原创 15电气李书鹏 4月14日作业（2）
两位数乘以一位数 建立一个command 两个text在command中输入Option Base 1Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1Len As Long Dim n2() As Byte, n2Len As Long Dim yushu
2016-04-14 17:30:44
358
原创 15电气李书鹏4月14日作业（1）
一个数乘以一个数建立一个command 和两个text在command中输入ClsMe.Font.Size = 70Dim n1 As ByteDim n2 As ByteDim yushu As ByteDim shang As ByteDim tempresult As Byten1 = Int(Val(Me.Text1.Text))n2 =
2016-04-14 17:01:37
599
原创 15电气李书鹏
九种循环（一） 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) + 1 sum
2016-04-07 19:09:47
340
原创 15电气李书鹏作业3（3）
建立一个text1 再建立一个command在command里面输入 Cls Font.size = 30 Dim n As Integer Dim sierdum(15) As Integer n = 1 While n sierdum(n) = Int(Rnd * 1000) n = n +
2016-03-31 17:46:44
728
原创 15电气李书鹏3（2）
15个随机数从小到大排列左边点击Command 双击输入Private Sub Command1_Click()Cls Font.Size = 30 Dim n As Integer Dim sierdum(15) As Integer n = 1 While n sierdum(n) = Int(Rnd * 100
2016-03-31 17:26:55
297
原创 15电气李书鹏VB作业3（1）
15个没有顺序的随机数点击左侧Command 双击输入Private Sub Command1_Click()Cls Font.size = 30 Dim n As Integer Dim sierdum(15) As Integer n = 1 While n sierdum(n) = Int(R
2016-03-31 16:54:54
722
原创 15电气李书鹏 作业2
15个大小排序Private Sub Command1_Click()ClsMe.Font.Size = 24Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As In
2016-03-24 18:39:38
554
原创 15电气李书鹏 作业1
红糖水白糖水程序Private Sub Command1_Click()Dim s As StringDim s As LoadPictureColorConstantss = Label1.CaptionLabel1.Caption = Label2.CaptionLabel2.Caption = sa = Label1.ForeColorLabel1.ForeC
2016-03-24 18:36:26
580
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人