☆☆⌒ ☆☆ ⌒☆￡☆⌒
我忽然明白，原来有的时候，没有，就真是没有，不行，就真是不行。没有鱼丸，没有粗面，没去马尔代夫，没有奖牌，没有张保仔宝藏。原来愚蠢，并不那么好笑，愚蠢会失败，失望；胖，不一定有力气，有力气，也不一定行
⌒☆￡☆⌒ ☆☆ ⌒☆☆
2000年秋浙江省高校计算机等级考试参考答案
上一篇 /
下一篇 2006-11-10 16:02:51
/ 个人分类：等级考试VB
浙江科技学院个人空间.\F4Iq0w)Ow5t2000年秋浙江省高校计算机等级考试参考答案浙江科技学院个人空间8K"h W^_
(二级Visual BASIC)浙江科技学院个人空间_3[8J)O$Ug K0b
浙江科技学院个人空间(B9Z:||B!WV
试题一、计算机基础题（本题共15分）浙江科技学院个人空间#h1p-VV)ce
（一）单选题（每题1分，共10分）
e rXu4\{2f0 (1) A (2) D (3) C (4) D (5) C
I5SM WzA$O0 (6) B (7) A (8) D (9) A (10) B 浙江科技学院个人空间i(A+| `6~ ms
Y/W b.Oy i};e0（二）填空题（每题1分，共5分）浙江科技学院个人空间%y6YK i#W'{(w~
(1) 控制器和运算器 (2) 9D.6
SUG*DI1? W q-S0(3) 控制面板 (4) 页面
#G~a0@4?;t0(5) sdhong@mail.usa.net 浙江科技学院个人空间 V"Gn7p S|&\
浙江科技学院个人空间s5RZAA4x
试题二、语言基础题（本题共28分）
-y)d [3cb!^ u
g k7r1L0（一）判断题（每题1分，共10分）
/W^a
c{,\K01． √ 2． × 3． √ 4． × 5． × 浙江科技学院个人空间5tv
M sZ5_H
6． √ 7． × 8． × 9． √ 10． √
2}PXW;{/_0 浙江科技学院个人空间0m ^}.~Sw5b,_ F
（二）选择题（每题1分，共6分）浙江科技学院个人空间*U9bK _K`'d9cP[
(1） C (2） A （3） C （4） D （5） A (6） B
&x8`|;` V T0 浙江科技学院个人空间 kHR(A#h
（三）填空题（每题2分，共12分）
.KK uM(G5Y;NS01. （x^5-Cos(29*3.14/180)）/(Sqr(Exp(x)+log(y))+5)
P A Z4V D*j;q]02. ((Int(x)+1)\2)*2+1 (或 ((Fix(x)+1)\2)*2+1)
2R S%N:mmm/b8J%tB03. a1=a3 Xor a2=a3 (或 a1=a3 And a2<>a3 Or a1<>a3 And a2=a3)
!A.O6H P J[2Z04. 6 5. 全局变量 、 模块级变量 和 局部变量
&Nk
C
IF.D7Md D06. 以图片框Picture1中的(800,1000)为圆心，以500为半径画一个圆
_5w KR1R8h6~0浙江科技学院个人空间!Bz&E(ud,YO#bn1[
试题三、程序阅读题（本题共21分)
t"Z?1MFX,it7If01. （5分）浙江科技学院个人空间d)T L6@6?6I%W6H
s= 5浙江科技学院个人空间4e ~?-\v q
s= 10
d1C.] ANb0 s= 40浙江科技学院个人空间z T`/j6d,r
W&J-t? H h Qu9w e02.（５分）
)bw-K*dm$?,B0 w= 3 k= 2浙江科技学院个人空间)l;`4^Fs/{:X
w= 4 k= 4浙江科技学院个人空间f3C,L \ kb+E
w= 5 k= 6
W~ m&to,?2]@3xv!^0 w= 6 k= 8浙江科技学院个人空间 H/]4y l2t
'fZ qv#J9M_ P03. (5分)浙江科技学院个人空间aKz7wjr6wo
L浙江科技学院个人空间LC
n}NOQz
H浙江科技学院个人空间]7kv,I:Bh
F浙江科技学院个人空间1N5\E+n7N~rp
D浙江科技学院个人空间0O Q"n4I ?[5U
B浙江科技学院个人空间R)?u'\p|1L
浙江科技学院个人空间V z%o
qC!Wp6f
４．(6分)
-b4R-}(B~ ]\ |PJ {/l0 y= 5 a= 5浙江科技学院个人空间1uK?!Q'mk%K
y= 15 a= 10浙江科技学院个人空间ak0y Cuy"Fn a
T
y= 30 a= 15浙江科技学院个人空间c$x T!Nl
浙江科技学院个人空间0a)R+l5B/H*DM.q
试题四、程序填空题(每空2分，共18分)浙江科技学院个人空间$x9r}5g^ sJ
1. (1) 1000 浙江科技学院个人空间0sk,P9aJ p
(2) Timer1.Enabled = True 或 Timer1 = True 浙江科技学院个人空间r4m1?"F/@ e@}k;E
(3) 0 (4) x \ 3600 浙江科技学院个人空间 S T0{(VNc I
a
(5) x Mod 60 浙江科技学院个人空间?.q0_r&X#w
2. (6) x * i (7) 0
yt2aLB2x@!j ?0(8) 1 / fact(n) (9) Abs(item) >=0.00000001 浙江科技学院个人空间.R
`9u]6HEL;j'Nbt
浙江科技学院个人空间K.p$i8r/t0?8B
试题五、程序设计题(本题共18分)
Y#B ptW'}01.程序如下:（8分）浙江科技学院个人空间.^'n;R I
N#a\4O
Private Sub Command1_Click()浙江科技学院个人空间6C
y OK'q4M)fU
Dim n As Integer, Osum As Long, x As Integer浙江科技学院个人空间_:W~"U+m
n = Val(InputBox("请输入数据n"))浙江科技学院个人空间 P_ Oh:laYHe8n
Hsum = 0浙江科技学院个人空间 G-el,yM:^s
For i = 1 To n
,NY0^ L:}0 x = Int(Rnd * 90 + 10)浙江科技学院个人空间@u iq&xPr n
If x Mod 2 = 0 Then ōsum = Osum + x浙江科技学院个人空间~:AI4~Tva
Next i浙江科技学院个人空间Dgg(u+F+`
@ |
Label1.Caption = "偶数之和=" + Str(Osum)
;p~Q#x/_0 End Sub
] K(ZO9L_0
._/o1E_4x V02.程序如下:（10分）浙江科技学院个人空间 {,~l@+j` M
Private Sub Form_Click()浙江科技学院个人空间;t,k1Y8uP3y
Const n = 100浙江科技学院个人空间 X L*Jn5k)n9u(L
Dim a(1 To n) As Single浙江科技学院个人空间#IG8i}jX!h
v5W B N+?L
Dim b(1 To n) As Long, t As Long浙江科技学院个人空间 L4s o,fb3D#f N
Dim m As Integer, i As Integer, j As Integer浙江科技学院个人空间(c W6ySN _ bJ
m = 0
~0@CW-n ?)^9j
r5s0 For i = 1 To n浙江科技学院个人空间 q2`2j H{t0\,R@
a(i) = Val(InputBox("请输入第" + Str(i) + "个数据"))浙江科技学院个人空间$SlK m4F#j
If Int(a(i)) = a(i) Then浙江科技学院个人空间 vb(Q"r7g6u
m = m + 1浙江科技学院个人空间 K:t? Xa7Y
b(m) = a(i)
Aa
[-P*\C0 End If
.[3F!_
?tc0 Next i
jG(i H+Hs ]P0 For i = 1 To m - 1浙江科技学院个人空间5OV
sG&e6C,K,Z ]$V tj
For j = i + 1 To m浙江科技学院个人空间zMa7ZoUg
If b(i) < b(j) Then t = b(i): b(i) = b(j): b(j) = t浙江科技学院个人空间^,k
IW3n1Ry#k(^m"O
Next j
j)Q'Ygd^0 Next i浙江科技学院个人空间T)w T p jQg!|!O
For i = 1 To m浙江科技学院个人空间?@c*W4U tJ,} s
If i Mod 5 <> 0 Then
L3P
nB)we;O0 Print b(i),浙江科技学院个人空间 h-SsmG+J5qv:i x
Else浙江科技学院个人空间8B#HX5ZE3j!ay0c5G
Print b(i)
N^H9`-{{-U0 End If浙江科技学院个人空间L I)e^]
Next i
%Z;KxP s/c Q8m'XY0j0 End Sub浙江科技学院个人空间J Njh*m \`UK
u
导入论坛
收藏
分享给好友
推荐到圈子
管理
举报
TAG:
等级考试VB
