关于我们 共44页[ 1 >2< 3 4 5 6 7 »... 最后一页]

分支结构程序的实现

计算器(prj4-4)

程序说明：

1、在程序中数字0-9使用按钮控件组，这样CmdDigits就能享用相同的事件
LblDisp.Caption = LblDisp.Caption + CmdDigits(Index).Caption
使处理的过程大大的简化，对于0-9十个按钮不必分别写十段代码。

2、CmdEqual_Click()过程中的代码段用Select Case语句实行多分支结构，来选择所要进行的运算。

代码如下：

Option Explicit
Dim op1 As Integer, op2 As Integer
Dim opr As String, x As Integer

Private Sub CmdClear_Click()
LblDisp.Caption = ""
End Sub

Private Sub CmdDigits_Click(Index As Integer)
LblDisp.Caption = LblDisp.Caption + CmdDigits(Index).Caption
End Sub

Private Sub CmdDiv_Click()
op1 = Val(LblDisp.Caption)
opr = "/"
LblDisp.Caption = ""
End Sub

Private Sub CmdEqual_Click()
op2 = Val(LblDisp.Caption)
Select Case opr
Case "+"
LblDisp.Caption = Str(op1 + op2)
Case "-"
LblDisp.Caption = Str(op1 - op2)
Case "*"
LblDisp.Caption = Str(op1 * op2)
Case Else
If op2 <> 0 Then
LblDisp.Caption = Str(op1 / op2)
Else
LblDisp.Caption = "ERROR"
End If
End Select
End Sub

Private Sub CmdMinus_Click()
op1 = Val(LblDisp.Caption)
opr = "-"
LblDisp.Caption = ""

End Sub

Private Sub CmdPlus_Click()
op1 = Val(LblDisp.Caption)
opr = "+"
LblDisp.Caption = ""
End Sub

Private Sub CmdSqr_Click()
op1 = Val(LblDisp.Caption)
LblDisp.Caption = Str(op1 * op1)
End Sub

Private Sub CmdTimes_Click()
op1 = Val(LblDisp.Caption)
opr = "*"
LblDisp.Caption = ""

End Sub

Private Sub CmdUpd_Click()
op1 = Val(LblDisp.Caption)
If op1 <> 0 Then
LblDisp.Caption = Str(1 / op1)
Else
LblDisp.Caption = "ERROR"
End If
End Sub

Private Sub Form_Load()
LblDisp.Caption = ""
End Sub
　

翻牌(prj4-5)
　

Dim st As Integer '声明st为整型变量

Private Sub Command1_Click()
If st = 1 Then
Image1.Picture = LoadPicture("picb.bmp")
st = 0 '翻牌
Else
Image1.Picture = LoadPicture("pica.bmp")
st = 1 '翻牌
End If
End Sub

Private Sub Form_Load()
st = 0 '设置变量st的初值，用st表示当前的状态，正面为1，反面为0
End S