UC知道求一段VB 程序
来源：百度知道 编辑：UC知道 时间：2024/07/08 19:50:00
要求一个连乘后连加的结果，就是有几组数，每组内部先相乘，然后相加。
数的组数和每组内数的个数不定。
貌似就是专业点说的动态二维数组的问题吧。或者说M个一维数组内部相乘然后相加。
一点VB都不会，需要从数据的输入方法到算出结果的编程。
比如点击一个开始，输入数据，可以在输入时先定义组数个数，和每组内的数字个数。然后一组一组的输入完，点击完成，出结果。
其它能做出来的方法也好啊，高手帮忙啊~
先上100~解决了加
数的组数和每组内数的个数不定。
貌似就是专业点说的动态二维数组的问题吧。或者说M个一维数组内部相乘然后相加。
一点VB都不会，需要从数据的输入方法到算出结果的编程。
比如点击一个开始，输入数据，可以在输入时先定义组数个数，和每组内的数字个数。然后一组一组的输入完，点击完成，出结果。
其它能做出来的方法也好啊，高手帮忙啊~
先上100~解决了加
放两个command1和2，位置和大小调整好，窗口要适当大一点，以便于在窗口上直接显示结果，代码如下：
Dim A() As Integer, B() As Integer, I As Integer, J As Integer
Dim M As Integer, N As Integer, Max As Integer, T As Integer
Private Sub Command1_Click()
Dim St As String
If Command1.Caption = "开始" Then
Form1.Cls
Command1.Caption = "下一组"
ReDim A(1, 1)
Command2.Caption = "结束"
End If
Randomize
M = M + 1
N = 1
Print "第"; M; "组";
Do
St = InputBox("第" + Str(M) + "组 第" + Str(N) + "个数（【取消】——本组完毕）", "输入", Int(Rnd * 9 + 1))
If St = "" Then Exit Do
T = M
If N = 1 Then T = T - 1
ReDim B(M, Max)
For I = 1 To T
For J = 0 To A(I, 0)
B(I, J) = A(I, J)
Next
Next