E2B實作

期末模實作試題說明：

專案名稱：E2B56-期末模                        

一、表單佈建：６５％                        　試題中若有「56帥又美」改為自己座號姓名

１表單大小：(480,370)   、 表單背景色：Cyan

２表單標題：「英2孝56帥又美-期末模擬」 

３一個標籤：位置(60,30)、大小(320,60)、背景色DarkRed、字顏色Lime

            顯示「56帥又美輸出」且水平及垂直皆置中、字型(微軟正黑,15)

４三個文字方塊：改名為txt1 , txt2 , txt3，位置分別為(70,115)、(180,115)、(290,115)
            分別顯示「3」「15」「2」字型大小皆12 ，方塊大小寬皆60，文字置中

５七個按鈕：位置分別為(90,170)、(190,170) 、(290,170) 、(40,240)、
(140,240)、(240,240) 、(340,240)，大小皆為(60,40)

        分別顯示「按鈕１」「按鈕２」「按鈕３」「按鈕４」「按鈕５」「按鈕６」「按鈕７」

程式規定： ３５％，每個5分

    １、用InputBox「請輸入問侯語」，標題不指定，預設輸入值「Hi!」

　　　　在Label1上顯示  {所輸入的問侯語} 串接 {自己姓名}

　　２、以Msgbox顯示「是否+圖！」，圖示為！，按鈕為「是」「否」，標題「按鈕２」

　　　　若按了「是」在標籤顯示「是嗎？」、否則顯示「按了否」

　　３、以Msgbox顯示「確定取消+圖ｉ」，圖示為ｉ，按鈕為「確定」「取消」，標題不設定

　　　　若按了「確定」在標籤顯示「這是確定」、否則顯示「要取消嗎？」

　　４、以Msgbox顯示「中止重試略過+圖？」，圖示為？，按鈕為「中止」「重試」「略過」，標題「BT4」

　　　　若按不同按鈕，分別在標籤上顯示「1中止」「2重試」「3略過」

５、以２個InputBox輸入兩個整數，訊息分別為「輸入X值」、「輸入Y值」，預設值分別為5 3

  　　　依所輸入的X,Y以MsgBox顯示不同訊息如下表，圖、按鈕皆預設

　

X=Y	顯示：{X值} = {Y值}	例x=5,y=5則顯示　「5=5」
X>Y	顯示：{X值} > {Y值}	例x=5,y=3則顯示　「5>3」
X<Y	顯示：{X值} < {Y值}	例x=3,y=5則顯示　「3<5」

６、由txt1,txt2,txt3讀入A,B,C三個整數，若C為負則將C改為正值

   算出首項為A，公差為C，A~B之間的等差數列和，並在Label1輸出，範例如下：

   (1)A=3,B=15,C=2則3+5+7+9+11+13+15=63，顯示「3~15差2，和=63」

   (2)A=23,B=5,C=4則23+19+15+11+7=75，顯示「23~5差4，和=75」

７、由txt1,txt2,txt3讀入A,B,C三個正整數，

    將A,B,C皆取個位數X,Y,Z

   算出 X^Z + … + Y^Z　和，並在Label1輸出，範例如下：

   (1)A=3,B=15,C=2則3² + 4² + 5² =50，顯示「3^2+...+5^2=50」

   (2)A=7,B=15,C=3則7³ + 6³ + 5³ =684，顯示「7^3+...+5^3=684」

參考程式碼：

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String = InputBox("輸入一問侯語", , "Hi!")
        Label1.Text = a & "帥又美"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim r = MsgBox("是否+圖！", vbYesNo + vbExclamation, "按鈕２")
        If r = vbYes Then Label1.Text = "是嗎？" Else Label1.Text = "按了否"

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim r = MsgBox("確定取消+圖ｉ", vbOKCancel + vbInformation)
        If r = vbOK Then
            Label1.Text = "這是確定"
        Else
            Label1.Text = "要取消嗎？"
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim r = MsgBox("中止重試略過+圖？", vbAbortRetryIgnore + vbQuestion, "BT4")
        If r = vbAbort Then
            Label1.Text = "1中止"
        ElseIf r = vbRetry Then
            Label1.Text = "2重試"
        Else
            Label1.Text = "3略過"
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim x As Integer = InputBox("輸入X值", , 5)
        Dim y As Integer = InputBox("輸入Y值", , 3)
        If x = y Then
            MsgBox(x & "=" & y)
        ElseIf x > y Then
            MsgBox(x & ">" & y)
        Else
            MsgBox(x & "<" & y)
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ' A ~ B 公差 C 的等差數列和 ，有可能 A>B , 若A>B則 A~B跳 -|C| , C取絕對值
        Dim A% = txt1.Text, B% = txt2.Text, C% = txt3.Text
        If C < 0 Then C = -C
        Label1.Text = A & "～" & B & "差" & C & "，和="
        Dim Sum = 0
        If A > B Then C = -C
        For X = A To B Step C
            Sum += X
        Next
        Label1.Text &= Sum
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        ' A,B,C的個位數為x,y,z  算出 x^z +...+ y^z 的和
        Dim A% = txt1.Text, B% = txt2.Text, C% = txt3.Text
        A = A Mod 10
        B = B Mod 10
        C = C Mod 10
        Dim S = 1
        If A > B Then S = -1
        Dim tot = 0
        For X = A To B Step S
            tot = tot + X ^ C
        Next
        Label1.Text = A & "^" & C & "+...+" & B & "^" & C & "=" & tot
    End Sub
End Class