07年秋浙江省高等学校Word格式.docx
- 文档编号:15777836
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:28
- 大小:160.21KB
07年秋浙江省高等学校Word格式.docx
《07年秋浙江省高等学校Word格式.docx》由会员分享,可在线阅读,更多相关《07年秋浙江省高等学校Word格式.docx(28页珍藏版)》请在冰豆网上搜索。
Label3.Caption=y
EndSub
PrivateSubText1_
(1)(IndexAsInteger,
(2))
SelectCase(3)
Case"
A"
To"
Z"
K=0
Case(4)
EndSelect
【供选择的答案】
(1)A、keyPressB、changeC、keydownD、keyup
(2)A、keyAsciiAsIntegerB、ValueC、Text()D、kAsInteger
(3)A、Chr(KeyAscii)B、Chr(K)C、Asc(K)D、Asc(KeyAscii)
(4)A、aTozB、'
a'
To'
z'
C、"
a"
z"
D、'
...'
试题2(每小题3分,共12分)
【程序说明】
过程f的功能是:
返回Single类型数组n个元素的平均值,查找数组中最大值、最小值并通过相应的实参返回到调用处。
该过程可以被其他模块中的过程所调用。
(5)f(a()AsSingle,nAsInteger,(6))AsSingle
DimiAsInteger
max=a
(1):
min=a
(1)
Fori=2Ton
Ifa(i)>
maxThenmax=a(i)
Ifa(i)<
minThenmin=a(i)
(7)
Nexti
(8)
(5)A、FunctionB、SubC、PrivateSubD、PrivateFunction
(6)A、maxAsSingle,minAsSingleB、maxAsInteger,minAsInteger
C、ByvalmaxAsSingleD、ByvalmaxAsSingle,ByvalminAsSingle
(7)A、f=f+a(i)B、f=f+a(i)/nC、f=a(i)D、f=a(i)/n
(8)A、find=maxB、EndSubC、find=minD、EndFunction
试题3(每小题3分,共12分)
【程序说明】
单击Command1后读入文件中所有数据(多于10个),将其中较大的5个数、较小的5个数以及其他数分别在列表框控件List1、List3、List2中显示。
DimnAsInteger,xAsSingle,iAsInteger,jAsInteger,kAsInteger
Open"
e:
\score.txt"
ForInputAs#1
DoWhile(9)'
统计文件中的数据个数n
Input#1,x:
n=n+1
Loop
(10)AsSingle
Close#1:
ForInputAs#1'
重新打开文件
Fori=1Ton
Input#1,a(i)
Close#1
Fori=1Ton-1
k=i
Forj=i+1Ton
If(11)Thenk=j
Nextj
x=a(i):
a(i)=a(k):
a(k)=t
Ifi<
=5Then
List1.AddItema(i)
ElseIf(12)Then
List3.AddItema(i)
Else
List21.AddItema(i)
EndIf
(9)A、NotEof
(1)B、Eof
(1)C、Eof
(1)=TrueD、Read
(10)A、Dima(n)B、Redima(n)C、Redima()D、statica(n)
(11)A、a(i)>
a(k)B、a(i)<
a(k)C、a(j)>
a(k)D、a(j)<
a(k)
(12)A、i>
=n-5B、i>
n-5C、n>
5D、i<
n
试题4(每小题3分,共12分)
阅读下列程序并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。
DimmAsInteger
DimaAsInteger,iAsInteger,fAsInteger
a=InputBox("
a="
)
f=1:
i=2
Whilei<
=a/2
IfaModi=0Thenf=f+i
i=i+1
m=m+1
Wend
Form1.Cls:
Printf
(13)运行时第1次单击Command1输入7后,窗体上的显示结果为:
A、1B、3C、5D、7
(14)运行时第2次单击Command1输入8后,窗体上的显示结果为:
A、2B、7C、8D、6
(15)运行时第3次单击Command1输入9后,窗体上的显示结果为:
A、3B、5C、7D、4
(16)运行时3次单击Command1、并依次输入7、8、9后,变量m的当前值为:
A、6B、7C、8D、3
试题5(每小题3分,共12分)
PrivateFunctionf(aAsInteger,bAsInteger)AsInteger
DimrAsInteger,tAsInteger
f=a
DoWhilefModb<
>
0
f=f+a
EndFunction
StatickAsInteger
DimmAsInteger,nAsInteger
m=InputBox("
m="
n=InputBox("
n="
k=k+1
Form1.Cls
Printf(m,n)
(17)运行时第1次单击Command1输入4、6后,窗体上的显示结果为:
A、4B、24C、8D、12
(18)运行时第2次单击Command1输入15、10后,窗体上的显示结果为:
A、150B、20C、30D、2
(19)运行时第3次单击Command1输入4、10后,窗体上的显示结果为:
A、10B、20C、40D、80
(20)第4次单击Command1后,该事件过程中变量k的当前值为:
A、4B、3C、0D、2
试题6(每小题3分,共12分)
界面设计以及运行时HScroll1.Value值为90时的显示分别如下图左、图右所示。
PrivateSubForm_Load()
Picture1.Width=Picture1.Height
Picture1.Scale(-10,10)-(10,-10)
Picture1.BorderStyle=0
HScroll1.SmallChange=2:
HScroll1.LargeChange=10
PrivateSubHScroll1_Change()
DimtAsSingle
Picture1.Cls
t=HScroll1.Value*3.14159/180
Label1.Caption=HScroll1.Value
Picture1.Circle(0,0),10,vbRed
Picture1.Line(0,0)-(9*Cos(t),9*Sin(t))
(21)决定运行时图片框控件边框不显示的相关属性为:
A、BackColorB、ForeColorC、FillStyleD、BorderStyle
(22)滚动条Value属性值为180时,以原点为起点的直线指向:
A、12点方向B、9点方向C、6点方向D、3点方向
(23)滚动条Value属性值为270时,以原点为起点的直线指向:
(24)下列说法中正确的是:
A、拖动滚动条滑块的过程中以及结束后都不会触发HScroll1_Change事件
B、拖动滚动条滑块的过程结束后立即触发HScroll1_Change事件
C、单击滚动条两端箭头时Value的增量为10或-10。
D、单击滚动条上空白区域时Value的增量为2或-2。
试题7(28分)
编程,计算多项式
的值。
在文本框控件Text1、Text2中分别输入n、x后,按Command1可输入
,按Command2可计算该多项式的值并以标签控件Label3显示。
程序设计时的界面设计如下图左所示。
运行时输入n为3、x为1.5,输入
分别为1、2、3后的输出结果如下图右所示。
请将答卷上各事件过程补充完整。
2007年秋参考答案
试题1~试题6请在各小题正确选项的对应位置处填“√”(每小题3分,共72分)
A
B
C
D
(1)
√
(13)
(2)
(14)
(3)
(15)
(4)
(16)
(5)
(17)
(6)
(18)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 07 浙江省 高等学校
![提示](https://static.bdocx.com/images/bang_tan.gif)