作业帮 > 综合 > 作业

一道vb的题我写的程序是Public Class Form1    Subjiecheng

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/24 09:23:55
一道vb的题

我写的程序是

Public Class Form1
    Subjiecheng(ByRef m%)
        Dimi%,n%,x%
        x = 1
        Fori = 1 To n
            x = x * i
        Next
        m = x
        TextBox2.Text = m
    EndSub
    PrivateSub Button1_Click(ByValsender As System.Object,ByVal e AsSystem.EventArgs) Handles Button1.Click
        Dimn%
        n = Val(TextBox1.Text)
        IfRadioButton1.Checked = True Then
            jiecheng(n)
        Else
            jiecheng(n + 2)
        EndIf
    EndSub
End Class
运行结果总出错求大神解答
一道vb的题我写的程序是Public Class Form1    Subjiecheng
Public Class Form1

    Sub jiecheng(m%)
    
        Dim i%, n%, x%
    
        n = m

        x = 1

        For i = 1 To n

            x = x * i

        Next

        TextBox2.Text = x

    End Sub

    Private Sub Button1_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        Dim n%

        n = Val(TextBox1.Text)

        If RadioButton1.Checked = True Then

            jiecheng(n)

        Else

            jiecheng(n + 2)

        End If

    End Sub

End Class
试试,
最主要的问题在于 jiecheng 函数 没有取得 n 的值,反而跟一个不相关的变量 m 纠缠不清.