【操作步骤】
步骤1:新建一个窗体,按照题目要求添加一个垂直滚动条控件,并按表在属性窗口中设置相应属性。
控件 垂直滚动条 窗体
属性 Max Min Value Caption
设置值 30 10 20 滚动条属性设置
步骤2:调试并运行程序,关闭程序后按题目要求存盘。
(2)【解题思路】Label标签字体由Font属性设置,内容由Caption属性设置,自动调整属性由AutoSize设置,凹陷效果由BorderStyle设置,计时器控件不可用由Enabled属性设置,时间间隔属性由Interval属性设置。
【操作步骤】
步骤1:新建一个窗体,按照题目要求添加Label控件和Timer控件,并按表在属性窗口中设置相应属性。
控件 Label控件 Timer控件
属性 Caption Font AutoSize BorderStyle Enabled Interval
设置值 等级考试 宋体,10号 true 1 false 1000
步骤2:打开代码编辑窗口,在指定位置编写如下代码。
参考答案
Private Sub Form_Click()
Timer1.Enabled = False '设置计时器控件的Enabled属性使其不可用
End Sub
Private Sub Label1_Click()
Timer1.Enabled = True '单击Label1时使控件可用
End Sub
Private Sub Timer1_Timer()
Label1.Font.Size = Label1.Font.Size + 1 '字号增大1个
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
二、简单应用
(1)【解题思路】此题的排序方法是交换排序法,交换排序法的思想是两两比较待排序记录的关键字,发现两个记录的次序相反时即进行交换,直到没有反序的记录为止。
【操作步骤】
步骤1:打开本题项目工程。
步骤2:打开代码编辑窗口,去掉程序中的注释符"'",将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Command1_Click()
For i = 0 To 6
k = i
For j = i + 1 To 7
If Val(Text1(j).Text) > Val(Text1(k).Text) Then
k = j
End If
Next j
j = Text1(i).Text
Text1(i).Text = Text1(k).Text
Text1(k).Text = j
Next i
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
(2)【解题思路】组合框控件的增加项是AddItem过程,删除项目是RemoveItem过程。当前选择项属性是ListIndex属性。"添加项目"中命令中处理AddItem过程,"删除项目"中处理RemoveItem过程,"添加爱好","清除爱好"处理文本框中Text属性。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符"'",将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Command1_Click()
For k = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(k) Then
Exit For
End If
Next k
If k >= Combo1.ListCount Then
Combo1.AddItem (Combo1.Text)
Else
MsgBox ("此项目已存在!")
End If
End Sub
Private Sub Command2_Click()
If Combo1.ListIndex >= 0 Then
Combo1.RemoveItem (Combo1.ListIndex)
End If
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text & " " & Combo1.Text
End Sub
Private Sub Command4_Click()
Text1.Text = ""
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
三、综合应用
【解题思路】从文件中读取一串文本到文本框中,将文本框中的内容划分到数组中,遍历数组中的内容,如果字符串长度等于5,长度为5的单词个数增加1.
【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符"'",将问号改为正确的内容,并在指定位置编写代码。
参考答案(阴影部分是需考生填入的内容)
Private Function GetWords(s As String, words() As String) As Integer
Dim m%, ch$
ch = ""
For k = 1 To Len(s)
c = Mid(s, k, 1)
If c <> " " Then
ch = ch + c
Else
m = m + 1
words(m) = ch
ch = ""
End If
Next k
GetWords = m
End Function
Private Sub Command2_Click()
Dim ch(800) As String, n As Integer
If Len(s) = 0 Then
MsgBox "请先使用"读数据"功能!"
Else
m = GetWords(Text1.Text, ch)
n = 0
Dim value
For k = 1 To m
If Len(ch(k)) = 5 Then
n = n + 1
End If
Next k
Label1.Caption = n
End If
End Sub '统计Text1中所有5字母单词的个数,并显示在Label1标签中
步骤3:调试并运行程序,关闭程序后按题目要求存盘。