For i = 1 To 180
If i < 61 And i > 0 Then '在label1中产生字符
If i Mod 6 = 0 Then
sSource(i) = " "
Label1.Caption = Label1.Caption & " "
'每隔五个字母就自动产生一个空格
Else
sSource(i) = Chr(Int(Rnd() * 74 + 48))
Label1.Caption = Label1.Caption & sSource(i)
'随机产生48到122之间的字符
'并将其加入sSource字符数组
End If
End If
If i < 121 And i > 60 Then '在label2产生字符
If i Mod 6 = 0 Then
sSource(i) = " "
Label2.Caption = Label2.Caption & " "
'每隔五个字母就自动产生一个空格
Else
sSource(i) = Chr(Int(Rnd() * 74 + 48))
Label2.Caption = Label2.Caption & sSource(i)
'随机产生48到122之间的字符
'并将其加入sSource字符数组。
End If
End If
If i < 181 And i > 120 Then '在label3中产生字符
If i Mod 6 = 0 Then
sSource(i) = " "
Label3.Caption = Label3.Caption & " "
'每隔五个字母就自动产生一个空格
Else
sSource(i) = Chr(Int(Rnd() * 74 + 48))
Label3.Caption = Label3.Caption & sSource(i)
'随机产生48到122之间的字符
'并将其加入sSource字符数组。
End If
End If
Next
Text7.Text = "中等难度"
Command1.Enabled = True
End Sub
FORM2窗体 代码
Private Sub command1_Click()
Key = "Select * from 表1 Order By 速度 desc" '将数据库中的数据以速度为依据按降序排列
OrderKey = Key
Data1.RecordSource = OrderKey
Data1.Refresh
End Sub
Private Sub Command2_Click()
If MsgBox("您真的要删除信息吗？", vbYesNo) = vbYes Then '从第一条开始删除数据库中数据，如果
'数据全部清空了在提示无信息，如果没有
If Data1.Recordset.EOF Then '则可以继续删除
MsgBox "无信息"
Unload Me
Else
Data1.Recordset.MoveFirst
Data1.Recordset.Delete
Data1.Refresh
End If
End If
End Sub 1191