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

2000年浙江二级ＶＢ试题

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

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

浙江科技学院个人空间 h4~v8H4D

2000年浙江二级ＶＢ试题浙江科技学院个人空间x$la*B bJ]O#oA
2000年秋浙江省高校计算机等级考试试卷 (二级Visual BASIC)
+z3AL$l1eCv0
O:}*i Q j0说明：考生应将全部答案写在答卷上，否则作无效处理。考试时间为120分钟。
/Y\2}vL)v4d0浙江科技学院个人空间1y&`VbY%`@:FMb%r
试题一、计算机基础题（本题共15分）浙江科技学院个人空间+o,G j)A"B6W-g?
（一）    单选题（每题1分，共10分）
v B#jMm]^01.    软盘加上写保护后，对它可以进行的操作是   （1）   。
/_ c2S q2]#B0  A．只能读盘，不能写盘             B．只能写盘，不能读盘浙江科技学院个人空间%C9[2}O;HXa:m
  C．既可读盘，又可写盘             D．不能读盘，也不能写盘浙江科技学院个人空间H\ [T,[}9|e
2.    在语言处理程序中，编译程序的功能是   （2）   。浙江科技学院个人空间1h hy6`8a
  A．解释执行高级语言程序                   B．将汇编语言程序编译成目标程序
7qRT8FW/Q7_Y0  C．解释执行汇编语言程序                   D．将高级语言程序翻译成目标程序浙江科技学院个人空间%n ?9acb` fL9]8z
3.    下列有关计算机病毒的说法中，   （3）   是错误的。浙江科技学院个人空间;X8GrsL"Nl,T[.E
  A．游戏软件常常是计算机病毒的载体浙江科技学院个人空间/e ]!v ?!` XaT
  B．尽量做到专机专用或安装正版软件，是预防计算机病毒的有效措施浙江科技学院个人空间 F T c0K#WWW-C0r
  C．用消毒软件将一片软盘消毒之后，该软盘就没有病毒了
8m'L/VU:u4L0  D．计算机病毒在某些条件下被激活之后，才开始起干扰和破坏作用
~y#ta)N04.    在Windows95中，桌面是指   （4）   。
0o(`da*t"i E!R0  A．电脑桌                   B．活动窗口
"M:i5i'\y3j%N})`0  C．文档窗口                 D. 窗口、图标和对话框所在的屏幕背景浙江科技学院个人空间 h^'lTQ ]'c-[
5.    在Windows95资源管理器窗口的左窗格中，文件夹图标含有“+”时，表示该文件夹   （5）   。浙江科技学院个人空间y7~({g5e-lzz(N e.O
  A．只含有文件               B．是空文件夹
3xrB&F.s'od0  C．含有子文件夹               D. 只含有文件而不含有文件夹浙江科技学院个人空间N(B3iml&e P#n
6.    以下是用十六进制表示的两个连续的存储单元的内容，其中 （6） 一定不是汉字编码。浙江科技学院个人空间;R.L8~s!eI
  A．A0A0H         B．1234H         C．BBBBH             D．ABCDH浙江科技学院个人空间et9d0U)~i,v
7.    下列有关Word 97格式刷的叙述中，   （7）   是正确的。
5mmf }7R0  A．格式刷既可以复制字体格式也可以复制段落格式浙江科技学院个人空间1Ui+wovw'`
  B．格式刷只能复制字体格式
'_ iH@.?SH0  C．格式刷只能复制段落格式
N*qR+Q T0  D．格式刷只能复制纯文本的内容
N`kKTC7Z#B5oP6w08.    在Word 97表格中，单元格内能填写的信息   （8）   。浙江科技学院个人空间:Q*Xc6H&]D!Q2Z
  A．只能是文字                                 B．只能是文字或符号浙江科技学院个人空间4\7PF;i-}2P4B7Z!Y
  C．只能是图像                                 D．文字、符号、图像均可
)Eea5{RE09.    调制解调器的功能是实现   （9）   。浙江科技学院个人空间a:e-c%V;M0]ao/gva
  A．数字信号与模拟信号的转换         B．数字信号的整形浙江科技学院个人空间3o6C&m$k _Qxt
  C．模拟信号的放大             D．数字信号的编码
,m&aCnI5?Br0b%g W1@010.    计算机网络最突出的优点是   （10）   。浙江科技学院个人空间!MQ5q!r"ZPX7o2R@
  A．存储容量大    B．资源共享        C．运算速度快        D．运算精度高
:VK$y6`/h^6f0
~ uDn,IGI ~?3m0（二）    填空题（每题1分，共5分）
{Ib5Bz w.i01.    CPU是计算机的核心部件，该部件主要由   (1)   组成。浙江科技学院个人空间$l/a1rnv1T.c
2.    十进制数157.375转换成对应的十六进制数是   (2)   。浙江科技学院个人空间vz6M/w4w;Qr
3.    在Windows 95中，要安装或删除Windows附件中的部分组件，通常是运行   (3)   ，然后使用其中的“添加/删除程序”功能。浙江科技学院个人空间gI+vDR)?Qu
4.    在Word 97中，为了看清文档打印输出的效果，应使用   （4）   视图。浙江科技学院个人空间F4n5P]2fb*J!P
5.    设有某Internet用户，其POP主机域名是mail.usa.net，帐户名为sdhong,则相应的E-mail地址是   （5）   。
nfqia6|yH0浙江科技学院个人空间A ]vR!W)F]
试题二、语言基础题（本题共28分）
5['N%\c&X R"E5f&h \0（一） 判断题（每题1分，共10分）
^f6jJn3HE8I-~#\0判断下列叙述正确与否，正确的打“√”，否则打“×”。
G2a(Dy,TE;}1q01．Visual Basic程序的运行可以从Main()过程启动，也可以从某个窗体启动。
y3jE9C K+G02．同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。浙江科技学院个人空间-_k0th V[g
3．静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
hC%ANr"v"t04．事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。
0d_\/i`05．在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。
W[!I'u8NX06．滚动条控件可作为用户输入数据的一种方法。浙江科技学院个人空间 K9g q]$~"{'[
7．单选钮控件和复选框控件都具有Value属性，它们的作用完全相同。浙江科技学院个人空间$T sN D \(E%V7[i
8．用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发KeyPress事件。
jH"s*eip09．组合框兼有文本框和列表框两者的功能，用户可以通过键入文本或选择列表中的项目来进行选择。浙江科技学院个人空间j ~y*^Flj!H
10．在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path = Drive1.Drive的作用是：当Drive1的驱动器改变时，Dir1的目录列表随不同驱动器作相应改变。
y(b)I0q-rz0
O@2I;Hz]0（二） 单选题（每题1分，共6分）浙江科技学院个人空间 S*@/Z;ho4z;Y-EI
1. 要改变控件的宽度，应修改该控件的 （1）   属性。
Q QDe!wj#I9R dM7G0  A． Top     B． Left     C． Width     D． Height
q hg-at]NZ0RK+H6Q02. 将命令按钮Command1设置为不可见，应修改该命令按钮的   （2） 属性。浙江科技学院个人空间(wf0t-J1F1NP
  A． Visible   B． Value     C． Caption     D． Enabled
5|qh a-{"n03. 单击滚动条两端的任一个滚动箭头，将触发该滚动条的   （3） 事件。
^'eyShZ+z0A4i{0  A． Scroll   B． KeyDown   C． Change     D． Dragover
sVzm5?#M$}S\04.   （4）   对象具有Clear方法。
O:a2PI*};T#z v0  A. 图片框   B. 窗体     C. 复选框     D. 列表框浙江科技学院个人空间k|!h ^!ix'y2n@
5．重新定义图片框控件的坐标系统，可采用该图片框的   （5） 方法。浙江科技学院个人空间H H%V"M,tEeb
  A. Scale     B. ScaleX   C. ScaleY     D. SetFocus浙江科技学院个人空间 {8|l2e F R*mh
6. 将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该控件的 （6） 方法。      
&J;t6Qe#[y4Y;UnLs2N0  A. ShowOpen   B. ShowSave   C. ShowColor   D. ShowFont
C/i5t RTAu"j0浙江科技学院个人空间 m u|3Z/g-w
（三） 填空题（每题2分，共12分）
[-s8\'j vUI01．下列代数式的Visual Basic表达式是     。浙江科技学院个人空间s_%M)M"W R |]
2．设x为大于零的实数，则大于x的最小奇数的Visual Basic表达式是     。
.p:t eC'NXV/w03．a1和a2之中有且只有一个与a3的值相等，相应的Visual Basic逻辑表达式是   。浙江科技学院个人空间S3g}{4YFRC
4．设init的初值为10，则由下列循环语句控制的循环次数是     。浙江科技学院个人空间H5k%a?7oRY`6o1m
  Do While init>=5
2zf7{8t }W}3P Y5S0      init=init-1
rM;C0x6j[!D)x0  loop
t0k^J/}.`05．在Visual Basic中，变量从它的作用范围来看，可分为   、   和   三种。
r:aLMP3MMn V06．语句Picture1.Circle (800,1000),500的含义是     。
!Gs{] l$t0浙江科技学院个人空间Ab&n$GQ/} u0\D
试题三、程序阅读题（本题共21分)
(h+G3Q#[9G$f*hL0阅读下列程序，写出运行结果。
/L/C1y Az%BC8W2e01. 程序１(5分)
n6H4spmk(I0  Private Static Sub Command1_Click()浙江科技学院个人空间9S5H wa C
    Dim x As Integer, s As Integer浙江科技学院个人空间.lqw1y/h*{s/d E-R
    x = Val(InputBox("请输入一个正整数="))
p0Tm)Exk3l]1`g0    If x < 5 Then
FLOqMG{U n0      s = s * x
/I0{yKs-VX)`0    Else浙江科技学院个人空间!@)|;N-Et-K Q
      s = s + x浙江科技学院个人空间-k3Q l8KE*h-VR%Q
    End If
~"z[%?#Cgu5|6I0    Text1.Text = "s=" + Str(s)浙江科技学院个人空间2A [K({v0J:K#W
  End Sub浙江科技学院个人空间[0v)ue)j].^
  程序运行时连续三次单击Command1，且设输入的数是5、2和4时，分别写出文本框Text1.Text的值。
e}c9r+O-O4y j0 
Dx_iQ02. 程序２(5分)浙江科技学院个人空间 LLu8ZxuJ4h5z
  Private Sub Form_Click()浙江科技学院个人空间6} rd^S.Z^ v
    Form1.Cls浙江科技学院个人空间3R,mT#j K.qqP
    w = 3
,vXd7jsrU8E)A0    For k = 2 To 6 Step 2
Xg3kPy|0    Form1.Print "w="; w, "k="; k
q5k\ i)a A[B0    w = w + 1
H||Io4J0    Next k浙江科技学院个人空间\(w+QYG+ZX)v
    Form1.Print "w="; w, "k="; k浙江科技学院个人空间7~3{AZV
  End Sub
7}X!y~~0  写出程序运行时单击窗体后，Form1上的输出结果。浙江科技学院个人空间(dp&VD*JP
3. 程序３(5分)
Kk8JM3G0  Private Sub Form_Click()浙江科技学院个人空间R7aMk)LX3V
    Dim x As String
G$A/f8K[YS9rp0    Dim i As Integer, n As Integer浙江科技学院个人空间7K4ra{!x,_:s|sH
    Form1.Cls
,Ce*o _u/a7o'|7F%k0    x = "ABCDEFGHKL"浙江科技学院个人空间gkU r)[-V
    n = Len(x)浙江科技学院个人空间 \b3kB?
    For i = n To 1 Step -2
W;KG*t Pt0      Form1.Print Tab(20 - i); Mid(x, i, 1)
8OQG8O%PN)r5fC0    Next i浙江科技学院个人空间^vM jN
  End Sub浙江科技学院个人空间%{*CV*{&o&GWd
  写出程序运行时单击窗体后，Form1上的输出结果。浙江科技学院个人空间;TkmXw;W8iA0fR
浙江科技学院个人空间 fGs[ }i0h
4. 程序４(6分)
'C"Iv I%DM,z0  Rem 在窗体的通用声明区声明两个模块级变量a和y
bDb!d8lhP&gR @0  Dim a As Integer, y As Integer浙江科技学院个人空间 ~T\8z(v5BW
  Private Sub Form_Load()浙江科技学院个人空间~/O JI/qFj
    Open "c:\a1.dat" For Output As #1
2q5bTL5I(R0    Close #1浙江科技学院个人空间7Y'r&SYJ4HW/o
  End Sub浙江科技学院个人空间/Q'{[-l\7^#SV9D
  Private Sub Command1_Click()浙江科技学院个人空间9@bg5R Q]} |}
    Open "c:\a1.dat" For Append As #1浙江科技学院个人空间Xy!RR)Gl(hvb
    Call aa(5)浙江科技学院个人空间o3un e"Yh T
    y = y + a浙江科技学院个人空间)v9Q yFW.p s.y
    Print #1, "y="; y, "a="; a
Ut\ a+?L0    Close #1浙江科技学院个人空间7BJn3ts,te
  End Sub浙江科技学院个人空间-Xy)p;H#x p
  Sub aa(i As Integer)
:TZ1n7iTG H0    x = 1浙江科技学院个人空间AC g9X[
    Do Until x > i浙江科技学院个人空间,yv_4T"l2v o#P0w
      a = a + x浙江科技学院个人空间-~/zhhF.y)X2ul
      x = x + 3浙江科技学院个人空间h,w ?Ni8Q
    Loop
| [%`(A+ez[2x0  End Sub浙江科技学院个人空间Z&A,[1MH;x PR[I
  写出程序运行时连续三次单击Command1后，a1.dat文件的最终结果。浙江科技学院个人空间*U:^4frr*j
浙江科技学院个人空间k#z$T5CiEw r S1o"O
试题四、程序填空题(每空2分，共18分)
0BZ(N9O'qmB0  1. 程序说明： 利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图1所示。单击“开始”命令按钮，秒表开始计时，单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10秒”。（假设对象的属性都在程序代码中设定）
.E-hJ#AL0浙江科技学院个人空间9\mC3{ \ N,^
图1
B-Fek!_d2H&T'V s}0  程序代码如下：浙江科技学院个人空间)uE^Y V `&W x*i
  Dim x As Long
pE \$Z*g^a#M7z^0  Dim h As Integer, m As Integer, s As Integer浙江科技学院个人空间7@9MI%M@8qz2v
  Private Sub Form_Load()
|jP)Ie0    Form1.Caption = "动态秒表（小时：分：秒）"浙江科技学院个人空间;_B7qhVUQ0Y
    Command1.Caption = "开始[&S]"
{HvM8U9v U0    Command2.Caption = "结束[&E]"
-UZb5C%j;RY0    Label1.Alignment = 2   '居中对齐
Pt,dM1tL u0    Label1.Caption = " 0: 0: 0"浙江科技学院个人空间b*^ D:L^ ^"WR'Q
    Timer1.Interval = ⑴浙江科技学院个人空间0o1Am.xe(k3S5W4R
    Timer1.Enabled = False浙江科技学院个人空间 M^A/r?3v7N
    x = 0浙江科技学院个人空间1Jl$]*ik@5K4B
  End Sub
*bih4K X\0  Private Sub Command1_Click()浙江科技学院个人空间HBA%s ] R
          ⑵    浙江科技学院个人空间g3w T]Z`Z
  End Sub浙江科技学院个人空间/N*{'w"~5e P#o ? J
  Private Sub Command2_Click()
u+kC5IUL3_+h0    Timer1.Enabled = False
7zn[Sf6n0    x =   ⑶  
2t&CJ%o*O0    Label1.Caption = "运行了"+Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒"
/t!i#p x4GwZ cF0  End Sub
/a'M1N.W*ij#_0  Private Sub Timer1_Timer()
1ik$Cy(l'Ip0    x = x + 1
wcP,L7WIX5w0    h =   ⑷  浙江科技学院个人空间~+BO(U5D6{Z rN)B
    m = (x Mod 3600) \ 60
p(wN&X5P)A){0k0    s =   ⑸  浙江科技学院个人空间{N/VY8U{2k#w
    Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)浙江科技学院个人空间 K)] gu NI@
  End Sub
'J;@ _:r6IF m6K0   
!_F8Z#u;R3JNa}02. 程序说明：已知自然对数的底数e的级数表示如下：
.F;eB5@@n0    本程序利用函数过程fact()求e,其中绝对值小于1E-8的项被忽略。程序代码如下：
be"hJI!Y0    Private Function fact(m As Integer) As Single '求m!的函数
9gx/Hn \|fD0      Dim x As Single, i As Integer
4O:hD.T/Af0      x = 1
} nU-\:[~/cm0      For i = 1 To m浙江科技学院个人空间^ iw \0nE+N$k
        x =   ⑹  
e x$O+o4\-X0      Next i浙江科技学院个人空间/B9tO9TY
      fact = x浙江科技学院个人空间sO t^6}&Yd
    End Function
8B`fWi Av[{(e0    Private Sub Form_Click()浙江科技学院个人空间aG&ud:hh!c
      Dim e As Single, item As Single
w,N0IN4J"bR0      Dim n As Integer浙江科技学院个人空间 x{ jF#oD] { \P
      e = 1: n =   ⑺  浙江科技学院个人空间VrxvM3]
      Do浙江科技学院个人空间bzI%j)F7N(k
        n = n + 1浙江科技学院个人空间n&nFy&J1d(I6U*v)EO
        item =   ⑻  浙江科技学院个人空间gc(@3{? C
        e = e + item
C#Ne;Jf ^7HH0V+h|I0      Loop While   ⑼  浙江科技学院个人空间2w+s#NC5@R$AE
      Form1.Print "e="; e浙江科技学院个人空间&nh&c}5g aKs
    End Sub浙江科技学院个人空间 e"|%G}9nSzl
     
&`'?L&V'G'n}o'ry0试题五、程序设计题(本题共18分)浙江科技学院个人空间I le3a2DR @ p
  1．随机产生n个两位正整数（n由输入对话框输入，且n>0），求出其中的偶数之和，并在标签框Label1上显示。(8分）浙江科技学院个人空间udJlXA:N
  注：程序写在命令按钮Command1的Click事件中。
*S J H)fRk&u,H&nB0 
e:B2]pID'^0  2. 由输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择分类法将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。（10分）浙江科技学院个人空间zCe+rjo8Kz c
  注：程序写在窗体Form的Click事件中。2000年浙江二级ＶＢ试题
"O_!_D7g02000年秋浙江省高校计算机等级考试试卷 (二级Visual BASIC)浙江科技学院个人空间4b%~$?Ad0l
浙江科技学院个人空间6RS'N7L,T)MM6_@
说明：考生应将全部答案写在答卷上，否则作无效处理。考试时间为120分钟。
i%C"V \+gt0浙江科技学院个人空间(h:x[ a GU.t,JO2K
试题一、计算机基础题（本题共15分）
7}B"`j&Gl)CL&VE0（一）    单选题（每题1分，共10分）
s x CS)sC"P3W5d01.    软盘加上写保护后，对它可以进行的操作是   （1）   。浙江科技学院个人空间F'?1Sn&H+P?
  A．只能读盘，不能写盘             B．只能写盘，不能读盘浙江科技学院个人空间(z5j+F-Lr g%B
  C．既可读盘，又可写盘             D．不能读盘，也不能写盘浙江科技学院个人空间 FVkV,}E0kW"r(S
2.    在语言处理程序中，编译程序的功能是   （2）   。浙江科技学院个人空间e6nb I] p
  A．解释执行高级语言程序                   B．将汇编语言程序编译成目标程序浙江科技学院个人空间S/P4qU0M
  C．解释执行汇编语言程序                   D．将高级语言程序翻译成目标程序
*A%U!ac'}2nO2N(|03.    下列有关计算机病毒的说法中，   （3）   是错误的。
? t0PN0Qca0  A．游戏软件常常是计算机病毒的载体浙江科技学院个人空间7qA)E8NvE8R-q
  B．尽量做到专机专用或安装正版软件，是预防计算机病毒的有效措施
"q5_[%g9l!K0  C．用消毒软件将一片软盘消毒之后，该软盘就没有病毒了
-|J/zn+E(o0  D．计算机病毒在某些条件下被激活之后，才开始起干扰和破坏作用浙江科技学院个人空间Qj+_j$kVd
4.    在Windows95中，桌面是指   （4）   。浙江科技学院个人空间.@7v.L4b8rQ(p ~*H/x D
  A．电脑桌                   B．活动窗口
8Z"}0L!c cV0  C．文档窗口                 D. 窗口、图标和对话框所在的屏幕背景浙江科技学院个人空间(| S _;E ],W1c3i$L
5.    在Windows95资源管理器窗口的左窗格中，文件夹图标含有“+”时，表示该文件夹   （5）   。浙江科技学院个人空间 P3He1yw0p"r'J
  A．只含有文件               B．是空文件夹
VGX0c(U(\t0  C．含有子文件夹               D. 只含有文件而不含有文件夹
b7zWY2`(V06.    以下是用十六进制表示的两个连续的存储单元的内容，其中 （6） 一定不是汉字编码。
v B pD*]"j0  A．A0A0H         B．1234H         C．BBBBH             D．ABCDH
id5H`{(l6l07.    下列有关Word 97格式刷的叙述中，   （7）   是正确的。
.?r7@q E3\,Eg6FK9d&s0  A．格式刷既可以复制字体格式也可以复制段落格式
O BxAag0  B．格式刷只能复制字体格式
i3Jb!RW8Qg0  C．格式刷只能复制段落格式
.a b wo m n0  D．格式刷只能复制纯文本的内容浙江科技学院个人空间/Gk oT P-[
8.    在Word 97表格中，单元格内能填写的信息   （8）   。
*bL5F^6JS0  A．只能是文字                                 B．只能是文字或符号浙江科技学院个人空间x j)D I*I c*dK
  C．只能是图像                                 D．文字、符号、图像均可浙江科技学院个人空间:z7CB6R|!V g
9.    调制解调器的功能是实现   （9）   。
pC}l\7Tp:ug0  A．数字信号与模拟信号的转换         B．数字信号的整形
+L)\8`-Z[6p$p0  C．模拟信号的放大             D．数字信号的编码
*F;N5CC1o:A/w QAq"p7t*|010.    计算机网络最突出的优点是   （10）   。
#V%p^:I Eq3O0wBO0  A．存储容量大    B．资源共享        C．运算速度快        D．运算精度高
a9d yzu`a"mm.w+c0
5pRp4q'U5R0（二）    填空题（每题1分，共5分）
:m5W)q,ZKO3h U{5JN'@`e01.    CPU是计算机的核心部件，该部件主要由   (1)   组成。
8~8A"HG-rMQR02.    十进制数157.375转换成对应的十六进制数是   (2)   。
y X,S`z z#T03.    在Windows 95中，要安装或删除Windows附件中的部分组件，通常是运行   (3)   ，然后使用其中的“添加/删除程序”功能。浙江科技学院个人空间1z&\ zJJ`8}7T-[
4.    在Word 97中，为了看清文档打印输出的效果，应使用   （4）   视图。
l&a'i hM@05.    设有某Internet用户，其POP主机域名是mail.usa.net，帐户名为sdhong,则相应的E-mail地址是   （5）   。
!k`8cCN'y0
Jww1lS3Jg p4D0试题二、语言基础题（本题共28分）
&z9q$w-sc['`S&L }0（一） 判断题（每题1分，共10分）
7d#]$~`G'H8H0判断下列叙述正确与否，正确的打“√”，否则打“×”。浙江科技学院个人空间 o Pv,T9i D5B
1．Visual Basic程序的运行可以从Main()过程启动，也可以从某个窗体启动。
o9v0dzgK[cD02．同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。
d?E.BaW6r~03．静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
g4N'?0Y |w e0V#B}W:N04．事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。
7k#qTot0C#S#W05．在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。浙江科技学院个人空间`]:za Hm0W
6．滚动条控件可作为用户输入数据的一种方法。浙江科技学院个人空间4cg z3] P~.DL
7．单选钮控件和复选框控件都具有Value属性，它们的作用完全相同。浙江科技学院个人空间j#X5@m"~M"X
8．用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发KeyPress事件。
O/^0r5h#O8S To09．组合框兼有文本框和列表框两者的功能，用户可以通过键入文本或选择列表中的项目来进行选择。
/JARE|!ia-V$e010．在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path = Drive1.Drive的作用是：当Drive1的驱动器改变时，Dir1的目录列表随不同驱动器作相应改变。浙江科技学院个人空间J:L%N!oxf3w7\
浙江科技学院个人空间 s vP(COWM
（二） 单选题（每题1分，共6分）
7LH8m6J1F e+r01. 要改变控件的宽度，应修改该控件的 （1）   属性。浙江科技学院个人空间'FE0\I\a
  A． Top     B． Left     C． Width     D． Height
.Z Q*f9j kg1w#w4Cw02. 将命令按钮Command1设置为不可见，应修改该命令按钮的   （2） 属性。浙江科技学院个人空间 kK jx5Gc.@
  A． Visible   B． Value     C． Caption     D． Enabled
b1w/R*@_9o LO e3g03. 单击滚动条两端的任一个滚动箭头，将触发该滚动条的   （3） 事件。浙江科技学院个人空间Q&W#s m*y_sPI
  A． Scroll   B． KeyDown   C． Change     D． Dragover浙江科技学院个人空间&d i1nEK&e E
4.   （4）   对象具有Clear方法。
Gd:r6l[ ci!c&[0  A. 图片框   B. 窗体     C. 复选框     D. 列表框
:yL qa ['F7_`T }1h05．重新定义图片框控件的坐标系统，可采用该图片框的   （5） 方法。
*Gj5Bd*O]oVm Ra0  A. Scale     B. ScaleX   C. ScaleY     D. SetFocus浙江科技学院个人空间a Un m s\a @'[nF
6. 将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该控件的 （6） 方法。      
O0H9C$p5F e KE0  A. ShowOpen   B. ShowSave   C. ShowColor   D. ShowFont
Zk_M$DN/gYF5[0浙江科技学院个人空间SCzI ^O
（三） 填空题（每题2分，共12分）
%~Iq2].H'f_01．下列代数式的Visual Basic表达式是     。浙江科技学院个人空间 G;Y3F.m i L
2．设x为大于零的实数，则大于x的最小奇数的Visual Basic表达式是     。浙江科技学院个人空间+Q,j4F6^P
3．a1和a2之中有且只有一个与a3的值相等，相应的Visual Basic逻辑表达式是   。浙江科技学院个人空间;Xrja9o}#y)z9M+e9x
4．设init的初值为10，则由下列循环语句控制的循环次数是     。浙江科技学院个人空间-_ h(C _'LVs0} d
  Do While init>=5浙江科技学院个人空间8h8[p Ks R ry
      init=init-1
e"hP#M_&W WzDz/p0  loop浙江科技学院个人空间8qj? M%]3RN P$L
5．在Visual Basic中，变量从它的作用范围来看，可分为   、   和   三种。浙江科技学院个人空间R(aD4n9|%L:L Qa*q` w
6．语句Picture1.Circle (800,1000),500的含义是     。
$p,~"sg6v;Cn9tx0
B&Hj[0YvV+Q0试题三、程序阅读题（本题共21分)
-zI}1Dc9B0阅读下列程序，写出运行结果。浙江科技学院个人空间K7~ b5q3w]D6T
1. 程序１(5分)
Hp{8dOw7}0  Private Static Sub Command1_Click()浙江科技学院个人空间#W9x yETi
    Dim x As Integer, s As Integer
:nN`)Tm.E1|0    x = Val(InputBox("请输入一个正整数="))
Oqm xis;w,J0    If x < 5 Then浙江科技学院个人空间1c\@]%w$AiS+~X
      s = s * x浙江科技学院个人空间TGJt4A4LY-JCy
    Else
N/p2d BW0      s = s + x浙江科技学院个人空间RT9R Y&n*X*{!kj?f
    End If
W)qh3vJ:k&d7Q0    Text1.Text = "s=" + Str(s)
Mj:xp3|UU;_#A6@#M%I0  End Sub浙江科技学院个人空间8A IS$^5D!K
  程序运行时连续三次单击Command1，且设输入的数是5、2和4时，分别写出文本框Text1.Text的值。浙江科技学院个人空间y$tjw X@,Y]k e
 
bY dDd(H8Zc02. 程序２(5分)
D,n:}/c` { W0  Private Sub Form_Click()
8BA-uB#q8gJ'a0    Form1.Cls浙江科技学院个人空间"o qvB9c\lI
    w = 3浙江科技学院个人空间_j-YL'H Eh`\2C3dn
    For k = 2 To 6 Step 2浙江科技学院个人空间R B5UR G fy
    Form1.Print "w="; w, "k="; k浙江科技学院个人空间wk ~ D#nX |.i&NNv)E&p(Z
    w = w + 1
+H` mMF7D \!U0    Next k浙江科技学院个人空间Y!d6S9y9BhE
    Form1.Print "w="; w, "k="; k
7Hz*cLE0  End Sub
(Sw*K+K:H#N"a0  写出程序运行时单击窗体后，Form1上的输出结果。
G7PU"\ e*^6d3m)] \6]03. 程序３(5分)浙江科技学院个人空间s-R;hub7p4Ic
  Private Sub Form_Click()浙江科技学院个人空间.|8@O,gU
    Dim x As String
|a-S/R7Ku?"_!k m0    Dim i As Integer, n As Integer
T9Z)k/B8g^0    Form1.Cls
}8[b zwu1F M;{0    x = "ABCDEFGHKL"
.@1}+cOr-b:t U0    n = Len(x)浙江科技学院个人空间$L2Q|ZCdDn
    For i = n To 1 Step -2浙江科技学院个人空间 EPnT C*QE
      Form1.Print Tab(20 - i); Mid(x, i, 1)浙江科技学院个人空间;\ F??.t%Ci
    Next i
_0J#qI%s-iGh0  End Sub
0},O1u/@*W#v R0  写出程序运行时单击窗体后，Form1上的输出结果。
y9k@y2z Z^0浙江科技学院个人空间2p m[]&Ip
4. 程序４(6分)
/Wr/` O:`0\0  Rem 在窗体的通用声明区声明两个模块级变量a和y
ScGN/zT W^0  Dim a As Integer, y As Integer
Q#T"xiv2w9}0ro1^0  Private Sub Form_Load()浙江科技学院个人空间[,FL-K ~#lA
    Open "c:\a1.dat" For Output As #1浙江科技学院个人空间,p:d^Q Vk
    Close #1
*|Fr5y6VN&d0  End Sub浙江科技学院个人空间G'DX5Ju2R2A
  Private Sub Command1_Click()浙江科技学院个人空间 S8x&K6~5m]1d(I8R
    Open "c:\a1.dat" For Append As #1浙江科技学院个人空间%IZ:b"s!J:ua
    Call aa(5)
3~6['vU8F"saG0    y = y + a浙江科技学院个人空间m:P"? Zv%f$Yc
    Print #1, "y="; y, "a="; a
3~x$U$]7I2DJ0    Close #1浙江科技学院个人空间:F go'd0qjDQ3v ]
  End Sub
p2I4PjI0  Sub aa(i As Integer)浙江科技学院个人空间,s'e)q di
    x = 1浙江科技学院个人空间4XI T[ @aS
    Do Until x > i
LL0d0pl.Q}ne0      a = a + x
p MS L-Ho0      x = x + 3
c"QkVvr0    Loop浙江科技学院个人空间ir7^%T x|u/s/@7\ @
  End Sub浙江科技学院个人空间wz\d%S/@5G
  写出程序运行时连续三次单击Command1后，a1.dat文件的最终结果。浙江科技学院个人空间9N u9z?#a&Ts+Z

*S#s2L&\qT%^U Y ^0试题四、程序填空题(每空2分，共18分)浙江科技学院个人空间 R M*F |2~6q!fxU x
  1. 程序说明： 利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图1所示。单击“开始”命令按钮，秒表开始计时，单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10秒”。（假设对象的属性都在程序代码中设定）浙江科技学院个人空间w$T]7{!~5JCjI

1O/J f4ZN!Q6U2s0图1浙江科技学院个人空间ux P s%X'g
  程序代码如下：浙江科技学院个人空间7?QCo#Yu;zF
  Dim x As Long浙江科技学院个人空间i Z3@"P"u S| |5j
  Dim h As Integer, m As Integer, s As Integer浙江科技学院个人空间%z|\:Mi&y {"Yz&[5z+m
  Private Sub Form_Load()
[ed {+{}\|7[0    Form1.Caption = "动态秒表（小时：分：秒）"
$hv9ya"YD7fr0    Command1.Caption = "开始[&S]"
HZ-oihJ_0    Command2.Caption = "结束[&E]"浙江科技学院个人空间;P9w.{He,_Uv
    Label1.Alignment = 2   '居中对齐浙江科技学院个人空间F4e,cDb oY0Z
    Label1.Caption = " 0: 0: 0"
:D6M {GQ_c*N0    Timer1.Interval = ⑴
9d2s)AX*VQ0    Timer1.Enabled = False
,b9Ayz8T[/t_0    x = 0浙江科技学院个人空间y_7dI,m6dG
  End Sub
]:E r3t JFF7q0  Private Sub Command1_Click()
w"WUZ}cw4W0          ⑵    
'YBH#F?0  End Sub浙江科技学院个人空间'O&BKh0tS\
  Private Sub Command2_Click()
1q V%VCD!J0    Timer1.Enabled = False
/|.? E}[r m~0    x =   ⑶  浙江科技学院个人空间fY aI!UkV6[
    Label1.Caption = "运行了"+Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒"浙江科技学院个人空间pn| ZCt.c0b
  End Sub浙江科技学院个人空间!C"Fa]8lt
  Private Sub Timer1_Timer()
9TJ-jC]1T ~0    x = x + 1
zQg1X+I,mc0    h =   ⑷  
)cK%[+m:e&P0    m = (x Mod 3600) \ 60
mq&x0]E+q$Q0P0    s =   ⑸  浙江科技学院个人空间/|/CJ?"I
    Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)
3aaW3Fmq0X'@,o(p0  End Sub浙江科技学院个人空间e \/El;u,q
   浙江科技学院个人空间NF^F-trz
2. 程序说明：已知自然对数的底数e的级数表示如下：
%u9Z'n(`0bCj0    本程序利用函数过程fact()求e,其中绝对值小于1E-8的项被忽略。程序代码如下：浙江科技学院个人空间 [W4p9S y@I(Q Ns
    Private Function fact(m As Integer) As Single '求m!的函数浙江科技学院个人空间V} bL$g
      Dim x As Single, i As Integer
}V8aF/\a D0      x = 1
eMs;@mW0      For i = 1 To m浙江科技学院个人空间|fv*[ Ki+D f
        x =   ⑹  浙江科技学院个人空间:uESr&jFe9^
      Next i
7u;LR \;P8[w0      fact = x
T'sP:C'?)rqG0    End Function
c:e1m Su&H$x [{0    Private Sub Form_Click()浙江科技学院个人空间4q{tL9B"}J'I
      Dim e As Single, item As Single浙江科技学院个人空间-o P%qw4G,}2WDL
      Dim n As Integer
7o&N-d*jqB;F%I0      e = 1: n =   ⑺  
4DS4EE6Hd$} wA0      Do浙江科技学院个人空间'VxiT0v-s\
        n = n + 1浙江科技学院个人空间(n#l#u l8~ Q0A6\
        item =   ⑻  
M;S#w5V2b1@P4f2U4kZ0        e = e + item浙江科技学院个人空间6Y7a+LPK
      Loop While   ⑼  浙江科技学院个人空间!cP4S#@,k9uK
      Form1.Print "e="; e
:Y3Lt:dEb0    End Sub
4bO5HI'd,i0     浙江科技学院个人空间QO E1@@{!f
试题五、程序设计题(本题共18分)浙江科技学院个人空间2U'C#\yw:l*~/U K2z&r v
  1．随机产生n个两位正整数（n由输入对话框输入，且n>0），求出其中的偶数之和，并在标签框Label1上显示。(8分）
+q$} HXz.C%L)N!W0  注：程序写在命令按钮Command1的Click事件中。浙江科技学院个人空间B kkVV
 浙江科技学院个人空间zz.Of/j5N [~9^vq(r
  2. 由输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择分类法将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。（10分）浙江科技学院个人空间"s CsJ s ^`#JYE
  注：程序写在窗体Form的Click事件中。
DaAY+sY3B02000年秋浙江省高校计算机等级考试试卷 (二级Visual BASIC)浙江科技学院个人空间:}e+C6w"b re7X

vGa&`%Y w6D0说明：考生应将全部答案写在答卷上，否则作无效处理。考试时间为120分钟。浙江科技学院个人空间G6go&M&B

,X?L5o8X,[0试题一、计算机基础题（本题共15分）
zy-a%n{ X+n0（一）    单选题（每题1分，共10分）浙江科技学院个人空间'Q3M.g!b4JR*U7U
1.    软盘加上写保护后，对它可以进行的操作是   （1）   。
!?iL#_[\(u8b0  A．只能读盘，不能写盘             B．只能写盘，不能读盘
5m\dxd#s.{0  C．既可读盘，又可写盘             D．不能读盘，也不能写盘浙江科技学院个人空间v?#T^;ZaM D
2.    在语言处理程序中，编译程序的功能是   （2）   。
s?,{Du Q)jl6t,F+Q0  A．解释执行高级语言程序                   B．将汇编语言程序编译成目标程序浙江科技学院个人空间NkbGdc;x J
  C．解释执行汇编语言程序                   D．将高级语言程序翻译成目标程序浙江科技学院个人空间C0D3}M~1T.D
3.    下列有关计算机病毒的说法中，   （3）   是错误的。
W*f"Vx0TC/S4@*^}0  A．游戏软件常常是计算机病毒的载体
$OY2B?6?0  B．尽量做到专机专用或安装正版软件，是预防计算机病毒的有效措施
.`P1w8~b)pt6T0  C．用消毒软件将一片软盘消毒之后，该软盘就没有病毒了
8n3{3W-@?&HF~[F7l0  D．计算机病毒在某些条件下被激活之后，才开始起干扰和破坏作用
j|8PjI\ H04.    在Windows95中，桌面是指   （4）   。
d`.c&l/^0  A．电脑桌                   B．活动窗口浙江科技学院个人空间l(~rSG"dnh
  C．文档窗口                 D. 窗口、图标和对话框所在的屏幕背景浙江科技学院个人空间:^v7@:i?:tRu g
5.    在Windows95资源管理器窗口的左窗格中，文件夹图标含有“+”时，表示该文件夹   （5）   。
g$E7opN Ed4a0  A．只含有文件               B．是空文件夹
\L;n `:sKKo)Q+Y0  C．含有子文件夹               D. 只含有文件而不含有文件夹浙江科技学院个人空间A#Tv]&W+ug
6.    以下是用十六进制表示的两个连续的存储单元的内容，其中 （6） 一定不是汉字编码。
;E"i x| vg1|0  A．A0A0H         B．1234H         C．BBBBH             D．ABCDH
.})['@ z&D!Xa+UE]07.    下列有关Word 97格式刷的叙述中，   （7）   是正确的。
y3X+_l YF0S(Z]0  A．格式刷既可以复制字体格式也可以复制段落格式
+Kw~3X%Z$r^w8F{.z-E0  B．格式刷只能复制字体格式
1oF [CwE([0  C．格式刷只能复制段落格式浙江科技学院个人空间1? y a#K^'pu4f2[5v
  D．格式刷只能复制纯文本的内容
DSJ,JEe0M08.    在Word 97表格中，单元格内能填写的信息   （8）   。
r.D{$| m+Ij _0  A．只能是文字                                 B．只能是文字或符号浙江科技学院个人空间'aH |J;L6l:n1DG+~ a
  C．只能是图像                                 D．文字、符号、图像均可
"Po`G ]W9Yr09.    调制解调器的功能是实现   （9）   。浙江科技学院个人空间~B,Z)aOpn w1_
  A．数字信号与模拟信号的转换         B．数字信号的整形浙江科技学院个人空间 u!gfF;OkD
  C．模拟信号的放大             D．数字信号的编码
#cn$u*g)q010.    计算机网络最突出的优点是   （10）   。浙江科技学院个人空间Vg+O:G3x.b\(E{
  A．存储容量大    B．资源共享        C．运算速度快        D．运算精度高
{Qy Y:K c`0
2}5n } _^Ns&zy0（二）    填空题（每题1分，共5分）浙江科技学院个人空间6[*c0E?i|p-y!FG
1.    CPU是计算机的核心部件，该部件主要由   (1)   组成。
0y0EiPp ^"U#]0B8vL2{02.    十进制数157.375转换成对应的十六进制数是   (2)   。浙江科技学院个人空间#fYNSEJN*}5A'g
3.    在Windows 95中，要安装或删除Windows附件中的部分组件，通常是运行   (3)   ，然后使用其中的“添加/删除程序”功能。浙江科技学院个人空间dNxa\9V5k
4.    在Word 97中，为了看清文档打印输出的效果，应使用   （4）   视图。浙江科技学院个人空间 t,]Po#r}
5.    设有某Internet用户，其POP主机域名是mail.usa.net，帐户名为sdhong,则相应的E-mail地址是   （5）   。浙江科技学院个人空间 {/qr+oh(X#V

/`1llKf_0试题二、语言基础题（本题共28分）
8_,l"FH*q3C;Mq0（一） 判断题（每题1分，共10分）
#r(Y"UI!g`7NE`0判断下列叙述正确与否，正确的打“√”，否则打“×”。浙江科技学院个人空间2E\4j3M(UgN}&S
1．Visual Basic程序的运行可以从Main()过程启动，也可以从某个窗体启动。
jH J4J*D7s5}.kh02．同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。浙江科技学院个人空间zGY$e"a[#U.|kU
3．静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
I4~B `w j9G04．事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。浙江科技学院个人空间.wT~O;Gw] X
5．在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。
SXq ` [7N4U*i'Y06．滚动条控件可作为用户输入数据的一种方法。
9r e T^3lup4~07．单选钮控件和复选框控件都具有Value属性，它们的作用完全相同。浙江科技学院个人空间Xg/[/M:h9[
8．用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发KeyPress事件。
l1_m{ V,]E09．组合框兼有文本框和列表框两者的功能，用户可以通过键入文本或选择列表中的项目来进行选择。
$ovFQE010．在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path = Drive1.Drive的作用是：当Drive1的驱动器改变时，Dir1的目录列表随不同驱动器作相应改变。浙江科技学院个人空间;k?+e4ZA8LE$_!q

t%^J;z"k(u0（二） 单选题（每题1分，共6分）浙江科技学院个人空间+?.s%aD%nh R
1. 要改变控件的宽度，应修改该控件的 （1）   属性。浙江科技学院个人空间 p#u(BZ;k*yF/o ~5F%u
  A． Top     B． Left     C． Width     D． Height浙江科技学院个人空间,D~1Z l4x
2. 将命令按钮Command1设置为不可见，应修改该命令按钮的   （2） 属性。浙江科技学院个人空间-J&_(M%|.cT-H&JC
  A． Visible   B． Value     C． Caption     D． Enabled浙江科技学院个人空间U'{P7~;\4g
3. 单击滚动条两端的任一个滚动箭头，将触发该滚动条的   （3） 事件。
Y#LdP Y},o0  A． Scroll   B． KeyDown   C． Change     D． Dragover
x0X CIq-o04.   （4）   对象具有Clear方法。
O2` f+Z4J,As0  A. 图片框   B. 窗体     C. 复选框     D. 列表框
v:f'J ma7[W/Sn@/|05．重新定义图片框控件的坐标系统，可采用该图片框的   （5） 方法。浙江科技学院个人空间8LI9j)P0n"~_7o-_
  A. Scale     B. ScaleX   C. ScaleY     D. SetFocus
/b0PA-A `,Q06. 将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该控件的 （6） 方法。      
/C AQSxFp._?0  A. ShowOpen   B. ShowSave   C. ShowColor   D. ShowFont
u3G [$QR MT*O0
b5Cx tVlo0inm!h0（三） 填空题（每题2分，共12分）浙江科技学院个人空间Rjen/uhL'HQ&~
1．下列代数式的Visual Basic表达式是     。浙江科技学院个人空间5yb_9M!e'vo
2．设x为大于零的实数，则大于x的最小奇数的Visual Basic表达式是     。浙江科技学院个人空间!d"F#r3} ARz
3．a1和a2之中有且只有一个与a3的值相等，相应的Visual Basic逻辑表达式是   。
LHH/K\'q4m3g8L0TK5u04．设init的初值为10，则由下列循环语句控制的循环次数是     。浙江科技学院个人空间:Y\ C8C4d B:J m.E
  Do While init>=5
.j0N r1O e'Xjy:_+uWP0      init=init-1
#f m[Dw(dc3~#p7e0  loop
4k1Mu BM8Q#[(X05．在Visual Basic中，变量从它的作用范围来看，可分为   、   和   三种。
`W M6sGEfW06．语句Picture1.Circle (800,1000),500的含义是     。浙江科技学院个人空间!p&LuGH+i G
浙江科技学院个人空间M:bA@p0KJ/O
试题三、程序阅读题（本题共21分)
[L(jf2V1Q^0阅读下列程序，写出运行结果。浙江科技学院个人空间+bt*y3\*ji.\D+_s
1. 程序１(5分)浙江科技学院个人空间/}pA#\hq&y5J"O
  Private Static Sub Command1_Click()浙江科技学院个人空间9~$K!N'XX0[wM)?
    Dim x As Integer, s As Integer浙江科技学院个人空间B,ce)i2h]8T!lA%S
    x = Val(InputBox("请输入一个正整数="))浙江科技学院个人空间t"g9YG"@4Y
    If x < 5 Then
$v#f#g;?:B ehE#cP0      s = s * x
cD}2s8ztV,u$S0    Else
J,P2fM"jsP0      s = s + x
qT(m`!X Q;Vq ~4k0    End If浙江科技学院个人空间!D3Wu#hM IJ*{
    Text1.Text = "s=" + Str(s)
M~ eZB8k&hB3[0  End Sub浙江科技学院个人空间2L sfn2A9KN3R
  程序运行时连续三次单击Command1，且设输入的数是5、2和4时，分别写出文本框Text1.Text的值。
X%\"wID.R9V0 
nA [L,b\z02. 程序２(5分)
\-^'_!h-d,u R0  Private Sub Form_Click()
Z['?#eZg.~l0    Form1.Cls浙江科技学院个人空间c d{j:] oDAa
    w = 3
;Q'pNRK p0    For k = 2 To 6 Step 2浙江科技学院个人空间u:d ])f$C7T9r"@
    Form1.Print "w="; w, "k="; k浙江科技学院个人空间v)LA _/a:aA+Br
    w = w + 1
-Q^6ZM6mh0    Next k
h&u:X|mfh0    Form1.Print "w="; w, "k="; k浙江科技学院个人空间`F MT `@*B K0H#qR T
  End Sub浙江科技学院个人空间g F)A[~GvR_
  写出程序运行时单击窗体后，Form1上的输出结果。浙江科技学院个人空间C:`)G\ B7FeV
3. 程序３(5分)
KhyOu}0  Private Sub Form_Click()浙江科技学院个人空间6tLX%|Ul T:E0O
    Dim x As String浙江科技学院个人空间4gl1b^k)Fq @
    Dim i As Integer, n As Integer
"m|1wk7w(y0    Form1.Cls
cSf&x!J^0    x = "ABCDEFGHKL"浙江科技学院个人空间4Je%RX6uM'Q.XE
    n = Len(x)
D;N?H4h-v"t?0    For i = n To 1 Step -2
,]3l;];d G0      Form1.Print Tab(20 - i); Mid(x, i, 1)
,X'a%}q0[.TNe0    Next i
XC6u F5s*d0  End Sub浙江科技学院个人空间z/P'}/S \
  写出程序运行时单击窗体后，Form1上的输出结果。
0Vt.v4N@;K9EAU(}0浙江科技学院个人空间 ?9R5V/RRTO+g.H`
4. 程序４(6分)
_s^*vs V V/T3p0  Rem 在窗体的通用声明区声明两个模块级变量a和y
bd%T^[3J-A3h0  Dim a As Integer, y As Integer浙江科技学院个人空间(\*C{ ez4T"U'q ?^6}
  Private Sub Form_Load()浙江科技学院个人空间 };W|#d{v S[-I2wH
    Open "c:\a1.dat" For Output As #1
|Z|t$d-GX0    Close #1浙江科技学院个人空间 }+\%@[J
  End Sub浙江科技学院个人空间V.c S0va3k
  Private Sub Command1_Click()
8Z1G H ^ ~0    Open "c:\a1.dat" For Append As #1浙江科技学院个人空间0X!D1sphD-l;os
    Call aa(5)
Y{D Ds nEg0    y = y + a浙江科技学院个人空间KC-K{*j7vV
    Print #1, "y="; y, "a="; a
o U+W*RN _0    Close #1
n!o1T!D6z_.O E0  End Sub
!\:S#\8J%^0  Sub aa(i As Integer)浙江科技学院个人空间vbO1J EKz
    x = 1
2n6`sXT;sco W2T0    Do Until x > i浙江科技学院个人空间Ii$s;R.]"n$i3|U
      a = a + x浙江科技学院个人空间9[?8bvS9y M
      x = x + 3
4q,I5o/H(yrgJ"`0    Loop浙江科技学院个人空间g}~;X2s
  End Sub浙江科技学院个人空间 n.Zc2[,m
  写出程序运行时连续三次单击Command1后，a1.dat文件的最终结果。
I!ZJf({-^9z#S:V0
!I YK2^(d'r/[c_$E!w0试题四、程序填空题(每空2分，共18分)
hHt|~n&l(\`&e0  1. 程序说明： 利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图1所示。单击“开始”命令按钮，秒表开始计时，单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10秒”。（假设对象的属性都在程序代码中设定）浙江科技学院个人空间(we!tS ^gWE

vyB9nQ[Zvb0图1
"r@&R.p2M0  程序代码如下：
4N}[v|h0  Dim x As Long浙江科技学院个人空间 b c's0d(}&F.I)^T c
  Dim h As Integer, m As Integer, s As Integer浙江科技学院个人空间q8T2noToR
  Private Sub Form_Load()
G8Ch(}3kNcf0    Form1.Caption = "动态秒表（小时：分：秒）"
&X%d5V,ls"ZB.`0    Command1.Caption = "开始[&S]"
$p9?%hvwik8i)R0    Command2.Caption = "结束[&E]"
+O5n@ } e.}sP z0    Label1.Alignment = 2   '居中对齐浙江科技学院个人空间C6zO/m[W"]h;O
    Label1.Caption = " 0: 0: 0"
R lB-P`5q)}E@9C0    Timer1.Interval = ⑴浙江科技学院个人空间V-N&Bzjavs(_
    Timer1.Enabled = False浙江科技学院个人空间eF(KeM)m"][
    x = 0浙江科技学院个人空间2`a3}){ f7kB
  End Sub浙江科技学院个人空间U"\p b L7N/{8r?
  Private Sub Command1_Click()浙江科技学院个人空间Lm|fi sEYDct
          ⑵    
uZ'I!o/Af+P@0r0  End Sub
i&lX[$?D0  Private Sub Command2_Click()浙江科技学院个人空间F0t t2`}/Y5]-U c!V
    Timer1.Enabled = False
1]C"|R/W0    x =   ⑶  
|2t2X P8mB7T0    Label1.Caption = "运行了"+Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒"
+hk#hAXt7k Jm0  End Sub浙江科技学院个人空间1g Io9N?+T
  Private Sub Timer1_Timer()浙江科技学院个人空间}M_zZo)t%Cf
    x = x + 1
ph'aec0    h =   ⑷  浙江科技学院个人空间u fv|"J/hC I
    m = (x Mod 3600) \ 60浙江科技学院个人空间U1O.|HZF{
    s =   ⑸  
1yTG$u{6f0    Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)
B\:q F` \!dn-M0  End Sub
KE/i'G.F kx0   
Vu&L-dZd7O02. 程序说明：已知自然对数的底数e的级数表示如下：浙江科技学院个人空间}{e1uV4f
    本程序利用函数过程fact()求e,其中绝对值小于1E-8的项被忽略。程序代码如下：
[~cd1v0    Private Function fact(m As Integer) As Single '求m!的函数
!f\ c4|NSL B0      Dim x As Single, i As Integer
1bu-X(J]F0      x = 1浙江科技学院个人空间5X D'nZ$`D&H\2j
      For i = 1 To m浙江科技学院个人空间2A4QNbxA
        x =   ⑹  
:W7T%} j/P)e0      Next i浙江科技学院个人空间:_T&z!o a n
      fact = x
n,P xo$Z0    End Function浙江科技学院个人空间v$ym.{%L`+L
    Private Sub Form_Click()浙江科技学院个人空间;R.i,c|(g7|h LfU]
      Dim e As Single, item As Single浙江科技学院个人空间r(c w&b;Z7q
      Dim n As Integer浙江科技学院个人空间:{J0gZ5Jm2S
      e = 1: n =   ⑺  
!Ny*R1j ?8n0      Do浙江科技学院个人空间|&YP*G7c,g2o
        n = n + 1
x b t F(z5I1n0        item =   ⑻  浙江科技学院个人空间 M\$F6AfpF[u
        e = e + item浙江科技学院个人空间w.[s.~ m3W
      Loop While   ⑼  
sy:C3}Q#k2@ @2k0      Form1.Print "e="; e
I0{+J2sJ3{m4u ^0    End Sub浙江科技学院个人空间#lMM'v H:\ENM
     
6|S!q],pVX0试题五、程序设计题(本题共18分)
B w)qj"Sx-e0  1．随机产生n个两位正整数（n由输入对话框输入，且n>0），求出其中的偶数之和，并在标签框Label1上显示。(8分）浙江科技学院个人空间U Bnr!Z K
  注：程序写在命令按钮Command1的Click事件中。浙江科技学院个人空间!oJ:o"W5u5n6L4cK
 浙江科技学院个人空间 c*P1h2D@4s
  2. 由输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择分类法将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。（10分）浙江科技学院个人空间(|.|Ue#xg0l
  注：程序写在窗体Form的Click事件中。浙江科技学院个人空间ym!iL*t@4o5g

!pWGdY5_]7X `*}'e0

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

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