| 查看: 541 | 回复: 2 | ||
[求助]
数组赋值求助。 已有1人参与
|
|
Public Class Form1 Public shuzu() As Double Public i As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim d, h As Double Dim a, b, L, R, q As Double Dim x As Double Dim j As Double Dim m As Double Dim n As Double Dim y As Double Dim K As Double Dim s As Double d = Val(RichTextBox2.Text) j = Val(RichTextBox1.Text) / 180 * 3.1415926 h = Val(RichTextBox3.Text) y = Val(RichTextBox5.Text) s = Val(RichTextBox6.Text) a = d / (2 * System.Math.Cos(j)) b = d / 2 For L = 0 To y Step 1 R = 10000 For x = 0 To a Step 0.001 m = (x - L * System.Math.Tan(j)) * (x - L * System.Math.Tan(j)) n = b * System.Math.Sqrt(1 - x * x / (a * a)) - d / 2 - h / 2 q = System.Math.Sqrt(m + n * n) If q < R Then K = q R = System.Math.Round(K, 3) Else End If Next ReDim shuzu(y) shuzu(i) = R RichTextBox4.Text = RichTextBox4.Text & " L:" & L & Space(6) & " R:" & shuzu(i) & Chr(13) + Chr(10) i = i + 1 Next End Sub Private Function cos(ByVal j As String) As String Throw New NotImplementedException End Function Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click RichTextBox7.Text = shuzu(10) End Sub End Class 为什么button4的单击时间触发后shuzu（10）的值为0.如何将button1中的赋值调用过来 |
回复此楼» 猜你喜欢
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有6人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有9人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有5人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有9人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
国社科又开始会评了，不知道这次命运如何
已经有14人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有8人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有13人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 一个级数求和的问题？
已经有12人回复
- matlab三维矩阵绘图请教
已经有6人回复
- C/C++数组读取
已经有3人回复
- 很简单的Fortran赋值出错啦，求大神们帮忙找bug...
已经有11人回复
- 请教matlab用数组给参数矩阵赋值的问题
已经有11人回复
- 求助数组越界问题！
已经有8人回复
- java 数组拷贝和数组赋值
已经有12人回复
- 求助udf的输入输出
已经有16人回复
- 空间一维、二维、......十几维有木有。。
已经有30人回复
- matlab里面怎么实现结构体数组的可视化？？？？？？
已经有13人回复
- 解好的晶体数据如何用SHELXTL生成cif文件？越详尽越好，急用！
已经有10人回复
- 增大数组后执行窗口只是一闪
已经有14人回复
- 请教 fortran 运行错误的原因
已经有13人回复
- 结构体所占内存
已经有8人回复
- matlab赋值问题
已经有5人回复
- Fortran中关于数组的变化
已经有5人回复
- 【求助】Fortran语言赋值问题？
已经有3人回复
- c语言动态数组
已经有7人回复
- 【求助】C# 中如何声明结构体数组并赋值
已经有13人回复
- 【求助】求指点，在Fortran里面，怎样实现“数组维度可调”的数组?
已经有5人回复
- 【求助】求2010年注册化工工程师基础考试的考试大纲
已经有4人回复
- 【资源】施一公谈学生如何阅读和写作论文
已经有52人回复
- 【求助】请教级数求和【已解决】
已经有8人回复
2楼2014-05-27 23:59:29
3楼2014-05-29 15:40:23
30