在Form1的窗体上画两个命令按钮,其名称为C1(命令按钮1)和C2(命令按钮2)

基础题（1）【考点分析】本题考点有：命令按钮的Name、Caption、Visible属性。

【解题思路】单击命令按钮1时，将命令按钮1的Visible 属性值设为False ，命令按钮2的属性值设为True；单击命令按钮2时，将命令按钮1的Visible 属性值设为True，命令按钮2的属性值设为False；。

【操作步骤】

步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.165。

表3.165

控件命令按钮1 命令按钮2

属性Name Caption Name Caption Visible

设置值C1 命令按钮1 C2 命令按钮2 False

参考答案

Private Sub C1_Click()

C2.Visible = True

C1.Visible = False

End Sub

Private Sub C2_Click()

C1.Visible = True

C2.Visible = False

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题（2）【考点分析】本题考点有：水平滚动条的Name、SmallChange、LargeChange、Min和Max属性，列表框的Name属性、AddItem方法、Str( )函数以及窗体的Click事件。

【解题思路】通过属性窗口Name、Min和Max属性设置水平滚动条的名称、最小值和最大值。SmallChange 是单击滚动条两端的箭头时，Value属性增加或减少的增量值。LargeChange是单击滚动条中滚动看前面或后面的部位时，Value属性增加或减少的增量值。

【操作步骤】

步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.166。

步骤2：编写程序代码。

简单题（1）【考点分析】数组的定义和Array( )初始化函数，UBound( )函数，Str( )函数，Function( )函数以及For循环。

【解题思路】单击命令按钮，通过For循环和UBound( )函数求出数组的下标，并将其赋给数组arr2( )。通过Function( )函数求出数组arr中每个元素与其下标相除所得的和。

【操作步骤】

步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Option Base 1

Function Fun(a() As Single) As Single

'需要考生编写的内容

End Function

Private Sub Command1_Click()

Dim arr

Dim arr2(40) As Single

arr = Array(12.5, 65.4, 56, 73, 46.23, 58.25, 83.49, 96, 27.3, 36.78, _

29.26, 89.4, 34.7, 45.4, 56.9, 67.4, 78, 98, 87.5, 76.8, _

34.6, 55.8, 64.7, 43.7, 99.4, 84.7, 66.2, 23.9, 55.5, 44.1, _

33.2, 43.5, 41.2, 28.3, 78.6, 98.3, 56.1, 73.6, 49.3, 48.3)

For i = 1 To UBound(arr)

arr2(i) = arr(i)

Next i

r = Fun(arr2())

Text1.Text = Str(r)

SaveData

End Sub

Sub SaveData()

Open App.Path & "\out3.txt" For Output As #1

Print #1, Text1.Text

Close 1

End Sub

程序结束

参考答案

Sum = 0

For i = 1 To UBound(a)

Sum = Sum + a(i) / i

Next i

Fun = Sum

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题（2）【考点分析】本题考点有：命令按钮的Caption属性，计时器的Interval、Enabled属性，标签的Caption 、AutoSize、FontSize、FontBold和Left 属性，窗体的Width属性以及For循环语句。

【解题思路】在Form_Load中通过标签的AutoSize、FontSize、FontBold属性使标签中用字体大小为16的粗体"热烈欢迎"。单击命令按钮1时，计时器开始计时，标签向右移动；当单击命令按钮2时，计时器停止计时，标签停止移动。当标签的Left属性值小于窗体的宽度Width值时，标签移出窗体右边界，从左边重新开始运动。命令按钮标题的改变通过改变Caption属性值来实现。

【操作步骤】

步骤1：打开本题工程文件

步骤2：分析并编写程序代码。

程序提供代码

Private Sub Form_Load()

Command1.Caption = "开始"

Command2.Caption = "停止"

Timer1.Interval = 50

Timer1.Enabled = False

Label1.Caption = "热烈欢迎"

Label1.AutoSize = True

Label1.FontSize = 16

Label1.FontBold = True

End Sub

Private Sub Command1_Click()

Command1.Caption = "继续"

Timer1.Enabled = True

Command1.Enabled = False

Command2.Enabled = True