VB编程程序设计考试题节选

得分	评卷人	一、选择题：（每空 2 分，共 20分）

1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________

A. 结构化程序设计              B. 程序开发环境

C. 事件驱动编程机制            D. 程序调试技术

2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是

A. 属性、事件、方法           B. 控件、属性、事件

C. 窗体、控件、过程           D. 窗体、控件、模块

3. 窗体模块保存在一个扩展名为__________的文件中

A.  bas     B.  vbp       

C. vbg      D.  frm

4. 下面正确的赋值语句是_      

A. x+y=30      B. y=π*r*r     

C. y=x+30      D. 3y=x

5.  设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为________ __ 

A.“492”     B.“249”      

C.“294”     D.“429”

6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是_________

A. a<=b<=c             B.  a<=b Or b<=c  

C. a<=b And b<=c        D. a<=b Not b<=c 

7.为了把焦点移到文本框，所使用的方法是__________

A. SetFocus        B.Visible       

C.Refresh         D.GetFocus

8. INT（100*RND）产生的随机整数的闭区间是____________
A.[0，100]     B.[1，100]      

C.[1，99]      D.[0，99]

9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个元素

A. 5          B. 36           

C. 30          D. 不确定

10. 下面过程定义语句合法的是____________

A. Function P1（P1）    

B. Function P1（By Val x As Integer） As Integer

C. Sub P1（x As Integer）As Single          

D.Sub P1（ByVal  x（））

得分	评卷人	二、填空题：（每空 3 分，共 18 分）

1．找出100以内能同时被3、5、7整除的最小5个数据。

Private Sub Command1_Click()

        Dim  countn%, n%

        n = 1: countn = 0

         Do

        n = n + 1

         If   ___________________________________________  Then

      Print n

       countn = countn + 1

       End If

        Loop _______________________

End Sub

2. 输出杨辉三角的前五行。

Option Base 1

Private Sub Command1_Click()

        Dim a(5, 5) As Integer, i As Integer, j As Integer

For i = 1 To 5

a(i, 1) = 1

_____________________________

Next i

For i = 1 To 5

For j = 2 To i - 1

________________________________

Next j

Next i

For  i = 1 To 5

For  j = 1 To i

Print a(i, j),

Next j

Print

Next i

End Sub

 3. 求水仙花数。

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, x As Integer  

For  a = 1 To 9

For  b = 0 To 9

For  c = 0 To  9

x =_____________________

If  ____________________________ Then   Print  x

Next c

Next b

Next a