Fo2實作試題說明：
終極密碼X試題說明
終極密碼x 參考程式碼：
Randomize()
專案名稱：Z2B56-For2 電腦崗位：
一、表單佈建：
１表單大小：600,500
２表單標題：「資2孝56陳俊華-迴圈2實作」
３三個文字方塊：位置為(80,60),(180,60),(280,60)，字型皆(新細明體,12)
寬度皆設為60，文字顯示分別 2, 15 , 3
４五個按鈕：位置為(25,350),(125,350) ,(225,350) ,(325,350)
,(425,350)，字型皆(標楷體,13)
大小皆設為(85,45)，文字顯示分別 「產生1」「產生2」「產生3」「消除」「填數」
背景色為 Gold、 字顏色皆 Blue
二、程式規定：每個功能6%
０、表單一載入：將按鈕４、５設為不啟動
１、按按１：(1)輸入文字方塊1~3分別為A,B,C
(2)以For迴圈產生k= A To B Step C 共 N 個 標籤控制項陣列，但N最多12個
(3)標籤的大小皆(30,40)，位置為(35,150),(70,150),(105,150)...
(4)標籤皆有框線，背景色顏色為
RGB 亂數產生
(5)字型皆為("微軟正黑", 10)、文字顯示 k
(6)然後將按鈕１～３設為不啟動，將按鈕４、５設為啟動
２、按按２：(1)輸入文字方塊1~3分別為A,B,C
(2)以For迴圈產生k= A To B Step C 共 N 個 標籤控制項陣列，但N最多10個
(3)標籤的大小皆(30,25)，位置為(385,30),(385,60),(385,90)...
(4)標籤皆有框線，背景色顏色為
RGB 亂數產生
(5)字型皆為("微軟正黑", 10)、文字顯示 k
(6)然後將按鈕１～３設為不啟動，將按鈕４、５設為啟動
３、按按３：(1)以雙重For迴圈產生２列各６個標籤控制項
(2)標籤的大小皆(30,40)，第1列位置為(35,130),(70,130),(105,130)...
，第2列位置為(35,180),(70,180),(105,180)...
(3)標籤皆有框線，背景色顏色為
RGB 亂數產生
(4)字型皆為("微軟正黑", 10)、文字顯示 k
(5)然後將按鈕１～３設為不啟動，將按鈕４、５設為啟動
４、按紐４：將產生的控制項陣列取消
５、按鈕５：(1)輸入文字方塊1~3分別為A,B,C
(2)將標籤的前 A 個的顯示文字修改如下，但A最多N個
k=1 To A，若k為偶數則顯示文字改為 k*B mod 100
若k為奇數則顯示文字改為 k+C
Public Class Form1
Dim N As Integer = 12 '控制項個數，最多12個
Dim N2 As Integer = 10 '控制項個數，最多10個
Const wd As Integer = 30 '寬
Const ht As Integer = 40 '高
Const ht2 As Integer = 25 '高
Const gt As Integer = 5 '間距
Const VPOS As Integer = 150 ' y 軸位置
Const HPOS As Integer = 385 ' x 軸位置
Dim LB(N) As Label
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Button4.Enabled = False
Button5.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim A As Integer = TextBox1.Text
Dim B As Integer = TextBox2.Text
Dim C As Integer = TextBox3.Text
Dim k As Integer = 0 '個數
Dim sum As Integer = 0 '和
For i = A To B Step C
Dim cr As Integer = Int(Rnd() * 256) '紅色的度數 0~255隨機
Dim cg As Integer = Int(Rnd() * 256) '綠色的度數 0~255隨機
Dim cb As Integer = Int(Rnd() * 256) '藍色的度數 0~255隨機
If k >= N Then Exit For
k += 1 '個數加１
LB(k) = New Label
Me.Controls.Add(LB(k))
With LB(k)
.Location = New Point(k * (wd +
gt), VPOS) '標籤的位置
.Width = wd '標籤的寬度
.Height = ht '標籤的高度
.BorderStyle =
BorderStyle.FixedSingle '標籤加框線
.Font = New Font("微軟正黑", 10)
.Text = i '標籤顯示的文字
.BackColor = Color.FromArgb(cr,
cg, cb) '背景色：隨機的 紅、綠、藍
End With
Next
N = k
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = True
Button5.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim A As Integer = TextBox1.Text
Dim B As Integer = TextBox2.Text
Dim C As Integer = TextBox3.Text
Dim k As Integer = 0 '個數
Dim sum As Integer = 0 '和
For i = A To B Step C
Dim cr As Integer = Int(Rnd() * 256) '紅色的度數 0~255隨機
Dim cg As Integer = Int(Rnd() * 256) '綠色的度數 0~255隨機
Dim cb As Integer = Int(Rnd() * 256) '藍色的度數 0~255隨機
If k >= 10 Then Exit For
k += 1 '個數加１
LB(k) = New Label
Me.Controls.Add(LB(k))
With LB(k)
.Location = New Point(HPOS, k *
(ht2 + gt)) '標籤的位置
.Width = wd '標籤的寬度
.Height = ht2 '標籤的高度
.BorderStyle =
BorderStyle.FixedSingle '標籤加框線
.Font = New Font("微軟正黑", 10)
.Text = i '標籤顯示的文字
.BackColor = Color.FromArgb(cr,
cg, cb) '背景色：隨機的 紅、綠、藍
End With
Next
N = k
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = True
Button5.Enabled = True
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim A As Integer = TextBox1.Text
Dim B As Integer = TextBox2.Text
Dim C As Integer = TextBox3.Text
Dim k As Integer = 0 '個數
Dim sum As Integer = 0 '和
For i = 1 To 2
For j = 1 To 6
Dim cr As Integer = Int(Rnd() *
256) '紅色的度數 0~255隨機
Dim cg As Integer = Int(Rnd() *
256) '綠色的度數 0~255隨機
Dim cb As Integer = Int(Rnd() *
256) '藍色的度數 0~255隨機
If k >= 12 Then Exit For
k += 1 '個數加１
LB(k) = New Label
Me.Controls.Add(LB(k))
With LB(k)
.Location = New Point(j *
(wd + gt), 80 + i * 50) '標籤的位置
.Width = wd '標籤的寬度
.Height = ht '標籤的高度
.BorderStyle =
BorderStyle.FixedSingle '標籤加框線
.Font = New Font("微軟正黑", 10)
.Text = k 'i & "," & j '標籤顯示的文字
.BackColor =
Color.FromArgb(cr, cg, cb) '背景色：隨機的 紅、綠、藍
End With
Next
Next
N = k
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = True
Button5.Enabled = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
Dim cnt = Me.Controls.Count - 1
For i = cnt To cnt - N + 1 Step -1
Me.Controls.RemoveAt(i)
Next
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = False
Button5.Enabled = False
N = 12
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
Dim A As Integer = TextBox1.Text
Dim B As Integer = TextBox2.Text
Dim C As Integer = TextBox3.Text
If A > N Then A = N
For k = 1 To A
If k Mod 2 = 0 Then
LB(k).Text = k * B Mod 100
Else
LB(k).Text = k + C
End If
Next
End Sub
End Class
終極密碼X試題說明
二信高中 107上 資2孝程式 模考 x卷 電腦崗位：
○、專案名稱：(5%) Z2B56-模考X-終極密碼
一、表單佈建：(55%)除了標題，每項未達成 扣３分{班號、崗位沒寫也扣}
１．表單大小：550 x 450 表單背景圖： 「A.jpg」、 不定比例 隨框縮放
２．表單標題：「資２孝56號陳俊華-模考X卷-終極密碼」 5%
３．二個標籤：Label1標題：「電腦或人工設定密碼(11~90)：」微軟正黑、14點大小、背景色LimeGreen
Label2標題：「結果：」400x60字水平置中，微軟正黑、14點大小、字白色、背景色Blue
Label2標題：「結果：」400x60字水平置中，微軟正黑、14點大小、字白色、背景色Blue
４．文字方塊：TextBox1，清空，設為密碼型式＊號，字紅色、字大小15
５．按鈕2個：Button1標題：「猜一猜」標楷16點大小、粗斜體、字顏色Gold、背景色Purple
Button2標題：「重設密碼」標楷16點大小、粗斜體、字顏色Gold、背景色Purple
二、程式規定：(40%)每一項未完成扣 5~ 10分
１．表單一載入：產生一隨機亂數 11~90之間，存入公用變數
{pass}
２．按鈕1被按一下：
(1)若文字方塊有輸入會以Msgbox詢問「電腦Y 或人工N」，回答N則以TextBox1中的輸入為密碼
訊息窗的圖示為問號，按鈕只有「是」「否」
｛ 但若輸入的密碼不是 11~90則仍以電腦產生的密碼 ｝
訊息窗的圖示為問號，按鈕只有「是」「否」
｛ 但若輸入的密碼不是 11~90則仍以電腦產生的密碼 ｝
(2)接著以輸入窗顯示「猜11~90」等待輸入，並每次會將變數的
{次數} 加1
若輸入正確則在Label2上顯示「答對了！正確數字為 {pass} 。你共猜了 {次數} 次。
{pass}是正確的密碼，{次數}是猜了幾次才猜到。
若輸入正確則在Label2上顯示「答對了！正確數字為 {pass} 。你共猜了 {次數} 次。
{pass}是正確的密碼，{次數}是猜了幾次才猜到。
(3)若輸入的{數字}為 -56 則以訊息窗顯示「密碼是：{pass}俊華再見！」，然後結束程式。
↑自己座號 ↑ {pass}是正確密碼，俊華是自己姓名
若輸入 0 可停止猜測 以 Exit Sub 退出副程式
若輸入的{數字}大於{pass}則輸入窗的訊息會顯示「{數字} 太大了，再猜：{上次左界}～ {數字}」
若輸入的{數字}小於{pass}則輸入窗的訊息會顯示「{數字} 太小了，再猜：{數字}～{上次左界}」
↑自己座號 ↑ {pass}是正確密碼，俊華是自己姓名
若輸入 0 可停止猜測 以 Exit Sub 退出副程式
若輸入的{數字}大於{pass}則輸入窗的訊息會顯示「{數字} 太大了，再猜：{上次左界}～ {數字}」
若輸入的{數字}小於{pass}則輸入窗的訊息會顯示「{數字} 太小了，再猜：{數字}～{上次左界}」
３．按鈕２被按一下：將猜測的次數歸零，猜測的範圍改回11~99，｛pass｝值重新產生
Public Class Form1
Dim Lt As Integer = 11 '左界
Dim Rt As Integer = 90 '右界
Dim pass As Integer ' 密碼
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call setpass()
End Sub
Sub setpass()
Lt = 11 '*更正* 應先設定 LT及RT 再 執行 int(rnd ... )
Rt = 90
pass = Int(Rnd() * (Rt - Lt + 1)) + Lt '自動產生密碼
TextBox1.Text = "" '將輸入密碼區清空
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' 判斷是否 人工設密碼 或 電腦產生
If TextBox1.Text <> "" Then
Dim r = MsgBox("電腦Y 或人工N", vbQuestion + MsgBoxStyle.YesNo)
If r = vbNo Then
If Val(TextBox1.Text) >= 10 And Val(TextBox1.Text) <= 99 Then
pass = Val(TextBox1.Text)
End If
Else
Call setpass()
End If
End If
' 開始猜
Dim gs As Integer = InputBox("猜11~90") '您所 猜的數
Dim n As Integer = 1 '猜的次數
Do While gs <> pass
' 若輸入 -56(自己座號) 放棄，顯示密碼並結束程式
If gs = -56 Then
MsgBox("密碼是：" & pass & "再見！")
End
End If
If gs = 0 Then
Exit Sub
End If
' 若輸入 太大，則 右界數字改為 輸入的數字
If gs > pass Then
Rt = gs
gs = InputBox(gs & " 太大了，再猜:" & Lt & "～" & Rt)
Else ' 若輸入 太小，則 左界數字改為 輸入的數字
Lt = gs
gs = InputBox(gs & " 太小了，再猜:" & Lt & "～" & Rt)
End If
n += 1
Loop
Label2.Text = "答對了！正確數字為 " & pass & " 。你共猜了 " & n & " 次。"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call setpass()
End Sub
End Class
發表文章
