VB大专期末考试题A卷含答案
科目编号: 座号:
甘肃电大职业技术学院2009年12月期末考试
级 专业
《Visual Basic期末考试题》试卷A
核分人签名
一.单项选择题(每题3分,共60分)
1.下列不能打开属性窗口的操作是( )。
A) 执行
C) 按Ctrl+T D) 单击工具栏上的
2.下列可以打开立即窗口的操作是( )。
A) Ctrl+D B) Ctrl+E C) Ctrl+F D) Ctrl+G
3.inputBox函数反回值的类型为( )。
A) 数值 B) 字符串 C) 变体 D) 数值或字符串(视输入的数据而定)
4.可以同时删除字符串前导和尾部空白的函数是( )。
A) Ltrim B) Rtrim C) Trim D) Mid
5.如果在立即窗口中执行以下操作:
a=8 (是回车键,下同)
b=9
print a>b
则输出结果是( )。 A) -1 B) 0 C) False D) True
6.以下语句的输出结果是( )。
Print Format $(32548.5,
A) 32548.5 B) 32,548.5 C) 032,548.50 D) 32,548.50
7.为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是( )。
A) Value B) Default C) Cancel D) Enabled
8.为了把焦点移到某个指定的控件,所使用的方法是( )。
A) SetFocus B) Visible C) Refresh D) GetFocus
9.设a=6,则执行 x=IIf(a>5,-1,0)后,x 的值为( )。
A) 5 B) 6 C) 0 D) -1
10.在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
For i=1 To 4
x=4
For j =1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后,单击命令按钮,输出结果是( )。
A) 7 B) 15 C) 157 D) 538
11.在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
x=0
Do Until x=-1
a = InputBox(
a = Val(a)
b = InputBox(
b = Val(b)
x = InputBox(
x = Val(x)
a = a+b+x
Loop
Print a
End Sub
程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为( )。 A) 2 B) 3 C) 14 D) 15
12.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name 属性为Command1),然后编写如下两个事件过程: Private Sub Command1_Click()
a=Text1.Text+Text2.Text
Print a
End Sub
Private Sub Form_Load()
Text1.Text=
Text2.Text=
End sub
程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮,则输出结果为( )。
A) 444 B) 321123 C) 123321 D) 132231
13.下列不能打开菜单编辑器的操作是( )。
A) 按Ctrl + E B) 单击工具栏中的
C) 执行
14.假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使
用的语句为( )。
A) MenuItem.Enabled=False B) MenuItem.Enabled=True
C) MenuItem.Visible=True D) Menultem.Visible=False
15.在程序运行期间,如果拖动滚动条上的滚动块,则触发的滚动条事件是 ( )
A) Move B) Change C) Scroll D) GetFocus
16.假定窗体上有一个标签,名为Labell,为了使该标签透明并且没有边框,则正确的
属性设置为( )。
A)Label1.BackStyle=0 Label1.Borderstyle=0
B)Label1.BackStyle=1 Label1.Borderstyle=1
C)Label1.BackStyle=True Label1.BorderStyle=True
D)Label1.BackStyle=False Label1.Borderstyle=False
17.在窗体上画一个列表框和一个文本框,然后编写如下两个事件过程:
Private Sub Form_Load()
List1.AddItem
List1.AddItem
List1.AddItem
Listl.AddItem
Text1.Text=
End Sub
Private Sub List1_DblClick()
a =List1.Text
Print a+Text1.Text
End Sub
程序运行后,在文本框中输入
18.为了暂时关闭计时器,应把该计时器的某个属性设置为False ,这个属性是( )。
A) Visible B) Timer C) Enabled D) Interval
19.对窗体编写如下事件过程:
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button =2 Then
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,
Y As Single)
End Sub
程序运行后,如果单击鼠标右键,则输出结果为( )。
A) AAAAA B) BBBBB C) AAAAA D) BBBBB BBBBB AAAAA
20.为了在运行时能显示窗体左上角的控制框(系统菜单),必须( )。
A) 把窗体的Contro1Box 属性设置为False,其他属性任意
B) 把窗体的ControlBox 属性设置为True,并且把BoderStyle属性设置为1-5
C) 把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值
D) 把窗体的ControlBox 属性设置为True,同时把BoderStyle属性设置为0值
二.填空题(每空2分,共20分)
1.设有如下的Visual Basic表达式:
5 * x^2 - 3 * x - 2 * Sin(a)/3
它相当于代数式 。
2.执行下面的程序段后,s的值为 。
s = 5
For i = 2.6 To 4.9 Step 0.6
s = s+1 Next i
3.表达式Fix(-32.68)+Int(-23.02)的值为 。
4.为了在运行时把图形文件picfile.jpg装入图片框Picture1,所使用的语句为 。
5.在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
a = InputBox(
b = InputBox(
Print a + b
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入321和456,输出结果为 。
6.执行下面的程序段后,b的值为 。
a=300
b=20 a=a+b
b=a-b
a=a-b
7.以下程序段的输出结果是 。
num=0
While num
num=num+1
Print num
Wend
8.在窗体画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3 k=k+p(i)*2
Next i
Print k
End Sub
程序运行后,单击命令按钮,输出结果是 。
9.假定建立了一个工程,该工程包括两个窗体,其名称(Name 属性)分别为Form1和Form2,启动窗体为Form1。在Form1画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请在 和 处将程序补充完整。
Private Sub Command1_Click()
Form1
Form2. 。
End Sub
三.编程题(1-2小题各6分,3小题8分,共20分)
1.编写程序计算1+2+3+...+100。
2.我国现有人口为12亿,设年增长率为1%,编写程序,计算多少年后增加到16亿。
3.编写一个过程,以整型数作为形参,当该参数为奇数时输出False,而当该参数为偶数时输出True。
科目编号:
甘肃电大职业技术学院2009年12月期末考试
级 专业
《Visual Basic期末考试题》试卷A答案
(每题3分,共60分)二.填空题(每空2分,共20分)
1.5x2-3x- 2.9 3.56
4.Picturel.Picture = LoadPicture(
5.321456 6.300 7.1 2 3 8.33 9.Unload Show
三.编程题(1-2小题各6分,3小题8分,共20分)
1.Private Sub Form_Click( )
Static Sum As Integer
For i = 1 To 100
Sum=Sum+i
Next i
Print Sum
End Sub
2.Private Sub Command1_Click()
Dim n As Integer
Do While 12 * (1.01) ^ n
n = n + 1
Loop
MsgBox n
End Sub
3.Function NumOE( ByVal n
As Integer) As Boolean
If n Mod 2=0 Then
NumOE=True
Else
NumOE=False End if
End Function