求一段VB 程序

显示全部楼层 · 2009-5-8 00:38:22

要求一个连乘后连加的结果，就是有几组数，每组内部先相乘，然后相加。
数的组数和每组内数的个数不定。
貌似就是专业点说的动态二维数组的问题吧。或者说M个一维数组内部相乘然后相加。
一点VB都不会，需要从数据的输入方法到算出结果的编程。
比如点击一个开始，输入数据，可以在输入时先定义组数个数，和每组内的数字个数。然后一组一组的输入完，点击完成，出结果。
其它能做出来的方法也好啊，高手帮忙啊~
先上100~解决了加

千问 · 2009-5-8 00:38:22

放两个command1和2，位置和大小调整好，窗口要适当大一点，以便于在窗口上直接显示结果，代码如下：Dim A() As Integer, B() As Integer, I As Integer, J As IntegerDim M As Integer, N As Integer, Max As Integer, T As IntegerPrivate Sub Command1_Click()
Dim St As String
If Command1.Caption = "开始" Then
Form1.Cls
Command1.Caption = "下一组"
R...

千问 · 2009-5-8 00:38:22

以下算法是：组内数据相乘，然后再将所有得到的各组乘积结果数据相加，满足每组内数据数目不定，总组数不定的要求：Dim strInput As StringDim vData As VariantDim dblSum As DoubleDim sngDat As SingleDim dblMul As DoubleDim lLp As...

千问 · 2009-5-8 00:38:22

Private Sub Command1_Click()Dim str1 As String, i As Integer, j As IntegerDim N As Integer, NN() As Integer, aa() As DoubleDim dblSum As Double '各数组的和10str1 = Inp...

千问 · 2009-5-8 00:38:22

进我q群里解决问题吧，好多会VB的，也许能很快帮你解决问题，21941971...

千问 · 2009-5-8 00:38:22

不太明白．．．...