a我考网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 141|回复: 1

[Visual Basic] 全国计算机等级二级VisualBaisc上机试练习习题(1)

[复制链接]
发表于 2012-7-31 22:10:12 | 显示全部楼层 |阅读模式
第1套上机考试试题8 ?' }8 w4 S+ P" U1 y
  一、基本操作题 $ A8 _6 u6 m6 M3 O1 x: s
  0 G$ p9 B/ z+ @8 I! a
  图1-1
% \+ D7 Y1 g4 m1 g% s) ?  : ]8 P" {' J! H( P% }, O
  图1-2
% c; P: j1 S2 C3 w8 p5 W& D  二、简单应用题
, d- t" ~5 R; j. k  下面出现的“考生文件夹”均为c:\wexam\20060001。9 i( i6 H6 d) Q9 Y, H
  1.在考生文件夹中有工程文件kt3.vbp及其窗体文件kt3.frm,该程序是不完整的,请在有“?”号的地方填入正确内容,然后删除“?”及所有注释符(即“'’号),但不能修改其他部分。保存时不得改变文件名和文件夹。
; m  q5 d8 w, T. N5 `9 v2 x' {  本题描述如下:
$ M" }% k$ s2 b2 C  在窗体上有一个列表框,名称为List1;一个文本框,名称为Text1;一个命令按钮,名称为Cl,标题为“复制”。要求程序运行后,在列表框中自动建立4个列表项,分别为Item1、Item2、Item3和Item4。如果选择列表框中的一项,单击“复制”按钮,就可以把该项复制到文本框中,如图1-3所示。- T3 c% ~: f. q' i+ [; g; p3 _- Q
  
3 U+ [) y2 J8 `! W9 C% V  图1-3
3 @" Z+ l- O  }  2.在考生文件夹中有工程文件kt4.vbp及其窗体文件kt4.frm,该程序是不完整的,请在有“?”号的地方填入正确内容,然后删除“?”及所有注释符(即“'”号),但不能修改其他部分。保存时不得改变文件名和文件夹。" C& {, ^7 R  p8 z/ @* ?
  在窗体上有三个复选框,名称分别为Ch1、Ch2和Ch3,标题分别为“体育”、“音乐”和“美术”,还有一个命令按钮,名称为c1,标题为“显示”。要求程序运行后,如果选中某个复选框,当单击“显示”命令按钮时,则显示相应的信息。例如,如果选中“体育”和“美术”复选框,单击“显示”命令按钮后,在窗体上显示“我的爱好是体育美术”,如图1-4所示。  p9 |' Q) D5 i6 \" O
  " F2 x" @1 r( E7 D( r/ }. t
  图1-4! H1 s" S. F, U* Q5 n# j
  三、综合应用题
4 ^* w& U* u$ n  下面出现的“考生文件夹”均为c:\wexamk20060001。" c4 e1 y) r7 l8 ]5 P3 G% T
  在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm,该程序是不完整的,请在有“?”号的地方填入正确内容,然后删除“?”及所有注释符(即“'”号),但不能修改其他部分。
  |$ c$ }9 x, n9 u  本题描述如下:在名称为Form1的窗体上有两个单选按钮,名称分别为Opt1和opt2,标题分别为“100~200之间素数”和“200~400之间素数”;一个文本框,名称为Text1;两个命令按钮,其名称分别为Cmd1和Cmd2,标题分别为“计算”和“存盘”,如图1-5所示。程序运行后,如果选中一个单选按钮并单击“计算”按钮,则计算出该单选按钮标题所指明的所有素数之和,并在文本框中显示出来。如果单击“存盘”按钮,则把计算结果存入out.txt文件中,该文件必须放在考生文件夹中(在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入指定的文件,而isprime函数可以判断整数X是否为索数,如果是素数,则函数返回True,否则返回False,考生可以将该模块文件添加到自己的工程中)。
2 A4 Z; d& r# O3 T6 A+ R  
( \- Z' q3 `. P+ z' U5 K6 }  图1-5
8 u" G- }" P( V, L  注意:必须把素数之和存入考生文件夹下的out.txt文件中,否则没有成绩。保存程序时必须存放在考生文件夹下,窗体文件名为kt5.frm,工程文件名为kt5.vbp。
$ v- G( U7 u+ {) e' J: c8 r6 D6 C0 G  ~" y" A4 n
第1套参考答案与解析
9 h2 `! g8 |0 ^$ q6 l9 }  一、基本操作题
9 s% e8 [. U% G. D
# u- k+ R3 _+ I+ p2 b   标题 名称
2 p) o- A/ e: q* ^9 h内缩符号
1 Z3 y! P, c8 F) S. b# ?文件
9 k+ E; U" {; [; G6 j- i) NvbFile
) T8 x6 Z1 \3 v5 r  N- XO! t" J$ N( Y0 q% K3 G
打开 ) q& }# m5 s9 v' g
vbOpen7 F7 u/ f: \3 d4 z/ O
17 s% T: i! X8 M( p
关闭
6 }$ _$ I8 _. q- EvbClose
' U$ H1 K& x" g  w7 F% q* T" C1; P8 M* B1 E2 q% m1 l8 n
退出
) P  O1 y1 M+ i" Z: g1 @+ Q! LvbExit
- ]7 o9 X5 M) A' |7 i/ G# \# J$ {1
7 E+ A- ~: U! i帮助
  p4 U* d" w" ]- L' ovbHelp, H3 |* W3 K2 q) M- }3 z8 U4 S
0
1 J4 Y2 U' H/ D9 F5 u7 y  (3)按要求设计含有“文件”和“帮助”的菜单栏。! `- y- w" b' m5 S
  (4)为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。
2 a& W* M' W, O" M7 g3 Z  i" _( E  (5)设计完成之后,按规定方式存盘。2 A8 ^9 q; F+ d2 u5 @* u
  2.【解析】单击命令按钮触发Click事件,命令按钮的标题由其Caption属性设置;在窗体上打印信息通过Print方法来实现。
) W8 g3 ?: E) k8 ^: p7 N: [# K- a  【解题步骤】
' a$ c1 W. O7 c6 ?  (1)建立界面和控件并设置控件属性。程序中用到的控件及其属性见表1-2。( @! t' }( e( v! g" b
  表1-2
1 j- R: P" ]! F# V5 R6 u* P; B2 }7 O) T' a( B0 T$ g
   控件 属性8 H; G- ]1 K7 _' x8 k3 [/ j
设置值$ P+ X6 N9 C. _
控件
  g) T8 {, D. q, |# l9 N- G! [% I属性
$ L% [4 ~! W$ p7 O; G5 G5 U. N/ Y设置值  a# T* p- N2 ?! k6 d& K
Name' T$ S# p3 g5 J# v( ]( f( J7 j
Cmd1' u6 [3 l& T$ J% K
Name
+ e6 R* g' g1 G& yCmd24 V$ _# [: y$ n' _9 n
按钮
3 X' {9 M/ I* b. U! B0 G7 n: C; _Caption4 [- ?# P9 w8 y  m0 E1 G& \6 z
喜欢
4 Z$ j5 T2 A: r. z按钮
: {2 N& K% t& w* lCaption  b. {1 R% p& ^; x* i7 y, P& c7 f: l/ \0 |7 k
不喜欢
" w! y" N8 H4 f( H) E  (2)编写程序代码。
& z* s* A6 G; z) ~( q7 ]" h8 M  参考代码:
5 @5 r/ P0 |) V7 U  Private Sub Cmd1_Click()+ b$ _6 `' n. G+ c  J5 k( K
  Print“数理化”& d& `6 j' Y4 l5 L8 h. _% E# }
  End Sub9 t8 s* N7 u( y& h% P; d9 D
  (3)调试并运行程序。
' T' }3 n  u4 g  (4)按题目要求存盘。. V/ D8 [0 j* `0 E$ K3 N5 L
  Private Sub Cmd2_C1ick()# m: o7 c% F/ q- w6 C/ x7 z9 u
  Print“政史地”4 B% f/ z6 _3 O) s, X4 V
  End SUb0 `. h5 Z; v+ O( g7 a
  二、简单应用题
1 M3 n/ |7 @% V# H9 j1 y  1.【解析】本题考查的是列表框控件List的使用。向列表框中添加项目可以用AddItem方法,也可以在属性窗口中进行。
/ Z. G$ Y" l/ y" \  但题目中要求是程序运行后自动添加,所以利用代码实现。$ S! f* c* U; B8 P
  (1)首先按要求打开给定工程文件kt3.vbp及其窗体文件kt3.frm。
5 a: l% h9 I- S/ j# C% n  (2)在窗体上建立控件并设置控件属性。程序中用到的控件及属性设置见表1-3。7 }0 X( w$ z" O, U; O2 c$ f, V! D
  表1-3
: H4 @% S' _4 {  j6 d, R, }! E" p/ A
   控件 属性, N4 D. l1 s5 r# q  H9 K
设置值, |1 t' s$ U( E4 i2 ^
控件
, x* H7 i" {1 {. A$ b属性
0 j0 `* L* t. U6 O0 j, F* |设置值7 O5 S0 a$ C$ r2 {
列表框
, [- i/ \2 |! gName
- Y4 z: @% D/ b* A8 K& {1 X; @List15 v1 u& D  u* t/ h  E2 D
Name
2 t! q& G/ _, j# ^6 V1 WC1
: D- i$ E% \& R: {- t2 O文本框 ' F6 q* q$ n' U; h& N/ A
Name
0 B& B0 Y5 Y+ n) |" Z" b/ RText1
. r2 T1 L3 I  R; s命令按钮 " ^1 T, f% W$ W4 a
Caption6 f) b% x$ u' {
复制
5 I1 \: S' w; {* }9 m% A0 X  (3)进入代码窗口,得到如下程序代码:
$ L9 V2 i- K; {" r* z* z  
% ^7 m& k) m5 J  z1 w* G) _  (4)For语句循环变量的起始值为0。
' ?$ ?" ~0 O7 Y/ o1 v  (5)列表框的Text属性为最后一次选中的表项的文本
) f% N# }* j* P; Y  (6)修改这两处的代码。. H! g+ K: U% ]
  参考代码如下:, z7 a% L6 X/ h* t( `; @
  . c9 q7 O  l" x. V5 L) i- U& }
  (7)调试并运行。
3 H3 b! y' e  y" M  (8)按题目要求存盘。
  O9 p- V6 D+ ], N; K3 N' ?( m  2.【解析】本题主要考查复选框的使用。单击命令按钮触发Click事件,程序中需要检测复选按钮的状态,可以通过Value属性来实现。如果复选按钮被选中,则Value值为1,否则Value值为0。' f" \0 W& s2 d# `( m2 V& u6 b# i; |
  (1)在窗体上先按要求建立控件,设置控件属性,程序中用到的控件及属性见表1-4。
回复

使用道具 举报

 楼主| 发表于 2012-7-31 22:10:13 | 显示全部楼层

全国计算机等级二级VisualBaisc上机试练习习题(1)

  表1-4
0 K7 d+ v& U& i# F3 d6 Q* d
+ y/ c0 I. q8 k: g0 {% Z   对象 属性* B2 Z& o" Y" z8 t7 O
设置值
& d" q5 e* D  gName: _9 e- p  n+ G" p; l' R" G% p
Ch1
- K1 P1 h: \& T+ A$ J# z复选按钮 3 k3 m, T: I7 @& ~1 X
Caption
: ?' N( T" d! \& q* V1 |$ p体育
% [4 B* Y0 T6 f( p5 x" s) v+ R; uName
! v- ]  d7 [; ]9 |Ch2# R' K+ R/ }7 }. y- ^( _6 R& I
复选按钮 + {0 n4 ~1 b* C, T+ f5 C
Caption5 [, J; |% x* K" y
音乐 3 u' B, U4 I+ E& u# H; v
Name
* z) N' N" A. YCh2* t- a3 M+ @# d( ^6 r
复选按钮
: K, b1 i' {* j! jCaption
; I5 g! s, {. n9 r# f2 Q' @. u美术 3 F) R1 N% Q; j2 r
标签
# Z+ t" V& T! i7 @# eCaption
3 ^# @' b! U3 Q" b& T* y7 O# i爱好
5 }& l/ ^: I% D0 OName
, I0 T( z: {; }  t8 jC1
% R; x3 U( s/ M. n" _4 @按钮 8 G6 z# O5 h; J$ J. p6 s
Caption5 r3 [7 Q# r9 \* N! A. j, }+ v! f
显示
2 `6 D/ ~( T" S9 o1 N. J  (2)打开代码窗口,程序提供的代码如下:# j- T( |1 [( @6 i/ M6 H' g
  
+ f0 K0 n- S, @$ P" [  (3)读懂程序,分析代码。
) ^  j" b4 v: W4 d. W' e- d  ①通过语句S=”我的爱好是”可知S为字符串,所以应改为:Dim s As String
7 b+ o7 F) x" V/ [  ②由语句:s=s+Chx.Caption可知输出的变量为S,所以应改为:Print S
+ [4 V9 ~  F/ N- ^8 M& t  (4)编写程序代码,整理后可得如下参考代码:# A9 d- j& l' \5 K5 h* ?  N
  
  j$ \2 h4 }% _1 t) j  (5)调试并运行程序。' i9 [( j/ Y3 X) B
  (6)按题目要求存盘。</p> 三、综合应用题
9 h" y6 ^& D6 o, H  【解析】本题主要考查的知识点有文本框及选项按钮的使用,在程序代码设计中用到了循环结构设计的思想。素数的判断准则为看该数除了1和其本身之外,还有无其他约数,若有,表示该数不是素数,否则该数为素数。
# p6 A- Z& {: K" z  文本框用Text属性来显示计算结果;命令按钮的标题通过Caption属性来设置,单击命令按钮触发Click事件;为了检测单选按钮是否被选中,可以通过检测Value属性来实现,当Value的属性为True时,表示单选按钮被选中,否则未被选中。9 b. t0 i* v4 F
  (1)建立界面并设置控件属性。题目提供了程序用到的控件及其属性,见表1-5。
. [6 F6 S& g+ N% C7 o  表1-5
! o4 k/ W9 Q2 V4 _' D" J# X( N- Z  ]  C  p4 U( Z
   控件 属性' R% J! T( ~0 |! F$ C
设置值# J: u# Y9 y+ R2 a- Z) U
Name
+ E$ r+ t/ b& W2 @& FOp17 h3 y& t' R3 N9 Q7 i6 n7 D
单选按钮
: \) H$ c7 u# l' b1 O9 qCaption
( u4 \8 s3 ]1 q2 Y7 f& D100~200之间素数) \+ u4 C0 Q( f% s# n/ a0 y. G
Name( \2 X) X( r& `9 y
Op2
0 c+ C/ z/ _% D  c单选按钮 4 _% {  U' m7 ?7 e- K
Caption. m9 b1 V9 Z" m! _
200~400之间素数
  u) N- d1 x1 h, T2 u: O- S
- f( l. i/ p) R! K' S. z# R# k
0 d' d% c) W" |( d9 h  续表
# f6 d2 x7 l: Q* F   控件 属性% a* n# R6 u* Y% Z3 f9 N
设置值 . b0 Y' Q0 o* e. y
文本框
# z, H! X0 U- o' L8 j/ qName6 L9 ~* v% V1 b& _* D; L
Text1. T) G) q6 Q2 c' J9 ~9 ^; E' E
Name
' X2 d: Q; ~8 ]0 w$ q6 vCmd1
5 V: O- N+ Y  q- ]- G- l命令按钮
* S. l2 I' \# eCaption
# Y8 x7 T& [9 h6 d计算 ( h4 l$ @! J9 V2 w: e( I
Name1 C) u( _1 J( @# k) R
Cmd26 x2 R$ C, M' j) e" P
命令按钮 ! v7 D+ d0 J7 ~" I
Caption! t8 X2 t2 {3 I; u+ K( I0 {
存盘
1 X3 L* |" E2 i2 e" ?4 I( [  (2)打开代码窗口,得到程序提供的代码如下:
6 M+ r: B& n  P  F0 l  ' H1 a- u' T  }$ k8 f0 Y
  
2 S: Q; K, @# ~; a7 O  (3)分析代码,找出答案。! E7 T9 y0 H& `$ n
  ①temp用来存放累加和,所以必须初始化,即:temp=0
' M/ ?( a  ~. w. g  ②Text1显示temp的值,所以使用Text1的Text属性,即:Text1.Text=temp
7 _# O8 v* z5 }  (4)整理代码,标准模块代码内没有错误,得到窗体参考代码如下:" X' Y) u0 m; _  h/ x& M
  
' \: @- [3 a1 A2 W. @. c  (5)调试并运行程序。2 y6 Y3 t/ q" o  p: H* f
  (6)按题目要求存盘。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|Woexam.Com ( 湘ICP备18023104号 )

GMT+8, 2024-5-18 08:36 , Processed in 0.257315 second(s), 23 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表