VB程序的设计_试题与答案_1
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《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 （））
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
二、填空题：（每空 3 分，共 18 分）
_____________________________
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
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
End Sub
1. 点击窗体时，分析程序的执行结果。
Private Sub Form_Click()
For i = 1 To 5
For j = 1 To i
Print "* ";
Next j
Next i
End Sub
程序功能结构分析：
程序执行结果：
2. 单击命令按钮时，分析程序的执行结果。
Private Function P(N As Integer)
dim sum%
For I = 1 To N
sum = sum + 1
Next I
三、程序分析题：（每题 6 分，共 12 分）