- 博客(16)
- 收藏
- 关注
原创 余数和商 一位数乘一位数
Private Sub Command1_Click()Dim n1 As ByteDim n2 As ByteDim yushu As ByteDim shang As ByteDim tempresult As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Val(Me.Text2.Text))tempresult = n1
2016-06-16 17:45:36 359
原创 VB中输入个人信息并保存成文档形式
Private Type studentname As String * 3stuNo As String * 11sex As Booleanage As Byteprof As String * 2grade As SingleEnd TypePrivate Sub Command1_Click()Dim qizhenhao As studentqi
2016-06-16 17:44:14 353
原创 余数和商 两位数乘一位数
Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1Len As Long Dim n2() As Byte, n2Len As Long Dim yushu1 As Byte, yushu2 As Byte Dim shang As Byte Dim i
2016-06-16 17:43:04 363
原创 十个随机数求和
1.Option ExplicitPrivate Sub Command1_Click()ClsDim i As Integer, Sum As IntegerDim a(10) As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 1000) + 1Sum = Sum + a(i)Next iPrint
2016-06-16 17:40:58 778
原创 n个数乘一个数
Private Sub Command1_Click()ClsDim a() As ByteDim b As StringDim c As ByteDim c1 As ByteDim c2 As ByteDim i As Long, changdu As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i =
2016-06-16 17:40:17 370
原创 一位数乘一位数
Private Sub Command1_Click()Dim n1 As ByteDim n2 As ByteDim shang As ByteDim yushu As ByteDim tempresult As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Val(Me.Text2.Text))tempresult = n
2016-06-16 17:39:21 388
原创 二进制 120
Private Sub Command1_Click() Me.Font.Size = 60 Print erjinzhi(120)End SubPrivate Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 2 Dim
2016-06-16 17:37:07 720
原创 二进制 230
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-06-16 17:36:07 267
原创 16进制
Private Sub Command1_Click() Me.Font.Size = 30 Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Byte a = 1230: b = 16 While a yushu = a Mod b
2016-06-16 17:34:48 252
原创 选择法排序
Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i) Next i Print Dim j As Integer
2016-06-16 17:33:53 321
原创 冒泡法排序
Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 1000)Print a(i);Next iPrintFor i = 1 To 9For j = 1 To 10 - i
2016-06-16 17:32:49 251
原创 作业4
Private Sub Command1_Click() Me.Font.Size = 60 Print erjinzhi(230)End Sub Private Function erjinzhi(m As Byte) AsString Dim n As Byte n= m Const er As Byte = 2 Dim retur
2016-05-12 17:11:01 245
原创 2016-03-31
Option Base 1Private Sub Command1_Click() ClsFont.size = 30Dim a As Integer Dim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000) n= n + 1Wend Dim sw
2016-03-31 17:37:51 296
原创 作业2
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 IntegerDi
2016-03-31 16:32:23 279
原创 作业1
Private Sub Command1_Click()Dim s As StringDim s As LoadPictureColorConstantss = Label1.CaptionLabel1.Caption = Label2.CaptionLabel2.Caption = sa = Label1.ForeColorLabel1.ForeColor = Lab
2016-03-31 16:26:59 45258
转载 平凡的世界
人,无 论在什么位置,无论多么贫寒,只要有一颗火热的心在,只要热爱生活,上帝 对他就是平等的.只有作一名劳动者,不把不幸当作负担,才能去做生活的主.用自己真诚的心去体验,毕竟生命属于我们只有一次.这是一部用生命来 用自己真诚的心去体验,在亘古的大地与苍凉的宇宙间,有一种平凡的声音,荡气回肠.在这平凡的世界中,平凡人的一生,更要有坚定的理想和信念,有执着的 平凡的世界 追求和渴望,我们就应该像孙少平
2016-03-24 16:24:58 591
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人