vb123学习vb 的好帮手

（一）

1如果设计时在属性窗口将命令按钮的(D )属性设置为False，则运行时按钮从窗体上消失。 A.Enabled

B.DisabledPicture C.Default D.Visible

2将文本框的( C )属性设置为True时，文本框可以输入或显示多行文本。 A.Enabled B.Text C.MultiLine D.ScrollBars

3有程序代码“Text1.Text=\”，其中的Text1、Text和“Visual Basic”分别代表( D )。 A.对象、值、属性 B.属性、对象、值 C.对象、方法、属性 D.对象、属性、值

4函数Left(\的值是(A ) A.how B.are

C.how are you D.you

5如下四个符号，可以作为VB合法变量名的是( D ) A.5_f B.User%s C._5flg D. N1

6如下语句中，不能正常执行的是( B ) A.Print 3245343＋23233 B.Print 32765＋3 C.Print 3423/89 D.Print 5＋7＝100

7以下(A )程序段可以实现X、Y变量值的交换 A.Z=X:X=Y:Y=Z B.Z=X:W=Y:Y=Z:X=Y C.Y=X:X=Y D.Z=X:Y=Z:X=Y

8以下关于MsgBox的叙述中，错误的是(C ) A.通过MsgBox函数可以设置消息框中显示的图标

B.通过MsgBox函数可以设置消息框中显示的按钮的类型

C.MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量 D.MsgBox函数返回一个整数 9下列说法正确的是( B )

A.语句Val(Text1.Text)=X的含义是将文本框Text1中的内容转换为数值型后赋值给变量X B.语句Text1.Text=X的含义是将变量X的值显示于文本框Text1中

C.语句X=Val(Text1.Text)的含义是将文本框Text1中的内容转换为字符型后赋值给变量X D.语句Text1.Text=X的含义是将文本框Text1中的内容转换为10数值型后赋值给变量X 语句X=X+1的正确含义是( B ) A.变量X的值与X+!的值相等 B.将变量X的值加1后赋给变量X C.将变量X的值存到X+1中去 D.变量X的值为1

11语句X = X + 1的正确含义是( B )。 A. 变量X的值与X＋1的值相等 B.将变量X的值加1后赋给变量X C.变量X的值为1

D.将变量X的值存到X＋1中去 12分析下列语句，给出执行结果 Private Sub Form_Click() Const pi As Single = 3.14 a% = 7

If a Mod 4 > pi Then Print \努力\Else Print \学习\End Sub

执行结果为( B )，其判决条件的值为( )。

A.学习 TRUE B.学习 False C.努力 TRUE D.努力 False

13下列说法中正确的是( A)。

A.语句Text1.Text = x的含义是将变量x的值显示于文本框Text1中 B.语句Text1.Text = x的含义是将文本框Text1中的内容赋值给变量x

C.语句Text1.Text = x的含义是将文本框Text1中的内容转换为数值型后赋值给变量x D.以上说法都是错误的

14以下循环语句中在任何情况下都至少执行一次循环体的是( A )。 A.Do 循环体 Loop Until <条件>

B.Do While <条件> 循环体 Loop

C.While <条件> 循环体 Wend

D.Do Until <条件> 循环体 Loop

15在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click(） Dim n% ,b ,t

t = 1 : b = 1 : n = 2 Do

b = b * n t = t + b n = n +1

Loop Until n>9 Print t End Sub

此程序计算并输出一个表达式的值，该表达式是求( C )。

A.10！

B.1！+2！+…+10！ C.1！+2！+…+9！ D.9！

16在程序中有语句For i = n1 To n2 Step n3，则在循环体中有下列(D )语句会影响循环执行的次数。 A.n1 = n1 + 1 B.n3 = 2 * n3 C.n2 = n2 + n3 D.i=i+n3

17使用语句Dim a(1 To 15) As String声明数组a之后，以下说法正确的是（ A ）。 A.A数组中的所有元素值为空串 B.A数组中的所有元素值为True C.A数组中的所有元素值不确定 D.A数组中的所有元素值为0 18设有数组声明语句: Option Base 0 Dim A(3, -1 To 1)

以上语句所定义的数组A为（A）维数组 A.2 B.0 C.-1 D.1

19下面的数组声明语句中（A）是不正确的。 A.Dim MA(1:5,1:5)As Single B.Dim A(1, 1) As Integer

C.Dim MA(1 To 5, 1 To 5, -1 To 1) As Long

D.Dim A(1, 1 To 10) As String 20以下说法不正确的是（C）

A.使用ReDim语句可以改变数组的维数

B.使用ReDim语句可以对数组中的所有元素进行初始化 C.使用ReDim语句可以改变数组的类型

D.使用ReDim语句可以改变数组每一维的大小 21设有数组声明语句： Option Base 1

Dim A(2) As Integer

则数组A的下界为（ D ）。 A.不能确定 B.0 C.2 D.1

22下列有关数组的说法中，错误的是（ C ）。

A.Erase语句的作用是对已定义固定大小数组的值重新初始化 B.数组必须先定义后使用 C.数组的下界必须从0开始

D.定义数组时，数组维界值可以不是整数

23使用语句Dim A(-1 To 2,3)定义了数组A，则函数Ubound(A,2)的值是（C） A.-1 B.0 C.3 D.2

24设有以下语句： Option Base 0 … Dim A

A =Split(\ 则A（1）的值是（A） A.w B.How C.H D.ld

25可以在（ D ）中，使用Public pubstr as String*20定义一个定长字符串。 A.类模块 B.窗体模块 C.三者均可 D.标准模块

26若在应用程序中用“Private Sub sub1(x As Integer, y As Single)”定义了子程序sub1，调用程序中的变量i,j均为Integer型，则正确调用子程序sub1的是（ C ）。 ①Call sub1(i, j) ②Call sub1(3.1415, i)

③Call sub1(3.14, 234) ④Call sub1(\A.①②③ B.①③ C.③④ D.无

27设已经定义了如下结构的函数过程： Function f(a, b, Optional c) ...

End Function

则以下函数调用错误的是（D）

A.f(1,2) B.f(a,b) C.f(a,b,c) D.f(a,b,c,d)

28以下叙述错误的是（C）

A.用Static声明的过程中的局部变量都是Static类型 B.在用Call语句调用Sub过程时必须把实参放在括号里 C.在Sub过程中可以嵌套定义Function D.在Sub过程中可以调用Function过程

29调用由语句Private Sub convert(y As Integer)定义的Sub过程时，以下不是按值传递的语句是（ B ）。 A.Call convert((x))

B.convert x

C.Call convert(x * 1) D.convert (x)

30在参数传递过程中，使用关键字（B ）来修饰参数，可以使之按地址传递。 A.Value B.ByRef C.ByVal D.Reference

31以下叙述错误的是（A）

A.Sub Main过程应建立在窗体模块的通用声明段 B.一个过程中只能有一个Sub Main过程

C.若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 D.Sub Main过程应建立在标准模块中

32在过程中定义的变量，若希望在离开过程后，还能保存过程中该变量的值，则应该使用（ C ）关键字在过程中定义该局部变量。 A.Dim B.Private C.Static D.Public

33在过程中定义的变量，若希望在离开过程后，还能保存过程中该变量的值，则应该使用（ D）关键字在过程中定义该局部变量。 A.Dim B.Private C.Static D.Public

34要清除组合框Combo1中的所有内容，可以使用(B )语句。 A.Combo1.Remove B.Combo1.Clear C.Combo1.Cls D.Combo1.Delete

35要选择列表框List1的第4项，可以使用语句( A)。 A.List1.Selected(3) = True B.List1.Selected= 4 C.List1.Selected=3

D.List1.Selected(4) =True

36引用列表框的最后一项应使用( D )。 A.List1.list(ListCount-1) B.List1.list(List1.ListCount) C.List1.list(ListCount)

D.List1.list(List1.ListCount-1) 37在VB中可以作为容器的是( D )。 A.Form、TextBox、PictureBox B.Form、TextBox、Label

C.PictureBox、TextBox、ListBox D.Form、PictureBox、Frame

38以下所列的8个控件中，具有Caption属性的有( A )个。【CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、DirListBox（文件夹列表框）、Image（图像框）、Frame（框架）、Label（标签）、Line（线条）】 A.3 B.5 C.2 D.4

39以下说法正确的是（B）

A.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 B.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器

C.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令打开菜单编辑器 D.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器

40设已经在窗体上添加了一个通用对话框控件CommonDialog1，以下正确的语句是（D）。 A.CommonDialog1.Filter=\B.CommonDialog1.Filter={ALL Files|*.*|Pictures(*.Bmp)|*.Bmp} C.CommonDialog1.Filter=ALL Files|*.*|Pictures(*.Bmp)|*.Bmp D.CommonDialog1.Filter=\

41使用通用对话框控件打开字体对话框时，如果要在字体对话框中列出可用的屏幕字体和打印机字体，必须设置通用对话框控件的Flags属性为（B）。 A.0 B.3 C.2 D.1

42下列不能打开菜单编辑器的操作时（A）

A.按Shift+Alt+M

B.执行“工具”菜单中的“菜单编辑器”命令 C.单机工具栏中的“菜单编辑器”命令 D.按Ctrl+E

43执行下面程序段之后，窗体右下角坐标为（A） Form1.ScaleTop=1:Form1.ScaleLeft=1 Form1.ScaleHeight=-2:Form1.ScaleWidth=2 A.(3,-1) B.(1,2) C.(2,-1) D.(1,1)

44假设窗体的当前坐标为(200,200),则执行语句Line Step(100,100)-Step(200,200)时，绘制 的直线的终点坐标为（D）。 A.(300,300) B.(200,200) C.（100，100） D.(500,500)

45当一个窗体被其他窗体覆盖后，又要回到该窗体，如果要自动刷新或重画该窗体上的所有图形，应将（D）属性设置为True。 A.Enabled B.AutoSize C.Picture D.AutoRedraw

46语句Line(100,100)-(500,500),,B的功能是（B）。 A.使用窗体的前景颜色绘制一条直线 B.使用窗体的前景颜色绘制一个矩形 C.使用窗体的背景颜色绘制一个矩形 D.使用窗体的背景颜色绘制一条直线

47文件列表框中用于设置或返回所选文件的路径和文件名的属性是（D） A.Path B.File C.FilePath D.FileName

48要在C盘当前文件夹下建立一个名为StuData.dat的顺序文件，应先使用（D）语句 A.Open\B.Open\C.Open\D.Open\49下列叙述中不正确的是（A）

A.自定义数据类型只能在窗体模块的通用声明段进行声明

B.自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明 C.在窗体模块中定义自定义数据类型时必须使用Private关键字

D.自定义数据类型中的元素的数据类型可以是系统提供的基本50数据类型或已声明的自定义数据类型 执行语句Open\后，系统（B） A.在C盘当前文件夹下建立名为StuData.dat的顺序文件

B.将C盘当前文件夹下名为StuData.dat的文件的内容读入内存

C.将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中 D.将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中

一、'题目：(事件)单击窗体。

' (响应)求100到500之间奇数的和，将结果输出 ' 在窗体上并存入变量SUM中。'

'------------------------------------------------- Private Sub Form_Click() Dim sum As Long

'***************** Begin ************** For i = 100 To 500 If i Mod 2 = 1 Then sum = sum + i End If Next i Print sum

'*************** End ************************* Call TestFunc(sum)

本文来源：https://www.bwwdw.com/article/z1b5.html