上一秒我們還不認識，或許下一秒我們就一起談心事=]

 
程式碼:
Dim A As Integer, F As Integer, L As Integer
Dim i As Integer, j As Integer, k As String
Private Sub Command1_Click()
F = 1: L = 99
Randomize: A = Int(Rnd * 99 + 1)
For i = 10 To 1 Step -1
       k = InputBox("終極密碼 " & F & "~" & L & "(你還有" & i & "次的機會)", "【終極密碼】")
If StrPtr(k) = 0 Then Exit Sub
       j = Int(Val(k))
If j = A Then
       MsgBox ("恭喜你!! 答對了=]"), , "【終極密碼】": Exit Sub
ElseIf j < A And j >= F Then
       F = j
ElseIf j > A And j <= L Then
       L = j
End If
Next
    MsgBox ("很可惜都沒猜中，終極密碼是" & A), , "【終極密碼】"
End Sub

↑輸入你所要申請的帳號跟密碼
〝確定〞

程式碼:
Dim a(10), b, i, k As Integer
Private Sub Command1_Click()
Cls

程式碼:
Private Sub Command1_Click()
Dim num(1 To 5) As Integer
num(1) = Text1.Text
num(2) = Text2.Text
num(3) = Text3.Text
num(4) = Text4.Text
num(5) = Text5.Text
For j = 4 To 1 Step -1
For i = 1 To j
If num(i) > num(i + 1) Then
temp = num(i + 1)
num(i + 1) = num(i)
num(i) = temp
End If
Next i
Next j
Text6.Text = num(1)
Text7.Text = num(2)
Text8.Text = num(3)
Text9.Text = num(4)
Text10.Text = num(5)
End Sub

程式碼:
Private Sub Command1_Click()
Dim x As Single
x = Val(InputBox("絕對值"))
If x >= 0 Then
MsgBox "|" & x & "|" & "=" & x
ElseIf x < 0 Then
MsgBox "|" & x & "|" & "=" & -x
End If
End Sub

程式碼:
Private Sub Command1_Click()
Dim n As Longn = Val(InputBox("輸入一整數"))msg = n & "個費式數列 = "Select Case n
Case 1:
msg = msg & "1"
Case 2:
msg = msg & "1,1"
Case Else
msg = msg & "1,1,"
f1 = 1
f2 = 1
For i = 3 To n
f3 = f1 + f2
msg = msg & f3 & ","
f1 = f2
f2 = f3
Next i
msg = msg & Left(msg, Len(msg) - 1)
End Select

程式設計:
Private Sub Command1_Click()
Cls
n = InputBox("請輸入數字")
For i = 1 To n Step 2
Print Space(n - i);
  For j = 1 To i
  Print "*";
  Next j
Print
Next i

程式碼:
Private Sub Command1_Click()
n = Val(InputBox("輸入大小"))
n = n - 1
For i = -n To n
For j = -n To n
If n - Abs(j) <= Abs(i) Then
Print "*";
Else
Print "  ";
End If
Next j
Print
Next i
End Sub

程式碼:
Dim a, b As Long 
______________________________________________________________________________________________________________________            
Private Sub Command1_Click()
Label1.Caption = Val(Label1.Caption) * 10 + 1
End Sub
________________________________________________
Private Sub Command10_Click()
Label1.Caption = ""
a = 0
End Sub
________________________________________________
Private Sub Command11_Click()
If b = "+" Then Label1.Caption = a + Val(Label1.Caption)
If b = "-" Then Label1.Caption = a - Val(Label1.Caption)
If b = "*" Then Label1.Caption = a * Val(Label1.Caption)
If b = "/" Then Label1.Caption = a / Val(Label1.Caption)
End Sub
_________________________________________________
Private Sub Command12_Click()
Label1.Caption = Val(Label1.Caption) * 10 + 0
End Sub
_________________________________________________
Private Sub Command13_Click()
a = Val(Label1.Caption)
b = "-"
Label1.Caption = "0"
End Sub
_________________________________________________
Private Sub Command14_Click()
a = Val(Label1.Caption)
b = "*"
Label1.Caption = "0"
End Sub
_________________________________________________
Private Sub Command15_Click()
a = Val(Label1.Caption)
b = "/"
Label1.Caption = "0"
End Sub
_________________________________________________
Private Sub Command16_Click()
a = Val(Label1.Caption)
b = "+"
Label1.Caption = "0"
End Sub
_________________________________________________
Private Sub Command2_Click()
Label1.Caption = Val(Label1.Caption) * 10 + 2
End Sub
_________________________________________________
Private Sub Command3_Click()
Label1.Caption = Val(Label1.Caption) * 10 + 3
End Sub
_________________________________________________
Private Sub Command4_Click()
Label1.Caption = Val(Label1.Caption) * 10 + 4
End Sub
_________________________________________________
Private Sub Command5_Click()
Label1.Caption = Val(Label1.Caption) * 10 + 5
End Sub
_________________________________________________
Private Sub Command6_Click()
Label1.Caption = Val(Label1.Caption) * 10 + 6
End Sub
_________________________________________________
Private Sub Command7_Click()
Label1.Caption = Val(Label1.Caption) * 10 + 7
End Sub
_________________________________________________
Private Sub Command8_Click()
Label1.Caption = Val(Label1.Caption) * 10 + 8
End Sub
_________________________________________________
Private Sub Command9_Click()
Label1.Caption = Val(Label1.Caption) * 10 + 9
End Sub
_________________________________________________
Private Sub Label1_Click()

程式碼:
Private Sub Command1_Click()
a = Val(InputBox("輸入一個正整數"))
If a >= 2 Then