qq_34242683的博客

原创 选择排序法——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

原创 选择排序法——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

原创 选择排序法——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

原创 选择排序法——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

原创 选择排序法

原创 十六进制

<>是不等于的意思

原创 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

原创 二进制——23

原创 多位数乘一位数

真考验耐心和细心啊！！！12

原创 最简单的VB12

最简单的程序了吧，哎，也就只会这个了，先热热身吧~

原创 两位数乘一位数

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

原创 一位数与一位数相乘

一位数与一位数的相乘，细节挺多，要认真！！

原创 11的阶乘

11的阶乘！完成！

原创 文章标题

又完成一个，内心是开心的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

原创 文章标题

最简单的一种方法，就这个还懂点。。。。。。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

原创 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

原创 欢迎使用CSDN-markdown编辑器

欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来，用它写博客，将会带来全新的体验哦：Markdown和扩展Markdown简洁的语法代码块高亮图片链接和图片上传LaTex数学公式UML序列图和流程图离线写博客导入导出Markdown文件丰富的快捷键快捷键加粗 Ctrl + B 斜体 Ctrl + I 引用 Ctrl

原创 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

原创 计时器的制作

第一次的VB作业，虽然完成的很坎坷，但是在小闹钟运行的那一刻，还是很开心的！！1.打开程序软件后，点击左侧闹钟图标，将其拉成条形成为一个小闹钟，再双击闹钟弹出一个框，在private sub_time()下方输入：屏幕1.Caption=Time()2,.点击左侧图标A，将其拉成条形，在右侧的属性框中的名称和Caption都改成屏幕13.点击左侧图标CommadBu

原创 输出15个数