代码之家 › 专栏 › 技术社区 › Abu Muhammad

如何使用函数的返回值?

vb.net

Abu Muhammad · 技术社区 · 14 年前

它返回一个意外值,实际值为total=0。

total = Cscore(TextBox1.Text) * CDbl(TextBox2.Text)

total = TextBox1.Text * TextBox2.Text

它返回期望值,但我需要将textbox1.text传递给函数以获得期望值

功能如下

Public Function Cscore(ByVal score As Integer) As Double

    Select Case score
        Case score = 100
            Return 5.0
        Case score >= 95
            Return 5.0
        Case score >= 90
            Return 4.75
        Case score >= 85
            Return 4.5
        Case score >= 80
            Return 4.0
        Case score >= 75
            Return 3.5
        Case score >= 70
            Return 3.0
        Case score >= 65
            Return 2.5
        Case score >= 60
            Return 2.0
        Case score < 60
            Return 1.0
    End Select
End Function

提前谢谢

4 回复 | 直到 14 年前

Hans Passant 14 年前

使用Option Strict On可以帮助您快速找到问题。Case语句的语法错误,这些表达式的计算结果为布尔值。分数很少等于真或假,只有分数等于0或1时才会得到一个值。你需要这样写:

    Select Case score
        Case Is = 100
            Return 5.0
        Case Is >= 95
            Return 5.0
        Case Is >= 90
            Return 4.75
        '' etc...
    End Select

在中学习编程时使用Option Strict OnVB.NET版. 当你成为大师后,你可以再关掉它。

davisoa 14 年前

你也应该使用 Integer.TryParse

case else 在任何 select 声明。

James 14 年前

http://msdn.microsoft.com/en-us/library/k7beh1x9(VS.80).aspx

Chase Florell 14 年前

如果你试着按照

Dim tb1 as Integer = Integer.Parse(TextBox1.Text)
Dim tb2 as Integer = Integer.Parse(TextBox2.Text)

total = Cscore(tb1) * tb2

推荐文章

Mear1628 · vb.net从随机选择的端口号接收UDP

5 月前

user1946932 · .Net正则表达式在所有字符前添加空格

6 月前

Xavier Junqué · 可能的VB.NET错误:位移位和幂运算符的行为不一致

7 月前

user1946932 · 正则表达式:删除连续两个以上的<br>?

11 月前

Nor · VB.net-如何在读取后正确关闭文本文件,以便在同一应用程序中打开进行写入

11 月前

Josh · 通过反思访问孩子的财产

11 月前

Khu RJ · 更新网格中的单元格-DevExpress网格控件

11 月前

John89 · MouseHook-MSLLHOOKSTRUCT.mouseData在处理MouseWheel时总是返回相同的值

1 年前

Mick · VB.NET Regex。替换不起作用(数组未更新)

1 年前

SoundWaves · 通过IP从asp.net Web表单使用ESC/P打印到Brother P-Touch

1 年前