全部
Ada助手

大哥们我是VB初学者高分请教

bigbigwind 2004-04-09 10:00:57

我想编一个解方程组的程序
例子 2x1+3x2+4x3=6
3x1+5x2+2x3=5
4x1+3x2+30x3=32
我想在第一个窗体中输入 M*N的方程组确定M和N
然后根据M和N 确定下一个窗体中要有M*N个文本框输入方程组的系数
或是在原来的那个窗体中显示
怎么样来控制谢谢大哥们

...全文

给本帖投票

67 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

kong佳 2004-04-10

打赏
举报

现在新来的人真厉害啊.

bigbigwind8 2004-04-10

打赏
举报

问题已经解决了
窗口代码如下
鸣谢文君大哥 cslf大哥
给分
Private Sub Command1_Click()
If IsNumeric(Text1.Text) = False Then Exit Sub

'如果Text1中内容不是数字则退出过程

Dim icount As Integer, i As Integer
Dim iiCount As Integer

'iCount为设定的个数,i为计数器,iiCount为辅助

Dim iIndex As Integer

'iIndex为实际个数

icount = CInt(Text1.Text)
iiCount = icount + 1

If icount > 0 And icount < 10 Then

'假定最多只能放10个Label1

icount = icount * (icount + 1)
iIndex = Text2.Count '当前的Text2个数

If icount > iIndex Then

'设定值大于实际值则增加相应数目的控件

For i = iIndex To icount - 1

Load Text2(i)

With Text2(i)
If (i) Mod iiCount = 0 Then
.Left = Text2(0).Left
.Top = Text2(i - 1).Top + 720
Else
.Left = Text2(i - 1).Left + 960
.Top = Text2(i - 1).Top
End If
.Visible = True

End With

Next i

ElseIf icount < iIndex Then

'设定值小于实际值则删除多余的控件

For i = icount To iIndex - 1

Unload Text2(i)

Next i

End If

End If
End Sub

Private Sub Command2_Click()
Text1.Text = " "
Dim icount As Integer
icount = Text2.Count
For i = 2 To icount - 1

Unload Text2(i)
Next i
End Sub

啊维 2004-04-10

打赏
举报

mycoldboy 2004-04-10

打赏
举报

动态创建控件数组

tztz520 2004-04-09

打赏
举报

虎翼 2004-04-09

打赏
举报

看不明白

northwolves 2004-04-09

打赏
举报

N个文本框就够了

bigbigwind 2004-04-09

打赏
举报

不是
那是一个N元一次方程组
我打不出来正确的格式
我是想输入N就确定他是几元方程组
然后就根据N给出N*N个文本框(怎么实现)
再输入方程组的系数

victorycyz 2004-04-09

打赏
举报

用控件数组。

qiuqiuzhou 2004-04-09

打赏
举报

pcwak 2004-04-09

打赏
举报

2x1+3x2+4x3=6 '怎么得到6
3x1+5x2+2x3=5 '怎么得到5
4x1+3x2+30x3=32 '怎么得到32

Private Sub Command1_Click()
MsgBox Text1 * 1 + Text1 * Text2 + Text1 * Text1 * 3
End Sub

Rozre 2004-04-09