回复:(jaychang)用VBA直接做吧
我做出来了,对不起了可能是我说错了.代码如下:
Private Sub CommandButton1_Click()
Dim sec As Integer
Alignment = 0
sec = 0
If CheckBox1.Value = True And CheckBox2.Value = True Or CheckBox1.Value = True And CheckBox3.Value = True Then
MsgBox "你选了两个以上的选项,请重新选择", 0, ""
End If
If CheckBox1.Value = True Then
sec = sce + 1
End If
If CheckBox6.Value = True Then
sec = sec + 1
End If
TextBox1.Text = sec * 4
End Sub
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
[此贴子已经被作者于2007-5-10 14:32:40编辑过]