这个是我们老师做的,代码是对的,但放到有写机子上无法运行
背单词
Option Explicit
Option Base 1
Dim words() As String, X As String
Dim n As Integer, j As Integer, k As Integer Dim i As Integer
Dim cur As Integer, st As Integer, en As Integer
Private Sub chkRand_Click()
If chkRand.Value = 1 Then
chkLoop.Value = 0
chkLoop.Enabled = False
Else
chkLoop.Enabled = True
End If
End Sub
Private Sub cmd_exit_Click()
End
End Sub
Private Sub cmd_start_Click()
Dim X As String
Label12.Left = Picture1.Left + Picture1.Width
'读入词库文件
If Combo1.Text = Combo1.List(0) Then
Open App.Path & "\grade4.txt" For Input As #1
Else
Open App.Path & "\grade6.txt" For Input As #1
End If
n = 0
Do Until EOF(1)
n = n + 1
ReDim Preserve words(n)
Line Input #1, words(n)
Loop
Close #1
st = 1
Do Until Chr(Asc(words(st))) = LCase(Combo2.Text)
st = st + 1
Loop
en = n
Do Until Chr(Asc(words(en))) = LCase(Combo3.Text)
en = en - 1
Loop
cur = st
Timer1.Enabled = True
Timer2.Enabled = True
cmd_stop.Enabled = True
cmd_stop.Caption = "暂停"
End Sub
Private Sub cmd_stop_Click()
If cmd_stop.Caption = "暂停" Then
cmd_stop.Caption = "继续"
Timer1.Enabled = False
Timer2.Enabled = False
Else
cmd_stop.Caption = "暂停"
Timer1.Enabled = True
Timer2.Enabled = True
End If
End Sub
Private Sub Combo2_click()
If Combo2 > Combo3 Then Combo3 = Combo2 End Sub
Private Sub Combo3_Click()
If Combo2.ListIndex > Combo3.ListIndex Then Combo3.ListIndex = Combo2.ListIndex
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 25
Combo2.AddItem Chr(65 + i)
Combo3.AddItem Chr(65 + i)
Next
Combo1.ListIndex = 0
Combo2.ListIndex = 0
Combo3.ListIndex = 25
End Sub
Private Sub HScroll1_Change()
Timer2.Interval = HScroll1.Value
End Sub
Private Sub HScroll4_Change()
Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFF
End Sub
Private Sub HScroll4_scroll()
Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFF
End Sub
Private Sub HScroll2_Change()
Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFF
End Sub
Private Sub HScroll2_scroll()
Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFF
End Sub
Private Sub HScroll3_Change()
Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Label12.ForeColor = Not
CLng(Picture1.BackColor) And &HFFFFFF
End Sub
Private Sub HScroll3_scroll()
Picture1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Label12.ForeColor = Not CLng(Picture1.BackColor) And &HFFFFFF
End Sub
Private Sub Option1_Click()
If Option2.Value = True Then
Label12.FontSize = 24
Else
Label12.FontSize = 16
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Label12.FontSize = 24
Else
Label12.FontSize = 16
End If
End Sub
Private Sub Timer2_Timer()
If cmd_stop.Caption = "继续" Then
Exit Sub
End If
Label12.Left = Label12.Left - 100
If cur <= en Then
If Label12.Left + Label12.Width + 500 > Picture1.Left Then
Label12.Caption = words(cur)
Else
If chkRand.Value = 1 Then
cur = Rnd * (en - st) + st
Else
cur = cur + 1
End If
Label12.Left = Picture1.Left +
Picture1.Width + 1000
End If
Else
If chkLoop.Value = 1 Then
cur = st
Else
Timer1.Enabled = False
Timer2.Enabled = False
cmd_stop.Enabled = False cmd_stop.Caption = "暂停" End If
End If
End Sub