龙空技术网

学习VB编程第70天,做一个简单的投票统计

四川二流子从零学编程 478

前言:

而今你们对“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排列算法