nOk=0 nSorry =0 初始化时间设置选项的下拉列表框 nbSet Time AddItem"30".Index mbSet'Time AddItem "20"Index =2 mbSetTime AddItem "15" Index =3 cmbSet'Time AddItem "10"Index= 4 cmbSet Time AddItem "5". Index =5 ESTabl.Tab=0使第一个选项卡 StatusBar l Panels(1).wdth=2000‘指定第一个状态栏的宽度 txt GetText MaxLength= Val(txt Word.Te 初始化随即抽取内容,读者可自行拟定,限于篇幅,这里只举几例 txtTarget(1)="茶叶做为世界性的饮料,…,又兼解酒之功能也。”” txt Target((2)="我国唐以来文风大盛,…,不使与异味的的物品相混杂 txt Target(3)="酒量与饭量一样不能定义,…死即生06-0.7%。 taRget(4)="钓鱼,是一项高雅的文体活动,…,精力充沛。” txt Target(5)="事实上,所谓增进食欲的颜色,…,每种色彩 End sub 测试内容的选定 随机文本的抽取:为了简化程序,我们将要选取的内容放到字符串数组中,然 后取得系统的时间(秒),将其作为种子,经过取模,来获得测试内容字符串 其代码如下 Private Sub Optionl Click(Index As Integer) Dim nSelText As Integer n Seltext=( Second(Now o)Mod5)+1‘根据系统时间,选取测试内容 If index =o then Command1. Enabled=True‘使“指定文件”按钮有效 Command1. Enabled= False‘使“指定文件”按钮无效 其中, txtTarget数组已经在 FormI load中定义。 lblgetText. Caption= txtTarget( n Seltext)‘选取测试内容 End if End sub 进行功能说明 Private Sub Option1 GotFocus(Index As Integer) IbITip. Caption="通过选择,来确定进行测试的内容。其中:指定文件是 指可以通过文件对话框来选择需要的问件;"& 而随机抽取是指随机选择固定的段落进行测试。 End Sub 指定文本的获取:这里,我们使用了文件对话框,来取得磁盘上的指定文件。 然后将文件的内容读出来,放到指定的标签中,作为测试内容。其代码如下 Private Sub Command1 Click o Dim txtGet, cEmp As String- 6 - nOk = 0 nSorry = 0 ‘初始化时间设置选项的下拉列表框 cmbSetTime.AddItem "30", Index = 1 cmbSetTime.AddItem "20", Index = 2 cmbSetTime.AddItem "15", Index = 3 cmbSetTime.AddItem "10", Index = 4 cmbSetTime.AddItem "5", Index = 5 SSTab1.Tab = 0 '使第一个选项卡 StatusBar1.Panels(1).Width = 2000‘指定第一个状态栏的宽度 txtGetText.MaxLength = Val(txtWord.Text) ‘初始化随即抽取内容，读者可自行拟定，限于篇幅，这里只举几例 txtTarget(1) = "茶叶做为世界性的饮料，…，又兼解酒之功能也。”" txtTarget(2) = "我国唐以来文风大盛，…，不使与异味的的物品相混杂。" txtTarget(3) = "酒量与饭量一样不能定义，…死即生 0.6—0.7%。" txtTarget(4) = "钓鱼，是一项高雅的文体活动，…，精力充沛。" txtTarget(5) = "事实上，所谓增进食欲的颜色，…,每种色彩。”" End Sub ⚫ 测试内容的选定： ◼ 随机文本的抽取：为了简化程序，我们将要选取的内容放到字符串数组中，然 后取得系统的时间（秒），将其作为种子，经过取模，来获得测试内容字符串。 其代码如下： Private Sub Option1_Click(Index As Integer) Dim nSelText As Integer nSelText = (Second(Now()) Mod 5) + 1‘根据系统时间，选取测试内容 If Index = 0 Then Command1.Enabled = True ‘使“指定文件”按钮有效 Else Command1.Enabled = False‘使“指定文件”按钮无效 ‘其中，txtTarget 数组已经在 Form1_Load 中定义。 lblGetText.Caption = txtTarget(nSelText)‘选取测试内容 End If End Sub ‘进行功能说明 Private Sub Option1_GotFocus(Index As Integer) lblTip.Caption = "通过选择，来确定进行测试的内容。其中：指定文件是 指可以通过文件对话框来选择需要的问件；" & _ "而随机抽取是指随机选择固定的段落进行测试。" End Sub ◼ 指定文本的获取：这里，我们使用了文件对话框，来取得磁盘上的指定文件。 然后将文件的内容读出来，放到指定的标签中，作为测试内容。其代码如下： Private Sub Command1_Click() Dim txtGet, cTemp As String