20071115.frm

色环电阻色环的识别,不同的颜色按不同的数字

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H000080FF&
   Caption         =   "Form1"
   ClientHeight    =   2910
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3480
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   42
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H0000FF00&
   LinkTopic       =   "Form1"
   ScaleHeight     =   2910
   ScaleWidth      =   3480
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private a
Sub love()
On Error Resume Next
Randomize
a = Int((11 * Rnd) - 1)
Select Case a
Case 0
Form1.Caption = "黑"
Form1.BackColor = 0
Case 1
Form1.Caption = "棕"
Form1.BackColor = RGB(128, 0, 0)
Case 2
Form1.Caption = "红"
Form1.BackColor = RGB(255, 0, 0)
Case 3
Form1.Caption = "橙"
Form1.BackColor = RGB(255, 128, 0)
Case 4
Form1.Caption = "黄"
Form1.BackColor = RGB(255, 255, 0)
Case 5
Form1.Caption = "绿"
Form1.BackColor = RGB(0, 255, 0)
Case 6
Form1.Caption = "蓝"
Form1.BackColor = RGB(0, 0, 255)
Case 7
Form1.Caption = "紫"
Form1.BackColor = RGB(128, 0, 128)
Case 8
Form1.Caption = "灰"
Form1.BackColor = RGB(128, 128, 128)
Case 9
Form1.Caption = "白"
Form1.BackColor = RGB(255, 255, 255)
Case Else
love
End Select
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
bb = Val(Chr(KeyAscii))
If bb = a Then
love
Else
Cls
Print "NO"
Beep
End If
End Sub
Private Sub Form_Load()
love
End Sub