题目

编写VB程序，实现如下功能：在文本框Text1中输入发放红包的总金额s，在文本框Text2中输入发放红包的个数n，单击“分配”按钮(Command1)，为n个红包随机分配金额，并在列表框List1中显示分配后的这些金额。界面如图1所示。 （1） 在设计应用程序界面时，应使用图2所示“控件工具箱”中的(填写相应编号)添加列表框List1。 （2） 为实现上述功能，请在划线处填入合适代码。 Private Sub Command1_Click()   Dim s As Single,x As Single,n As Integer,i As Integer   Randomize   List1.Clear   s=Val(Text1.Text)   n=   For i=1 To    x=Int((Rnd()*s/(n-i)+0.005)*100)/100    List1.AddItem Str(x)    s=   Next i   x=Int((s+0.005)*100)/100   List1.AddItem Str(x) End Sub 答案： 【1】4 【1】val(text2.text)【2】n-1【3】s-x

查看本题答案和解析