问我的输出是数字而不是星号，我该如何在那里显示星号呢？

EN

Public Class frmA9
    
'Global Variables
    Dim printedHeaderDaily As Boolean = False

    'Global Constaints 
    Const FILL_SPACE As Integer = 2
    Const DAY_HEADING As String = "Day"
    Const TIME_HEADING As String = "Time"
    Const TOTAL_HEADING As String = " "
    Const TIME_LABEL_1 As String = " 5-11 AM"
    Const TIME_LABEL_2 As String = " 11-5 PM"
    Const TIME_LABEL_3 As String = " 5-11 PM"
    Const TIME_LABEL_4 As String = " 11-5 AM"
    Const TIME_RANGE_1 As Integer = 1
    Const TIME_RANGE_2 As Integer = 2
    Const TIME_RANGE_3 As Integer = 3
    Const TIME_RANGE_4 As Integer = 4
    Const TIME_LEN As Integer = 7
    Const TIME_IDX_START_1 As Integer = 5
    Const TIME_IDX_START_2 As Integer = 14
    Const TIME_IDX_START_3 As Integer = 23
    Const TIME_IDX_START_4 As Integer = 32

   

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAddtoSummary.Click

        Dim existingIdx As Integer = -1
        Dim dayformat As String = "{0,3}" & Space(FILL_SPACE) &
                                     "{1,7:N0}" & Space(FILL_SPACE) &
                                     "{2,7:N0}" & Space(FILL_SPACE) &
                                     "{3,7:N0}" & Space(FILL_SPACE) &
                                     "{4,7:N0}"
        'Is header needed
        If Not printedHeaderDaily Then
            'Insert header
            lstDailySummary.Items.Add(String.Format(dayformat,
                                                    DAY_HEADING,
                                                    TIME_LABEL_1,
                                                    TIME_LABEL_2,
                                                    TIME_LABEL_3,
                                                    TIME_LABEL_4))

            'Avoid repeating header
            printedHeaderDaily = True
        End If

        'Search for day in existing list
        existingIdx = lstDailySummary.FindString(determineDay)

        'Replace existing or insert new
        If existingIdx > -1 Then
            'Replace
            lstDailySummary.Items.Item(existingIdx) = String.Format(dayformat,
                                                                    determineDay,
                                                                    CInt(txt5AM.Text),
                                                                    CInt(txt11AM.Text),
                                                                    CInt(txt5PM.Text),
                                                                    CInt(txt11PM.Text))
        Else
            'New
            lstDailySummary.Items.Add(String.Format(dayformat,
                                                    determineDay,
                                                      CInt(txt5AM.Text),
                                                      CInt(txt11AM.Text),
                                                      CInt(txt5PM.Text),
                                                      CInt(txt11PM.Text)))
        End If

        'Display weekly total
        updateWeeklyTotatl()
    End Sub

    Sub updateWeeklyTotatl()
        Dim totalTimeOne As Long
        Dim totalTimeTwo As Long
        Dim totalTimeThree As Long
        Dim totalTimeFour As Long
        Dim totalWeek As Long
        Dim headerformat As String = "{0,-10:S}{1,6:S}"
        Dim detailFormat As String = "{0,-10}{1,6:N0}"

        'Remove existing data
        lstWeekSummary.Items.Clear()

        'Sum individual time ranges
        totalTimeOne = sumCalForTime(TIME_RANGE_1)
        totalTimeTwo = sumCalForTime(TIME_RANGE_2)
        totalTimeThree = sumCalForTime(TIME_RANGE_3)
        totalTimeFour = sumCalForTime(TIME_RANGE_4)

        'Sum entire week
        totalWeek = totalTimeOne + totalTimeTwo + totalTimeThree + totalTimeFour

        'Insert header row
        lstWeekSummary.Items.Add(String.Format(headerformat, TIME_HEADING, TOTAL_HEADING))

        'Add bar for each time range
        lstWeekSummary.Items.Add(String.Format(detailFormat, TIME_LABEL_1, totalTimeOne))
        lstWeekSummary.Items.Add(String.Format(detailFormat, TIME_LABEL_2, totalTimeTwo))
        lstWeekSummary.Items.Add(String.Format(detailFormat, TIME_LABEL_3, totalTimeThree))
        lstWeekSummary.Items.Add(String.Format(detailFormat, TIME_LABEL_4, totalTimeFour))
    End Sub

    Function determineDay() As String
        Dim selectedDay As String

        'Identify the selected Day
        If rdbSun.Checked Then
            selectedDay = "Sun"
        ElseIf rdbMon.Checked Then
            selectedDay = "Mon"
        ElseIf rdbTues.Checked Then
            selectedDay = "Tues"
        ElseIf rdbWed.Checked Then
            selectedDay = "Wed"
        ElseIf rdbThurs.Checked Then
            selectedDay = "Thurs"
        ElseIf rdbFri.Checked Then
            selectedDay = "Fri"
        ElseIf rdbSat.Checked Then
            selectedDay = "Sat"
        End If

        Return selectedDay
    End Function

    Function determineStartIndex(ByVal timeRange As Integer) As Integer
        Dim startIndex As Integer

        'Identify start index of given time range
        Select Case timeRange
            Case TIME_RANGE_1
                startIndex = TIME_IDX_START_1
            Case TIME_RANGE_2
                startIndex = TIME_IDX_START_2
            Case TIME_RANGE_3
                startIndex = TIME_IDX_START_3
            Case TIME_RANGE_4
                startIndex = TIME_IDX_START_4
        End Select

        Return startIndex
    End Function

    Function sumCalForTime(ByVal timeRange As Integer) As Long
        Dim CalSum As Long
        Dim startIndex As Integer

        'Find index of first number in given time range
        startIndex = determineStartIndex(timeRange)

        'Iterate through the daily summary
        'Sum all water consumed in the given range
        For idxRow As Integer = 1 To lstDailySummary.Items.Count - 1
            CalSum += CLng(lstDailySummary.Items.Item(idxRow).ToString.Substring(startIndex, TIME_LEN))
        Next

        Return CalSum
    End Function

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        'Remove daily entries
        lstDailySummary.Items.Clear()

        'Remove weekly summary
        lstWeekSummary.Items.Clear()

        'Ensure daily header is printed after each entry
        printedHeaderDaily = False
    End Sub
End Class