计算机软件技术基础VB 0809-2A

0809-2A
计算机软件技术基础（VB）
一、单项选择题
1、在Visual Basic 中最基本的对象是（），它是应用程序的基石，是其他控件的容器。

A、命令按钮
B、窗体
C、文本框
D、标签
2、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）
A、 cancel
B、tabstop
C、Default
D、 Enabled
3、每个窗体对应一个窗体文件，窗体文件的扩展名是（）
A、.frm
B、.ocx
C、.bas
D、.vbp
4、下列哪项不是合法的变量名（）
A、xy
B、c3
C、x_y
D、while
5、可获得当前系统时间的函数是（）
A、year（）
B、date（）
C、time（）
D、 isdate（）
6、用下面语句定义的数组的元素个数是（）。

Dim st(-3 To 5) As Integer
A、 6
B、 5
C、10
D、9
7、下列数组声明语句中正确的是（）。

A、 Dim b1[3,6] As string
B、 Dim b2(1 to 3,6) As Integer
C、 Dim b2(n,n) As single
D、 Dim b1(3 6)
８、设m=6，n=7，k=２，执行语句Print m < n < k后，窗体上显示的是（）。

A、False B、True C、1 D、出错信息
９、在过程中定义的变量,若希望在离开该过程后,还能保存过程中局部变量的值,则在过程中定义局部变量时使用的关键字是（）。

A、 Static
B、 Const
C、 Public
D、 Dim
10、如果要改变标签的背景色，则需要设置的属性是（）
A、 Caption
B、 Back
C、 BackColor
D、 BorderStyle
11、为了暂时不让命令按钮Command1显示，应把Command1的某个属性设置为False ，这个属性是（）。

A、 Visible
B、 caption
C、 Enabled
D、 Interval
12、下列不是合法常量的是（）
A、9.234E+4
B、“2007”
C、1
D、字符串
13、语句if x=12 then y=11，下列说法正确的是（）。

A、x=12和y=11均是赋值语句
B、x=12和y=11均是关系表达式
C、x=12是关系表达式，y=11是赋值语句
D、y=11是关系表达式，x=12是赋值语句
14、Rnd函数不可能为（）的值．
A、0
B、0.1
C、 1
D、
0.1234 15、当窗体被创建时触发的事件是（）
A、 SetFocus
B、 Form_Initialize()
C、 Refresh
D、 activate
16、在没有使用控件数组的情况下，设在窗体上有两个标签，其中一个标签的名称为txta，则另一个标签的名称不能是（）
A、txt1
B、TXTA
C、text1
D、Command1
17、确定一个控件在窗体上的大小的属性是（）
A、width和height
B、width或height
C、top和left
D、top或left
18、命令按钮的Visible属性的属性值是（）类型的数据．
A、逻辑型
B、字符型
C、整型
D、实型
19、决定控件所对应事件过程的过程名的属性是( )
A、TEXT
B、CAPTION
C、NAME
D、interval
20、决定控件上文字的字体、字形、大小及效果的属性是（）
A、TEXT
B、CAPTION
C、NAME
D、FONT
21、语句 k=k-1的正确含义是
A、将变量k的值减1后赋给变量k
B、将变量k的值存到k-1中去
C、变量k的值与k-1的值相等
D、变量k的值为1
22、以下（）对象不支持Dblclick事件
A、文本框
B、命令按钮
C、标签
D、窗体
23、Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是
A、窗体、控件和方法
B、属性、事件和方法
C、窗体、控件和模块
D、控件、过程和模块
24、下面（）对象无CAPTION属性
A、窗体
B、命令按钮
C、文本框
D、标签
25、删除字符串前导空格的函数是（）
A、 Trim( )
B、Rtrim( )
C、Lcase
D、Ltrim()
26、声明全局变量应该用关键字（）
A、Static
B、Const
C、Private
D、Public
27、注释一个语句行应该用（）
A、逗号
B、单引号
C、分号
D、冒号
28、文本框控件中将T ext的内容定义为输入口令的属性项是（）
A、Password
B、PasswordChar
C、需要编程来实现
D、以上都不是
29、要实现每隔半秒钟触发一次Timer事件，需将定时器的Interval属性指定为（）。

A、5000
B、20
C、200
D、500
30、要把一个命令按钮设置成暂不可见，应设置其（）属性值
A、visible
B、enabled
C、caption
D、cancel
31、下列程序执行后输出结果是：（）
Private Sub Form_Click()
Dim n As Integer
i=10
do while i <= 20
If i Mod 2 = 0 Then
Print i
End If
i=i+1
loop
End Sub
A、从10到20的偶数
B、从10到20的奇数
C、从10到20的整数
D、从10到20的素数
32、执行下列语句后，标签label1显示（）。

x=25
label1.caption="20"
label1.caption = label1.caption & format(x)
A、25
B、2520
C、2025
D、2502
33、阅读下面的程序段：
For i=1 To 4
For j=1 To i
a=a+1
Next j
Next i
执行上面的程序后，a 的值为（）。

