VisualBasic编程与应用作业2

会计考友

一 、选择题
) L3 H; l, i9 V1 D* e% t1．为了使文本框显示滚动条，必须首先设置的属性是（    ）
  A．AutoSize       B．Alignment       C．Multiline         D．ScrollBars
: `; A, s# O& w6 G2．改变控件在窗体中的上下位置应修改控件的（    ）属性。
  A．Top     B．Left     C．Width         D．Height
3． 在form1 窗体启动时，为使form1.text1文本框首先获得焦点，可以在窗体的form1_Load事件过程中加入（     ）语句。
4 n' U; H. [% N) p7 K3 \9 V4 x  A．text1.Index=0           B．text1.TabIndex=0   C．text1.Appearance        D．text1.tag=0
. s+ D) C! B  ~, W 4．将命令按纽Command1设置为不可见，应修改该命令按纽的（    ）属性。
( j6 g2 t' [! G/ [, x% pA．Visible       B．Value       C．Caption        D．Enabled
  m: U$ @! s" @4 G  g5．摇改变Label控件中文字的颜色，可以设置Label控件的（     ）属性。
A．FontColor       B．FillColor       C．ForeColor       D．BackColor
1 C% Z( k. S) H. f! G; U$ S" p8 ~6．执行后将会删除文本框Text1中选中的文本的语句是（      ）。
9 K" z' r# i7 C% Y& @A．Text1.Text=”              B．Text1.SelText=”    C．Text1.Clear=              D．Text1. SelText.Clear=
* V) a* N  J6 r7．以下控件中没有Caption属性的是（     ）。
! ^3 l: S! s* j, E; ^* ?+ h* fA．标签框      B．文本框       C．框架      D．命令按纽
# S& y7 y/ ]4 l3 B" e8．复选框对象是否被选中，是由其（    ）属性决定的。
A．Checked      B．Value       C．Enabled     D．Selected
9．要使ListBox可以单击或按空格键来实现复选，则属性MultSelect的值应设为（    ）
  A．1         B．2          C．3
10．以下不允许用户在程序运行时输入文字的控件是（     ）。
/ l) n9 b; l  j  ~A．文本框      B．下拉式组合框      C．简单组合框      D．下拉式列表框
  b3 y2 q# o4 b1 b9 Z% X; P9 w11．不能通过（    ）来删除列表框中的选择项。
) z5 Q5 f! `3 _! ZA．List属性                   B．RemoveItem方法    C．Clear方法                  D．Text属性
& }, G$ @9 M- F6 }3 C12．组合框的3中不同风格：下拉组合框、简单组合框和下拉列表框由（    ）属性决定。
A．Style      B．BoderStyle          C．FillStyle       D．DrawStyle
13．单击滚动条两端的任意一个滚动箭头，将触发该滚动条的（    ）事件。
9 n$ J. C, F" ]* Z6 zA．Scroll     B．KeyDown           C．Change        D．DragOver
( ^# o5 P; |* L$ L7 s; L14．要将定时器控件的宽度设置增大一些，以下叙述正确的是（     ）。
" u* `, T3 h# b$ q8 {2 NA．设置定时器的Width属性          B．设置定时器的Left属性   
$ {- M& v/ f' n! AC．设置定时器的Height属性         D．无法对定时器的宽度进行设置
2 P+ G% |' w6 @15．设计动画时通常使用时钟控件（     ）来控制动画速度。

会计考友

A．Enabled       B．Interval         C．Timer        D．Move
16．可以使用SetFocus方法的控件是（     ）
A．Frame        B．Label           C．Form         D．Timer
17．不能响应Click事件的控件是（    ）
. |" j4 `5 \' q8 N  T0 CA．列表框       B．图片框          C．窗体         D．计时器
- k4 K0 D0 G+ q+ E18．定时器的Interval属性以（    ）为单位指定Timer事件之间的时间间隔。
A．分           B．秒              C．毫秒         D．微秒
二、问答题
1．改正下列语句中的错误：
（1）A$ = abc
+ T) G7 y2 v* }5 y% s/ Z; q（2）Print  a = 34 + 23
/ ?! Z4 o* p1 B' Y  n8 }（3）X = 5    y = 6
（4）Print   ’’ c = ’’：5 + 6
（5）Text1. Print ’’ # # # # # # # # ’’
# U  w  ^8 a8 {: T$ N' V（6）A * 5 = B +2
4 x1 ~1 ~" w4 J, c2．写出下列语句的输出结果，并上机验证：
（1）Print ’’ 25 + 32 ’’； 25 + 32
（2）X = 12.5       Print  ’’x = ’’ ；x
6 t( ?& l+ g, w5 C! L0 @（3）a % = 3.14156         Print a %
（4）Print ’’ China ’’；’’ Beijing ’’，’’ Tianjin ’’；’’ Shanghai ’’，’’ Wuhan ’’，
# b+ J% g. n* {) G" C+ APrint ’’Nanjing ’’；
Print ’’ Shenyang ’’，’’ Chongqing ’’；’’ Wulumuqi ’’
Print ，，’’ Guangzhou ’’，，’’ Chengdu ’’
（5）Print Tab (5）；100；Space $ (5) ；200； Tab（35）；300
( J3 u2 o, p3 i+ e     Print Tab(10)；400；Tab（23）；500；Space $ (5) ；600
3．写出下列语句的输出结果：
" |; b5 ]7 n  a9 C9 G- x' ISub Form_Click（）
    A = 10: b = 15: c = 20: d = 25
- @  x% m3 t# [5 ~* c    Print A; Spc(5); b; Spc(7); c
  M) X8 o" \2 f$ _7 V3 {3 b" [! G2 F( o    Print A; Spc(8); b; Space$(5); c
! f' u& k1 o) E    Print c; Spc(3); "+"; Spc(3); d;
    Print Spc(3); "="; Spc(3); c + d
End Sub
# s: q  U' K  ~& X/ a9 q* N1 S% N       4．可以通过哪几种方法在图片框中装入图形？
三、编程题
1．编写程序，打印如下的乘积表：
" R7 y8 M: R/ `*   3   6   9  12
15
* n; [- p! Y) X6 G  T16
; R* T; u, N. ], m6 W% {2 N17
18
2．创建一个登录界面，由两个标签（ Label1、Labe12 ）和两个文本框 （txtName 、 txt Password ）组成。其中，口令文本框 （txtPassword ）的 PasswordChar 属性设置为“*”，运行时要求输入姓名和密码，如果在两个文本框中分别输入“Guest：”和“12345”，则界面显示“欢迎使用本系统！”，否则显示“对不起，你不是本系统用户！”。
3．运用定时器和图片框设计一个简单的动画。
- R) u+ l& S' F( J; L  k动画场景：界面有两个按钮“缩小”和“暂停”（cmdSize 和 cmdStop）、一个垂直滚动条（VsbSize）、一个图像框（imgSize）和两个标签组成。单击“缩”按钮，就开始定时地缩小图形；单击“暂”按钮，则停止缩小；改变滚动条箭头的位置可以改变缩小的速度。各对象的属性设置如表所示，设置定时器每时间间隔为1秒。
  W) y/ n& K8 _3 z/ ?5 j9 D" w           控 件 属 性
1 d( ^  O: @8 s# ~2 ]' v5 n对象
控件名
& }/ ?5 a4 O( Z1 W! C4 d属性名
8 R, ~  ~6 ^- n6 Y) t5 g3 j属性值
Form
7 Q+ u# \% h2 e! LForm1
Caption
- M. K5 O* g4 U( [6 p( d* h) P定时缩小图象框
' X. V; x# A( E5 J: O) `3 h- e% S2 ]Label
% [2 W# X& J- w3 ^8 p+ XLabe11
$ H" K. H( p' z2 B# C! JLabe12
( C. R$ Y6 Y) x9 I; v( ACaption
+ |- `9 \4 V8 ]. iCaption
) n& a# R, G+ f: ^: H$ |+ q8 x快
( d. c) \1 }  O0 c慢
  o, H) R  N/ c  |% a. Y( j( BCommandButton
' d9 [( Q1 a: G2 {cmdSize
  `4 q) ?* K( G/ kcmdStop
: ^0 x) T9 o+ R& l! z9 QCaption
; D) n+ g2 ]9 c# HCaption
$ f0 w* X% P6 X' x7 Y2 I缩小
暂停
+ o  f* s3 S) t3 O* W  qImage
* M, S6 j4 M  Q. j6 timgSize
) L( b( u1 B9 _$ m, E0 e$ k) mStretch
Picture
" L' T0 C. H: K* i# s* mTrue
C:\VisualStudio\Common\Graphics\Metafile\Arrows
& I6 Z6 y; k0 `6 p' QTimer
1 H" @9 p& K3 \$ |3 HtmrSize
Enabled
' L0 `: y) L1 eInterval
False
6 m: A! V( m* h8 z. S6 K6 D3 ^1000
VscrollBar
VshSize
Max
/ V" d" q. ~; M8 b; a" j! }( F/ |2 kMin
LargeChange
950
50
* [6 F7 D% H( w) \50

; R8 x# M( I1 S2 G0 l1 {4．使用控件数组创建一个简单的电话拨号程序。

会计考友

界面中一个文本框（txtPhoneNo）用于显示所拨的电话号码，按钮控件数组（cmdNumber）   用于拨号，Index 属性是0~9，Caption 属性为相应的数字。另两个命令按钮“拨号”和“取消”在本程序中未编程使用。
5．从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均数。通过InputBox函数输入数据，在窗体上显示和及平均值。
- V, \, @3 a: t9 k4 V% a6．编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。
7．设a =5， b =2.5，c =7.8，编程序计算：y=丌ab/（a+bc）
8．在窗体上画4个图像框和一个文本框，在每个图像框中装入一个箭头图形，分为4个不同的方向，把文本框的MultiLine属性设置为True。编写程序，当单击某个图像框时，在文本框中显示相应的信息。例如，单击向右的箭头时，在文本框中显示“单击向右箭头”。
9．在窗体上建立三个文本框和一个命令按钮。程序运行后，单击命令按钮，在第一个文本框中显示由Command1_Click事件过程设定的内容（例如“Microsoft Visua1Basic”），同时在第二、第三个文本框中分别用小写字母和大写字母显示第一个文本框中的内容。
提示：用第一个文本框的Change事件过程在第二、三个文本框中显示指定的内容。
2 _) b+ f0 J- ~# i+ P2 `10．编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮。程序运行后，在第一个列表框中选择所需要的项目，单击“添加”按钮，可把所选择的项目移到第二个列表框中。如果单击“删除”按纽，则执行相反的操作。在第二个列表框中，允许同时选择多个项目。分别在两个列表框的下面显示列表框当前的Style和Sorted属性。
0 R3 [3 W2 Q7 d8 \答案：在窗体上建立两个列表框，两个命令按钮，其Name属性分别为List1，List2，cmdAdd，cmdDel。其中，List1采用默认配置，List2的Sorted属性设置为有效状态，Style属性设置为复选框形式，Multiselect属性设置为2。
11．编写程序，用计时器按秒计时。在窗体上画一个计时器控件和一个标签，程序运行后，在标签内显示经过秒数，并响铃。