vb机试题16.docVIP

vb机试题16 (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：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表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 #1, Combo1.Text;