内容发布更新时间 : 2024/9/19 18:53:28星期一 下面是文章的全部内容请认真阅读。

《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. 下面过程定义语句合法的是____________。

《VB程序设计基础》试卷 第 1 页 共 11 页

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

《VB程序设计基础》试卷 第 2 页 共 11 页

_____________________________ 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 Next c Next b Next a

《VB程序设计基础》试卷 第 3 页 共 11 页x