- 二一组卷

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

浙江省高中信息技术 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

举一反三

实现上述功能的VB程序如下，请回答下列问题:

小明依据上述描述设计了如下VB程序，在Text1中输入矩阵的行数n (n≤10)，单击“生成”按钮Command1，在List1中显示n×n的螺旋矩阵。请回答下列问题：

For i = 1 To 6

a(i) = Int(Rnd * 10) + 1

Next i

For i = 2 To 6

If i Mod 2 = 0 And a(i)>a(i-1) Then

t=a(i)：a(i)=a(i-1)：a(i-1)=t

Else

a(i)=a(i)-1

End If

Next i

执行程序后，数组元素a(1)到a(6)的值可能是( )

相关试卷