24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 475  |  回复: 2

大熊熊15

新虫 (小有名气)

[求助] 数组赋值求助。 已有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中的赋值调用过来
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhuzhs

金虫 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
你要先执行按扭1,事件触发的,如果你只打算扏行4,那就把1写成一个过程放4里调用

[ 发自小木虫客户端 ]
当所有一切都已看平淡 是否有一种精致还留在心田
2楼2014-05-27 23:59:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

大熊熊15

新虫 (小有名气)

引用回帖:
2楼: Originally posted by zhuzhs at 2014-05-27 23:59:29
你要先执行按扭1,事件触发的,如果你只打算扏行4,那就把1写成一个过程放4里调用

呃,谢谢已解决。将redim放到前面去就好了
3楼2014-05-29 15:40:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 大熊熊15 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 356求调剂 +3 gysy?s?a 2026-03-28 3/150 2026-03-29 00:33 by 544594351
[考研] 283求调剂 +3 A child 2026-03-28 3/150 2026-03-28 15:41 by ms629
[考研] 一志愿北京工业大学,324分求调剂 +4 零八# 2026-03-28 4/200 2026-03-28 15:01 by 17865157980
[考研] 085600,材料与化工321分求调剂 +9 大馋小子 2026-03-28 9/450 2026-03-28 14:56 by 神马都不懂
[考研] 304求调剂 +6 曼殊2266 2026-03-27 6/300 2026-03-28 14:10 by 唐沐儿
[考研] 调剂 +3 好好读书。 2026-03-28 3/150 2026-03-28 12:04 by 王保杰33
[考研] 291求调剂 +15 hhhhxn.. 2026-03-23 21/1050 2026-03-28 11:26 by self2008
[考研] 085602 307分 求调剂 +7 不知道叫什么! 2026-03-26 7/350 2026-03-28 09:57 by 神马都不懂
[考研] 291求调剂 +6 HanBeiNingZC 2026-03-24 6/300 2026-03-28 07:55 by baoball
[考研] 085600,材料与化工321分调剂 +4 大馋小子 2026-03-27 6/300 2026-03-27 14:11 by 松花缸1201
[考研] 305求调剂 +5 哇卢卡库 2026-03-26 5/250 2026-03-27 14:01 by laoshidan
[考研] 316求调剂 +5 Pigcasso 2026-03-24 5/250 2026-03-27 12:10 by zhshch
[考研] 276求调剂。有半年电池和半年高分子实习经历 +10 材料学257求调剂 2026-03-23 11/550 2026-03-27 10:13 by YCIT- LHL
[考研] 求调剂 +6 林之夕 2026-03-24 6/300 2026-03-27 08:38 by hypershenger
[考研] 341求调剂 +7 青柠檬1 2026-03-26 7/350 2026-03-27 00:19 by wxiongid
[考研] 327求调剂 +7 prayer13 2026-03-23 7/350 2026-03-26 20:48 by 不吃魚的貓
[考研] 化学调剂一志愿上海交通大学336分-本科上海211 +4 小鱼爱有机 2026-03-25 4/200 2026-03-26 10:19 by aa331100
[考研] 334分 一志愿武理-080500 材料求调剂 +4 李李不服输 2026-03-25 4/200 2026-03-25 21:26 by 星空星月
[考研] 机械学硕总分317求调剂!!!! +4 Acaciad 2026-03-25 4/200 2026-03-25 19:59 by hanserlol
[考研] 石河子大学(211、双一流)硕博研究生长期招生公告 +3 李子目 2026-03-22 3/150 2026-03-22 21:01 by 怎么释怀
信息提示
请填处理意见