神马品牌网小户型装修效果图大:VB 程序的一段问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/06 08:45:09
本人刚学VB 许多地方不太明白
最近刚写了一段程序 老是不成立 请各位大虾给指点一下迷津
（做两排 TEXT 其中第一排手动输入的数据 经过计算放在第2排TEXT上 我写了一段 但是不成立 ：如下```）
Private Sub Command2_Click()
Dim Text1(32) As Single, i As Integer
For i = 18 To 33
Text1(i).Text = (Val(Text1(i - 17)) + Val(Text1(i - 16)) + (Val(Text1(i - 17)) * (Val(Text1(i - 16)))) ^ (1 / 2)) / 3
Next i
End Sub
只是 在第一排TEXT里输入数字 大概是小数点后4位有效
然后按一个 命令按扭
就把 数据经过计算
依次放在第2排 TEXT了 有顺序
我建的TEXT 是 TEXT1（32）个数组控件
最近刚写了一段程序 老是不成立 请各位大虾给指点一下迷津
（做两排 TEXT 其中第一排手动输入的数据 经过计算放在第2排TEXT上 我写了一段 但是不成立 ：如下```）
Private Sub Command2_Click()
Dim Text1(32) As Single, i As Integer
For i = 18 To 33
Text1(i).Text = (Val(Text1(i - 17)) + Val(Text1(i - 16)) + (Val(Text1(i - 17)) * (Val(Text1(i - 16)))) ^ (1 / 2)) / 3
Next i
End Sub
只是 在第一排TEXT里输入数字 大概是小数点后4位有效
然后按一个 命令按扭
就把 数据经过计算
依次放在第2排 TEXT了 有顺序
我建的TEXT 是 TEXT1（32）个数组控件
第二行声明Textbox控件数组代码有错,不合语法规范!
若你已经在窗体上手工绘制了两排Textbox控件数组txt1(10)-txt2(10)和命令按钮cmd1,那么代码应该为如下所示:
Private Sub cmd1_Click()
Dim i As Integer //循环变量
For i = 0 To 9
txt1(i).text=val(txt2(i).text)+1 //可根据你的需要改变运算规则
Next i
End Sub
我不清楚你所要实现的是怎样的运算,但以上代码就可以帮你实现所需的功能,你只要把运算部分的代码改成你所需的就可以了,如需更多帮助可以Q我:106823537/vinson
问题没有描述清楚,应该先说要实现什么功能,然后想一下输入是什么,输出又是什么,应该就可以清楚做出来了哦,这不是太难的事情啊~~~
到公司就没这么简单的活了哦,<~~
你先告诉我你想让这段程序实现什么功能！
用两次TEXT来弄就可以了