大量作業３

考古題24

中文數字(會去零版)

老師會跑出

我的則是(沒有說比較好搞不好有缺陷)

考古題25

考古題26

考古題27

考古題28

考古題29

考古題30

考古31

考題32

考古題33

Public Class Form1

Const nd = 4 'no of digits 幾位數
Dim k(nd) As Integer, trial As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g(nd) As String, gn As Integer, A As Integer, B As Integer, i As Integer, j As Integer
gn = Guess.Text
For i = nd To 1 Step -1
g(i) = gn Mod 10
gn = gn \ 10
Next
A = 0
B = 0
For i = 1 To nd
If g(i) = k(i) Then A = A + 1 '請用正確的判斷來取代空格
For j = 1 To nd
If g(i) = k(j) Then B = B + 1 '請用正確的判斷來取代空格
Next
Next
B = B - A
trial = trial + 1
result.AppendText(trial & ": " & Guess.Text & " " & A & "A" & B & "B" & vbNewLine)
If A = 4 Then
result.AppendText("恭喜你，答對了！")
Button1.Enabled = False
Guess.Enabled = False
End If
Guess.Text = ""
Guess.Focus()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Randomize()
Dim i As Integer, j As Integer, 不重覆 As Boolean
k(1) = Int(Rnd() * 9) + 1
答案.Text = k(1)
For i = 2 To nd
Do
k(i) = Int(Rnd() * 10)
不重覆 = True
For j = 1 To i - 1
If k(j) = k(i) Then 不重覆 = False
Next
Loop Until 不重覆
答案.Text = 答案.Text & k(i)
Next
result.Text = ""
trial = 0
Button1.Enabled = True
Guess.Enabled = True
Guess.Focus()
Button2.Text = "重新開始"
End Sub

Private Sub Label1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles 左上角.MouseEnter
答案.Visible = True
End Sub

Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles 左上角.MouseLeave
答案.Visible = False
End Sub
End Class


附註:我不會玩猜數字

考古題34

測反應

委託2

大量作業２

最大公因數

Public Class Form1
Dim a, b, c As Int64
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
b = TextBox2.Text
If a > b Then
c = a - 1
Else
c = b - 1
End If
Do Until a Mod c = 0 And b Mod c = 0
c = c - 1
Loop

Label2.Text = "最大公因數為" & c
End Sub
End Class

考古題1

Public Class Form1

Private Sub B0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B0.Click
If bit0.Text = 0 Then
bit0.Text = 1
Else
bit0.Text = 0
End If
End Sub
End Class

考古題2

Public Class Form1

Dim 方向 As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'原來的跑馬噔程式
'Label1.Left = Label1.Left - 1
'If Label1.Left < -Label1.Width Then Label1.Left = Me.ClientSize.Width

Label1.Left = Label1.Left + 方向
If Label1.Left = 0 Then


方向 = +1
ElseIf Label1.Right = Me.ClientSize.Width Then
方向 = -1
End If
'在此加入您的程式


End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
方向 = -1
End Sub
End Class

考古題3

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Button1.Text = Int(Rnd() * 10)
Timer1.Interval = Timer1.Interval ^ 1.01
If Timer1.Interval > 500 Then Timer1.Enabled = False
'請在此加入您的程式
If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False Then
Label1.Text = "開獎完畢你中獎了嗎"
End If


End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Button2.Text = Int(Rnd() * 10)
Timer2.Interval = Timer2.Interval ^ 1.01
If Timer2.Interval > 500 Then Timer2.Enabled = False
'請在此加入您的程式
If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False Then
Label1.Text = "開獎完畢你中獎了嗎"
End If


End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Button3.Text = Int(Rnd() * 10)
Timer3.Interval = Timer3.Interval ^ 1.01
If Timer3.Interval > 500 Then Timer3.Enabled = False
'請在此加入您的程式
If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False Then
Label1.Text = "開獎完畢你中獎了嗎"
End If


End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Randomize()
Timer1.Interval = Rnd() * 200 + 20
Timer2.Interval = Rnd() * 200 + 20
Timer3.Interval = Rnd() * 200 + 20
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Label1.Text = "開獎中，請稍候..."
End Sub
End Class

考古題4

Public Class Form1

Dim 方向 As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 方向
'請在此加入你的程式
'記得如果程式執行到一半發生錯誤時，修改後要先停止再重新執行哦！
If ProgressBar1.Value = 100 Then
方向 = -1
ElseIf ProgressBar1.Value = 0 Then
方向 = 1

End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
方向 = 1
End Sub
End Class

考題5

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Button1.Text = Int(Rnd() * 10)
Timer1.Interval = Timer1.Interval ^ 1.01
If Timer1.Interval > 500 And Button1.Text = "7" Then Timer1.Enabled = False
If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False Then
Label1.Text = "開獎完畢，恭喜您中大獎!"
End If

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Button2.Text = Int(Rnd() * 10)
Timer2.Interval = Timer2.Interval ^ 1.01
If Timer2.Interval > 500 And Button2.Text = "7" Then Timer2.Enabled = False
If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False Then
Label1.Text = "開獎完畢，恭喜您中大獎!"
End If