A、 4
B、 8
C、 1
D、 10
34、以下程序的输出结果是（）
Private Sub Form_Click()
Dim a(1 T o 5), p(1 T o 2) As Integer
k = 3
For i = 1 T o 5
a(i) = i
Next i
For i = 1 T o 2
p(i) = a(i * i)
Next i
For i = 1 T o 2
k = k + p(i) * 2
Next i
Print k
End Sub
A、10
B、13
C、15
D、12
35、有一自定义的过程如下：
function amin (x as integer，y as integer)
amin = x
If amin> y Then amin = y
End function
程序语句c=amin(20,30)，执行后C的值是（）
A、30
B、20
C、0
D、50
36、在窗体中添加一个命令按钮Command1和一个文本框Text1，并有以下程序：
Private Sub Command1_Click()
dim a As Variant，amax As Integer
a = Array(20, 31, 26, -21, -102, 789)
……
End Sub
此程序的功能是求数组a的最大元素值，并把最大值放在文本框中。

为实现程
序的功能，省略号处的程序段应该是
A、Amax = a(0)
B、 Amax = a(0)
For i = 1 To 5 For i = 1 To
5
If Amax < a(i) If
Amax > a(i) Then
a(i)=Amax Amax
= a(i)
End If Next I
Next
I Text1.Text = Amax
Text1.Text = Amax
C、Amax = a(1)
D、Amax = a(0)
For i = 2 To 6 For i = 1 To
5
If Amax < a(i) Then If Amax < a(i)
Then
Amax = a(i) Amax
= a(i)
End If End If
Next i Next i
Text1.Text = Amax Text1.Text =
Amax
37、下列Print语句执行的结果为：( )
Private Sub Form_Click( )
Dim u，v，w，x，y，z
u=1：v=2：w=3
x=4：y=5：z=6
Print u，v，w
Print x，y，z
Print u；v；w；
Print x；y；z
End Sub
A、 1 2 3
B、 1 2 3
4 5 6 4 5 6
1 2 3 4 5 6 1 2 3 4 5 6
C、 1 2 3
D、 1 2 3 4 5 6
4 5 6 1 2 3
1 2 3 4 5 6 4 5 6
38、设有如下变量声明 Dim A As Date，为变量A 正确赋值的表达方式是( )
A、A=#1/1/2007#
B、A=#“1/1/2007”#
C、A=date(“1/1/2007”)
D、 A=Format(“m/d/yy”,“1/1/2007”)
39、执行下列程序，标签label1的显示结果为：
Private Sub Command2_Click()
Text1.Text = "0123456789"
Text1.SelStart = 3
Text1.SelLength = 3
Label1.Caption = Text1.SelText
End Sub
A、012
B、345
C、456
D、234
40、窗体中有3个按钮Cmd1、Cmd2和Cmd3，该程序的功能是当单击按钮Cmd1时，按钮cmd2可用，按钮cmd3不可见，正确的程序是（）
A、Private Sub Cmd1_Click( )
B、Private Sub Cmd1_Click( )
Cmd2.Visible=True Cmd2.Enabled=True
Cmd3.Visible=False Cmd3.Enabled=False
End Sub End Sub
C、Private Sub Cmd1_Click( )
D、Private Sub Cmd1_Click( )
Cmd2.Enable=True Cmd2.Enabled=False
Cmd3.Visible=False Cmd3.Visible=False
End Sub End Sub
二、填空题
1. 执行下列程序段后，S = （1），I = （2）
Dim S As Integer , i As Single
i=3.4
Do while i < 3.4
S = S + 1
i=i+0.4
loop
2．VB提供了结构化程序设计的3种基本结构，它们是顺序结构、（3）和（4）。

3．对于单精度数12.34,它在内存中占用（5）个字节，双精度数12.34，占用（6）个字节
4．以下程序完成如下功能:将一维数组a(10)中数组元素循环向后移动一个位置，最后一个元素移到第一个元素位置上，阅读并填空：
Dim a(1 to 10) As Integer, t As Integer
For i = 1 To 10
a(i) = Val(InputBox("请输入数组元素的值"))
Next i
t=a(10)
For （7）
a(i) = a(i - 1)
Next i
（8）
For i = 1 To 10
Print a(i)
Next i
5．下面是计算N的阶乘的程序，阅读并填空
Dim n As Integer, s As Single
s = 1
n = V al(InputBox("请输入自然数"))
If n <= 0 Or n > 34 Then
Exit Sub
（9）
For i = 1 T o n
（10）
Next i
Print "n="; n, "s="; s
6．下列程序执行后，y的值是（11），x的值是（12）Private Sub Form_Click()
Dim x as single , y as integer
x = 3.6
If x > 1 Then y = 1
If x > 2 Then y = 2
If x > 3 Then y = 3
If x > 4 Then y = 4
If y<4 then x=y*6+1
End Sub
7.以下程序要实现：随着不断单击窗体，窗体的标题依次显示为：北京→上海→天津→河北。

请补全程序。

（13） Index as integer
Index=index+1
If index=1 then
Form1.caption=”北京”
Elseif index= 2 then
Form1.caption=”上海”
Elseif index=3 then
Form1.caption=”天津”
Elseif index=4 then
Form1.caption=”河北”
（14）
（15）
8.有以下程序，运行后z的值是（16）
Private sub command1_click()
Dim x as integer,y as integer
X=2
Y=4
Z=myfunc(x,y)
Print z
End sub
Function myfunc(m as integer,n as integer)
Myfunc=m*m+n*n
End function 9. 窗体的生命周期大致可分为四个阶段：（17），（18），（19）和窗体的卸载。

10. 时钟（Timer）控件是一种定时触发事件的控件，它只支持（20）事件。

三、编程题（10分）
打印乘法九九表。

格式如图所示
Private Sub Form_Click()
End Sub。