自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(16)
  • 收藏
  • 关注

原创 余数和商 一位数乘一位数

Private Sub Command1_Click() Dim n1 As Byte Dim n2 As Byte Dim yushu As Byte Dim shang As Byte Dim tempresult As Byte n1 = Int(Val(Me.Text1.Text)) n2 = Int(Val(Me.Text2.Text)) tempresult = n1

2016-06-16 17:45:36 394

原创 VB中输入个人信息并保存成文档形式

Private Type student name As String * 3 stuNo As String * 11 sex As Boolean age As Byte prof As String * 2 grade As Single End Type Private Sub Command1_Click() Dim qizhenhao As student qi

2016-06-16 17:44:14 397

原创 余数和商 两位数乘一位数

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 407

原创 十个随机数求和

1. Option Explicit Private Sub Command1_Click() Cls Dim i As Integer, Sum As Integer Dim a(10) As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 1000) + 1 Sum = Sum + a(i) Next i Print

2016-06-16 17:40:58 920

原创 n个数乘一个数

Private Sub Command1_Click() Cls Dim a() As Byte Dim b As String Dim c As Byte Dim c1 As Byte Dim c2 As Byte Dim i As Long, changdu As Long changdu = Len(Text1.Text) ReDim a(changdu) For i =

2016-06-16 17:40:17 387

原创 一位数乘一位数

Private Sub Command1_Click() Dim n1 As Byte Dim n2 As Byte Dim shang As Byte Dim yushu As Byte Dim tempresult As Byte n1 = Int(Val(Me.Text1.Text)) n2 = Int(Val(Me.Text2.Text)) tempresult = n

2016-06-16 17:39:21 431

原创 二进制 120

Private Sub Command1_Click()     Me.Font.Size = 60     Print erjinzhi(120) End Sub Private 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 790

原创 二进制 230

Private Sub Command1_Click()     Me.Font.Size = 60     Print erjinzhi(230) End Sub Private 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 290

原创 16进制

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 = 1230: b = 16          While a         yushu = a Mod b

2016-06-16 17:34:48 283

原创 选择法排序

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 357

原创 冒泡法排序

Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer Dim j As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd() * 1000) Print a(i); Next i Print For i = 1 To 9 For j = 1 To 10 - i

2016-06-16 17:32:49 281

原创 作业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 271

原创 2016-03-31

Option Base 1 Private Sub Command1_Click()   Cls Font.size = 30 Dim a As Integer   Dim sierdun(15) As Integer n = 1 While n    sierdun(n) = Int(Rnd * 1000)     n= n + 1 Wend     Dim sw

2016-03-31 17:37:51 327

原创 作业2

Private Sub Command1_Click() Cls Me.Font.Size = 24 Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer Di

2016-03-31 16:32:23 304

原创 作业1

Private Sub Command1_Click() Dim s As String Dim s As LoadPictureColorConstants s = Label1.Caption Label1.Caption = Label2.Caption Label2.Caption = s a = Label1.ForeColor Label1.ForeColor = Lab

2016-03-31 16:26:59 45817

转载 平凡的世界

人,无 论在什么位置,无论多么贫寒,只要有一颗火热的心在,只要热爱生活,上帝 对他就是平等的.只有作一名劳动者,不把不幸当作负担,才能去做生活的主.用自己真诚的心去体验,毕竟生命属于我们只有一次.这是一部用生命来 用自己真诚的心去体验,在亘古的大地与苍凉的宇宙间,有一种平凡的声音,荡气回肠.在这平凡的世界中,平凡人的一生,更要有坚定的理想和信念,有执着的 平凡的世界 追求和渴望,我们就应该像孙少平

2016-03-24 16:24:58 633

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除