End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Button3.Text = Int(Rnd() * 10)
Timer3.Interval = Timer3.Interval ^ 1.01
If Timer3.Interval > 500 And Button3.Text = "7" Then Timer3.Enabled = False
If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False Then
Label1.Text = "開獎完畢，恭喜您中大獎!"
End If

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Randomize()
Timer1.Interval = Rnd() * 200 + 20
Timer2.Interval = Rnd() * 200 + 20
Timer3.Interval = Rnd() * 200 + 20
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Label1.Text = "開獎中，請稍候...."
End Sub
End Class

考古題6

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 確定.Click

If 輸入.Text > 3 Or 輸入.Text < 1 Then
輸入.Text = 0
Else



玩家.Text = 輸入.Text



剩餘.Text = 剩餘.Text - 玩家.Text
If 剩餘.Text = 0 Then
結果.Text = "你輸了！"
確定.Enabled = False
Button1.Visible = True
Me.AcceptButton = Button1
Else
If 剩餘.Text Mod 4 = 1 Then
電腦.Text = 1
Else
電腦.Text = (剩餘.Text - 1) Mod 4
End If
剩餘.Text = 剩餘.Text - 電腦.Text
If 剩餘.Text = 0 Then
結果.Text = "你贏了！"
確定.Enabled = False
Button1.Visible = True
Me.AcceptButton = Button1
End If
End If
End If
輸入.Text = ""
輸入.Focus()


End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
確定.Enabled = True
Button1.Visible = False
剩餘.Text = 21
玩家.Text = ""
電腦.Text = ""
輸入.Focus()
Me.AcceptButton = 確定
End Sub
End Class

考古題7

Public Class Form1

Dim 密碼 As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If 輸入.Text = 密碼 Then
Label2.Text = "歡迎光臨"
Else
If 輸入.Text > 密碼 Then
Label2.Text = "太大了，請重新輸入"
大.Text = 輸入.Text - 1
Else
Label2.Text = "太小了，請重新輸入"
小.Text = 輸入.Text + 1
End If
輸入.Text = ""
輸入.Focus()
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
密碼 = Int(Rnd() * 9000 + 1000)
End Sub
End Class

考古題9

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
結果.Text = "不是三角形"
If CInt(a.Text) + b.Text > c.Text And CInt(a.Text) + c.Text > b.Text And CInt(b.Text) + c.Text > a.Text Then
結果.Text = "是三角形"
End If



a.SelectAll()
b.SelectAll()
c.SelectAll()
a.Focus()
End Sub
End Class

考古題10

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

最大.Text = a.Text
最小.Text = a.Text
If CInt(b.Text) > 最大.Text Then 最大.Text = b.Text
If CInt(b.Text) < 最小.Text Then 最小.Text = b.Text
If CInt(c.Text) > 最大.Text Then 最大.Text = c.Text
If CInt(c.Text) < 最小.Text Then 最小.Text = c.Text


a.SelectAll()
b.SelectAll()
c.SelectAll()
a.Focus()
End Sub


End Class

考題11

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d As Integer
Randomize()
TextBox1.Text = ""
Do



d = Int(Rnd() * 6) + 1
TextBox1.Text = TextBox1.Text & d & vbNewLine
Loop Until (d = 6)
End Sub
End Class

考古題12

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, gcd As Integer
a = TextBox1.Text
b = TextBox2.Text
gcd = a
Do Until a Mod gcd = 0 And b Mod gcd = 0
gcd = gcd - 1
Loop


Label4.Text = gcd
End Sub
End Class

考古題13

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d1 As Integer, d2 As Integer
Randomize()
TextBox1.Text = ""
d1 = 0

Do
d2 = d1
d1 = Int(Rnd() * 6) + 1
TextBox1.Text = TextBox1.Text & d1 & vbNewLine
Loop Until d2 = d1


End Sub
End Class

考古題19

考古題20

考古題21

考古題23

要自己背的順便貼作業（大量１）

真亂數Randomize() 換行語法 vbCrlf ( 注意寫法為 {輸入的文字}&vbCrlf ) 將文字轉換成整數運算 CInt(文字.text)
順便貼作業

抓按鈕

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Button1.Left = Rnd() * (Me.ClientRectangle.Width - Button1.ClientRectangle.Width)
Button1.Top = Rnd() * (Me.ClientRectangle.Height - Button1.ClientRectangle.Height)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = False
Button1.Text = "被抓到了"
End Sub
End Class

如上
簡單至極 程式放在xuite網硬中 昇級版 Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Button1.Left = Rnd() * (Me.ClientRectangle.Width - Button1.ClientRectangle.Width) Button1.Top = Rnd() * (Me.ClientRectangle.Height - Button1.ClientRectangle.Height) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Button1.Text = "來抓我ㄚ" Then Timer1.Enabled = False Button1.Text = "被抓到了" Else Timer1.Enabled = True Button1.Text = "來抓我ㄚ" End If End Sub End Class

閏平年顯示

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text Mod 4 <> 0 Or TextBox1.Text Mod 4 = 0 And TextBox1.Text Mod 100 = 0 Then Then
Label2.Text = "平年"
Else
Label2.Text = "閏年"
End If


End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("非常無聊的程式不知道能幹嘛")
End Sub
End Class

