VB.net 计算比率

Question

按百分比计算,本来有10个人各占10%,这是突然插入一个人,假设这个人占有2%,怎么从这10个人中抽点百分比给这个人？

Answer 1

你既然固定了新加入的占2%，那么原来的10个人又是均等的，当然剩下的98%每个人有9.8%。

Answer 2

你的程序太繁琐，试试下面的。

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress
If (e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = "." Or Asc(e.KeyChar) = Keys.Back Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp, TextBox2.KeyUp, TextBox3.KeyUp
Dim myTextBox As TextBox = CType(sender, TextBox)
If myTextBox Is Nothing Then Exit Sub

If myTextBox.Name = TextBox1.Name Then
TextBox2.Text = Val(TextBox1.Text) / 100
TextBox3.Text = Val(TextBox1.Text) / 144
ElseIf myTextBox.Name = TextBox2.Name Then
TextBox1.Text = Val(TextBox2.Text) * 100
TextBox3.Text = Val(TextBox1.Text) / 144
ElseIf myTextBox.Name = TextBox3.Name Then
TextBox1.Text = Val(TextBox3.Text) * 144
TextBox2.Text = Val(TextBox1.Text) / 100
End If
End Sub
这样可以么？

追问

text1,text2,text3分别是什么

Answer 3

每个人都减0.02/10=0.2%。其实我不太明白你是啥意思

追问

10个人各占10%这时额外插入了另一个人，假设这个人是占有2%的，则原来10个人需要各自减去一定的%给这个人

追答

2/102约=1.96%
这和vb.net有什么关系吗

追问

不行,我要的是这十个人取出来的数总共等于2%,而不是一个人直接取出2%,这才是难点
我编了个程序需要

追答

除以10不就行了吗，能否告诉我你做的程序是干啥的

追问

做游戏用的,算某某单位的占有率

追答

我算是看不明白你说的啥了，你又想说明白点私聊吧