求VB高手帮忙写个代码

来源：百度知道 编辑：UC知道 时间：2024/06/06 20:55:37
随机抽选-9到9以内8个数字。。

然后做递减。。

即选取n1,n2,n3……n8。。

n1-n2,n2-n3,n3-n4……n7-n8 得n'1,……n'7

然后n'1-n'2……n'6-n'7…………

如此类推。。知道得到最后一个数。。

Private Sub Command1_Click()
Dim 个数 As Integer
Dim i As Integer
Dim 数据(8) As Integer

Randomize
Print "原始数据：";
For i = 1 To 8
数据(i) = Int(Rnd * 19) - 9
Print 数据(i);
Next i
Print

个数 = 8
Do Until 个数 = 1
个数 = 个数 - 1
Print "第"; 8 - 个数; "轮：";
For i = 1 To 个数
数据(i) = 数据(i) - 数据(i + 1)
Print 数据(i);
Next i
Print
Loop
End Sub

for i=1 to 8
for j=1 to 7
n(j)=n(j)-n(j+1)
next j
next i

楼上的另类啊，怎么还有用中文做变量名的人存在啊!

为什么不去用易语言啊！VB太高级了吧！

这题代码怎么写啊，我服，一代不如一代！

别告诉我要计算1+1你不会写代码！

dim sum
sum = 1+1
print sum
.......