不知能幹嘛用冏.....

十進位轉二進位

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Tag = TextBox1.Text
Label3.Text = ""
Do
Label3.Text = Me.Tag Mod 2 & Label3.Text
Me.Tag = Me.Tag \ 2
Loop Until Me.Tag = 0
TextBox1.Focus()
TextBox1.SelectAll()
End Sub
End Class

超囧作業要自己去抓搞屁阿

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

本利和.Text = 本金.Text
年.Text = 0
Do Until 本利和.Text > 幾倍.Text * 本金.Text
年.Text = 年.Text + 1
本利和.Text = 本利和.Text + 利率.Text * 本利和.Text / 100

Loop
本金.Focus()
本金.SelectAll()
'需要一點思考但重要的是　！！！作業居然要自己抓搞什麼嘛'


End Sub
End Class

看質因數

Public Class Form1
Dim a, b As Int64

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 看質因數.Click
a = TextBox1.Text
b = 2
Label1.Text = "1 "
If a = 1 Then
Label1.Text = "1不是質數也不是合數喔"
Else
Do Until (a = 1)
Do Until a Mod b = 0
b = b + 1
Loop
Label1.Text = Label1.Text & "*" & b
a = a / b
Loop
End If
TextBox1.Focus()
TextBox1.SelectAll()
End Sub
End Class

怨恨顯示(沒屁用)

Public Class Form1
Dim a, b As Int64
Dim c As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = InputBox("你恨他幾遍阿（輸入次數）")

Do Until b = a
b = b + 1
TextBox1.Text = TextBox1.Text & b & "." & "我好恨喔" & vbCrLf

Loop
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
c = InputBox("你恨誰ㄚ")
Button1.Text = c & "我恨死你了"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("請不要恨他太多次以免跑不出來（這程式其實沒屁用）")
End Sub
End Class

溫度轉換

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
b.Text = (a.Text - 32) * 5 / 9
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
b2.Text = a1.Text * 9 / 5 + 32
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListBox1.SelectedItem = "轉攝氏溫標" Then q1.Text = (100 * c.Text - 100 * b3.Text) / (a2.Text - b3.Text)
If ListBox1.SelectedItem = "轉華氏溫標" Then q1.Text = (180 * c.Text - 212 * b3.Text + 32 * a2.Text) / (a2.Text - b3.Text)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If ListBox2.SelectedItem = "攝氏溫標" Then q2.Text = (100 * w.Text - 100 * b3.Text) / (a2.Text - b3.Text)
If ListBox2.SelectedItem = "華氏溫標" Then q2.Text = (180 * w.Text - 212 * b3.Text + 32 * a2.Text) / (a2.Text - b3.Text)
End Sub
End Class

猜數字

猜數字

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.Text = Label2.Text - 1
If Label2.Text <= 0 Then
Timer1.Enabled = False
MsgBox("失敗了啦")
Button1.Visible = False
Button2.Visible = False
End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
a1.Tag = Int(Rnd() * 899 + 100)
a2.Tag = Int(Rnd() * 8999 + 1000)
a3.Tag = Int(Rnd() * 89999 + 10000)


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ListBox1.SelectedItem = "難度一" Then
a.Text = "3"
Else
If ListBox1.SelectedItem = "難度二" Then
a.Text = "4"
End If

End If
If ListBox1.SelectedItem = "難度三" Then
a.Text = "4"
Timer1.Interval = 500
c.Text = "注意！！時間減半喔"
Else
If ListBox1.SelectedItem = "不是給人玩的" Then
a.Text = "5"
Timer1.Interval = 500
c.Text = "注意！！時間減半喔"
End If
End If
Timer1.Enabled = True
Button2.Visible = True
Button1.Visible = False
Button3.Visible = True
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label2.Text = 60
Timer1.Enabled = False
a.Text = "???"
Button2.Visible = True
Timer1.Interval = 1000
a1.Tag = Int(Rnd() * 899 + 100)
a2.Tag = Int(Rnd() * 8999 + 1000)
a3.Tag = Int(Rnd() * 89999 + 10000)
Button1.Visible = True
Button3.Visible = False
MsgBox("注意數字會改變喔")
c.Text = ""
b.Text = ""
q.Text = ""
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
q.Focus()
If ListBox1.SelectedItem = "難度一" Then
If q.Text = a1.Tag Then
b.Text = "恭喜猜到囉"
Timer1.Enabled = False
Button3.Visible = True
Button2.Visible = False
Else
If q.Text > a1.Tag Then
b.Text = "太大了"
q.Text = ""

