Question

求大神帮我写个vb 采样程序。要求如果实际数量是a，那么抽样数量为b。

求大神帮我写个vb 采样程序。要求如果实际数量是a，那么抽样数量为b。我好多年不用vb了，想不起来了。大体写了个，总是不对，强迫症犯了。请大神帮我看看哪里错误。感谢
Private Sub Command3_Click()
Dim a As Long
Dim b As Long
a = Val(Text1.Text)
If 0 < a <= 10 Then
Text2.Text = a
ElseIf 10 < a <= 500 Then
Text2.Text = 10 + (-Int((10 - a) / 100))
ElseIf 500 < a <= 2000 Then
Text2.Text = 14 + (-(Int(500 - a) / 200))
ElseIf a > 2000 Then
b = 22 + (-Int(((2000 - a) / 400)))
Else
MsgBox "请输入正确实际数量"
End If
End Sub

Answer 1

随机数使用有姿岩锋误

Dim MyValue
Randomize ' 对枣乎随机数生成器做初始化的动作。
MyValue = Int((100 * Rnd) + 1) ' 生成 1 到 100 之迹晌间的随机数值。

追问

大哥，帮我瞅瞅，我的意思是这样的。见图。text1输入实际数量，点抽样数量控件后，text2显示抽样数量。抽样数量是根据实际数量算出来的。如方便，加qq详聊。我的453038750.