得分 | 评卷人 | 一、选择题:(每空 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
联系客服