一、概念填空题1．在Visaul Basic中,属性窗口分为四个部分，这四个部分分别是（ 1 ）属性显示方式、属性列表和对当前属性的简单解释。

2．组合框有三种不同的风格，它们分别是：( 2 )、( 3 )和( 4 )。

3．VB中，当KeyPress事件发生时会返回一个按键的（ 5 ）值。

4. 时钟控件是有规律地以一定的( 6 )激发计时器事件，而执行相应的代码程序。

5．A = 8，B = 3，C = 5，则表达式A MOD 3 + B^3 / C \ 5的值为（ 7 ）。

6．声明一个双精度变量Num5，的声明语句是 ( 8 ) 。

7．有一文本框Text1，为了使该文本框在运行时获取焦点，应执行的语句是（ 9 ）。

8．在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应使用（ 10 ）关键字。

9．Visual Basic逻辑数据类型只有 True 与 False 两个值。

当逻辑数据转换成整型数据时，True 转换为（ 11 ），False转换为（ 12 ）。

10．在Visaul Basic 中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（ 13 ）变量、（ 14 ）变量和（ 15 ）变量。

11．在Visual Basic工程中，拥有多个窗体的程序可用（ 16 ）语句将窗体装入内存，用（ 17 ）语句将指定窗体从内存中删除。

12．在Visual Basic中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）是（ 18 ）坐标。

13．字符串常量是由任何ASCII字符组成，在程序代码中，它必须由（ 19 ）括起来。

14．如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中（ 20 ）个单选按钮。

二、概念选择题1．不能触发滚动条Change事件的操作是（）。

A) 拖动滚动条的滑块 B) 单击两端箭头C) 单击滚动条的滑块 D) 单击滚动条的空白处2．已知变量x 、y为整数型，且x=4 , y=12 ,s为字符型，且s=“a”，Leble1为标签控件，Leble1的Caption属性值为Label1，下列合法的赋值语句是（）。

A) X= Leble1.Caption B) Leble1.Caption=Str(X)C) X*3=Y D) Y=X*S3．下列可以将变量A、B的值互换的语句是( )。

A) A=B : B=A B) C=B : B=A ：A=CC) A=C : C=B : B=A D) A=(A+B)/2 ：B=(A-B)/24．下列叙述中错误的是（）。

A)VB是采用了事件驱动编程机制。

B)VB是面向过程的程序设计语言。

C)VB是可视化程序设计语言。

D)VB是面向对象的程序设计语言。

5．要声明一个长度为256个字符的定长字符串变量Str，正确的是（）。

A) Dim Str as string 256 B) Dim Str as string(256)C) Dim Str as string [256] D) Dim Str as string*2566．下列关系运算结果为“True”的是( )。

A) "1"+2="12" B) "1"+"2"="3"C) "1" & 2="12" D) "1" & "2"="3"7．设a=2，b=3，c=4，d=5，下列表达式的a>b And c<=d Or 2*a>c值是( )。

A) True B) FalseC) -1 D) 18．确定复选框是否选中，可访问的属性是（）。

A) Value B) CheckedC) Selected D) Caption9．变量S#，TT%，MS$是以下何种类型（）的变量。

A）单精度双精度字符型B）双精度整型字符型C）整型字符型单精度D）字符型单精度双精度10．下列不属于图形控件方法的是（）。

A） Picture B） PrintC） Move D） Cls11．在程序代码中清除图片框Picture1 中的图形的正确语句是( )。

A)Picture1.Picture=″″B)Picture1.Picture=Loadpicture(″″)C)Picture1.Image=″″D)Picture1.Picture=Null12．设a=9，则执行 x=IIF(a>15,18,23)后，x 的值为( )。

A) 9 B) 15C) 18 D) 2313．数学表达式Sin25写成VB表达式是( )。

A) Sin 25 B) Sin(25)C) Sin 25° D) Sin(25*3.14/180)14．下列逻辑运算结果为“T rue”的是( )。

A) Flase or Not True B) Flase And Not TrueC) True or Not True D) True And Not True15．日期数据应该在数据的( )括起来。

A) 前后各用一个双引号B) 前后各用一个单引号C) 前后各用一个圆括号D) 前后各用一个“#”号16．下列运算结果中，值最大的是（）。

A) 3\4 B) 3/4 C) 4 mod 3 D) 3 mod 417．下列对过程调用时参数传递的不正确说法是（）。

A）参数传递有传值和传址两种B）传址是实参的值随着形参的改变而改变C）传值是实参的值不会随着形参的改变而改变D）传址是形参的变化不会影响到实参18．用Dim b(-2 to 4) As String语句所定义的数组的元素个数是（）个。

