- 博客(20)
- 收藏
- 关注
原创 选择排序法——1到10000
Private Sub Command1_Click()ClsMe.Font.Size = 10Dim a(10000) As IntegerDim i As IntegerFor i = 1 To 10000a(i) = 10 + Int(Rnd() * 10000)Print a(i)Next iPrintDim j As IntegerFor j
2016-05-12 17:37:18
842
原创 选择排序法——1到1000
Private Sub Command1_Click()ClsMe.Font.Size = 10Dim a(1000) As IntegerDim i As IntegerFor i = 1 To 1000a(i) = 10 + Int(Rnd() * 1000)Print a(i)Next iPrintDim j As IntegerFor j = 1
2016-05-12 17:34:59
502
原创 选择排序法——1到100
Private Sub Command1_Click()ClsMe.Font.Size = 10Dim a(100) As IntegerDim i As IntegerFor i = 1 To 100a(i) = 10 + Int(Rnd() * 1000)Print a(i)Next iPrintDim j As IntegerFor j = 1 T
2016-05-12 17:30:59
373
原创 选择排序法——1到10
Private Sub Command1_Click()ClsMe.Font.Size = 10Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 100)Print a(i)Next iPrintDim j As IntegerFor j = 1 To 9
2016-05-12 17:26:51
378
原创 VB
Private Sub Command1_Click()ClsMe.Font.Size = 50Dim a() As ByteDim r() As ByteDim b As StringDim c As ByteDim i As LongDim l As Longl = Len(Me.Text1.Text)ReDim a(l) For i = 1 T
2016-04-28 16:53:33
178
原创 两位数乘一位数
Option Base 1Private Sub Command1_Click()Me.Font.Size = 30Dim n1() As Byte, n1len As LongDim n2() As Byte, n2len As LongDim yushu1 As ByteDim yushu2 As ByteDim shang As ByteDim tem
2016-04-14 17:37:40
256
原创 文章标题
又完成一个,内心是开心的private sub command1_click() dim i 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 sum end sub
2016-04-07 17:40:18
155
原创 文章标题
最简单的一种方法,就这个还懂点。。。。。。private sub command1_click() cls print f(10) end subprivate function f(x as integer) as long if x=1then f=x elsef=x+f(x-1) end ifend function
2016-04-07 17:30:40
151
原创 vb
好不容易完成了一个!!private sub command1_click() cls font.size=70 print f(10) end subprivate function f(x as integer) as long if x=1 then f=x else f=x+f(x-1) end if end
2016-04-07 17:25:53
176
原创 欢迎使用CSDN-markdown编辑器
欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来,用它写博客,将会带来全新的体验哦:Markdown和扩展Markdown简洁的语法代码块高亮图片链接和图片上传LaTex数学公式UML序列图和流程图离线写博客导入导出Markdown文件丰富的快捷键快捷键加粗 Ctrl + B 斜体 Ctrl + I 引用 Ctrl
2016-04-07 17:20:39
157
原创 VB之15个数的排序
唉呀妈呀!这么变态的程序我都做出了!!已经不想说什么了,为自己点一万个赞!!。。。。。。。Me.Font.Size = 50 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
2016-03-31 17:25:07
301
原创 计时器的制作
第一次的VB作业,虽然完成的很坎坷,但是在小闹钟运行的那一刻,还是很开心的!!1.打开程序软件后,点击左侧闹钟图标,将其拉成条形成为一个小闹钟,再双击闹钟弹出一个框,在private sub_time()下方输入:屏幕1.Caption=Time()2,.点击左侧图标A,将其拉成条形,在右侧的属性框中的名称和Caption都改成屏幕13.点击左侧图标CommadBu
2016-03-31 16:56:21
336
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人