VB誰會有三題...救命 - Basic,Visual Basic - 程式設計 - 頂客論壇 ,免費遊戲,免費交友,免費空間,免費部落格,免費相簿,免費開店 - 頂客社區 dk101.com 最用心的華人社群網站
發新話題

[問題] VB誰會有三題...救命

VB誰會有三題...救命

第一題:
請設計出一個成績級數判斷
條件一:當輸入成績(100~90)之間列印出[極優]
條件二:當輸入成績(70~89)之間列印出[優等]
條件三:當輸入成績(60~69)之間列印出[普通]
條件四:當輸入成績(0~59)之間列印出[不及格]
條件五:當輸入數值不符合上述四種條件時則列印出[輸入分數有誤]

第二題:
利用For迴圈求0~100偶數的總和與平均值

第三題:
Private Sub btn_Run_Click(ByVal sender As system. Object, ByVal e As System. EventArgs) Handles btn_Run.Click
Dim intWeek As Integer
        intWeek = Val(txt_Week.Text)
        Select Case intWeek
            Case CustomWeek.vbSunday
                MsgBox("星期日")
        Select Case intWeek
            Case CustomWeek.vbMonday
                MsgBox("星期一")
        Select Case intWeek
            Case CustomWeek.vbTuesday
                MsgBox("星期二")
        Select Case intWeek
            Case CustomWeek.vbWednesday
                MsgBox("星期三")
        Select Case intWeek
            Case CustomWeek.vbThursday
                MsgBox("星期四")
        Select Case intWeek
            Case CustomWeek.vbFriday
                MsgBox("星期五")
        Select Case intWeek
            Case CustomWeek.vbSaturday
                MsgBox("星期六")
            Case Else
              MsgBox("輸入數值不正確,請重新輸入")
        End Select
  End Sub
    Public Enum CustomWeek As Integer
        vbSunday = 0
        vbMonday = 1
        vbTuesday = 2
        vbWednesday = 3
        vbThursday = 4
        vbFriday = 5
        vbSaturday = 6
    End Enum

TOP

第一題 (使用VB 2005)

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim score As Integer
        score = TextBox1.Text
        If score > 100 Or score < 0 Then
            MsgBox("輸入錯誤,請重試")
        Else
              Select Case score
                    Case Is >= 90
                       Label3.Text = "極優"
                    Case Is >= 70
                       Label3.Text = "優等"
                    Case Is >= 60
                       Label3.Text = "普通"
                    Case Is < 60
                       Label3.Text = "不及格"
              End Select
         End If
    End Sub
End Class

TOP

第二題 (使用VB 2005) 總和寫法;平均值我不懂是什麼意思,所以沒寫...

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, sum As Integer
        For i = 0 To 100 step 2
            sum += i
        Next
        TextBox3.Text = sum
    End Sub

End Class

TOP

第二題(vb6)

我也是新手,有錯誤的話,請指正並原諒。
Dim J as Byte
Dim L As Integer: Dim M As Integer
L=0
For J = 1 to 100
J=J+1
L=L+J
Next J
M=L/50
'其中 L=偶數總和,M=平均值

TOP

第二題:

Dim J as Byte
Dim L As Integer: Dim M As Integer
L=0
For J = 0 to 100 step 2
      m = m+j
      L = L + 1
next j
print     m / L
這樣好像也可以     錯的話請指教......

[ 本帖最後由 s88639 於 2008-1-6 00:26 編輯 ]

TOP

第一題

private sub command1_click()
        dim x as integer
        x = inputbox (請輸入成績)
           select case x
                case 100 TO 90
                        msgbox "極優"
                case 70 TO 89
                        msgbox "優等"
                case 60 TO 69
                        msgbox "普通"
                case 0 TO 59
                        msgbox "不及格"
                case else
                        msgbox "輸入分數有誤"
        End Select
end sub

[ 本帖最後由 s88639 於 2008-1-6 01:35 編輯 ]

TOP

發新話題

本站所有圖文均屬網友發表,僅代表作者的觀點與本站無關,如有侵權請通知版主會盡快刪除。