第62套题解析
题目一：基本操作题
属性。
【解题思路】命令按钮的名称和标题分别由其Name、Caption属性设置；文本框的名称、初
始内容和字体分别由其Name、Text、Font属性设置。在命令按钮的Click事件中，将Text1.Font值
设为"宋体"。
【操作步骤】
步骤2：编写程序代码。
参考答案
Private Sub C1_Click()
Text1.Font = "宋体"
End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（2）【考点分析】本题考点有：图片框的Name、Height、Width、Picture属性和窗体的DblClick
事件。
【解题思路】通过图片框的Name、Height、Width、Picture属性分别设置其名称、高、宽和
添加图片。双击窗体为DblClick事件，图片的消失用LoadPicture()方法来实现。
【操作步骤】
步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.186。
步骤2：编写程序代码。
参考答案
Private Sub Form_DblClick()任达华近况
P1.Picture = LoadPicture()
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
题目二：简单应用题
（1）【考点分析】本题考点有：标签的Name、Caption、BorderStyle属性，计时器的Interval
属性和Timer事件。
【解题思路】标签的BorderStyle演员请就位属性可以取两个值，当取0值时表示标签无边框，这是默认
情况；当取1值时标签有边框。
在计时器的Timer事件，将标签的Caption属性值加1，实现程序运行后每隔一秒钟标签中的
数字加1。
【操作步骤】
步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.187。
步骤2：分析并编写程序代码。台湾景点
程序提供代码
Private Sub Timer1_Timer()
L1 = L1 + 1
End Sub
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（2）【考点分析】本题考点有：列表框的MultiSelect、Selected、ListCount属性，窗体的Print
方法，If判断语句和For循环语句。
0-None：每次只能选择一项，如果选择另一项则会取消对前一项的选择。
1-Simple：可以同时选择多个项，后续的选择不会取消前面所选择的项，而且可以用鼠标和
空格选择。
2-Extended：可以选择指定范围的表项。其方法是：单击所要选择的范围的第一项，然后按
下Shift键，不要松开，并单击所要选择的范围的最后一项。如果按住Ctrl键，并单击列表框中的
项目，则可不连续地选择多个表项。
【操作步骤】
步骤1：打开本题工程文件，通过列表框属性窗口将复选即MultiSelect属性值设为1。
步骤2：分析并编写程序代码。
程序提供代码
Private Sub C1_Click()
张文慈图片 For i = 0 To Me.l1.ListCount - 1
If l1.Selected(i) = True Then
Print l1.List(i)
End If
Next
End Sub
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
题目三：综合应用题
【考点分析】本题考点有：文本框的Name、Text属性，命令按钮的Name、Caption属性，
单选按钮的Name、Caption、Value属性，Function ( )函数，Int( )函数，If判断语句和For循环语句。
【解题思路】Function ( )函数的功能是500到600之间被某个整数整除的数之和，在命令按
钮的Click事件中，通过If语句判断单选按钮是否被选中，在调用对应的函数。
【操作步骤】
步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.188和3.189。
步骤2：分析并编写程序代码。
程序提供代码
Private Sub C1_Click()
'需要考生编写的内容
End Sub
Private Function fun(a As Integer) As Integer
s% = 0
For i% = 500 To 600
If Int(i% / a) = i% / a Then
s% = s% + i%
End If
Next
fun = s%
End Function
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\" For Output As #1
Print #1, Op1.Value, Op2.Value, Text1.Text
Close #1
End Sub
程序结束
参考答案
If Op1.Value Then
Text1.Text = fun(7)
End If
If Op2.Value Then
Text1.Text = fun(3)
End If
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
第63套题解析
题目一：基本操作题
（1）【考点分析】本题考点有：图片框的Name、Height、Width、Picture属性。
【解题思路】通过图片框的Name、Height、Width、Picture属性分别设置其名称、高、宽和
添加图片。
【操作步骤】
步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.190。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
（2）【考点分析】本题考点有：命令按钮的Name、Caption属性，文本框的Name、Multiline、
ScrollBars、Text属性。
【解题思路】ScrollBars属性是用来确定文本框中有没有滚动条，可以取以下四个值：
0：文本框中没有滚动条；
1：只有水平滚动条；
2：只有垂直滚动条；
3：同上级具有水平和垂直滚动条。
要注意的是，只有当Multiline属性被设置为True时，才能用ScrollBars属性在文本框中设置滚
动条。
【操作步骤】
步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.191。
步骤2：编写程序代码。
参考答案
Private Sub C1_Click()
Text2.Text =Text1.Text
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
题目二：简单应用题
（1）【考点分析】本题考点有：命令按钮的Name、Caption属性，文本框的Name、Text属
性，列表框的Name属性，If判断语句和For循环语句。
【解题思路】。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：分析并编写程序代码。
程序提供代码
Private Sub Command1_Click()
Dim S1 As String, S2 As String
Dim I1 As Integer
S1 = Text1.Text
I1 = 1
Do
Do While Mid(S1, I1, 1) <> " " And I1 <= Len(S1)
S2 = S2 & Mid(S1, I1, 1)
I1 = I1 + 1
Loop
List1.AddItem S2
S2 = ""
I1 = I1 + 1
Loop While I1 <= Len(S1)
End Sub
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（2）【考点分析】本题考点有：组合框的ListCount、List、Text属性和AddItem方法，MsgBox
语句，If判断语句和For循环语句。
【解题思路】通过组合项的For循环语句检测，如果在组合框中输入的二级VBText不等于组合框中
现有的表项内容，那么通过组合框的AddItem方法将该项添加到组合框中；如果驶入的Text内容
已经存在在组合框中，那么通过MsgBox 语句弹出对话框“已有此项”。
【操作步骤】
步骤1：打开本题工程文件
步骤2：分析并编写程序代码。
程序提供代码
Private Sub C1_Click()
Dim flag As Boolean
高育良原型For i = 0 To Cb1.ListCount - 1
If Cb1.List(i) = Cb1.Text Then
flag = True
Else
flag = False
End If
Next
If flag Then
MsgBox "已有此项"
Cb1.Text = ""
Else
Cb1.AddItem Cb1.Text
End If
End Sub
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
题目三：综合应用题
【考点分析】本题考点有：文本框的Name、MultiLine、Text属性，命令按钮的Name、Caption
发布评论