2000年浙江二级ＶＢ试题 - 王者八酒杯 - 浙江科技学院个人空间
☆☆⌒ ☆☆ ⌒☆￡☆⌒ 我忽然明白，原来有的时候，没有，就真是没有，不行，就真是不行。没有鱼丸，没有粗面，没去马尔代夫，没有奖牌，没有张保仔宝藏。原来愚蠢，并不那么好笑，愚蠢会失败，失望；胖，不一定有力气，有力气，也不一定行 ⌒☆￡☆⌒ ☆☆ ⌒☆☆

2000年浙江二级ＶＢ试题

上一篇 / 下一篇  2006-11-10 16:01:47 / 个人分类：等级考试VB

查看( 129 ) / 评论( 3 ) / 评分( 0 / 0 )

(f5k Ek+ya$d0
2000年浙江二级ＶＢ试题
$tf{4`;k02000年秋浙江省高校计算机等级考试试卷 (二级Visual BASIC)
6_ }b:mC]6x0浙江科技学院个人空间^0N2c/d/O#HFW
说明：考生应将全部答案写在答卷上，否则作无效处理。考试时间为120分钟。浙江科技学院个人空间&R?#CR)W@
浙江科技学院个人空间B.VK8b}{
试题一、计算机基础题（本题共15分）浙江科技学院个人空间 i2S;\.}qd4aL
（一）    单选题（每题1分，共10分）
O{4B3S1q9j ih01.    软盘加上写保护后，对它可以进行的操作是   （1）   。
|]@/@3Xd0  A．只能读盘，不能写盘             B．只能写盘，不能读盘
v}.u/Z,B!`B0  C．既可读盘，又可写盘             D．不能读盘，也不能写盘浙江科技学院个人空间CRN#rYF
2.    在语言处理程序中，编译程序的功能是   （2）   。
P"]1@:X2px#{ r0  A．解释执行高级语言程序                   B．将汇编语言程序编译成目标程序浙江科技学院个人空间0K+? @%n F b(J}r
  C．解释执行汇编语言程序                   D．将高级语言程序翻译成目标程序
:wa3Q:I1qC!@03.    下列有关计算机病毒的说法中，   （3）   是错误的。浙江科技学院个人空间l]`n3zZ6e(|b
  A．游戏软件常常是计算机病毒的载体浙江科技学院个人空间!Lsd8l]']
  B．尽量做到专机专用或安装正版软件，是预防计算机病毒的有效措施
#{1ux {&Q{!cI)c0  C．用消毒软件将一片软盘消毒之后，该软盘就没有病毒了
3gS:wKxJ0  D．计算机病毒在某些条件下被激活之后，才开始起干扰和破坏作用
alK yf!q*wh04.    在Windows95中，桌面是指   （4）   。浙江科技学院个人空间+IV ^D `7QO
  A．电脑桌                   B．活动窗口浙江科技学院个人空间I0WjfJA}3d
  C．文档窗口                 D. 窗口、图标和对话框所在的屏幕背景浙江科技学院个人空间 C H5V8p8@
5.    在Windows95资源管理器窗口的左窗格中，文件夹图标含有“+”时，表示该文件夹   （5）   。浙江科技学院个人空间,\)t_-PR
  A．只含有文件               B．是空文件夹
4` p ZI$`U)w7G0  C．含有子文件夹               D. 只含有文件而不含有文件夹
5W rOOY-fU R7m06.    以下是用十六进制表示的两个连续的存储单元的内容，其中 （6） 一定不是汉字编码。浙江科技学院个人空间G$Q[y Lw
  A．A0A0H         B．1234H         C．BBBBH             D．ABCDH浙江科技学院个人空间]Y$Y8CKy@ j
7.    下列有关Word 97格式刷的叙述中，   （7）   是正确的。
"\;r"@ I'D0  A．格式刷既可以复制字体格式也可以复制段落格式
Sq/j'[ ?YF0  B．格式刷只能复制字体格式浙江科技学院个人空间|_ML MR
  C．格式刷只能复制段落格式浙江科技学院个人空间 o VP8J)TDmY
  D．格式刷只能复制纯文本的内容浙江科技学院个人空间tg MrmU W
