VB快帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/12 10:57:22
1．创建一个工程，窗口界面如图 2-1-8 所示。当程序运行时，单击“窗体背景色修改”按钮，可使窗口背景色改变为红色，再单击时变为绿色，再单击时变为蓝色，然后又转为红色，循环改变，运行界面如图 2-1-9所示。单击“退出”按钮时，可退出应用程序。
提示：程序中需用到判断语句（if语句），背景颜色（backcolor）可使用VB常量vbRed、vbGreen、vbBlue或RGB函数，请通过VB联机帮助获得相应的信息。

图2-1-8 工程设计界面

图2-1-9 工程运行中的界面

2．编写一个对对碰记忆游戏程序界面，界面如图1-2-8：

图1-2-8 对对碰游戏程序界面1
程序开始运行时，允许玩者选择纸牌背面图案，单击选中图案后，再单击“确定”按钮，出现单一背面界面，如图1-2-9左图所示。

图1-2-9 对对碰游戏程序界面2
单击“开始”按钮后，界面改为图1-2-9右图，显示3秒后自动恢复到左图界面。
提示：
（1）设计本程序需要用到大量图片，请先准备好存放在同一文件夹内，并按规律取名，如card01.bmp、card02.bmp、…、card08.bmp，Picture01.bmp、 Picture02.bmp、…、Picture20.bmp。
（2）显示图片可以使用命令按钮的Picture属性，这里使用命令按钮组。
（3）为了在运行时加载图片，可使用LoadPicture(PictureFileName)函数。如：
Command1.Picture=LoadPicture(“e:\bmp\card02.bmp”)
（4）为了保存选定的纸牌背面图案，需要设置一个窗体级变量，如：
Dim card As String
编写“确定”按钮单击事件：
Private Sub Command1_Click(Index As Integer)
card = ".\card0" & Trim(Str(Index + 1)) & ".bm

'当程序运行时，单击"窗体背景色修改"按钮，可使窗口背景色改变为红色，再单击时变为绿色，再单击时变为蓝色，然后又转为红色，循环改变,单击“退出”按钮时，可退出应用程序。

'方法1:用SELECT CASE

Option Explicit
Dim i As Integer

Private Sub Command1_Click()
i = i + 1
Select Case i
Case 1
Me.BackColor = RGB(255, 0, 0)
Case 2
Me.BackColor = RGB(0, 0, 255)
Case 3
Me.BackColor = RGB(0, 255, 0)
i = 0
End Select
End Sub

Private Sub Command2_Click()
Unload Me
End
End Sub

Private Sub Form_Load()
Me.Caption = "窗体背景色修改"
Command1.Caption = "窗体背景色修改"
Command2.Caption = "退出"

End Sub

'方法2: IF...THEN
Option Explicit
Dim i As Integer
Private Sub Command1_Click()
i = i + 1
If i = 1 Then
Me.BackColor = vbRed ' RGB(255, 0, 0)
ElseIf i = 2 Then