前言:
而今你们对“vb排列算法”都比较珍视,你们都需要剖析一些“vb排列算法”的相关文章。那么小编在网摘上网罗了一些对于“vb排列算法””的相关资讯,希望同学们能喜欢,我们快快来学习一下吧!视频加载中...
今天学习了VB提升教程18期,学习的主要内容是简单的投票统计。
1.思路:利用inputbox和do loop循环统计每个人的得票,然后用户冒泡排序法统计得票排名。
2.如图新建控件
3.输入代码:
Option Base 1
Dim xm
Dim a%(1 To 6)
Private Sub Command1_Click()
Dim k%
xm = Array(Text1.Text, Text2.Text, Text3.Text, Text4.Text, Text5.Text, Text6.Text)
k = Val(InputBox("请输入号码:"))
Do Until k = -1
a(k) = a(k) + 1
k = Val(InputBox("请输入号码:"))
On Error GoTo catch
Loop
catch:
List1.Clear
For i = 1 To 6
If a(i) <> 0 Then
List1.AddItem xm(i) & "的票数:" & a(i)
End If
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To 5
For j = 1 To 6 - i
If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
t = xm(j): xm(j) = xm(j + 1): xm(j + 1) = t
End If
Next
Next
List2.Clear
For i = 1 To 6
If a(i) <> 0 Then
List2.AddItem xm(i) & "的票数" & a(i)
End If
Next
End Sub
4.运行效果详见视频
标签: #vb排列算法