VB程序的设计复习试题

1、、多选题：1、常用的鼠标事件有哪些（A、ClickDown2、A、C、3、A、C、4、A、VB程序设计复习题B、 ChangeD 、 Mouse Down指出下列哪些常量的声明不合法（Const a As Single=1.1Const a As Double=Sin(1)指出下列哪些变量的声明不合法（Dim a As IntegerDim then As String列哪些是合法的关系式（4>1sin(1)+cos(x)>x(Dim x As Single)D、C、3>”12”123”<”321”5、VB中，变量的作用域有哪几种（A、局部（ Local ）C、共有（

2、Public ）C、 KeyB、 Const a As Integer=Const a= ” OK”B 、 Dim 12a As Double? ?”aa”D 、Dim a.1 As SingleB、D、”B 、模块（ Module ）D 、静态（ Static ）A、FileB、&EditC 、 Help F1D、 V&iewE 、 &ToolF、Windows ctrl+&w7、在下列语句中，哪些使文本框不可以编辑()A、 Text1.Enabled=FalseB 、 Text1.SetFocusC、Text1.Visibled=FalseD、Text1.M

3、ultiLine=FalseE、Text1.Width=1000二、程序阅读题1、说明下列程序实现的功能。Private Sub Form_Load()DimaAsDoubleDimbAsDoubleDimcAsDoublea =Val (InpuBox (“请输入 a” ) )b= Val (InpuBox (“请输入 b” ) )c= aa = bPrintPrint bEnd Sub2、下列程序段运行结果是什么？Sub Test ()Dim sumAs LongDimmultiAsLongsum =1multi =1For I=1 to 20multi = multi / 2sum =

4、sum + multiNext IPrint sumEnd Sub3、下列程序段运行结果是什么？Sub Test ()Dim I As LongFor I=1 to 100IfI 7=0ThenPrint IPrintEnd IfNext IEnd Sub三、问答题1、指出下列程序段的错误。OptionExplicitb = 2.52、指出下列程序段的错误。PrivatePrintEnd SubFor I=0SubForm_Load()to20For J=1to 20A = 100 / I*JNext JNext I3、指出下列程序段的错误。Sub Test()Dim I As Integer

5、Dim A(10) As IntegerOn Error Goto ErrorHandleFor I=1 to 10A(I) = 100 / INext IEnd Sub4、下列代码中能否正常实现求解两个数据的和的功能？为什么？Function Add(a As Integer, b As Integer) As IntegerAdd = a + bEnd FunctionPrivate Sub Form_Click()a = Text1.Textb = Text2.TextPrintEnd Sub5、已知有下列过程：Function result (ByVal a As Single, ByVal b AsSingle) As SingleIf a * b > 0 Thenresult = a - b * bElseresult = b - b * bEnd IfEnd Function指出下列代码中的错误之处，并且写出改正后的程序运行结果。PrivateSub Form_Click()For i =- 1 to1For j =- 2 to2If result (i) >0ThenPrintresultEnd IfNext jNext iEnd Sub18 分）四、编程题1、编写一个跑马机的游戏，有四个图形比赛。（控件名字和属性