- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省高中信息技术 VB基本语句同步练习

编写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)

For i=1 To

x=Int((Rnd()*s/(n-i)+0.005)*100)/100

List1.AddItem Str(x)

Next i

x=Int((s+0.005)*100)/100

List1.AddItem Str(x)

End Sub

举一反三

Private Sub Command1_Click()

Dim n As Integer, s As Integer

n = 10

s = 10 ︿ n

Text1.Text = Str(s)

End Sub

运行程序时，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的原因是（）

A. “1234” B. “12” “34” C. “46” D. 46

相关试卷