liu2210642924-CSDN博客

原创对于随机数ab的比较

在桌面中双击VB6.0打开程序在工具箱窗口找到command的图标，单击图标并在窗体中适当位置创建并在属性窗口中找到caption并把其后面改为“排序” 在工具箱窗口找到textbox的图标，单击图标并在窗体中适当位置创建。在窗体中双击command图标，并在弹出的对话框中输入代码。代码如下： Dim a As Integer Dim b As

2016-06-16 17:41:29 297

原创 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:38:05 405

原创 16进制

2016-06-16 17:36:58 162

原创选择

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:36:04 169

原创冒泡

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:35:01 189

原创 5

End Sub 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

2016-05-26 18:13:54 172

原创 4

Cls Dim n As Integer Dim aaa(15) As Integer n = 1 While n aaa(n) = Int(Rnd * 1000) n = n + 1 Wend Dim swap As Integer n = 1 While n If aaa(n) swap = aaa(n) aaa(n) = aaa(n + 1) aaa

2016-03-31 17:10:23 194

原创 3

打开vb 再打开commandbutton， Cls Dim n As Integer Dim aaa(15) As Integer n = 1 While n aaa(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print aaa(n) n = n + 1 Wend 结束

2016-03-31 16:44:01 195

原创 2

1. 打开VB 2. 点击出现的窗口左侧的commandbutton，再点击出现的command1，在出现的窗口中输入： Cls Me.Font.Size = 20 Dim a As Integer, b As Integer Dim c As Integer a= Int(1000 * Rnd) b= Int(1000 * Rnd

2016-03-28 14:25:07 212 1

原创 1

打开vb，在出现的窗口的左侧点击commandbutton，再双击小窗口中出现的command1。在打开的窗口中输入以下内容 Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim swap As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) If a

2016-03-24 16:55:54 236

liu2210642924的博客