自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

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

原创 任意0到255内的数转换为2进制

Private Sub Command1_Click()Me.Font.Size = 60Dim b As Integerb = Int(Val(Me.Text1.Text))Print erjinzhi(b)End SubPrivate Function erjinzhi(m As Integer) As StringMe.Font.Size = 60ClsD

2016-04-28 17:42:54 1455

原创 23转化为二进制数

Private Sub Command1_Click()Me.Font.Size = 60Dim i As IntegerDim b As IntegerConst a As Integer = 2Dim shang As IntegerDim yushu(1 To 5) As Doubleb = 23i = 5shang = b \ ayushu(i) =

2016-04-28 16:42:18 1228

原创 任意一个n位数乘一位数

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim c As IntegerDim a() As IntegerDim b As StringDim changdu  As Long, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To

2016-04-21 17:24:26 241

原创 三位数成一位数

Private Sub Command1_Click()ClsDim a1 As IntegerDim a2 As IntegerDim a3 As IntegerDim b1 As StringDim b2 As StringDim b3 As StringDim c As IntegerDim d1 As IntegerDim d2 As Integer

2016-04-21 16:25:42 361

原创 简单数的乘法结果

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim n1 As IntegerDim n2 As IntegerDim yushu As IntegerDim shang As IntegerDim tempresult As Doublen1 = (Val(Me.Text1.Text))n2 = (Val(M

2016-04-14 17:05:01 284

原创 求1到10的和

Private Sub Command7_Click()ClsPrint f(10)End SubPrivate Function g(x As Integer) As LongIf x = 1 Theng = xElseg = x + g(x - 1)End IfEnd Function

2016-04-11 14:45:35 1048

原创 用do-until语句求随机十个数的和

Private Sub Command4_Click()ClsDim n As IntegerDim a(10) As Integern = 1Do Until n > 10a(n) = Int(Rnd * 1000)sum = sum + a(n)n = n + 1LoopPrint sumEnd Sub Private Sub Command

2016-04-11 14:44:11 725

原创 用do-while语句求随机是个数的和

Private Sub Command3_Click()ClsDim n As IntegerDim a(10) As Integern = 1Do While n a(n) = Int(Rnd * 1000)sum = sum + a(n)n = n + 1LoopPrint sumEnd SubPrivate Sub Command6

2016-04-11 14:42:58 378

原创 用while语句求随机十个数个的和

Private Sub Command1_Click()ClsDim n As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)Print a(n)n = n + 1WendDim sum As Integers = 0n = 1While n sum = sum +

2016-04-11 14:41:09 1396

原创 用if语句随机生成十个数,排序

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-04-11 14:39:18 608

原创 学习vb的心得体会

vb是一门计算机及编程语言,也算是一项知识含量较高的东西。学习的这段时间,我明白了万事开头难,刚刚开始,遇到些困难没关系,慢慢来。编程时一个不断学习,不断积累的过程,编程的乐趣也正是存在于学习的过程。我们每学一点,就赶快把他用到实际的程序中去,自己多学,多用多实践,水平才能不断提高,这既是“学以致用”。多看别人的代码,及时看不懂也没关系,可以把这些大妈输入到机子里运行,然后根据运行结果去体会程序的

2016-04-10 17:31:30 9730

原创 随机生成十个数,排顺序

Option ExplicitPrivate Sub Command1_Click()ClsDim i As IntegerDim sum As IntegerDim a(10) As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 1000)sum = sum + a(i)Next iPrint sum

2016-04-10 17:23:00 1427

原创 随机生成任意个数,然后排大小

Option Base 1Private Sub Command1_Click()ClsDim a As IntegerDim b As Integerb = Int(Val(Me.Text1.Text))Dim hello() As IntegerReDim hello(b)a = LBound(hello)While a hello(a) = Int(R

2016-04-10 17:16:31 199

空空如也

空空如也

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

TA关注的人

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