VB程序代码求

1自己画

2将窗体的MinButton和MaxButton属性都设置为False

3

在通用声明处写

Dim i as Boolean

该按钮的Click事件中写入如下代码:

If i Then MeWindowState = 0 Else MeWindowState = 2

i = Not i

4将窗体的KeyPreview属性设置为True

在窗体的KeyDown事件中写入以下代码

If Shift And vbAltMask Then

Select Case KeyCode

Case vbKeyL

i = True

MeWindowState = 2

Case vbKeyB

i = False

MeWindowState = 0

End Select

End If

5在窗体Resize事件中写入以下代码

Command1Left = (MeWidth - Command1Width) / 2

Command1Top = (MeHeight - Command1Height) / 2

完整代码如下

Dim i As Boolean

Private Sub Command1_Click()

If i Then MeWindowState = 0 Else MeWindowState = 2

i = Not i

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If Shift And vbAltMask Then

Select Case KeyCode

Case vbKeyL

i = True

MeWindowState = 2

Case vbKeyB

i = False

MeWindowState = 0

End Select

End If

End Sub

Private Sub Form_Resize()

Command1Left = (MeWidth - Command1Width) / 2

Command1Top = (MeHeight - Command1Height) / 2

End Sub

假定窗体上只有一个按钮Command1

各控件属性设置参看上面说明

Private Sub Form_Load()

If MsgBox("1问题", vbYesNo, "标题") = 7 Then

MsgBox ("答错")

Else '否则进入下一题

MsgBox ("答对")

If MsgBox("2问题", vbYesNo, "标题") = 7 Then

MsgBox ("答错")

Else '

MsgBox ("答对")

End If

End If

End Sub

我是新手写着玩