學vb.net 的一個問題...一定要用function 寫要有Return的

2007-04-24 9:32 am

Private Sub btnCompute_Click(ByVal .....
Dim mark As Double
mark = CDbl(txtMark.Text)
Call abc(mark)
lblgrade.text = grade
End Sub

Function abc(ByVal mark As Double) As Double
Dim grade As String
grade = mark
If mark > 100 Then
grade = "請輸入正確分數"
ElseIf mark >= 90 Then
grade = "A"
ElseIf mark >= 60 Then
grade = "B"
ElseIf mark >= 0 Then
grade = "F"
End If
Return (grade)
End Function

更新1:

Return (grade) '這個好有問題點可以return 上去在 lblgrade.text show grade A,B...

回答 (2)

garlic2010

2007-04-24 3:00 pm

✔ 最佳答案

lblgrade.text = abc(mark)

Function abc(ByVal mark As Double) As String ' declared as string
Dim grade As String
'grade = mark 這句不要
If mark > 100 Then
grade = "請輸入正確分數"
ElseIf mark >= 90 Then
grade = "A";
ElseIf mark >= 60 Then
grade = "B";
ElseIf mark >= 0 Then
grade = "F";
End If
Return (grade)
End Function

👍 0 👎 0

芷凝

2007-04-25 6:48 am

因為你個grade 係宣告係abc入便，亦即係只可以係abc內使用。除非你將佢宣告係function/sub以外既地方
sample:
dim grade as string
sub abc()
grade ="abc"
end sub
function abc()
label1.text=grade
end function

又或者好似上便個位人兄咁寫法

👍 0 👎 0

收錄日期: 2021-04-25 20:33:03
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20070424000051KK00290

檢視 Wayback Machine 備份