Else
If q.Text < a1.Tag Then
b.Text = "太小囉"
q.Text = ""
End If
End If
End If
End If
If ListBox1.SelectedItem = "難度二" Then
If q.Text = a2.Tag Then
b.Text = "恭喜猜到囉"
Timer1.Enabled = False
Button3.Visible = True
Button2.Visible = False
Else
If q.Text > a2.Tag Then
b.Text = "太大了"
q.Text = ""
Else
If q.Text < a2.Tag Then
b.Text = "太小囉"
q.Text = ""
End If
End If
End If
End If
If ListBox1.SelectedItem = "難度三" Then
If q.Text = a2.Tag Then
b.Text = "恭喜猜到囉"
Timer1.Enabled = False
Button3.Visible = True
Button2.Visible = False
Else
If q.Text > a2.Tag Then
b.Text = "太大了"
q.Text = ""
Else
If q.Text < a2.Tag Then
b.Text = "太小囉"
q.Text = ""
End If
End If
End If
End If
If ListBox1.SelectedItem = "不是給人玩的" Then
If q.Text = a5.Tag Then
b.Text = "你確定你是人嗎"
Timer1.Enabled = False
Button3.Visible = True
Button2.Visible = False
Else
If q.Text > a5.Tag Then
b.Text = "太大了"
q.Text = ""
Else
If q.Text < a5.Tag Then
b.Text = "太小囉"
q.Text = ""
End If
End If
End If
End If
End Sub
End Class

等差等比計算機（有缺陷版）

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ListBox1.SelectedItem = "等差數列" Then
If ListBox2.SelectedItem = "求合（請至少輸入首項公差（比）和項數）" Then
q.Text = n.Text * (2 * a1.Text + (n.Text - 1) * r.Text) / 2
End If
If ListBox2.SelectedItem = "求第N的質（請至少輸入首項公差第N項輸入至項數）" Then
q.Text = a1.Text + (n.Text - 1) * r.Text
End If
If ListBox2.SelectedItem = "求此數為第n項（同上 此數輸入至末項中）" Then
q.Text = -((-an.Text + a1.Text - r.Text) / r.Text)
End If
If ListBox2.SelectedItem = "求公差（公比）（請至少輸入首項第二項）" Then
q.Text = a2.Text - a1.Text
End If
If ListBox2.SelectedItem = "求公差（公比）（請至少輸入首項末項項數）" Then
q.Text = (an.Text - a1.Text) / (n.Text - 1)
End If

End If
If ListBox1.SelectedItem = "等比數列" Then
If ListBox2.SelectedItem = "求合（請至少輸入首項公差（比）和項數）" Then
q.Text = (a1.Text * (1 - r.Text ^ n.Text)) / (1 - r.Text)
End If
If ListBox2.SelectedItem = "求第N的質（請至少輸入首項公差第N項輸入至項數）" Then
q.Text = a1.Text * r.Text ^ (n.Text - 1)
End If
If ListBox2.SelectedItem = "求此數為第n項（同上 此數輸入至末項中）" Then
MsgBox("很抱歉我公式倒不出來所以不能用")
End If
If ListBox2.SelectedItem = "求公差（公比）（請至少輸入首項第二項）" Then
q.Text = a2.Text / a1.Text
End If
If ListBox2.SelectedItem = "求公差（公比）（請至少輸入首項末項項數）" Then
MsgBox("很抱歉我公式倒不出來所以不能用")
End If



End If
End Sub
End Class

超好看的圖片

Public Class Form1
'老規矩前言'
'這一個程式我打蠻久的因為我自己也把老師教過的忘的差不多了而且最重要的事我家電腦怪怪的一值當機害我一直重打'
'不屁了重點來了（對了如果你要印下來幫我也印一份謝謝）'
Dim a, b, c, d As Int64
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 'timer是一個物件(計時器)能用到的屬性為enabled(能否啟動注意它內定為false不啟動)interval(每幾豪秒執行一次注意１ 秒＝１０００毫秒)'
'這個連我都忘了事後來去查的'
Button1.Left = Rnd() * (Me.ClientRectangle.Width - Button1.ClientRectangle.Width) '按鈕１的左側等於亂數乘上form１的寬減按鈕１的寬實際的作用是能讓按鈕１左右亂數移動旦不會跑出框框（每一秒移動一次）'

Button1.Top = Rnd() * (Me.ClientRectangle.Height - Button1.ClientRectangle.Height) '同上旦這是高'
Button4.Left = Rnd() * (Me.ClientRectangle.Width - Button4.ClientRectangle.Width)
Button4.Top = Rnd() * (Me.ClientRectangle.Height - Button4.ClientRectangle.Height)

Button13.Left = Button13.Left + 100 '讓按鈕３往左一百像素'
If Button13.Right >= Me.ClientRectangle.Width - Button13.ClientRectangle.Width Then '假如按鈕３的右側大於等於form１的寬減掉按鈕三的寬則按鈕３的左測回歸為０的位置也就是程式的最左邊'
'實際的作用是如果按鈕三跑出表單時能讓她跑回來'
Button13.Left = 0
End If

End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在開啟程式時執行'

Randomize() '真正亂數'
Me.Tag = Rnd() * 89 + 10 'form1的tag設為亂數（０＊８９＋１０～１＊８９＋１０）也就是１０～９９'

a = Me.Tag '將a設為form.tag的質'
MsgBox("執行後有超讚的圖圖喔保證很爽") '這行老師沒交不用管沒關西'

d = 100 '將d設為１00'
End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click '按鈕１１被按時'

