社区
控件
帖子详情
大哥们 我是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个文本框输入方程组的系数
或是在原来的那个窗体中显示
怎么样来控制 谢谢大哥们
...全文
44
17
打赏
收藏
大哥们 我是VB初学者 高分请教
我想编一个 解方程组的程序 例子 2x1+3x2+4x3=6 3x1+5x2+2x3=5 4x1+3x2+30x3=32 我想在第一个窗体中输入 M*N的方程组确定M和N 然后根据M和N 确定下一个窗体中要有M*N个文本框输入方程组的系数 或是在原来的那个窗体中显示 怎么样来控制 谢谢大哥们
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
打赏
举报
回复
Up
mycoldboy
2004-04-10
打赏
举报
回复
动态创建控件数组
tztz520
2004-04-09
打赏
举报
回复
UP
虎翼
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
打赏
举报
回复
Up
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
打赏
举报
回复
看不懂。。。。。。。。。
daisy8675
2004-04-09
打赏
举报
回复
你的題目?
bigbigwind
2004-04-09
打赏
举报
回复
谢谢
文君大哥
小第懂了
Wenking003
2004-04-09
打赏
举报
回复
就是在运行中增加新的控件,例如本题可先创建文本框控件数组,共0~I个元素,然后运行中按照需要增加:
I=Text1.UBound + 1 (如:增加一个)
再:Load Text1(I)
Text1(I).Visible = True
其它操作和正常情况一样。
yinweihong
2004-04-09
打赏
举报
回复
动态加载控件数组
openforever
2004-04-09
打赏
举报
回复
UP
欢迎新来的
我在CSDN参与的3000个帖子
今日偶然翻到,感慨万千 1:申述:版主,是否扣了我的专家分? 2:100分急求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望高手帮忙! 5:呵呵,来推荐...
基础
高分
请教
如何限制程序运行的方法?求助:通过编程DirectX抓屏------>masterz:再麻烦你一下,谢谢熟悉RichEdit的朋友过来看一下,RichEdit的几个问题.如何对 I/O 端口进行操作?有了该问题就有了思考(100分 献礼!)...
数据库帖子收集
这样的数据列表在存储过程中应该怎么样选择得到? 请问造成SQL2000服务不能启动的原因有哪些? sql server中有無類似于if 的函數,即... 谁能跟我说说期初库存怎么样的一个业务逻辑!都要处理哪些内容!需要每月进...
windows类书的学习心得
第二篇介绍Visual C++整合环境开发工具,对整个软体开发环境有全盘以及概观性的介绍,可以让
初学者
迅速了解手上掌握的工具,以及它们的主要功能。第三篇介绍application framework的观念,以及MFC骨干程序,所谓骨干...
WEB开发文档2 总结
微软专家来看看,因为我是打了.NET Framework SP1 后 不能用的!! 关于在 Windows .NET 中创建 ASP .NET 出错相关问题 管理多人共同开发的项目 关于大规模数据的选择功能 服务器“拒绝访问...
控件
1,451
社区成员
41,355
社区内容
发帖
与我相关
我的任务
控件
VB 控件
复制链接
扫一扫
分享
社区描述
VB 控件
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章