☆☆⌒ ☆☆ ⌒☆￡☆⌒
我忽然明白，原来有的时候，没有，就真是没有，不行，就真是不行。没有鱼丸，没有粗面，没去马尔代夫，没有奖牌，没有张保仔宝藏。原来愚蠢，并不那么好笑，愚蠢会失败，失望；胖，不一定有力气，有力气，也不一定行
⌒☆￡☆⌒ ☆☆ ⌒☆☆
2000年秋浙江省高校计算机等级考试参考答案
上一篇 /
下一篇 2006-11-10 16:02:51
/ 个人分类：等级考试VB
q Co(hJs zb bM6j M02000年秋浙江省高校计算机等级考试参考答案
.O uO ?'N0(二级Visual BASIC)浙江科技学院个人空间5{h P"?8e5V
浙江科技学院个人空间2d/|(|b"F
试题一、计算机基础题（本题共15分）浙江科技学院个人空间Z.M$EL ]
（一）单选题（每题1分，共10分）浙江科技学院个人空间1j&]&DKi]s2C
(1) A (2) D (3) C (4) D (5) C 浙江科技学院个人空间
Gda(}T1]#g
(6) B (7) A (8) D (9) A (10) B
v(D,M R7d)Mo:T6_0
3SC,j!y
L+V0（二）填空题（每题1分，共5分）浙江科技学院个人空间0U7k*_G LX
(1) 控制器和运算器 (2) 9D.6
.g6K+D:J!W0(3) 控制面板 (4) 页面浙江科技学院个人空间 V ?7u4R%M?@;}V o
(5) sdhong@mail.usa.net 浙江科技学院个人空间vC#I,j5j's:l
%U
W0P^(N-dN4S0试题二、语言基础题（本题共28分）浙江科技学院个人空间 m*C$iOXmb
（一）判断题（每题1分，共10分）
!B7Ms { DI0X
Lc%P
B01． √ 2． × 3． √ 4． × 5． ×
ox%vs!tcvP |(g v06． √ 7． × 8． × 9． √ 10． √
#tg$z5Na-n
J0
I3U|(mcCn QY0（二）选择题（每题1分，共6分）
~"y-jl(M#v \0(1） C (2） A （3） C （4） D （5） A (6） B
4P.d:z$EF0 浙江科技学院个人空间 Pdb~ {6{7r"E
（三）填空题（每题2分，共12分）
n.{ }*J"Y8a7B Mx01. （x^5-Cos(29*3.14/180)）/(Sqr(Exp(x)+log(y))+5)
tNN(DD A L02. ((Int(x)+1)\2)*2+1 (或 ((Fix(x)+1)\2)*2+1)
%p(a$K7TLb$b03. a1=a3 Xor a2=a3 (或 a1=a3 And a2<>a3 Or a1<>a3 And a2=a3) 浙江科技学院个人空间-XCs%?9V(y&B
4. 6 5. 全局变量 、 模块级变量 和 局部变量 浙江科技学院个人空间 f \@2v*d L$Aj z sl
6. 以图片框Picture1中的(800,1000)为圆心，以500为半径画一个圆
#?y-o_\0浙江科技学院个人空间5DOLC
w(f
试题三、程序阅读题（本题共21分)浙江科技学院个人空间`4I(|sA
1. （5分）
;@2D7Jwm oa9_ R![0 s= 5浙江科技学院个人空间2Y?vY*O[
s= 10
QO`-o
}X Ep~0 s= 40
)I&Ra4oQ6B0浙江科技学院个人空间P%XO {6n U
2.（５分）浙江科技学院个人空间9cL@?/Nw?
m
w= 3 k= 2
9Rw @ w+g@ LQ {L0 w= 4 k= 4
w,T/Rno f0 w= 5 k= 6
W \&x_&~+~5x/z*S0 w= 6 k= 8
!p
{s2TS0浙江科技学院个人空间gJ1fCW ud
I
3. (5分)
@7Aqs*f:H0 L浙江科技学院个人空间!saf"? k ZuL
H浙江科技学院个人空间gP^@R3\1^
F浙江科技学院个人空间3sW3~*D%O y+q,q
D
g$RR4b [2O*r0 B浙江科技学院个人空间bc2y5ql
浙江科技学院个人空间;Z9W nG.}a{
４．(6分)浙江科技学院个人空间5rk3Xq6J \
y= 5 a= 5
P2P F(MnU&l0 y= 15 a= 10浙江科技学院个人空间 yI k%i0jI5C X
y= 30 a= 15
Gx(nQR0浙江科技学院个人空间&N f.Q%S;m{:@
试题四、程序填空题(每空2分，共18分)浙江科技学院个人空间A s5?z-s\ BN
1. (1) 1000
R3Fl{.FG$`r0(2) Timer1.Enabled = True 或 Timer1 = True
\+I V4~5]*|"x sX L._0(3) 0 (4) x \ 3600 浙江科技学院个人空间h0y!c&I M?
(5) x Mod 60
5^#m {-[ }4rl02. (6) x * i (7) 0 浙江科技学院个人空间 H~4~3u9|*cY
(8) 1 / fact(n) (9) Abs(item) >=0.00000001 浙江科技学院个人空间\$gE[l7` e
k d%` M4b`0试题五、程序设计题(本题共18分)
X{4l[4R D)N01.程序如下:（8分）浙江科技学院个人空间9q8D$L9Q ZNV
Private Sub Command1_Click()浙江科技学院个人空间"M-V'P2V!B
Dim n As Integer, Osum As Long, x As Integer
N~tWd y0 n = Val(InputBox("请输入数据n"))
]la d1H h0 Hsum = 0浙江科技学院个人空间:dw7i&K ]'s0e
For i = 1 To n
6dm$K CECC*Za0 x = Int(Rnd * 90 + 10)浙江科技学院个人空间F&~9~fea'X0@
If x Mod 2 = 0 Then ōsum = Osum + x
X qr+Sa |-{W0 Next i浙江科技学院个人空间9G9g'M O
Q0v@ o
Label1.Caption = "偶数之和=" + Str(Osum)
2UV5Fum
G)H0 End Sub浙江科技学院个人空间`1y a+}FJC
ng&p5A#T[ wt02.程序如下:（10分）浙江科技学院个人空间 n"~"sL
S'~ xK
Private Sub Form_Click()浙江科技学院个人空间)` Cjhs'p V2l5W
Const n = 100浙江科技学院个人空间J1P W l!owZ l
Dim a(1 To n) As Single浙江科技学院个人空间0Pg-~U\8C gb `
Dim b(1 To n) As Long, t As Long
~9x1v'} zGZ ~ h0 Dim m As Integer, i As Integer, j As Integer浙江科技学院个人空间3Q*E9o$[h7|
m = 0
C+D
p&Z-T'I7O0 For i = 1 To n
s'XG$lw0 a(i) = Val(InputBox("请输入第" + Str(i) + "个数据"))
)y"r6K-l} a*?y)Lo0 If Int(a(i)) = a(i) Then浙江科技学院个人空间p Y!F i(` xK
m = m + 1
({c`&Y.{3A&BZ5k!\0 b(m) = a(i)
.x|grG U'cM9?0 End If
&b/d(j N9L4AN @0 Next i浙江科技学院个人空间f!{p
D
Q)b
For i = 1 To m - 1
] C*I
a}"~0 For j = i + 1 To m
!|se6D7|0 If b(i) < b(j) Then t = b(i): b(i) = b(j): b(j) = t
/OK;_ zW$c#?g q0 Next j浙江科技学院个人空间 pi9} zW"B
Next i
0|[#s Kc T!J pA0 For i = 1 To m
md s'?Hq;R f;~0 If i Mod 5 <> 0 Then浙江科技学院个人空间1L!lwG'R5_
pE
Print b(i),浙江科技学院个人空间4v f&I g hl*h
Else浙江科技学院个人空间 pK:h0g5Jj
Print b(i)浙江科技学院个人空间m2D k9pD }
End If浙江科技学院个人空间,g3U-q$I`dBTUTd3H
Next i浙江科技学院个人空间,jwkD ?/i1\8~f
End Sub9r1k*pI`v0
导入论坛
收藏
分享给好友
推荐到圈子
管理
举报
TAG:
等级考试VB