TextBox1.Focus() '將滑鼠游標移到輸入格1'
TextBox1.SelectAll() '將輸入格1反白'
'已下比較複雜(其實也還好)'
'注意按下按鈕後他一定會執行上面那兩行'
'注意按下按鈕後if敘述他只會執行符合的不符合的他會全部都跳過'
If Label2.Text = "請先猜二位數密碼" Then '如果文字2的文字等於(請先猜二位數密碼)他就會執行以下敘述'
If TextBox1.Text = a Then '如果按下按鈕時輸入格1的文字(也就是你打的)等於a的話'
Label2.Text = "想執行請輸入超過５０００的質數" '文字2變成(想執行請輸入超過５０００的質數)注意因為文字二變了所以下次按下按鈕11時這個巢狀if就會被整個跳過'
'(因為這個巢狀if必須要文字2的文字等於(請先猜二位數密碼)才會執行)'
Label3.Text = ""
Else '注意這是 If TextBox1.Text = a這個if的'
If TextBox1.Text > a Then '沒什麼好講的吧'
Label3.Text = "太大了啦"
Else
Label3.Text = "太小了啦"
End If
End If
End If
If Label2.Text = "想執行請輸入超過５０００的質數" Then '這個if敘述要符合以下才會執行'
'以下的if敘述都同理'
a = TextBox1.Text '將a設為你按下按鈕時輸入格1的數字(注意它只有在If Label2.Text = "想執行請輸入超過５０００的質數"才會執行所以對其他if沒影響旦)'
'這個執行以後a設定成輸入格1了'
b = 2 'b設為2'
c = a 'c設為a'
Do Until a Mod b = 0 '回圈執行到a除以b的餘數等於0為止這個迴圈是算出他的最小因數'

b = b + 1 '因為你問過我所以我解釋一下這行b=b+1的意義是判斷a/2(b剛開始等於2)的餘數如果不等於0'
'b將變成3(2+1=3)'然後判斷一次a/b(這次就變成a/3了)的餘數會不會等於0如果不會b就在加1'
'也就是從2開始每次都加1是到符合為止(2.3.4.5.6........)'

Loop
If a = b And a > 5000 Then '這行會等到迴圈結束才會執行而且這是屬於If Label2.Text = "想執行請輸入超過５０００的質數"裡面的'

Label2.Text = "想執行請把這個二進位數改為十進位" '如果符合文字2就變成想執行請把這個二進位數改為十進位'

a = a - 1 '這行會讓a-1'
Do '這個回圈是用來求出a(減過1的喔(也就是說如果你剛剛輸入5003他一定是跑出5002的二進位))的二進位的'
Label3.Text = a Mod 2 & Label3.Text '這個就是文字三的文字等於a/2的餘數加原本文字三的文字'
a = a \ 2 'a要在除2的整數{注意(/)與(\)不同}'
Loop Until a = 0 '執行迴圈到a=0'


End If
End If
'以下的同理的我就不打了'
If Label2.Text = "想執行請把這個二進位數改為十進位" Then
If TextBox1.Text = c - 1 Then
TextBox1.Text = ""
Label3.Text = ""
Label2.Text = "想執行請按１００次按鈕"
Button11.Text = "狂案吧"
TextBox1.Multiline = True '這是讓輸入格變成多行模式的'
TextBox1.ScrollBars = ScrollBars.Vertical '這是讓輸入格有捲軸的'

End If
End If


If Label2.Text = "想執行請按１００次按鈕" Then
d = d - 1 '讓每按一次按鈕d就減一(作用是讓她能算他按了幾次按鈕)'
TextBox1.Text = TextBox1.Text & "還剩下" & d & "下" & vbCrLf '& vbCrLf這是換行的語法'
'讓輸入格等於原本的輸入格加上"還剩下" & d & "下"'

If d = 0 Then '假如d變成0與Label2.Text = "想執行請按１００次按鈕"就會執行'
'd原來是100每按一次減一所以按下100次就會變成0囉'
Button3.Visible = True '按鈕三變成顯示(注意顯示才能按{廢話不然誰知道有這個按鈕阿})'
Button3.Text = "確認" '讓按鈕上的文字變成(確認)'
Label2.Text = "想執行請利用按鈕選是非題"

TextBox1.Text = ""
TextBox1.Multiline = False '讓輸入格變成單行模式'
TextBox1.ScrollBars = ScrollBars.None '讓輸入格沒有捲軸'
Label3.Text = "請先輸入任意數字輸入完按確認"
Me.AcceptButton = Button3 '這個是將按下Enter等於按下的按鈕便成按鈕三'
Button11.Visible = False

End If
End If





If Button11.Text = "準備好了開始作答" Then
Button1.Visible = True '按鈕1變成顯示'
Button4.Visible = True '同理'
Button11.Visible = False
Timer2.Enabled = True '讓計時器2變成有效的'
Label3.Text = "農場裡有１０隻羊除了６之其他都死了還剩下６隻"
End If







End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'這是按下正確時會執行的原理與上同'
If Label3.Text = "桌面有三個蘋果你拿了兩個你有１個是否正確" Then
MsgBox(InputBox("你尊姓大名") & "是笨蛋") '老師也沒交可以不管'
End If

If Label3.Text = "農場裡有１０隻羊除了６之其他都死了還剩下６隻" Then
Button4.Visible = False
Button1.Visible = False
Label3.Text = "終於可以執行啦高興吧"
Label2.Text = ""
TextBox1.Visible = False
Button3.Visible = True
Button3.Text = "執行"
Timer2.Enabled = False '讓計時器二變成失效'
Label1.Text = "可以執行囉爽死妳"
End If



