vb 读取cpu序列号

大家好，今天小编关注到一个比较有意思的话题，就是关于vb 读取cpu序列号的问题，于是小编就整理了1个相关介绍vb 读取cpu序列号的解答，让我们一起看看吧。

1、VB选择法排序？

VB选择法排序？

Private Sub Command1_Click()

Dim a(1 To 10) As Integer

For i = 1 To 10

a(i) = Int(Rnd * 10)

Print a(i);

Next i

Print

‘以上十随机得出10个数

For i = 1 To 9 ‘这里开始是双重循环

For j = i + 1 To 10

If a(i) > a(j) Then ‘如果前一个数大于后一个数则交换位置

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Print a(i);

Next i

Print a(i);End Sub

I等于1时 就是拿第一位和第二位比较 比较大的的数排后面 然后比较第一位和第三位 For j = i + 1

To 10 直到比较到最后一位

i=2 时也是如此 循环9次就完成排序

5 3 2 7

i=1 时

J=2时 3 5 2 7

J=3时 2 5 3 7

j=4时 2 5 3 7

I=2时

j=3时 2 3 5 7

展开全部

Private Sub Command1_Click()

Dim a(1 To 10) As Integer

For i = 1 To 10

a(i) = Int(Rnd * 10)

Print a(i);

Next i

Print

‘以上十随机得出10个数

For i = 1 To 9 ‘这里开始是双重循环

For j = i + 1 To 10

If a(i) > a(j) Then ‘如果前一个数大于后一个数则交换位置

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Print a(i);

Next i

Print a(i);

End Sub

I等于1时 就是拿第一位和第二位比较 比较大的的数排后面 然后比较第一位和第三位 For j = i + 1

To 10 直到比较到最后一位

i=2 时也是如此 循环9次就完成排序

5 3 2 7

i=1 时

J=2时 3 5 2 7

J=3时 2 5 3 7

j=4时 2 5 3 7

I=2时

j=3时 2 3 5 7

扩展资料

Private Sub Command1_Click()

Dim a(10) As Integer

Dim b As Integer

Dim i As Integer

Dim j As Integer

Dim k As Integer

For i = 1 To 10

a(i) = Int(Rnd * 90 + 10)

Print a(i);

到此，以上就是小编对于vb 读取cpu序列号的问题就介绍到这了，希望介绍关于vb 读取cpu序列号的1点解答对大家有用。