vb考题 1.docx
- 文档编号:7544506
- 上传时间:2023-01-24
- 格式:DOCX
- 页数:13
- 大小:21.38KB
vb考题 1.docx
《vb考题 1.docx》由会员分享,可在线阅读,更多相关《vb考题 1.docx(13页珍藏版)》请在冰豆网上搜索。
vb考题1
VB期末复习
一、选择题
(1) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Move 500,500
End Sub
程序运行后,单击命令按钮,执行的操作为
A) 命令按钮移动到距窗体左边界、上边界各500的位置
B) 窗体移动到距屏幕左边界、上边界各500的位置
C) 命令按钮向左、上方向各移动500
D) 窗体向左、上方向各移动500
(1) B
(2) 在窗体上有若干控件,其中有一个名称为Text1的文本框。
影响Text1的Tab顺序的属性是
A) TabStop B)EnabledC) Visible D)TabIndex
(2) D
(3) 下列语句合法的是_____
Ax+y=2
Bx>2=y
Cx=y>2
Dx=y++
参考答案:
C
D) For i=1 To ListCount
……
Next
B) For i=0 To ListCount-1
……
Next
(4) 在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为
A) For i=0 To List1.ListCount-1
……
Next
C) For i=1 To List1.listCount
……
Next
(4) A
(5) 以下Case语句中错误的是
A) Case 0 To 10 B) Case Is>10C) Case Is>10 And Is<50 D) Case 3,5,Is>10
(5) C
(6) 以下关于图片框控件的说法中,错误的是
A) 可以通过Print方法在图片框中输出文本
B) 清空图片框控件中图形的方法之一是加载一个空图形
C) 图片框控件可以作为容器使用
D) 用Stretch属性可以自动调整图片框中图形的大小
(6) D
(7) 执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是
A) Visual B) Basic C) 6 D) 11
(7) C
(8) 以下叙述中错误的是
A) 下拉式菜单和弹出式菜单都用菜单编辑器建立
B) 在多窗体程序中,每个窗体都可以建立自己的菜单系统
C) 除分隔线外,所有菜单项都能接收Click事件
D) 如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见
(8) D
(9) 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
a = 12345
Print Format$(a, "000.00")
End Sub
程序运行后,单击命令按钮,窗体上显示的是
A) 123.45 B) 12345.00 C) 12345 D)00123.45
(9) B
(10) 以下叙述中错误的是
A) 一个工程可以包括多种类型的文件
B) Visual Basic应用程序既能以编译方式执行,也能以解释方式执行
C) 程序运行后,在内存中只能驻留一个窗体
D) 对于事件驱动型应用程序,每次运行时的执行顺序可以不一样
(10) C
(11) 以下关于函数过程的叙述中,正确的是
A) 函数过程形参的类型与函数返回值的类型没有关系
B) 在函数过程中,过程的返回值可以有多个
C) 当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递
D) 如果不指明函数过程参数的类型,则该参数没有数据类型
(11) A
(12) 以下关于变量作用域的叙述中,正确的是
A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B) 全局变量必须在标准模块中声明
C) 模块级变量只能用Private关键字声明
D) Static类型变量的作用域是它所在的窗体或模块文件
(12) B
(13) 确定一个控件在窗体上的位置的属性是
A) Width和Height B) Width或HeightC) Top和Left D) Top或Left
(13) C
(14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程
Private Sub Command1_Click()
Text1.Text = "Visual"
Me.Text1 = "Basic"
Text1 = "Program"
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示的是
A) Visual B) Basic C) Program D) 出错
(14) D
(15) 以下关系表达式中,其值为False的是
A) "ABC">"AbC" B) "the"<>"they"C) "VISUAL"=UCase("Visual") D) "Integer">"Int"
(15) A
(16) 语句Print 5/4*6\5 Mod 2的输出结果是
A) 0 B) 1 C) 2 D) 3
(16) B
(17) 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:
Private Sub Command1_Click()
strText = InputBox("请输入")
Text1.Text = strText
End Sub
Private Sub Text1_Change()
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是
A)空 B) abcdef C) abc D) def
(17) D
(18) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
x = -5
If Sgn(x) Then
y = Sgn(x ^ 2)
Else
y = Sgn(x)
End If
Print y
End Sub
程序运行后,单击命令按钮,窗体上显示的是
A) -5 B) 25 C) 1 D) -1
(18) C
(19) 一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Pubilc X As Integer,在Model1中有语句Pubilc Y As Integer,则以下叙述中正确的是
A) 变量X、Y的作用域相同 B) Y的作用域是Model1
C) 在Form1中可以直接使用X D) 在Form2中可以直接使用X和Y
(19) C
(20) 在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。
当改变当前驱动器时,目录列表框应该与之同步改变。
设置两个控件同步的命令放在一个事件过程中,这个事件过程是
A)Drive1_Change B) Drive1_ClickC) Dir1_Click D) Dir1_Change
(20) A
(21) 在窗体上画一个命令按钮(其NAME属性为Command1),然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
s = 0
a = Array(1,2,3,4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是
A) 4321 B) 1234 C) 34 D) 12
(21) B
(22) 在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输入。
以下能实现该操作的事件过程是
A) Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii > 90 Then
MsgBox "请输入大写字母"
KeyAscii = 0
End If
End Sub
B) Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode < 65 Or KeyCode > 90 Then
MsgBox "请输入大写字母"
KeyCode = 0
End If
End Sub
C) Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 Then
MsgBox "请输入大写字母"
End If
End Sub
D) Private Sub Text1_Change()
If Asc(Text1.Text) > 64 And Asc(Text1.Text) < 91 Then
MsgBox "请输入大写字母"
End If
End Sub
(22) A
(24) 在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:
Private Sub Command1_Click()
n = Val(Text1.Text)
If n\2 = n/2 Then
f = f1(n)
Else
f = f2(n)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是
A) 72 36 B) 108 36 C) 72 6 D) 108 6
(24) A
(25) 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
c = 1234
c1 = Trim(Str(c))
For i = 1 To 4
Next
End Sub
程序运行后,单击命令按钮,要求在窗体上显示如下内容
1
12
123
1234
则在下划线处应填入的内容为
A) Right(c1,i) B) Left(c1,i) C) Mid(c1,i,1) D) Mid(c1,i,i)
(25) B
(26) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:
Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i) If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是
A) 输出n以内的奇数 B) 输出n以内的偶数
C) 输出n以内的素数 D) 输出n以内能被j整除的数
(26) C
(27) 在以下描述中正确的是
A) 标准模块中的任何过程都可以在整个工程范围内被调用
B) 在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
C) 如果工程中包含Sub Main过程,则程序将首先执行该过程
D) 如果工程中不包含Sub Main过程,则程序一定首先执行第一个建立的窗体
(27) A
(28) 在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后,单击命令按钮,在窗体上显示的是
A) 11 B) 10 C) 9 D) 8
(28) C
(29) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
A) 15 B) 14 C) 13 D) 12
(29) D
(30) 在窗体上画四个文本框(如图所示),并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程:
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i) = Text1(i).Index
i = i + 1
i = i + 1
Next
End Sub
程序运行后,单击命令按钮,四个文本框中显示的内容分别为
A) 0 1 2 3 B) 1 2 3 4C) 0 1 3 2 D) 出错信息
(30) A
31.下列____语句设置单选按钮Option1为选中状态。
AOption1.Value=0
BOption1.Value=True
COption1.Value=1
DOption1.Value=False
参考答案:
B
32.计算z的值,当x大于y时,z=x;否则z=y。
下列语句错误的是
A. If x>=y Then z=x :
z=y
B If x>=y Then z=x Else z=y
C. z=y :
If x>=y Then z=x
D. If x<=y Then z=y Else z=x
参考答案:
A
33.下列语句中,不能实现循环100次的是
A)N=0
Do
N=N+1
LoopUntilN>=100
B)N=0
Do
N=N+1
LoopWhilen<100
C)N=0
N=N+1
Do
LoopUntilN<100
D)N=0
DoWhilen<100
N=N+1
Loop
参考答案:
C
34.下列事件过程实现的功能是:
用户单击命令按钮Command1后,随机产生出一个小写字母,并输出。
在横线处应选择_______。
PrivateSubCommand1_Click()
DimaAsString
Randomize
a=________
MsgBoxa
EndSub
A.Chr(Int((97+26*Rnd))
B.Int(97+26*Rnd)
C.26*Rnd
D.Rnd
参考答案:
A
35.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimnumAsInteger
num=1
Do whilenum <=6
Printnum;
num=num+2.4
Loop
EndSub
程序运行后,单击命令按钮,则窗体上显示的内容是______。
A.13.45.8
B.135
C.147
D:
无数据输出
参考答案:
B
36.假定有以下函数过程:
FunctionFun(strAsString)AsString
Dimsub_strAsString
Fori=1ToLen(str)
sub_str=UCase(Mid(str,i,1))+sub_str
Nexti
Fun=sub_str
EndFunction
在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimStr1AsString,Str2AsString
Str1=InputBox("请输入一个字符串:
")
Str2=Fun(Str1)
PrintStr2
EndSub
程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcDefg",则单击"确定"按钮后在窗体上的输出结果为______。
A.abcdefg
B.ABCEDFG
C.gfedcba
D.GFEDCBA
参考答案:
D
37.在VisualBasic工程中,可以作为“启动对象”的程序是( )。
A.任何窗体或标准模块
B.任何窗体或过程
C.SubMain过程或其他任何模块
D.SubMain过程或任何窗体
参考答案:
D
38.向文本框中输入单词hello,会触发 _____ 次Change事件
A、1
B、5
C、不触发
D、2
二、编程题(答题说明:
根据给出条件,完成相应的代码,或者算出结果。
)
1.下列VisualBasic程序段运行后,变量m的值为_____。
a=2:
b=1:
c=5
Ifa Ifc A、2 B、1 C、5 D、三项答案均不是 参考答案: B 2.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 A)1 3.4 5.8 B)1 3 5 C)1 4 7 D)无数据输出 参考答案: B 3.把窗体的KeyPreview属性设置为True,然后编写如下事件过程 PrivateSubForm_KeyPress(KeyAsciiAsInteger) DimchAsString ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) PrintChr(KeyAscii+2) EndSub 程序运行后,按键盘上的“A”键,则在窗体上显示的内容是( )。 A.A B.B C.C D.D 参考答案: C 4.计算n! 的函数过程如下: PrivateFunctionfact(nAsInteger)AsLong f=1 Fori=1Ton f=f*i Nexti (___________________) EndFunction 下划线处需要编写的语句是()。 A.f=1 B.f=fact C.fact=f D.不需要其他任何语句 参考答案: C 5.根据题意,将下列判断一个数是否素数的程序段补充完整。 x = InputBox("请输入一个整数") flag = 1 For i = 2 To (___________________) If x Mod i = 0 Then flag = 0 : Exit For Next i If flag = 1 Then Print x; "是素数" Else Print x; "不是素数" A. Sqr(x) B. x-1 C. x/2 D. 以上都正确 参考答案: D 6.设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。 要求单击Commandl按钮时可把光标移到文本框中。 下列正确的事件过程是()。 A.PrivateSubCommandl_Click() Textl.SetFocus EndSub B.PrivateSubComma
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb考题 vb 考题