紅青菜

今天上機考試這樣


然後差點掛掉的 VB 幸好考算基本的東西


可是我考試時竟然沒有全部做完 =　=


好啦　　　　傷心事別提了





以下是 題目 ：

--------------------------------------------------------------

一、請以程式碼修改標籤文字屬性

　　1、顏色
　　2、粗體
　　3、置中
　　4、字型大小放大到12


二、收電費計算，每月電費少於10 度，收基本
　　費150元，高於10 度計算標準如下 ：

　　1、10 用電量度 ，每度4.5元
　　2、25度 用電量 度 ，每度 5 元
　　3、50 度 用電量  每度 6.5 度


三、以InputBox作為接受使用者連續輸入介於
　　1~99的數字，並以輸入不在此範圍數據作
　　為結束一回數字累計，並於表單中顯示已
　　輸入的數字與總共輸入的筆數和平均值。


四、例用迴圈，輸入一個位數字N，再依序印
　　如下圖形(印於PictureBox)

　　輸入 4
　　印出
　　　　　1
　　　　　12
　　　　　123
　　　　　1234

----------------------------------------------------------------------------------



這邊以下是程式碼解答

----------------------------------------------------------------------------------
一、

Private Sub Command1_Click()　' 滑鼠點擊 Command1
　Label1.ForeColor = &HFF&　　' 將 Label1 文字換顏色
　Label1.FontBold = True　　　　' 將 Label1 文字改粗體
　Label1.Alignment = 2　　　　　' 將 Label1 文字設置中
　Label1.FontSize = 12　　　　　' 將 Label1 文字調 12 號
End Sub　　　　　　　　　　　　' 程式碼底端

----------------------------------------------------------------------------------
二、

Private Sub Command1_Click()　　　　　　　　　' 滑鼠點擊 Command1
　Dim a, c As Single　　　　　　　　　　　　　　' 在記憶體新增 a  c 變數
　　a = Val(Dtxt.Text)　　　　　　　　　　　　　' a 變數是 數字文字方塊 Dtxt.Text
　If a ' 假設 a 小於 10 成立
　　c = 150　　　　　　　　　　　　　　　　　　' c 等於 150
　Else　　　　　　　　　　　　　　　　　　　　' 假設底端
　　If a ' 假設 a 小於等於 25 成立
　　　c = 150 + (a - 10) * 4.5　　　　　　　　　　' c 等於 150 加 (a-10) 乘 4.5
　　Else　　　　　　　　　　　　　　　　　　　' 假設底端
　　　If a = 25 Then　　　　　　　　' 假設 a 小於 50 和 a 大於等於 25 同時成立
　　　　c = 150 + 15 * 4.5 + (a - 25) * 5　　　　　' c 等於 150 加 15 乘 4.5 加 (a-25) 乘 5
　　　Else　　　　　　　　　　　　　　　　　　' 假設底端
　　　　c = 150 + 15 * 4.5 + 25 * 5 + (a - 50) * 6.5　' c 等於 150 加 15 乘 4.5 加 25 乘 5 加 (a-50) 乘 6.5
　　　End If　　　　　　　　　　　　　　　　　　' 假設結束
　　End If　　　　　　　　　　　　　　　　　　　' 假設結束
　End If　　　　　　　　　　　　　　　　　　　　' 假設結束
showlbl.Caption = "總 計  :  " & c & "  元"　　　　　' 顯示　總計 : 　　 c 變數　　元
End Sub　　　　　　　　　　　　　　　　　　　' 程式底端

----------------------------------------------------------------------------------
三、

Private Sub Form_Click()　　　　　　　　　' 滑鼠點擊 Click
　Dim k, n, sum, a As Single　　　　　　　' 在記憶體新增 k  n  sun  a 變數
　　k = 1　　　　　　　　　　　　　　　　' 為了符合 下行 k 大於等於 1　所以設為 1
　Do While (k >= 1 And k ' Do While 迴圈範圍 k >= 1 And k
　　k = Val(InputBox("輸入 1~99 的整數"))　' k 等於 在 InputBox 視窗輸入的 1~99 整數
　If (k 99) Then Exit Do　　　　　' 假設 k 小於 1 或 k 大於 99 成立 就 離開 Do 迴圈
　　n = n + 1　　　　　　　　　　　　　　' n 變數 等於 n 加1
　　amtTxt.Text = n　　　　　　　　　　　' 在 amtTxt.Text  顯示 n　　n 是 輸入比數
　　sum = sum + k　　　　　　　　　　　' sun 等於 sun 加 k　　　　k 是 輸入的數
　　a = sum / n　　　　　　　　　　　　　' a 等於 sun 除以 n　　　　a 是 平均數
　　avgTxt.Text = a　　　　　　　　　　　' 在 avgTxt.Text 顯示 a
　　listPic.Print k　　　　　　　　　　　　' 在 listPic 顯示 k
　Loop　　　　　　　　　　　　　　　　　' Do ... Loop 迴圈 結束
End Sub　　　　　　　　　　　　　　　　' 程式碼底端

----------------------------------------------------------------------------------
四、

Private Sub Command1_Click()　　　' 滑鼠點擊 Command1
　Dim i, j, k As Integer　　　　　　　' 在記憶體新增 i  j  k 變數
　　k = Val(Ntxt.Text)　　　　　　　' k 等於 文字方塊 Next.Text 所輸入的值
　　　For i = 1 To k　　　　　　　　' For 第一個迴圈開始　i 等於 1 到 k
　　　　For j = 1 To i　　　　　　　' For 第二個迴圈開始　j 等於 1 到 i
　　　　Picture1.Print j;　　　　　　' 在 Pixture1 顯示 j 斷行
　　　　Next j　　　　　　　　　　' For 第二個迴圈結束
　　　Picture1.Print　　　　　　　　' 在 Picture1 顯示
　　　Next i　　　　　　　　　　　' 第一個迴圈結束
End Sub　　　　　　　　　　　　　' 程式碼底端

----------------------------------------------------------------------------------


要 原始題目 的 壓縮檔 請點這邊下載 ：

原始題目壓縮檔


要 答案 的 　EXE　執行檔 請點這邊下載 ：

第一題　　第二題　　第三題　　第四題