If Label3.Text = a & "年是閏年正確或錯誤" And Me.Tag = "正確" Then 'and這是在兩個條件符合時才執行'
Label3.Text = "桌面有三個蘋果你拿了兩個你有１個是否正確"

End If
If Label3.Text = a & "年是閏年正確或錯誤" And Me.Tag = "錯誤" Then
MsgBox(InputBox("你尊姓大名") & "是笨蛋")

End If

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'同理'
If Label3.Text = "農場裡有１０隻羊除了６之其他都死了還剩下６隻" Then
MsgBox(InputBox("你尊姓大名") & "是丁丁")
Button4.Visible = False
Button1.Visible = False
Button3.Visible = False
Button11.Visible = False
Label2.Text = ""
Label3.Text = ""
Label1.Text = "Sorry請重新挑戰吧"

End If
If Label3.Text = a & "年是閏年正確或錯誤" And Me.Tag = "錯誤" Then
Label3.Text = "桌面有三個蘋果你拿了兩個你有１個是否正確"

End If
If Label3.Text = a & "年是閏年正確或錯誤" And Me.Tag = "正確" Then
MsgBox(InputBox("你尊姓大名") & "是笨蛋")

End If
If Label3.Text = "桌面有三個蘋果你拿了兩個你有１個是否正確" Then
Label3.Text = "從這題開始你只有1０秒作答請立刻按下正確答案（按鈕一樣會亂跑）"
a = 10'將a設為10'
Button11.Text = "準備好了開始作答"
Button11.Visible = True
Button1.Visible = False
Button4.Visible = False
Label2.Text = "剩下" & a & "秒"



End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' 同理'
If Button3.Text = "確認" Then
a = TextBox1.Text
Button1.Visible = True
Button4.Visible = True
Button3.Visible = False
Label3.Text = a & "年是閏年正確或錯誤"
If a Mod 4 <> 0 Or a Mod 4 = 0 And a Mod 100 = 0 Then
Me.Tag = "錯誤"
Button1.Visible = True
Button4.Visible = True
Button11.Visible = False
Else
Me.Tag = "正確"
Button1.Visible = True
Button4.Visible = True
Button11.Visible = False
End If
End If
If Button3.Text = "執行" Then
Button3.Visible = False
Button12.Visible = True
Label1.Text = ""
Label3.Text = ""
Label2.Text = ""

End If
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
'這是計時器二每1秒會執行一次的如果他有效的話(因為我把Interval設為1000毫秒所已換算成1秒)'
a = a - 1'讓a每隔1秒減一(用處在於因為剛剛把a設為10所以a變成0會經過10秒已達到倒數的效果)'
Label2.Text = "剩下" & a & "秒" '讓他每隔一秒更新一次數字(因為a將每格1秒減一所以a每秒的數字都不同)'
If a = 0 Then '假如a變成0了(也就是時間到了)'

MsgBox(InputBox("你尊姓大名") & "是丁丁")

Button4.Visible = False
Button1.Visible = False
Button3.Visible = False
Button11.Visible = False
Label2.Text = ""
Label3.Text = ""
Label1.Text = "Sorry請重新挑戰吧"
Timer2.Enabled = False '讓計時器時效如果不失效他就會繼續減'
End If
End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
MsgBox("抱歉囉是你自己智商太低了")
End Sub



Private Sub Button2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseEnter
'注意看上列按鈕2的事件是滑鼠移入時MouseEnter'
Button2.Enabled = False '將按鈕2設為不能按'
Button2.Text = "不給你按ㄏㄏㄏㄏㄏ"
End Sub
'後記'
'這是我目前為止打最久的程式了不知為合他一直搞錯誤叫我重開害我要邊打邊儲存耗超久的'
'這個程式重點在於按下按鈕時他會執行哪個槽狀if不能搞錯不然就不能繼續執行下去了必須一個接一個'
'而這個程式應該把老師教過的都結合了吧(也許)對了請去看看物件的屬性那個也很重要'
'先說抱歉打這麼久(我也不想明明星期六打到1點終於打好了結果他搞錯誤要我重打害我火了去睡覺星期日才重打)'
'老話一句有問題再說(如果程式有錯誤來找我算帳不小心打太多敘述自己修正也改超多次的)'
'對了你要印下來的話順便幫我印一份萬分感謝拜託囉'


End Class

投注

Public Class Form1
Dim a1, a2, a3, a4, a5, a6 As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "投注" Then
Do Until a1 <> a2 And a1 <> a3 And a1 <> a4 And a1 <> a5 And a1 <> a6 And a2 <> a3 And a2 <> a4 And a2 <> a5 And a2 <> a6 And a3 <> a4 And a3 <> a5 And a3 <> a6 And a4 <> a5 And a4 <> a6 And a5 <> a6
MsgBox("請在所有數字中選不能重複喔")
a1 = InputBox("請下注第一個號碼")
a2 = InputBox("請下注第2個號碼")
a3 = InputBox("請下注第3個號碼")
a4 = InputBox("請下注第4個號碼")
a5 = InputBox("請下注第5個號碼")
a6 = InputBox("請下注第6個號碼")
Loop
Label2.Text = a1 & "和" & a2 & "和" & a3 & "和" & a4 & "和" & a5 & "和" & a6
Button3.Visible = True
End If

