VB程序设计复习题

VB程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 复习 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 VB程序设计复习题 一、多选题： 1、常用的鼠标事件有哪些（    ） A、Click        B、Change         C、Key Down           D、Mouse Down 2、指出下列哪些常量的声明不合法（    ） A、Const a As Single=1.1             B、Const a As Integer=”aa” C、Const a As Double=Sin(1)       D、Const a=”OK” 3、指出下列哪些变量的声明不合法（    ） A、Dim a As Integer               B、Dim 12a As Double C、Dim then As String                  D、Dim a.1 As Single 4、下列哪些是合法的关系式（    ） A、4>1                                    B、sin(1)+cos(x)>x  (Dim x As Single) C、3>”12”                               D、”123”<”321” 5、VB中，变量的作用域有哪几种（    ） A、局部（Local）                        B、模块（Module） C、共有（Public）                D、静态（Static） 6、下列Caption属性中，哪些设置了热键（    ） A、File                      B、&Edit           C、Help  F1 D、V&iew                E、&Tool            F、Windows  ctrl+&w 7、在下列语句中，哪些使文本框不可以编辑（    ） A、Text1.Enabled=False        B、Text1.SetFocus C、Text1.Visibled=False         D、Text1.MultiLine=False E、Text1.Width=1000   二、程序阅读题 1、说明下列程序实现的功能。               Private  Sub  Form_Load() Dim  a  As  Double Dim  b  As  Double Dim  c  As  Double          a = Val (InpuBox ( “请输入a” ) )        b = Val (InpuBox (“请输入b” ) )                 c = a a = b b = c Print  a Print  b               End  Sub 2、下列程序段运行结果是什么？               Sub Test  () Dim  sum  As  Long        Dim  multi  As  Long          sum = 1          multi = 1                 For I=1 to 20                   multi = multi / 2 sum = sum + multi                 Next  I Print  sum               End  Sub 3、下列程序段运行结果是什么？               Sub Test  () Dim  I  As  Long                 For I=1 to 100                   If  I \ 7=0  Then Print  I Print                   End  If                 Next  I               End  Sub 三、问答题 1、指出下列程序段的错误。               Option  Explicit               Private  Sub  Form_Load()          b = 2.5                 Print  a               End  Sub 2、指出下列程序段的错误。               For  I=0  to  20                 For  J=1  to  20 A = 100 / I*J                 Next  J   Next  I 3、指出下列程序段的错误。        Sub  Test()          Dim  I  As  Integer          Dim  A(10)  As  Integer                 On  Error  Goto  ErrorHandle                 For  I=1  to  10                   A(I) = 100 / I                 Next  I               End  Sub 4、下列代码中能否正常实现求解两个数据的和的功能？为什么？               Function  Add (a  As  Integer,  b  As  Integer)  As  Integer                 Add = a + b               End  Function                 Private  Sub  Form_Click()          a = Text1.Text          b = Text2.Text          c = a + b          Print  c               End  Sub 5、已知有下列过程：               Function  result (ByVal a As Single, ByVal b As Single) As Single                 If  a * b > 0  Then                   result = a – b * b                 Else                   result = b – b * b                 End  If               End  Function 指出下列代码中的错误之处，并且写出改正后的程序运行结果。               Private  Sub  Form_Click() For  i =–1  to  1                 For  j =–2  to  2 If  result (i) >0  Then   Print  result End  If                 Next  j Next  i               End  Sub   四、编程题 1、编写一个跑马机的游戏，有四个图形比赛。（18分） 控件名字和属性：         图形：         事件过程：             2、编写一个智慧棋的游戏，有四个位置，随机产生三个数（1，2，3），放在前三个位置上，用户玩，当三个数按1，2，3排列时，程序自动检测成功。（20分） 控件名字和属性：         图形：         事件过程：