A) 2 B) 4 C) 6 D) 719．下列关于For …next 语句的说法正确的是（）。

A) 循环变量、初值、终值和步长都必须为数值型。

B) Step后的步长只为正数。

C) 初值必须小于终值。

D) 初值必须大于终值。

20．假设Select Case X （X字符型变量），下列错误的Case表达式是（）。

A） Is =“G” B）“A”,“B”,“C”,“T”C）“a” To “z” D） X = “G”三、阅读程序写结果1．Dim k As Integern = 12m = 2k =4Do While k <= nm = m * 2k = k + 2LoopPrint m2． A = 100B = 50C = 30IF A < B AND B < C THEN B = CIF B = C OR A < C THEN A = A-100PRINT A,B,C3．Dim M(10)，N(10)I = 3For j = 1 To 5M(j) = jN(I) = 2 + I * jNext jPrint N(I)； M(I)4 程序运行后，单击命令按钮，输出结果为。

Sub S(x As Single, ByVal y As Single)t = xx = t * yy = t / yEnd SubPrivate Sub Command1_Click ()Dim a As Single，b As Singlea = 8b = 9S a , bPrint a ; bEnd Sub四、程序填空1．以下程序用来产生80个小于50～165之间的随机整数，将这些数中能被3和5除余2的数在窗体上显示。

Private Sub Command1_Click()RandomizeFor I = 1 To 80X = ( 1 ) Int(Rnd * 116 + 50)If ( 2 ) Then X Mod 3 = 2 And X Mod 5 = 2Print XEnd IfNext IEnd Sub2. 该程序是单击命令按钮，用InputBox函数输入二个整数后，调用自定义函数，求组合C m n即m! / (n!(m - n)!)，在图形框中输出结果。

Private Sub Command1_Click()Dim M%, N%,S%M = InputBox(“输入M”)N = InputBox(“输入N”)S=( 3 ) Zh(M)/(Zh(N)*Zh(M-N))Picture1.Print “S=”；SEnd SubFunction Zh( 4 ) As Long XP = 1For H = 1 To XP = P * HNext HZh= PEnd Function3．该程序是输入任意三角形的三个边，调用子过程求出三角形的面积。

Private Sub Form_Click()Dim A%, B%, C%, AREA!A = InputBox("输入三角形的第一个边A")B = InputBox("输入三角形的第二个边B")C = InputBox("输入三角形的第三个边C")Print A, B, C（ 5 ） Call Triangle(A,B,C,AREA)Print AREAEnd SubSub Triangle（ 6 ） X,Y,Z,SP = (X + Y + Z) / 2S = Sqr(P * (P - X) * (P - Y) * (P - Z))End Sub五、程序设计数组C是一维动态定长字符数组，每个字符串长度最多9个字符，数组元素个数M由文本框Text1输入的值确定，当在文本框中输入数组元素个数失去焦点后，用InputBox函数输入M个字符串赋予C数组中；单击图形框（Picture1）在该图形框输出这些字符串的升序；单击“清空”命令按钮（Command1），清除文本框、图形框中的内容；单击“退出”命令按钮（Command2），结束程序运行。

要求：（1）设计（画出）界面（2）给出对象（控件）属性表（3）编写Text1失去焦点事件、Picture1单击事件、Command1单击事件和Command2单击事件的事件过程代码。

参考答案一、概念填空题1、对象列表框2、下拉组合框|简单组合框|下拉列表框3、按键的ASCII码值4、时间间隔5、36、Dim Num5#7、Text1.SetFocus8、Preserve9、-1|0 10、工程级|窗体级|过程级 11、Load|UnLoad12、绝对坐标 13、双引号 14、两个二、概念选择题1 -10 C B B B D C B A B A11-20 B D D C D D D D A D三、阅读程序写结果1、642、100 50 303、17 34、72 9五、程序设计Dim C() As String * 9, N%Private Sub Text1_LostFocus()N = Val(Text1)ReDim C(1 To N)For i = 1 To NC(i) = InputBox("输入字符串")Next iEnd SubPrivate Sub Picture1_Click()For i = 1 To NFor j = i To NIf C(i) > C(j) Thent = C(i): C(i) = C(j): C(j) = tEnd IfNext jNext iFor i = 1 To NPicture1.Print C(i);Next iEnd SubPrivate Sub Command1_Click()Picture1.ClsText1 = ""End SubPrivate Sub Command2_Click() EndEnd Sub。