If Button1.Text = "你中大獎了領獎吧" Then
Button2.Visible = True
MsgBox("獎品天線寶寶一組")
End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = a1
TextBox2.Text = a2
TextBox3.Text = a3
TextBox4.Text = a4
TextBox5.Text = a5
TextBox6.Text = a6
Button1.Text = "你中大獎了領獎吧"
Button3.Visible = False
End Sub
End Class

2008年日期查詢

Public Class Form1
'參考資料（皇家裡的別理他）'
'1~2日-----港町ゴリアテ
'3~4日-----アルモリカ城
'5~6日-----クリザローの町
'7~8日-----バルマムッサの町
'9~10日----港町アシュトン
'11~12日---コリタニ城
'13~14日---ブリガンテス城
'15~16日---古都ライム
'17~18日---フィダック城
'19~20日---ウェアラムの町
'21~22日---王都ハイム
'23~24日---グリムスビーの町
'25日------バーニシア城
'週日'(日曜日)
'週一'(月曜日)
'週二'(火曜日)
'週三'(水曜日)
'週四'(木曜日)
'週五'(金曜日)
'週六'(土曜日)
'神龍之月》1月1日––1月24日》干期 '地龍之月》1月25日––2月18日》干期'
'水龍之月》2月19日––3月13日》雨期'
'影龍之月》3月14日––4月6日》雨期'
'白龍之月》4月7日––5月1日》干期'
'炎龍之月》5月2日––5月25日》干期' '風龍之月》5月26日––6月18日》干期'
'金龍之月》6月19日––7月13日》干期'
'雷龍之月》7月14日––8月6日》雨期'
'暗龍之月》8月7日––8月30日》雨期' '海龍之月》8月31日––9月24日》雨期'
'黑龍之月》9月25日––10月18日》雨期'
'雙龍之月》10月19日––11月11日》雨期'
'火龍之月》11月12日––12月6日》干期'
'光龍之月》12月 7日––12月31日》干期'
'前言'
'這禮拜終於有靈感了所以這次寫的是有用的（注意！！！是對我來說，對你完全沒屁用）'
Dim m() As String = {"", "《神龍之月》（乾期）", "《水龍之月》（雨期）", "《影龍之月》（雨期）", "《白龍之月》（乾期）", "《炎龍之月》（乾期）", "《金龍之月》（乾期）", "《雷龍之月》（雨期）", "《暗龍之月》（雨期）", "《黑龍之月》（雨期）", "《雙龍之月》（雨期）", "《火龍之月》（乾期）", "《光龍之月》（乾期）"}
'宣告m為一個文字（字串）分別等於"", "《神龍之月》（乾期）", "《水龍之月》（雨期）", "《影龍之月》（雨期）", "《白龍之月》（乾期）", "《炎龍之月》（乾期）", "《金龍之月》（乾期）", "《雷龍之月》（雨期）", "《暗龍之月》（雨期）", "《黑龍之月》（雨期）", "《雙龍之月》（雨期）", "《火龍之月》（乾期）", "《光龍之月》（乾期）"
'共１３個所以它總共宣告１３個m從m(0)~m(12),m(1)=《神龍之月》（乾期）,m(2)=《水龍之月》（雨期）以此類推
Dim spm() As String = {"", "", "《地龍之月》（乾期）", "", "", "", "《風龍之月》（乾期）", "", "", "《海龍之月》（雨期）"}
Dim s() As String = {"不會出現", "港町ゴリアテ", "アルモリカ城", "クリザローの町", "バルマムッサの町", "港町アシュトン", "コリタニ城", "ブリガンテス城", "古都ライム", "フィダック城", "ウェアラムの町", "王都ハイム", "グリムスビーの町", "バーニシア城"}
Dim d() As String = {"日曜日", "月曜日", "火曜日", "水曜日", "木曜日", "金曜日", "土曜日"}
'同上注意d(0)為日曜日（就是星期日啦）這樣寫的原因是等等是以日期　mod　7來判斷他是星期幾所以如果是是星期日他除出來餘數等於０
Dim q() As Integer = {0, 1, 4, 5, 1, 3, 6, 1, 4, 0, 2, 5, 0}
'同上但q是宣告為數字
Dim i() As Integer = {0, 1, 19, 14, 7, 2, 19, 14, 7, 25, 19, 12, 7}
Dim w() As Integer = {0, 24, 13, 6, 1, 25, 13, 6, 30, 18, 11, 6, 31}
Dim p() As Integer = {0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}
'上面宣告的方法被稱為陣列'
Dim mo, da, k, r As Integer
Dim o As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'先聲明這次不註解廢話了'
TextBox3.Text = ""
k = 0
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("請輸入日期")
'怕有人白痴到忘了輸入日期就案Enter會發生錯誤所以加上的'
Else