8.    在Word 97表格中，单元格内能填写的信息   （8）   。
&Gr]r(I5\Y'F/q0  A．只能是文字                                 B．只能是文字或符号
] L1wo g"X'Wa0  C．只能是图像                                 D．文字、符号、图像均可
"la-[Q4Y;s?p09.    调制解调器的功能是实现   （9）   。
*I4oJv@ Jx Cyz'}0  A．数字信号与模拟信号的转换         B．数字信号的整形
v1I_[Q#c0  C．模拟信号的放大             D．数字信号的编码
cX\ l5]Q*l010.    计算机网络最突出的优点是   （10）   。
_}+sNwc0  A．存储容量大    B．资源共享        C．运算速度快        D．运算精度高
WM{1Sr#[9?p bLp"?0
m+JS$R8c1j&y9h4]&z;X0（二）    填空题（每题1分，共5分）
&F)_M$x7n YW4o&sp2W01.    CPU是计算机的核心部件，该部件主要由   (1)   组成。
k%{v i h02.    十进制数157.375转换成对应的十六进制数是   (2)   。
.dqTCy5Y03.    在Windows 95中，要安装或删除Windows附件中的部分组件，通常是运行   (3)   ，然后使用其中的“添加/删除程序”功能。
.p+[!U}"cJ-w"D04.    在Word 97中，为了看清文档打印输出的效果，应使用   （4）   视图。
3e:q!Dveq g~05.    设有某Internet用户，其POP主机域名是mail.usa.net，帐户名为sdhong,则相应的E-mail地址是   （5）   。
tgFmW,jZ8e} OZ0
PG9y#Z!F$tV0试题二、语言基础题（本题共28分）浙江科技学院个人空间2p`$]uN
（一） 判断题（每题1分，共10分）
'F+s r-[ G;h'I0判断下列叙述正确与否，正确的打“√”，否则打“×”。
-Y$Q^o?;u4rna01．Visual Basic程序的运行可以从Main()过程启动，也可以从某个窗体启动。
K)x*s!y{%u02．同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。
4~b:MbToQ9Zpb.~2e&e03．静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。浙江科技学院个人空间Q Tz1H0YG~
4．事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。浙江科技学院个人空间+pRm9pmJ^,L
5．在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。浙江科技学院个人空间I5poN!L
6．滚动条控件可作为用户输入数据的一种方法。
M3E*P;y+~"o [07．单选钮控件和复选框控件都具有Value属性，它们的作用完全相同。浙江科技学院个人空间T8}Re)f4jOPy*W1g
8．用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发KeyPress事件。
(O"` Z0Sf1P09．组合框兼有文本框和列表框两者的功能，用户可以通过键入文本或选择列表中的项目来进行选择。
#M7T O+YP? Z.\3O010．在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path = Drive1.Drive的作用是：当Drive1的驱动器改变时，Dir1的目录列表随不同驱动器作相应改变。
!wi&}i.S0
qgI0E%lDGwI0（二） 单选题（每题1分，共6分）浙江科技学院个人空间y.pnK ~-F
1. 要改变控件的宽度，应修改该控件的 （1）   属性。浙江科技学院个人空间Y C o4l8T~Q7Q7L
  A． Top     B． Left     C． Width     D． Height浙江科技学院个人空间'CmMFx-UD})Lz
2. 将命令按钮Command1设置为不可见，应修改该命令按钮的   （2） 属性。浙江科技学院个人空间2S1FS W2sfn
  A． Visible   B． Value     C． Caption     D． Enabled
f\/hQ9UI IQ[4i03. 单击滚动条两端的任一个滚动箭头，将触发该滚动条的   （3） 事件。
Yni4r7`}i0  A． Scroll   B． KeyDown   C． Change     D． Dragover
g+ED*S){ A#z)e3X04.   （4）   对象具有Clear方法。浙江科技学院个人空间/JWe Orm;X
  A. 图片框   B. 窗体     C. 复选框     D. 列表框浙江科技学院个人空间7? G YUzqa
5．重新定义图片框控件的坐标系统，可采用该图片框的   （5） 方法。
V9|My$TMzRiLV0  A. Scale     B. ScaleX   C. ScaleY     D. SetFocus
KJR8M:g5NY06. 将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该控件的 （6） 方法。      
%r jlN3M _r1L;d:IU0  A. ShowOpen   B. ShowSave   C. ShowColor   D. ShowFont浙江科技学院个人空间9{P&M.g.~%lH*h:K6W7^

T!Pr]Rg;v'F0（三） 填空题（每题2分，共12分）浙江科技学院个人空间B;j?"l#| [#r
1．下列代数式的Visual Basic表达式是     。浙江科技学院个人空间 nJf(X6Fc
2．设x为大于零的实数，则大于x的最小奇数的Visual Basic表达式是     。
U6?_&m$h9zF^{:[03．a1和a2之中有且只有一个与a3的值相等，相应的Visual Basic逻辑表达式是   。浙江科技学院个人空间 J B4k;h Z,h/QIF {S
4．设init的初值为10，则由下列循环语句控制的循环次数是     。浙江科技学院个人空间1G1_"EGYs]
  Do While init>=5浙江科技学院个人空间H~J*~d
      init=init-1
w9bkVBi{f[,z{0  loop浙江科技学院个人空间4~&AC&B1q'I7{
5．在Visual Basic中，变量从它的作用范围来看，可分为   、   和   三种。浙江科技学院个人空间9_D_9ype
6．语句Picture1.Circle (800,1000),500的含义是     。
.zX.gt;e*q0浙江科技学院个人空间jGarV7V-I
试题三、程序阅读题（本题共21分)浙江科技学院个人空间FF3P+Vi(_+S+i8I
阅读下列程序，写出运行结果。浙江科技学院个人空间d8vO!ded F5B/q+]
1. 程序１(5分)
9Y5} v&I#r+f+H0  Private Static Sub Command1_Click()
'qgB_f0    Dim x As Integer, s As Integer浙江科技学院个人空间;Jx ~0Bn:N+BaX
    x = Val(InputBox("请输入一个正整数="))
5D)EBb,ai#C0    If x < 5 Then
Y&UHQh.V4S j0      s = s * x浙江科技学院个人空间^N B"Iy8z
    Else
^ d"L0r'AV0      s = s + x
.ur&n ?Zxy9H0    End If浙江科技学院个人空间)m)x K RzD
    Text1.Text = "s=" + Str(s)浙江科技学院个人空间wy%y`T:v"A6~t]
  End Sub
| V;Q@ jO"g"D%q/\7k0  程序运行时连续三次单击Command1，且设输入的数是5、2和4时，分别写出文本框Text1.Text的值。浙江科技学院个人空间o9`4Z)@'nt
 浙江科技学院个人空间WMLi3p}
2. 程序２(5分)
.[!zf"m\ipE xD0  Private Sub Form_Click()
V;u-E }1Vd3U0    Form1.Cls浙江科技学院个人空间?3N3L-c9O^k
    w = 3浙江科技学院个人空间},|)]F,CKa
    For k = 2 To 6 Step 2
"D0kA2ypNC0    Form1.Print "w="; w, "k="; k浙江科技学院个人空间N wlz.I+fm
    w = w + 1浙江科技学院个人空间u5k}^a,|/c
    Next k
%yh2E3p[m0    Form1.Print "w="; w, "k="; k
K L`{uw1w0  End Sub
f8S8^7Sv`}h0  写出程序运行时单击窗体后，Form1上的输出结果。浙江科技学院个人空间cL4Z$W[k eC6T1w
3. 程序３(5分)
5x*o.J2@O[0  Private Sub Form_Click()浙江科技学院个人空间/Ln@,B f;hoD
    Dim x As String
GZ#b9l6@,W.n ?0    Dim i As Integer, n As Integer
5x`+[vX q3d0    Form1.Cls
3S?Bsu&s a0    x = "ABCDEFGHKL"浙江科技学院个人空间3I%~KY h-\#@f
    n = Len(x)浙江科技学院个人空间$Mh"G#EP[~
    For i = n To 1 Step -2
*i)r {pwC!T3L0      Form1.Print Tab(20 - i); Mid(x, i, 1)
o.Nd2Gu+T0    Next i浙江科技学院个人空间B0O$rC| p7n;G
  End Sub浙江科技学院个人空间Vs2db{0P[!R
  写出程序运行时单击窗体后，Form1上的输出结果。浙江科技学院个人空间rchG5u

p {(]$T6G(Z@ p04. 程序４(6分)浙江科技学院个人空间t[R9~hn4K*X~5t
  Rem 在窗体的通用声明区声明两个模块级变量a和y浙江科技学院个人空间:l._-`8q9e1^ KZ"JPqUY
  Dim a As Integer, y As Integer浙江科技学院个人空间7zs5zz,F?4qGL0t
  Private Sub Form_Load()浙江科技学院个人空间+@H(`9Ju(i-sf
    Open "c:\a1.dat" For Output As #1浙江科技学院个人空间8e\#\wL
    Close #1浙江科技学院个人空间`GI/Z k K8A'Aq
  End Sub
A-yr j{-D#g4M;Q0  Private Sub Command1_Click()
x9bq2fr_zm?'\'y0    Open "c:\a1.dat" For Append As #1
v M-q/Y!V*YF i0    Call aa(5)浙江科技学院个人空间:YW*Q7|TM&Z,Dj
    y = y + a
e"Q(_E7@%t`0    Print #1, "y="; y, "a="; a
u y0cWE qJ0    Close #1浙江科技学院个人空间(F2\BHMMn
  End Sub浙江科技学院个人空间v\ a dCU
  Sub aa(i As Integer)浙江科技学院个人空间4dZ#R'y5YO8Q XF
    x = 1浙江科技学院个人空间5jD,E%f.p;Q
    Do Until x > i浙江科技学院个人空间^,t]Q.t6C2yn
      a = a + x
#W%}2jzE%E*s0      x = x + 3浙江科技学院个人空间?A%m/EC/Rjd
    Loop浙江科技学院个人空间P`"R0f0q#b
  End Sub
z3|2u(ry[0rv*Y0  写出程序运行时连续三次单击Command1后，a1.dat文件的最终结果。
i go#h m0浙江科技学院个人空间D5t^Y!TNq
试题四、程序填空题(每空2分，共18分)
Nm5I8f\oq0  1. 程序说明： 利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图1所示。单击“开始”命令按钮，秒表开始计时，单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10秒”。（假设对象的属性都在程序代码中设定）
[1Fw_.LA,I)t0
T Nk4f^%`8T4r0图1
D-GELg[njQ6\0  程序代码如下：浙江科技学院个人空间:Dl*m*Bnz8y+BU
  Dim x As Long
j6i`5mG0  Dim h As Integer, m As Integer, s As Integer浙江科技学院个人空间4BG(by ?*~'r!z$B
  Private Sub Form_Load()
'Y:|%Ik9BCH0    Form1.Caption = "动态秒表（小时：分：秒）"
e{$zg#D2oM*I&U3}D0    Command1.Caption = "开始[&S]"
(v)kO4a$_`aq0    Command2.Caption = "结束[&E]"浙江科技学院个人空间#D&b D:d3v
    Label1.Alignment = 2   '居中对齐
*R!M[c!Mh7VT0    Label1.Caption = " 0: 0: 0"
&CB~eKC0I0    Timer1.Interval = ⑴浙江科技学院个人空间[H4fFT$A#@
    Timer1.Enabled = False
O5oe%U$p?q-V|y0    x = 0
:d w+W.Ytl2B+Y3i0  End Sub浙江科技学院个人空间)o-K;Z+xa+A `"g
  Private Sub Command1_Click()浙江科技学院个人空间1o3`T6x?"S
          ⑵    浙江科技学院个人空间e0e {Vv.Q
  End Sub浙江科技学院个人空间.R RC2as*t E}W
  Private Sub Command2_Click()
8yC0o0f(d?0i @9fR6L0    Timer1.Enabled = False浙江科技学院个人空间 [P#@1L0}1S+b9w
    x =   ⑶  浙江科技学院个人空间"px[Q_,P aTPh
    Label1.Caption = "运行了"+Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒"
t t,X Ww5Ha0  End Sub
+bRPP)x}f0  Private Sub Timer1_Timer()
Nv(e#N9o l)Q2v0    x = x + 1浙江科技学院个人空间|]3Qa-U
    h =   ⑷  
e |-|'Y8M0    m = (x Mod 3600) \ 60浙江科技学院个人空间 @k`f'^Pu?/`
    s =   ⑸  浙江科技学院个人空间 lak:{ {2Z6Klk~
    Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)浙江科技学院个人空间MV Gs*e+Y&I!g/v k
  End Sub
"Cq7Gx2o _4opG0   
2@s\H6l+Zw:|u6w G02. 程序说明：已知自然对数的底数e的级数表示如下：
D })O:CN0    本程序利用函数过程fact()求e,其中绝对值小于1E-8的项被忽略。程序代码如下：浙江科技学院个人空间(r%Ww}4|!~ ^s)d8I
    Private Function fact(m As Integer) As Single '求m!的函数
"A*a Jf&S@5?6B9cA0      Dim x As Single, i As Integer浙江科技学院个人空间)q:d j+]U9O're0EMv
      x = 1浙江科技学院个人空间M }p#a#q#i6d beh
      For i = 1 To m
8cDbR2v#p+l0        x =   ⑹  浙江科技学院个人空间 nr#t,pSu A(q7T
      Next i
cOJ]y.M0      fact = x
5og(?H~M+G&f0    End Function浙江科技学院个人空间;c0U Y:n;h$D/b j
    Private Sub Form_Click()
yUO7|!J;}0a0      Dim e As Single, item As Single浙江科技学院个人空间Lw4NJ~eG#L,l
      Dim n As Integer
4yn)rx+t`Sy u0      e = 1: n =   ⑺  
Y"E(K9u*m/W"l0      Do浙江科技学院个人空间.{-j v0~/J(j ^ n
        n = n + 1浙江科技学院个人空间6yQ4}V/FA z
        item =   ⑻  浙江科技学院个人空间ly ]n^8\)F
        e = e + item浙江科技学院个人空间 i5f~ j uI3o-e C'gy
      Loop While   ⑼  浙江科技学院个人空间z?#T;u+t9A In:@
      Form1.Print "e="; e
,o5G @ K!\+QcWb?L1H0    End Sub
E\b,NF-D9q;x0     
A?a0G ~8R;mN$o0试题五、程序设计题(本题共18分)
u E$u.hJ j4} a0  1．随机产生n个两位正整数（n由输入对话框输入，且n>0），求出其中的偶数之和，并在标签框Label1上显示。(8分）
v:["U+gT-i CR k0  注：程序写在命令按钮Command1的Click事件中。
S)_SP)Q?1u q'RF0 浙江科技学院个人空间 j+A H N}lp3fY
  2. 由输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择分类法将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。（10分）
h LF%^~:t)a0  注：程序写在窗体Form的Click事件中。2000年浙江二级ＶＢ试题浙江科技学院个人空间m~+U&ra$Rn#}
2000年秋浙江省高校计算机等级考试试卷 (二级Visual BASIC)浙江科技学院个人空间$z LmK6S
浙江科技学院个人空间'd1Y0JTa.v T
说明：考生应将全部答案写在答卷上，否则作无效处理。考试时间为120分钟。
YL8V\"VTnR0
/v ?8X&cRy-`D{?t0试题一、计算机基础题（本题共15分）浙江科技学院个人空间%Z2Z#QWH,\ P(o`
（一）    单选题（每题1分，共10分）浙江科技学院个人空间,PkG0y wh8L"j1T
1.    软盘加上写保护后，对它可以进行的操作是   （1）   。浙江科技学院个人空间BM._7{YPosU
  A．只能读盘，不能写盘             B．只能写盘，不能读盘
^j\6Gr'[m.}Y:L0  C．既可读盘，又可写盘             D．不能读盘，也不能写盘浙江科技学院个人空间 d;q*Oe.k/U
2.    在语言处理程序中，编译程序的功能是   （2）   。浙江科技学院个人空间8j$@;zi:C
  A．解释执行高级语言程序                   B．将汇编语言程序编译成目标程序浙江科技学院个人空间;A9D+aw9`q
  C．解释执行汇编语言程序                   D．将高级语言程序翻译成目标程序浙江科技学院个人空间#J4|i+].~ IK I];yJl
3.    下列有关计算机病毒的说法中，   （3）   是错误的。浙江科技学院个人空间~#M"t@ Xm
  A．游戏软件常常是计算机病毒的载体
pr-T5@$?'mS0  B．尽量做到专机专用或安装正版软件，是预防计算机病毒的有效措施浙江科技学院个人空间t)lG!V2w Y
  C．用消毒软件将一片软盘消毒之后，该软盘就没有病毒了浙江科技学院个人空间Wc{&Wjg
  D．计算机病毒在某些条件下被激活之后，才开始起干扰和破坏作用
f;e[OYvW7?*a04.    在Windows95中，桌面是指   （4）   。浙江科技学院个人空间L5K_(l.f:^f w Q{%p
  A．电脑桌                   B．活动窗口浙江科技学院个人空间 z7}uOh#CYmM
  C．文档窗口                 D. 窗口、图标和对话框所在的屏幕背景浙江科技学院个人空间#G+HR0K [!h0V'Q&W(Y/xx
5.    在Windows95资源管理器窗口的左窗格中，文件夹图标含有“+”时，表示该文件夹   （5）   。
_B~{ z'j&LO0  A．只含有文件               B．是空文件夹
LYpL'r&GT!O f/f0  C．含有子文件夹               D. 只含有文件而不含有文件夹
J$D6i]*JCD;y&fZ06.    以下是用十六进制表示的两个连续的存储单元的内容，其中 （6） 一定不是汉字编码。
g CX3Gn{:ph$I2U5b0  A．A0A0H         B．1234H         C．BBBBH             D．ABCDH浙江科技学院个人空间6F];tY.P7` A e
7.    下列有关Word 97格式刷的叙述中，   （7）   是正确的。
'R"YA%^&K6~R0  A．格式刷既可以复制字体格式也可以复制段落格式
H!e1qe{WO0  B．格式刷只能复制字体格式浙江科技学院个人空间?X(`J Wj o*J+e:U
  C．格式刷只能复制段落格式浙江科技学院个人空间 a%I.|+\ ?{
  D．格式刷只能复制纯文本的内容
-f{V5T~in)m/s08.    在Word 97表格中，单元格内能填写的信息   （8）   。
xn,MryBhI0  A．只能是文字                                 B．只能是文字或符号浙江科技学院个人空间'A@2t1lG"mH
  C．只能是图像                                 D．文字、符号、图像均可
u Q-Bm)g09.    调制解调器的功能是实现   （9）   。
qhU)@1V,Jxj0  A．数字信号与模拟信号的转换         B．数字信号的整形浙江科技学院个人空间)]Sb q|-if
  C．模拟信号的放大             D．数字信号的编码
9v*](JU/?{l010.    计算机网络最突出的优点是   （10）   。浙江科技学院个人空间[&t.B0W-D!p
  A．存储容量大    B．资源共享        C．运算速度快        D．运算精度高
9Vk2MY[?0浙江科技学院个人空间onp`v,e%Lwl
（二）    填空题（每题1分，共5分）浙江科技学院个人空间9LQG;xI9|L3p
1.    CPU是计算机的核心部件，该部件主要由   (1)   组成。
6c2Ru hu$[02.    十进制数157.375转换成对应的十六进制数是   (2)   。浙江科技学院个人空间+Lwi'Gq~FE
3.    在Windows 95中，要安装或删除Windows附件中的部分组件，通常是运行   (3)   ，然后使用其中的“添加/删除程序”功能。浙江科技学院个人空间0?QM G^ J k
4.    在Word 97中，为了看清文档打印输出的效果，应使用   （4）   视图。浙江科技学院个人空间$x;@ch|r&h
5.    设有某Internet用户，其POP主机域名是mail.usa.net，帐户名为sdhong,则相应的E-mail地址是   （5）   。
b E~ I8M3j;e0浙江科技学院个人空间g}1P`R;q2q%YC
试题二、语言基础题（本题共28分）浙江科技学院个人空间4k0Sj{5t6d
（一） 判断题（每题1分，共10分）
qdwS%jt1k`0判断下列叙述正确与否，正确的打“√”，否则打“×”。浙江科技学院个人空间ES+O[ T
1．Visual Basic程序的运行可以从Main()过程启动，也可以从某个窗体启动。
Q:\&`m7em9k.B02．同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。
:X/NP2zzf(?,l03．静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
y X(NF U#C(J04．事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。浙江科技学院个人空间 S9l+cJ-TVv
5．在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。浙江科技学院个人空间%IJ^-Rc(ZY2i
6．滚动条控件可作为用户输入数据的一种方法。浙江科技学院个人空间-U*a8LD2iG0_
7．单选钮控件和复选框控件都具有Value属性，它们的作用完全相同。
'g+w+O6t'O!q;E08．用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发KeyPress事件。
]Kou9x"k w-I09．组合框兼有文本框和列表框两者的功能，用户可以通过键入文本或选择列表中的项目来进行选择。
xjN*ub(MRV6}010．在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path = Drive1.Drive的作用是：当Drive1的驱动器改变时，Dir1的目录列表随不同驱动器作相应改变。
D{,|gU7Q7G0
({n2c/[Z%X1B9B0（二） 单选题（每题1分，共6分）浙江科技学院个人空间#S6cT9V)CZ8Y
1. 要改变控件的宽度，应修改该控件的 （1）   属性。浙江科技学院个人空间7y1\-{"Tc
  A． Top     B． Left     C． Width     D． Height浙江科技学院个人空间^@ v9b@%` R?
2. 将命令按钮Command1设置为不可见，应修改该命令按钮的   （2） 属性。浙江科技学院个人空间B#]R)Mp!R+u
  A． Visible   B． Value     C． Caption     D． Enabled浙江科技学院个人空间/b'R#yDcn"UA
3. 单击滚动条两端的任一个滚动箭头，将触发该滚动条的   （3） 事件。
(UI3j)k{ Qo!f0  A． Scroll   B． KeyDown   C． Change     D． Dragover浙江科技学院个人空间%F vW-Bp5cm
4.   （4）   对象具有Clear方法。浙江科技学院个人空间'K6jVZ,oa
  A. 图片框   B. 窗体     C. 复选框     D. 列表框
|nB i8{@1N05．重新定义图片框控件的坐标系统，可采用该图片框的   （5） 方法。
z#Up\W4g0  A. Scale     B. ScaleX   C. ScaleY     D. SetFocus
&C L'L3P?a` X06. 将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该控件的 （6） 方法。      浙江科技学院个人空间)xHUG[7J ]
  A. ShowOpen   B. ShowSave   C. ShowColor   D. ShowFont
*w7eDYgHq)R4a{0
W_ EH-eZ(V"G0（三） 填空题（每题2分，共12分）
7S)kU4_-@1N rUc01．下列代数式的Visual Basic表达式是     。
jlo9d0Xz*joWX02．设x为大于零的实数，则大于x的最小奇数的Visual Basic表达式是     。浙江科技学院个人空间q PO$Ta7Z[
3．a1和a2之中有且只有一个与a3的值相等，相应的Visual Basic逻辑表达式是   。
#_AnCk04．设init的初值为10，则由下列循环语句控制的循环次数是     。
)_5IaC q0  Do While init>=5浙江科技学院个人空间)dM)U Q0j
      init=init-1
T/vy w7@/{8[:x9v8Co0  loop浙江科技学院个人空间xD%LAz-Yp;_I
5．在Visual Basic中，变量从它的作用范围来看，可分为   、   和   三种。
M"q2{/G t06．语句Picture1.Circle (800,1000),500的含义是     。
WeDpk-ixIG0浙江科技学院个人空间oJ/@lZQ,[+vzy1O^
试题三、程序阅读题（本题共21分)浙江科技学院个人空间p Uy$}3w5KO
阅读下列程序，写出运行结果。
%{kd#DXa5g l01. 程序１(5分)浙江科技学院个人空间 TO7{SuHE-c1M4p3R @\
  Private Static Sub Command1_Click()
m6L |!ny3B'Y^]0    Dim x As Integer, s As Integer
5ao;dI8f@z`)nCl0    x = Val(InputBox("请输入一个正整数="))
:Y!o?K/O.Wa){SG W0    If x < 5 Then浙江科技学院个人空间5OY.h&P j&Kb~&{gSm
      s = s * x
!OPa0fG&O0    Else浙江科技学院个人空间v0JQKC-tF
      s = s + x浙江科技学院个人空间3AsP,fU-l
    End If浙江科技学院个人空间s'n'HfD1R,|
    Text1.Text = "s=" + Str(s)
lH4fhZ#Y Xx0  End Sub
R9AVE"V0b7s H }0  程序运行时连续三次单击Command1，且设输入的数是5、2和4时，分别写出文本框Text1.Text的值。
0v)s6LSDT~0 浙江科技学院个人空间q&F(x Oz] P
2. 程序２(5分)
dw~o"?0  Private Sub Form_Click()浙江科技学院个人空间6ET{B.{$d A%j"I%M
    Form1.Cls浙江科技学院个人空间2I\T^.S#K
    w = 3
,[{V+Z K XDC@&J0    For k = 2 To 6 Step 2浙江科技学院个人空间N!eJQ D8|
    Form1.Print "w="; w, "k="; k
:`8Uh~7V:sU0    w = w + 1
M ~p`5c3Tsq Z0    Next k浙江科技学院个人空间%vi+ZY9sM
    Form1.Print "w="; w, "k="; k浙江科技学院个人空间8Zf {Qf$D
  End Sub浙江科技学院个人空间L+|0b J(l z#b
  写出程序运行时单击窗体后，Form1上的输出结果。浙江科技学院个人空间2d1b*c-fR |l3ST9E
3. 程序３(5分)
? o,\f#T0  Private Sub Form_Click()
1D$Bi~ z)j!HdoAd0    Dim x As String浙江科技学院个人空间 E&i7x@"@"[
    Dim i As Integer, n As Integer
3d U&UnG0    Form1.Cls
#PuW4xx/a0    x = "ABCDEFGHKL"
J-U%e ?*[j?0    n = Len(x)
|D4o,a2h"c]&~ ^0    For i = n To 1 Step -2
L6b*@{;F@*H7M0      Form1.Print Tab(20 - i); Mid(x, i, 1)
_#eu(Ov3H Y6@ [?0    Next i浙江科技学院个人空间 |6Z$vRzX-J
  End Sub
(bO&C(E"UQ0\ A%J4d0  写出程序运行时单击窗体后，Form1上的输出结果。浙江科技学院个人空间 nd8Jha2hX:\%Y1_
浙江科技学院个人空间m~#t[K@1\
4. 程序４(6分)浙江科技学院个人空间["L.h@.SK'p't-^&L
  Rem 在窗体的通用声明区声明两个模块级变量a和y
u/~k2bOz V%L0  Dim a As Integer, y As Integer浙江科技学院个人空间8RU q,^]t8\
  Private Sub Form_Load()
7V,r1a1v!? Q&v T6^0    Open "c:\a1.dat" For Output As #1
i~&CM#q t-t-@ Nu0    Close #1浙江科技学院个人空间G'E-KH[ {`#Q
  End Sub
C:^ pnaWn_0  Private Sub Command1_Click()
r2v;`2Yrz$?0    Open "c:\a1.dat" For Append As #1浙江科技学院个人空间*rb-Jfk+y/YR
    Call aa(5)
j7_z7T sa0    y = y + a浙江科技学院个人空间8g9pt8t?2g#[
    Print #1, "y="; y, "a="; a浙江科技学院个人空间%Y"]w}7l
    Close #1浙江科技学院个人空间)Q u"z7e:W3C-QRdM
  End Sub
L.o\rQJB{nP0  Sub aa(i As Integer)浙江科技学院个人空间kj#l!]}J Q&p9p
    x = 1浙江科技学院个人空间VQ {Y*n,?k
    Do Until x > i浙江科技学院个人空间2A#R$^)B H^A
      a = a + x
(X1{zx3~ `j`$U$vs0      x = x + 3浙江科技学院个人空间 a"Kqfj4N(u3o
    Loop浙江科技学院个人空间 V_nq n:I u5q
  End Sub浙江科技学院个人空间+P\t'fm3n%FH
  写出程序运行时连续三次单击Command1后，a1.dat文件的最终结果。浙江科技学院个人空间@6?V*DaO@uk

8~ P Ol:S*O C0试题四、程序填空题(每空2分，共18分)浙江科技学院个人空间@|#L2KB'b
  1. 程序说明： 利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图1所示。单击“开始”命令按钮，秒表开始计时，单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10秒”。（假设对象的属性都在程序代码中设定）
(E7z0{r9Z:l0
H!UrCB0图1浙江科技学院个人空间v1bYY&Yf+s4w
  程序代码如下：
Dg/f dd_*y0  Dim x As Long
`/Ox*q:P0j:~'z.k"C0  Dim h As Integer, m As Integer, s As Integer
D`0cEkb0DM,L0  Private Sub Form_Load()
p6C |0xt;wO{^H`1K0    Form1.Caption = "动态秒表（小时：分：秒）"浙江科技学院个人空间:Z1H#^(V n8S$h _(b d!x
    Command1.Caption = "开始[&S]"
,pC N!A3H%^4rf;i0    Command2.Caption = "结束[&E]"浙江科技学院个人空间 a`:Dn7k9`r*S(u,s3l
    Label1.Alignment = 2   '居中对齐
*l U.r)xI#u.}0    Label1.Caption = " 0: 0: 0"
2C_oVpw8m0    Timer1.Interval = ⑴
^ K_.I{ ^0    Timer1.Enabled = False浙江科技学院个人空间:_w Xx,GEy\L
    x = 0浙江科技学院个人空间5n| E6J/du e r G
  End Sub浙江科技学院个人空间6wGZvL
  Private Sub Command1_Click()
5a Qw3f%aB7K4Q0          ⑵    
P8?"z'H#B0  End Sub
;yIca l];Ixl^({5bJ0  Private Sub Command2_Click()浙江科技学院个人空间QdM{,h#Q*t }
    Timer1.Enabled = False
PJj&^[yu'B0    x =   ⑶  浙江科技学院个人空间TV*v pe-B
    Label1.Caption = "运行了"+Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒"浙江科技学院个人空间r*J} i"FF5v0TY
  End Sub浙江科技学院个人空间'i V,w+n W3m
  Private Sub Timer1_Timer()
;p-lP1hZm0    x = x + 1
Q!j@a Tc{0    h =   ⑷  
^7J~T0K ?0    m = (x Mod 3600) \ 60浙江科技学院个人空间)OhXe@/h ?HKvI
    s =   ⑸  浙江科技学院个人空间7`s ok2YP _I&~
    Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)浙江科技学院个人空间N#Wl&apl T_3Z
  End Sub浙江科技学院个人空间)Q8~L:E#`$i4|'P
   
8q,^(W Yx2FJ$v)]02. 程序说明：已知自然对数的底数e的级数表示如下：浙江科技学院个人空间)F vE(pu R pk'h
    本程序利用函数过程fact()求e,其中绝对值小于1E-8的项被忽略。程序代码如下：浙江科技学院个人空间$c5U4VCW
    Private Function fact(m As Integer) As Single '求m!的函数浙江科技学院个人空间b*Q;Op'P jE6?
      Dim x As Single, i As Integer
!?`*j^V g0      x = 1
`A,^X"m0      For i = 1 To m
`)wH|;B;T1o0        x =   ⑹  
!M*W|\:mIR0      Next i浙江科技学院个人空间@&u*v9Q bUF1|$v
      fact = x
(MeR-xj?`0    End Function
b/x*t] O{,T&V0Wn0    Private Sub Form_Click()浙江科技学院个人空间SRJ6c$^;u%u
      Dim e As Single, item As Single浙江科技学院个人空间YF%NBO E_
      Dim n As Integer浙江科技学院个人空间$ei SH+@qE
      e = 1: n =   ⑺  
%ag6`7{JcN/W1y0      Do
c^ Nw5KZ^BJ0        n = n + 1浙江科技学院个人空间V2O.~'Q"Yb8[.@
        item =   ⑻  
|"t%XC,|-|1m!tX0        e = e + item浙江科技学院个人空间CY G!m9X#yH t
      Loop While   ⑼  浙江科技学院个人空间*w5k sB$~Y q^1O`
      Form1.Print "e="; e
F*C?H5K#uF7W$M$f0    End Sub浙江科技学院个人空间,X:@k^8Cj,T2v:Xn g
     浙江科技学院个人空间,op$Er$N)N[
试题五、程序设计题(本题共18分)
#V9zP0n7I.W1F0  1．随机产生n个两位正整数（n由输入对话框输入，且n>0），求出其中的偶数之和，并在标签框Label1上显示。(8分）
xL o'?^%Of3D U#y V0  注：程序写在命令按钮Command1的Click事件中。
4v0EW`;~ E1IA0 浙江科技学院个人空间U p$T+C S a
  2. 由输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择分类法将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。（10分）
NR&T-v] cuH0  注：程序写在窗体Form的Click事件中。浙江科技学院个人空间 Pax|kD$R y3t
2000年秋浙江省高校计算机等级考试试卷 (二级Visual BASIC)
+A Z s[1N#}[6C vc7D0
w5}5O;`!Rv_/M0说明：考生应将全部答案写在答卷上，否则作无效处理。考试时间为120分钟。
&Ef-KCKZ0v(~0
e+Dv;H]-l r0试题一、计算机基础题（本题共15分）
+y9v+O.y sN;j0IS@0z0（一）    单选题（每题1分，共10分）
Qwr Xx01.    软盘加上写保护后，对它可以进行的操作是   （1）   。浙江科技学院个人空间O^x'|v$vi5u*U[W
  A．只能读盘，不能写盘             B．只能写盘，不能读盘
X3PK)I$sd+t"@0  C．既可读盘，又可写盘             D．不能读盘，也不能写盘
{ xb$i%r2Nn+ut02.    在语言处理程序中，编译程序的功能是   （2）   。
$C|&h'Fw%EwF+C0  A．解释执行高级语言程序                   B．将汇编语言程序编译成目标程序浙江科技学院个人空间z gIXx Pefv
  C．解释执行汇编语言程序                   D．将高级语言程序翻译成目标程序
2B(T+v${4H6`8P$~B03.    下列有关计算机病毒的说法中，   （3）   是错误的。浙江科技学院个人空间 L5J;QsS6b.z
  A．游戏软件常常是计算机病毒的载体
H$\;d,K*f1Y.D*K0  B．尽量做到专机专用或安装正版软件，是预防计算机病毒的有效措施浙江科技学院个人空间*V@\H]^'XV
  C．用消毒软件将一片软盘消毒之后，该软盘就没有病毒了
U|._\2A'KP;G0  D．计算机病毒在某些条件下被激活之后，才开始起干扰和破坏作用浙江科技学院个人空间&LgG8G3y]]#V0M+b
4.    在Windows95中，桌面是指   （4）   。
;}-LBSyH9^0  A．电脑桌                   B．活动窗口
4Z x6E0X`%O a/gFz@0  C．文档窗口                 D. 窗口、图标和对话框所在的屏幕背景浙江科技学院个人空间9R]d:^3W$J#X9L
5.    在Windows95资源管理器窗口的左窗格中，文件夹图标含有“+”时，表示该文件夹   （5）   。
!K8[Vd u ZIs0  A．只含有文件               B．是空文件夹
p/\]1OG/VW0  C．含有子文件夹               D. 只含有文件而不含有文件夹
/Oa0nD+|06.    以下是用十六进制表示的两个连续的存储单元的内容，其中 （6） 一定不是汉字编码。
H(czVB3p0  A．A0A0H         B．1234H         C．BBBBH             D．ABCDH浙江科技学院个人空间'Ou%pkg|/p T2~([
7.    下列有关Word 97格式刷的叙述中，   （7）   是正确的。
8ZzL5s t:S1m0  A．格式刷既可以复制字体格式也可以复制段落格式浙江科技学院个人空间#MG(\3G4B^)MZC$WDZJ
  B．格式刷只能复制字体格式浙江科技学院个人空间/@?qe_
  C．格式刷只能复制段落格式
N]P@4l&wE0  D．格式刷只能复制纯文本的内容
'IY)Q*A\*XR{6y#F08.    在Word 97表格中，单元格内能填写的信息   （8）   。浙江科技学院个人空间-?^M:WJo P
  A．只能是文字                                 B．只能是文字或符号浙江科技学院个人空间M)?$aC gRs
  C．只能是图像                                 D．文字、符号、图像均可
$f1W)oRS&f+O^09.    调制解调器的功能是实现   （9）   。
k s7LHqGH U0  A．数字信号与模拟信号的转换         B．数字信号的整形浙江科技学院个人空间1d8h9Q6r0V8u
  C．模拟信号的放大             D．数字信号的编码浙江科技学院个人空间3n8J,PAz F
10.    计算机网络最突出的优点是   （10）   。浙江科技学院个人空间-nFL;R,{6ajX"dt!x
  A．存储容量大    B．资源共享        C．运算速度快        D．运算精度高
SEdyk0
qMt4ng I:d0（二）    填空题（每题1分，共5分）
i"mg!mxG i01.    CPU是计算机的核心部件，该部件主要由   (1)   组成。
8O\2@(Q5pR02.    十进制数157.375转换成对应的十六进制数是   (2)   。浙江科技学院个人空间gV|cQ}.R1{
3.    在Windows 95中，要安装或删除Windows附件中的部分组件，通常是运行   (3)   ，然后使用其中的“添加/删除程序”功能。浙江科技学院个人空间y"\%K{!a:GKQ
4.    在Word 97中，为了看清文档打印输出的效果，应使用   （4）   视图。浙江科技学院个人空间(q9xM%bWJ
5.    设有某Internet用户，其POP主机域名是mail.usa.net，帐户名为sdhong,则相应的E-mail地址是   （5）   。浙江科技学院个人空间"Lfhq.UZ*B9|)`4\Yz
浙江科技学院个人空间0k,yG'j%](T+~
试题二、语言基础题（本题共28分）浙江科技学院个人空间-G{B#?O ^
（一） 判断题（每题1分，共10分）浙江科技学院个人空间L!u x w,^:Y9S&m2f0n3j
判断下列叙述正确与否，正确的打“√”，否则打“×”。
F |1ao-l8ZYxpE01．Visual Basic程序的运行可以从Main()过程启动，也可以从某个窗体启动。
6pXqk8L(h02．同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。浙江科技学院个人空间H-ra:A(h*v d4d3e:q
3．静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。浙江科技学院个人空间U3?{Y;{PS;N
4．事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。浙江科技学院个人空间c6@4n:e&O7Ol u _ m
5．在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。浙江科技学院个人空间LPr(F"i(TL
6．滚动条控件可作为用户输入数据的一种方法。浙江科技学院个人空间6|\/?.A!pRFD%F(D hk
7．单选钮控件和复选框控件都具有Value属性，它们的作用完全相同。浙江科技学院个人空间_%c%R/n$V7V$QJ8F
8．用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发KeyPress事件。浙江科技学院个人空间x#GG B qV"g
9．组合框兼有文本框和列表框两者的功能，用户可以通过键入文本或选择列表中的项目来进行选择。
H geqp010．在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path = Drive1.Drive的作用是：当Drive1的驱动器改变时，Dir1的目录列表随不同驱动器作相应改变。
s1G:LN$EGk c0
u^ Bq6[ M2vtW6Z0（二） 单选题（每题1分，共6分）浙江科技学院个人空间;_W/uz.F[1G#G
1. 要改变控件的宽度，应修改该控件的 （1）   属性。
`e I R0L`6Sh't0  A． Top     B． Left     C． Width     D． Height浙江科技学院个人空间G3q9wVPw
2. 将命令按钮Command1设置为不可见，应修改该命令按钮的   （2） 属性。
I\{p;m~a;UV/D0  A． Visible   B． Value     C． Caption     D． Enabled浙江科技学院个人空间 a w-F h_6x d&?
3. 单击滚动条两端的任一个滚动箭头，将触发该滚动条的   （3） 事件。
&g0G3p9aI w6Z9V A0  A． Scroll   B． KeyDown   C． Change     D． Dragover浙江科技学院个人空间FFSl+M
4.   （4）   对象具有Clear方法。浙江科技学院个人空间!rv7B"Aq W f"O0t([ R
  A. 图片框   B. 窗体     C. 复选框     D. 列表框浙江科技学院个人空间IE[0YK[+k.nM2SEq
5．重新定义图片框控件的坐标系统，可采用该图片框的   （5） 方法。浙江科技学院个人空间9U}-m,Y3@cpT Z}f
  A. Scale     B. ScaleX   C. ScaleY     D. SetFocus浙江科技学院个人空间0S!a6m%Gx7`4],jL
6. 将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该控件的 （6） 方法。      浙江科技学院个人空间/j5Me!K:F+K&U.O
  A. ShowOpen   B. ShowSave   C. ShowColor   D. ShowFont浙江科技学院个人空间a N.L{LP jf

k'Mbt8lB7@-F;v0（三） 填空题（每题2分，共12分）浙江科技学院个人空间3l_rY&o
1．下列代数式的Visual Basic表达式是     。浙江科技学院个人空间7Ic0U#K%e4] c0F-H?~%~p
2．设x为大于零的实数，则大于x的最小奇数的Visual Basic表达式是     。
i0s8P*iad!Ob*t03．a1和a2之中有且只有一个与a3的值相等，相应的Visual Basic逻辑表达式是   。浙江科技学院个人空间Io)TM;})t k
4．设init的初值为10，则由下列循环语句控制的循环次数是     。
s2S A.fT0  Do While init>=5
6t.G [9h0{0      init=init-1浙江科技学院个人空间y]9ZqO w)D Z9p&O
  loop
LoP ~y9R%I05．在Visual Basic中，变量从它的作用范围来看，可分为   、   和   三种。浙江科技学院个人空间~DmM0lV5@z
6．语句Picture1.Circle (800,1000),500的含义是     。
0Bu,b6ut1B/M0浙江科技学院个人空间F/I#\P3Q(j
试题三、程序阅读题（本题共21分)浙江科技学院个人空间&x&T6}5n^r
阅读下列程序，写出运行结果。浙江科技学院个人空间{WvWHa%JYpi9V
1. 程序１(5分)
-{r-h$~q Ud0  Private Static Sub Command1_Click()
s6Pt9g6b!w W/i?0    Dim x As Integer, s As Integer
z8f(W#n Rn3w0    x = Val(InputBox("请输入一个正整数="))浙江科技学院个人空间 J;J3R2uJ+R1^B
    If x < 5 Then
BI Z9\t%Y{0      s = s * x浙江科技学院个人空间C2D lm+z
    Else浙江科技学院个人空间 n`5q2B"y@VU0H4D
      s = s + x
!] Y2h~v F }2a0qrp? W0    End If
Mk([!SZ7nL.q)cD4G i0    Text1.Text = "s=" + Str(s)浙江科技学院个人空间}.Y1f"fI(Z
  End Sub
J?-Gws0  程序运行时连续三次单击Command1，且设输入的数是5、2和4时，分别写出文本框Text1.Text的值。
!_N8lBZv0 浙江科技学院个人空间sgwR*pT
2. 程序２(5分)
.Y c)t"nVK z_E0  Private Sub Form_Click()浙江科技学院个人空间 ]xZA9|*]r
    Form1.Cls
rz?9p'E)j,]0    w = 3浙江科技学院个人空间WD |E6|e \+V
    For k = 2 To 6 Step 2浙江科技学院个人空间b)wkLkT2f [:^
    Form1.Print "w="; w, "k="; k
@|$M)po._-WQ0    w = w + 1
:i&mj-i8Z6A0    Next k浙江科技学院个人空间tW$yc%bZ#n6ZI
    Form1.Print "w="; w, "k="; k浙江科技学院个人空间Q/V,q"E(?3tT2V,f FC
  End Sub
M)_~-X/N.GG0MZ0  写出程序运行时单击窗体后，Form1上的输出结果。浙江科技学院个人空间4I3o8w1rY%|C%F
3. 程序３(5分)浙江科技学院个人空间!@.qvI P{7\l*v
  Private Sub Form_Click()
3_5yfjk0    Dim x As String
'HrQ5f8QtmKH0    Dim i As Integer, n As Integer浙江科技学院个人空间Ev4v&i!L:Mw
    Form1.Cls
K]C!Xs5EnF&@o-x0    x = "ABCDEFGHKL"浙江科技学院个人空间JJ1v WSxS.O
    n = Len(x)浙江科技学院个人空间'ixBJb
    For i = n To 1 Step -2
9~ kt5S9|7X)O0      Form1.Print Tab(20 - i); Mid(x, i, 1)浙江科技学院个人空间{ Q,CD7{zX
    Next i
/Rxb6g/Dbm'P,_0  End Sub浙江科技学院个人空间w,LL OI8f?b
  写出程序运行时单击窗体后，Form1上的输出结果。浙江科技学院个人空间%A,[(^%W%uc5k'h

A:YC}0B$]#B\pp3uLs04. 程序４(6分)
[ l C7X#u)U CE0  Rem 在窗体的通用声明区声明两个模块级变量a和y
,UcV3Z$TE:Bl2`0  Dim a As Integer, y As Integer
%hW9{5DCm(h0  Private Sub Form_Load()浙江科技学院个人空间e;NsbWV`(XP-h
    Open "c:\a1.dat" For Output As #1
yE_&QG&L6k7z5N0    Close #1
B;Osq,w@O0  End Sub
}-i2@2M;u a0  Private Sub Command1_Click()
+f2e r1fr f `0    Open "c:\a1.dat" For Append As #1浙江科技学院个人空间\}Au'P#K?6y
    Call aa(5)浙江科技学院个人空间~ l5Gc~
    y = y + a
*y.U2Or(}Z0    Print #1, "y="; y, "a="; a
)m7B(n5G1w5q0    Close #1浙江科技学院个人空间h yr0Q o1C0@0W
  End Sub
i8g)F a,c(KDU;O$\MU0  Sub aa(i As Integer)
9h7hzu5aS0    x = 1
:S2N P+wJ_0    Do Until x > i
Oo-w9@$V \r ?0      a = a + x浙江科技学院个人空间rd!Te;U#Hr3wLD
      x = x + 3
G2v Rr BJ?T0    Loop
q @#yc w9t Y&kh0  End Sub浙江科技学院个人空间 S-}8JAJ8@Z#j
  写出程序运行时连续三次单击Command1后，a1.dat文件的最终结果。
WZ,s"Q,OP;c0
W%BdHY3V O {H;o0试题四、程序填空题(每空2分，共18分)浙江科技学院个人空间?+w1y~8q
  1. 程序说明： 利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图1所示。单击“开始”命令按钮，秒表开始计时，单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10秒”。（假设对象的属性都在程序代码中设定）浙江科技学院个人空间k%o(hIt/T

j6o,\}&p[C0图1浙江科技学院个人空间*s2ys1x$~.|:Jb
  程序代码如下：
Vmc-bd[K,o0  Dim x As Long
'h.d"@g1xC mS2|0  Dim h As Integer, m As Integer, s As Integer浙江科技学院个人空间4{*D&W9Ly i
  Private Sub Form_Load()浙江科技学院个人空间7f`5K aO%o [*w
    Form1.Caption = "动态秒表（小时：分：秒）"浙江科技学院个人空间1]$c"wz.qh
    Command1.Caption = "开始[&S]"
kVk|0C!hdVZ/@0    Command2.Caption = "结束[&E]"浙江科技学院个人空间1U V X-^%JrgP
    Label1.Alignment = 2   '居中对齐
S6S7Y/oj R0    Label1.Caption = " 0: 0: 0"浙江科技学院个人空间.~ x{2C)o0U3bH:I
    Timer1.Interval = ⑴浙江科技学院个人空间*TW9T.?1TM+y8{'EL
    Timer1.Enabled = False浙江科技学院个人空间W1h rQ.e"f8UJ/Y
    x = 0浙江科技学院个人空间 wRl;I]a
  End Sub浙江科技学院个人空间 eX6m'[&m
  Private Sub Command1_Click()
C5P.Z4zi6`dG0          ⑵    
?I7?*|Bq3UC0  End Sub浙江科技学院个人空间j V4YMziS#j2N
  Private Sub Command2_Click()
1oER.[a!V0    Timer1.Enabled = False
-Uxp_-Y M0    x =   ⑶  
axX8_!@ \3_,H0    Label1.Caption = "运行了"+Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒"浙江科技学院个人空间(@/m*Fz'V|F*W]
  End Sub
ChiI$D``0  Private Sub Timer1_Timer()
0F N DQPTp0    x = x + 1
z2i S)Z SB(u0    h =   ⑷  
;I-M-N9X%lm0    m = (x Mod 3600) \ 60
Z;l-l,dm)o!?0    s =   ⑸  
#JvGK D@-g"@du(lP0    Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)
ob(_]9\4l0  End Sub
]"ea*?sTY2y0   
:w9^%C-T;VbIF:v02. 程序说明：已知自然对数的底数e的级数表示如下：浙江科技学院个人空间F5W nLs+Zb
    本程序利用函数过程fact()求e,其中绝对值小于1E-8的项被忽略。程序代码如下：
0@ d6l:cZ[3J9b5@0    Private Function fact(m As Integer) As Single '求m!的函数浙江科技学院个人空间/L ^"C'z%Hs
      Dim x As Single, i As Integer浙江科技学院个人空间-J_ dS~
      x = 1
+Y"kwEkn,j%zT0      For i = 1 To m浙江科技学院个人空间$amTI)s{
        x =   ⑹  
v8a+KkN@2H-F \0      Next i浙江科技学院个人空间6p.m(kW;G\Bx
      fact = x浙江科技学院个人空间wE;zPX:t:O"H
    End Function
;Pp?N{/G7f0    Private Sub Form_Click()浙江科技学院个人空间 JZX`0?
      Dim e As Single, item As Single
)S3O H9m mj.BpOa0      Dim n As Integer浙江科技学院个人空间P y/w5b,xyas
      e = 1: n =   ⑺  浙江科技学院个人空间4IEfd(Gp']
      Do浙江科技学院个人空间+] Odo Y,woFK
        n = n + 1浙江科技学院个人空间Tw*N"C;c3W;bk$[
        item =   ⑻  
%F,c9~(}r~r0        e = e + item浙江科技学院个人空间*}5u_BV6i9Z2f
      Loop While   ⑼  浙江科技学院个人空间0{ VD k,M,R,rlA
      Form1.Print "e="; e浙江科技学院个人空间E6ba$`I$F U,HN
    End Sub浙江科技学院个人空间#C,k^.m)kz
     浙江科技学院个人空间"_ K!h$Y+r N1as%{`
试题五、程序设计题(本题共18分)
+r c-Y0PJ;\8E0  1．随机产生n个两位正整数（n由输入对话框输入，且n>0），求出其中的偶数之和，并在标签框Label1上显示。(8分）浙江科技学院个人空间9`K'ql*nj
  注：程序写在命令按钮Command1的Click事件中。浙江科技学院个人空间Z ]J2m['G-g-l
 
#q.t7IaS2J1_?0MBM0  2. 由输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择分类法将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。（10分）浙江科技学院个人空间]-vjYIc%RO
  注：程序写在窗体Form的Click事件中。

\[[V*{R0j7e0浙江科技学院个人空间g4}$_3M|(G,v


导入论坛 收藏 分享给好友 推荐到圈子 管理 举报

TAG: 等级考试VB

引用 删除 阮柯丹妮   /   2007-11-09 16:31:05
太简单啦没水平啦
引用 删除 88   /   2007-10-06 09:06:21
怎么有重复的啊,不过还不错,谢谢啊
引用 删除 知鱼   /   2007-03-30 09:54:15
你的背景颜色太差了,前面的文字不清晰了.
 

评分：0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

日历

« 2008-12-05  
日 一 二 三 四 五 六
 123456
78910111213
14151617181920
21222324252627
28293031   

数据统计

  • 访问量: 3694
  • 日志数: 49
  • 图片数: 7
  • 书签数: 3
  • 建立时间: 2006-11-05
  • 更新时间: 2007-08-19

RSS订阅

Open Toolbar