16(标签,计算机等级考试)

《16(标签,计算机等级考试)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、(1)【解题思路】标签的Name、Caption属性设置标签的名称和标题，AutoSize属性设置控件是否能够自动调整大小以显示所有的内容，BorderStyle属性使标签带有边框，FontSize属性设置字体的大小。【操作步骤】步骤1：建立界面，在窗体中添加一个标签，然后在属性窗口中设置标签和窗体的属性，程序中用到的控件及属性见表3.56。表3.56步骤2：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第17套第一大题的第二小题来进行同类知识点练习。(2)【解题思路】TabIndex属性是当前窗体上控件的Tab键切换顺序：运行

2、时按Tab键会按照TabIndex值的从小到大的顺序进行切换。将滚动条的TabIndex属性设置为0，可以实现程序开始运行时，焦点在滚动条上。滚动条的最大值由Max属性设置，最小值由Min属性设置，滚动条的当前值由Value属性设置；当滚动框的位置改变时，触发Change事件。通过Text1.Text＝HScroll1.Value语句可以实现在文本框中显示滚动框的当前位置。【操作步骤】步骤1：新建一个窗体，在窗体中添加一个滚动条和一个文本框。步骤2：然后按照题目要求设置控件属性，程序中用到的控件及属性见表3.57。表3.57步骤3：编写程序代码

3、。参考答案PrivateSubForm_Activate()HScroll1.SetFocusEndSubPrivateSubHScroll1_Change()Text1.Text=HScroll1.ValueEndSub步骤4：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第41套第一大题的第一小题来进行同类知识点练习。(1)【解题思路】通过形状控件的Move方法，实现形状的移动，通过Shape1.Top值和Line1.Y1值比较来判定圆形是否越过上界，通过Shape1.Top＋Shape1.Height值和Line2.Y1值

4、比较来判定圆形是否越过下界。【操作步骤】步骤1：打开本题工程文件，设置形状控件的Top属性为360，FillStyle属性为0，FillColor属性为&H000000FF&，Shape属性为3。步骤2：分析并编写程序代码。程序提供代码DimsAsInteger,hAsLongPrivateSubForm_Load()'Timer1.Enabled=?s=-40EndSubPrivateSubTimer1_Timer()Shape1.MoveShape1.Left,Shape1.Top+s'IfShape1.Top<=?Then　　s=-sEn

5、dIf'IfShape1.Top+?>=Line2.Y1Then　　s=-sEndIfEndSub程序结束参考答案第1个？处填入：True第2个？处填入：Line1.Y1第3个？处填入：Shape1.Height步骤3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第12套第二大题的第二小题来进行同类知识点的练习。(2)【解题思路】通过文件操作，打开文件，把数值读入数组。通过循环语句遍历数组a(k)，If语句和mod函数判断是奇数还是偶数，先求出数组中元素的所有奇数和和所有偶数和，计算出平均数，通过Int函数实现对于结果的四舍五

6、入取整，所有奇数和和所有偶数和的加和，求出所有数的和，用同样的方法得出平均数。SelectCase语句判断组合框中选中的项目，实现函数的功能，在文本框中显示题目要求的平均值，并按题目要求存盘。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Dima(100)AsIntegerPrivateSubCommand1_Click()DimkAsIntegerOpenApp.Path&"in4.dat"ForInputAs#1Fork=1To100　　　　Input#1,a(k)NextkClose#1EndSubPri

7、vateSubCommand2_Click()'考生编写EndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"out4.dat"ForOutputAs#1Print#1,Combo1.Text;Text1.TextClose#1EndSub程序结束参考答案PrivateSubCommand2_Click()'考生编写DimkAsLongDimmAsLongDimqAsLongDimpAsLongDimrAsLongDimnAsLongFork=1To100Ifa(k)Mod2=0T

8、henm=m+a(k)q=q+1Elsen=n+a(k)p=p+1EndIfNextkr=Int((m+n)/(p+q)+0.5)m=Int(m/q+