UC知道vb编程题目~求救~！！
来源：百度知道 编辑：UC知道 时间：2024/07/02 17:22:36
题目：使用随机函数产生10个1~100之间的随机整数存放在一维数组a中，并把该数组元素显示在一个文本框里。然后在数组a中的指定位置插入一个指定值，并将插入值之后的数组a的所有元素显示在另一文本框中。
算法分析：假设数组a的下界为1，指定插入的数组元素为num、插入位置为p，则按题意要把数组a中的元素从a(p)起到最后到最后一个元素都向后移动一个位置，而原a(1),a(2)，...a(p-1）的位置不变，num作为a(p)的值。把数组a中的元素从a(p)起到最后一个元素都向后移动移动位置，需要从最后元素开始逐个往前移动一个位置。要完成这样的工作需使用单重循环结构。
算法分析：假设数组a的下界为1，指定插入的数组元素为num、插入位置为p，则按题意要把数组a中的元素从a(p)起到最后到最后一个元素都向后移动一个位置，而原a(1),a(2)，...a(p-1）的位置不变，num作为a(p)的值。把数组a中的元素从a(p)起到最后一个元素都向后移动移动位置，需要从最后元素开始逐个往前移动一个位置。要完成这样的工作需使用单重循环结构。
Private Sub Form_Load()
'须先设定两个Text的MultiLine属性为True,否则无法正常显示.
Dim a(11)'定义数组
p = 6'插入位置
num = 52'插入数字
For i = 1 To 10
Randomize
a(i) = Int(Rnd(i) * 99 + 1)
Next'取随机数
For i = 1 To 10
Text1.Text = Text1.Text & a(i) & Chr(13) & Chr(10)
Next'显示插入前
For i = 10 To p Step -1
a(i + 1) = a(i)
Next'移动
a(p) = num'移动
For i = 1 To 11
Text2.Text = Text2.Text & a(i) & Chr(13) & Chr(10)
Next'显示插入后
End Sub