mo = TextBox1.Text
da = TextBox2.Text
If mo > 12 Then
MsgBox("有這天嗎白痴")
Else
If da > p(mo) Then
MsgBox("有這天嗎白痴")
Else '上面是怕有人白痴亂輸入加的'
'解釋一下da>p(mo)
'就是如果你輸入的是２月３１日他就會先判斷 da > p(2){p(mo這個是你輸入的月)}３１＞２９所以會執行MsgBox("有這天嗎白痴")
'以下的就完全不會執行了如果執行可能會當'
If mo = 1 Or mo = 5 Or mo = 8 Then '假如是1.5.8月的話'
If da > w(mo) Then '假如日期大於當月最後一天的話'
o = spm(mo + 1) '月份就+1(旦他是特別月)'
Else
o = m(mo) '沒有當然讓他照常顯示啦'
End If '以下皆同理'
ElseIf mo <> 2 And mo <> 6 And mo <> 9 Then '他是屬於' If mo = 1 Or mo = 5 Or mo = 8 Then裡面的
'月份不等於2.6.9'
If da < i(mo) Then
o = m(mo - 1) '注意他是小於當月第一天所以是-1'
Else
o = m(mo)
End If
Else
If da < i(mo) Then
o = spm(mo)
Else
o = m(mo)
End If
End If
'為什麼要分成1.2.5.6.8.9月不同算法原因為皇家他一年分成15個月(換言之有15種月份)和你們不同(12個月)'
'之前星座的可以不用這麼麻煩是因為星座也一樣12種'
If da <= 25 Then '注意他不屬於If mo = 1 Or mo = 5 Or mo = 8 Then
For r = 1 To da Step 2 '每格2天+1''這是算魔女位置的他每個地方只會停留2天(バーニシア城例外只停一天'
k = k + 1 '實際的用處是例當你輸入5他會從1開始+1再來跳到3在+1(此時為2(1+1))再來5在+1(3)'
''5~6日-----クリザローの町 你會發現他就是第三個出現的地方(順便一題如果輸入6也一樣因為他不到7)'
Next
End If '如果大於25他就不會出現了而for回圈也不會執行也就是說k等於0'
TextBox3.AppendText(o & vbNewLine & "今日為" & d((da + q(mo)) Mod 7) & vbNewLine & "魔女商店出現在：" & s(k) & vbNewLine)
'o為月份換行日期算法是先讓日期1變成在星期一再來除7'
End If
End If
End If


End Sub
End Class

看某數到某數的１到５次方

前言
好久沒自己寫了(都在寫考古題)
Public Class Form1
Dim a, b, c, d As Int64
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = ""
For c = a To b
For d = 1 To 5
TextBox3.Text = TextBox3.Text & c & "的" & d & "次方" & "=" & c ^ d & vbNewLine
Next
TextBox3.Text = TextBox3.Text & vbNewLine
Next

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("先聲明為了您的電腦好請別輸入太大（不然後果自行負責）")
End Sub
End Class

常用屬性的介紹

●常用屬性的介紹 Alignment 設定物件內文字的對齊方向
Appearance 0:物件不為立體物件，1:物件為立體物件(預設)
AutoRedraw False:物件畫面被擾亂時不重新畫出物件(預設)，True:物件畫面被擾亂時會重新畫出物件，做畫面更新的動作
BackColor 物件的背景顏色
BorderColor 物件邊框的顏色
BorderStyle 物件邊框的樣式
Caption 物件的標題
Checked 物件是否被核取，True為被核取，False為未被核取
DataField 物件所連結的資料的RecordSet名稱
DataSource 物件所連結的資料庫檔名
DisablePicture 物件被設為Enabled=False時所顯示的圖片
DragIcon 物件被拖曳時的滑鼠游標設定
DragMode 設定物件是自動由電腦處理拖曳還是由設計者自己寫程式來控制
Enabled False:物件不可被使用者使用，True:物件可被使用者使用
FillColor 物件填充的顏色
FillStyle 物件填充的樣式，如實心、斜線......等等
Font 物件的文字，你可以設定該物件要用何種字體顯示
ForeColor 物件的前景顏色，通常是只文字的顏色
Left 物件左邊的座標
IMEMode IME輸入法的模式，Yes..開啟，No..關閉
Index 物件陣列的編號，屬性為空白不為物件陣列，屬性指定數值時為陣列物件
Height 物件的高度
MouseIcon 載入物件的自定游標
MousePointer 指定物件的滑鼠游標種類(預設:0)
Name 物件的名稱
OLEDropMode 是否可以直接用滑鼠拖曳資訊到物件裡
Picture 物件所顯示的圖片
ScaleHeight 物件的工作範圍高度
ScaleMode 物件的座標尺度種類
ScaleWidth 物件的工作範圍寬度
Style 物件所提供的樣式
Text 物件的文字內容
TabIndex 焦點移動的順序
TabStop False:按Tab鍵不能把焦點移到這裡，True:按Tab鍵能把焦點移到這裡
Tag 物件標籤，隨意讓你存放你自己的資料
ToolTipText 物件的快速說明
Top 物件頂端的座標
Value 物件所儲存的數值
Visible False:物件於執行階段裡不被顯示，True:物件於執行階段裡被顯示(預設)
Width 物件的寬度