基础题（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 |
步骤2：编写程序代码。
参考答案
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和printformMax属性设置水平滚动条的名称、最小值和最大值。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 & "\" 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
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Label1.Left < Form1.Width Then
Label1.Left = Label1.Left + 20
Else
Label1.Left = 0
End If
End Sub
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
综合题【考点分析】本题考点有：文件操作、窗体变量的定义、Len( )函数，Ucase( )函数，Mid( )函数，"&"连接符，If判断语句和For循环语句。
【解题思路】单击"统计"按钮时，首先用Len( )函数测出Text1中所有字符串的长度。然后在For循环中，用Ucase( )函数判别每次取得的字母是否为"A"、"B"、"C"和"D"，并分别统计这四个字母出现的次数。单个字符的获取是通过Mid( )函数实现的。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：分析并编写程序代码。
程序提供代码
Dim an As Integer
Dim bn As Integer
Dim cn As Integer
Dim dn As Integer
Private Sub Command1_Click()
Open App.Path & "\" For Input As #1
Do While Not EOF(1)
Input #1, a$
s = s & a$
Loop
Close 1
Text1.Text = s
End Sub
Private Sub Command2_Click()
'需要考生编写的内容
End Sub
Private Sub Command3_Click()
Open App.Path & "\" For Output As #1
Print #1, an, bn, cn, dn
Close 1
End Sub
程序结束
参考答案
n = Len(Text1)
For k = 1 To n
ch = Mid(Text1, k, 1)
If UCase(ch) = "A" Then
an = an + 1
End If
If UCase(ch) = "B" Then
bn = bn + 1
End If
If UCase(ch) = "C" Then
cn = cn + 1
End If
If UCase(ch) = "D" Then
dn = dn + 1
End If
Next k
Text1 = an & " " & bn & " " & cn & " " & dn
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
参考答案
Private Sub Form_Click()
L1.AddItem Str$(Form1.HS1)
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论