计算机考试标签设置,16(标签,计算机等级考试).doc

(1) 【解题思路】标签的Name、Caption属性设置标签的名称和标题，AutoSize属性设置控件是否能够自动调整大小以显示所有的内容，BorderStyle属性使标签带有边框，FontSize属性设置字体的大小。

【操作步骤】

步骤1：建立界面，在窗体中添加一个标签，然后在属性窗口中设置标签和窗体的属性，程序中用到的控件及属性见表3.56。

表3.56

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

【举一反三】可以通过第17套第一大题的第二小题来进行同类知识点练习。

(2) 【解题思路】TabIndex属性是当前窗体上控件的Tab键切换顺序：运行时按Tab键会按照TabIndex值的从小到大的顺序进行切换。将滚动条的TabIndex属性设置为0，可以实现程序开始运行时，焦点在滚动条上。滚动条的最大值由Max属性设置，最小值由Min属性设置，滚动条的当前值由Value属性设置；当滚动框的位置改变时，触发Change事件。通过Text1.Text ＝ HScroll1.Value语句可以实现在文本框中显示滚动框的当前位置。

【操作步骤】

步骤1：新建一个窗体，在窗体中添加一个滚动条和一个文本框。

步骤2：然后按照题目要求设置控件属性，程序中用到的控件及属性见表3.57。

表3.57

步骤3：编写程序代码。

参考答案

Private Sub Form_Activate()

HScroll1.SetFocus

End Sub

Private Sub HScroll1_Change()

Text1.Text = HScroll1.Value

End Sub

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

【举一反三】可以通过第41套第一大题的第一小题来进行同类知识点练习。

(1) 【解题思路】通过形状控件的Move方法，实现形状的移动，通过Shape1.Top值和Line1.Y1值比较来判定圆形是否越过上界，通过Shape1.Top＋ Shape1.Height值和Line2.Y1值比较来判定圆形是否越过下界。

【操作步骤】

步骤1：打开本题工程文件，设置形状控件的Top属性为360，FillStyle属性为0，FillColor属性为&H000000FF&，Shape属性为3。

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

程序提供代码

Dim s As Integer, h As Long

Private Sub Form_Load()

' Timer1.Enabled = ?

s = - 40

End Sub

Private Sub Timer1_Timer()

Shape1.Move Shape1.Left, Shape1.Top + s

' If Shape1.Top <= ? Then

s = - s

End If

' If Shape1.Top + ? >= Line2.Y1 Then

s = - s

End If

End Sub

程序结束

参考答案

第1个？处填入：True

第2个？处填入：Line1.Y1

第3个？处填入：Shape1.Height

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

【举一反三】可以通过第12套第二大题的第二小题来进行同类知识点的练习。

(2) 【解题思路】通过文件操作，打开文件，把数值读入数组。通过循环语句遍历数组a(k)，If语句和mod函数判断是奇数还是偶数，先求出数组中元素的所有奇数和和所有偶数和，计算出平均数，通过Int函数实现对于结果的四舍五入取整，所有奇数和和所有偶数和的加和，求出所有数的和，用同样的方法得出平均数。Select Case语句判断组合框中选中的项目，实现函数的功能，在文本框中显示题目要求的平均值，并按题目要求存盘。

【操作步骤】

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

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

程序提供代码

Dim a(100) As Integer

Private Sub Command1_Click()

Dim k As Integer

Open App.Path & "\in4.dat" For Input As #1

For k = 1 To 100

Input #1, a(k)

Next k

Close #1

End Sub

Private Sub Command2_Click()

'考生编写

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open App.Path & "\out4.dat" For Output As #1

Print