VB试题库

1、求一个三位正数N的十位数的正确方法是___C___。

A、lnt（N/10)-lnt(N /100)

B、N-lnt(N-1000)*100

C、n \ 10 Mod 10

D、lnt(N/10)-lnt(N/10)*10

2、表达式(-1)*Sgn(-100+Int(Rnd*100))的值是___A___。

A、1

B、0

C、-1

D、随机

3、在程序中分别将变量IntA、Bl、st和D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是_A___。

A、Bl=#True#

B、st= ""

C、D=#10/05/01#

D、Inta=4.6

4、图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是__B______。

A、Appearance

B、Stretch

C、Autoredraw

D、Autosize

5、使用___C____方法可将新的列表项添加到一个列表框中。

A、Clear

B、AddItem

C、Print

D、RemoveItem

6、下列 ____B____ 不是列表框的方法。

A、Clear

B、AddItem

C、Print

D、RemoveItem

7、执行下列程序段，输出结果为 ____B______。

Dim a(10) As Integer

Dim i As Integer

For i = 1 To 10

a(i) = 2 * i - 1

Next i

Print a(4);

Erase a

Print a(4)

A、出错

B、7 0

C、4 4

D、7 7

9、执行下列程序段，输出结果为 _____B_____。

Dim a() As Integer

Dim i As Integer

ReDim a(10)

For i = 1 To 10

a(i) = 2 * i - 1

Next i

Print a(4);

Erase a

Print a(4)

A、7 0

B、出错

C、7 7

D、4 4

10、执行下面的程序，输出结果是_____A______。

Option Explicit

Private Sub Form_Click()

Dim M As Integer,N As Integer

M=1:N=2

Print M+N+F(M,N)

M=2:N=1

Print F(M,N)+F(M,N);

End Sub

Private Function F(X As Integer,Y As Integer)

X=X+Y

Y=X+3

F=X+Y

End Function

A、18 30

B、9 18

C、7 18

D、4 9

11、窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用________C___。

A、Form1.K

B、Form.K

C、Frm1.k

D、K

12、一个工程中含有窗体Form1.Form2和标准模块Model1，如果在Form1中有语句

Public X As Integer

在Model1中有语句

Public Y As Integer

则以下叙述中正确的是B

A、变量X.Y的作用域相同

B、在From1中可以直接使用X

C、Y的作用域是Model1

D、在Form2中可以直接使用X和Y

13、VB是一种面向___C_____的程序设计语言。

A、过程

B、用户

C、对象

D、方法

14、以下叙述中错误的是___D_____。

A、事件可以由用户引发，也可以由系统引发

B、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

C、保存Visual Basic程序时，应分别保存窗体文件及工程文件

D、Visual Basic应用程序只能以解释方式执行

15、VB是用于开发____A__环境下的应用程序的工具。

A、Windows

B、DOS

C、DOS和Windows

D、UNIX

16、为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用____C_______。

A、字符串类型

B、数组

C、记录类型

D、变体类型

17、下面关于随机文件的描述不正确的是___A________。

A、一个文件中记录号不必唯一

B、每条记录的长度必须相同

C、可通过编程对文件中的某条记录方便地修改

D、文件的组织结构比顺序文件复杂

18、以下关于文件的叙述中，错误的是_____B______。

A、顺序文件中的记录一个接一个地顺序存放

B、随机文件中记录的长度是随机的

C、LOF函数返回给文件分配的字节数

D、执行打开文件的命令后，自动生成一个文件指针

20、执行以下语句后，a的值为___C_____。

Dim a As Integer

a = 1

Do

a = a + 2

Loop Until a = 100

A、101

B、100

D、99

22、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：

Private Sub Command1_Click()

A = Inputbox("Enter An Integer")

B = Inputbox("Enter An Integer")

Text1.Text = B + A

End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是____C___。

A、出错

B、60

C、564

D、456

23、执行语句：A = Inputbox("Today", "Tomorrow", "Yesterday")

将显示一个输入对话框，在对话框的输入区中显示的信息是____C__。

A、Tomorrow

B、Today

C、Yesterday

26、下列程序段的执行结果是___A____。

X = 2

Y = 1

If X * Y < 1 Then Y = Y - 1 Else Y = -1

Print Y - X > 0

A、False

B、True

C、-1

D、1

27、在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：

Private Sub Command1_Click()

N = Text1.Text

Select Case N

Case 1 To 20

X = 10

Case 2, 4, 6

X = 20

Case Is < 10

X = 30

Case 10

X = 40

End Select

Text2.Text = X

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是D____。

A、20

B、30

C、40

D、10

28、设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是 ___A_____。

A、Menu1.Visible=False

B、Munu1.Enabled=False

C、Menu1.Visible=True

D、Menu1.Enabled=True

29、以下使用方法的代码中，正确的是__D____。

A、Form1.Clear

B、Combo1.Cls

C、Label1.SetFocus

D、Text1.SetFocus

30、设有一个命令按钮，若要实现按回车键等同按此键，应设置其__D_______ 。

A、Default属性设为False

B、Cancel属性设为True

C、Cancel属性设为False

D、Default属性设为True

32、在用通用对话框控件建立"打开"或"保存"文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即.txt文件），则正确的描述格式是__A__。

A、"文本文件(.txt)|*.txt"

B、"text (.txt)"|(*.txt)

C、"text(.txt)||(*.txt)"

D、"text(.txt)(*.txt)"

33、在以下4个逻辑表达式中，其逻辑值为"真"的是__B____。

A、not (3+4<4+6)

B、not(1>2)

C、1>2 or 2>3

D、2>1and 3<2

34、设A="12345678"，则表达式Val(Left(A,4)+Mid(A,4,2))的值为___A___。

A、123445

B、123456

C、8

D、6

35、以下能够触发文本框Change事件的操作是__C______。

A、文本框获得焦点

B、设置文本框的焦点

C、改变文本框的内容

D、文本框失去焦点

36、VB中可以使用自己定义的Sub过程和Function过程，______D_____ 过程称为函数，这种过程可以返回值。

A、通用

B、属性

C、事件

D、Function

37、下面程序段的运行结果为_C_______。

Dim s As Integer, i As Integer

i = 1: s = 1

Do

i = i + s

Loop Until s > 10

Print i, s

A、11 1

B、11 10

C、溢出

D、10 1

38、以下关于窗体的描述中，错误的是____B____。

A、窗体的Height、Width属性用于设置窗体的高和宽

B、执行Unload Form1语句后，窗体Form1消失，但仍在内存中

C、窗体的Load 事件在加载窗体时发生

D、当窗体的Enabled 属性为False时，通过鼠标和键盘对窗体的操作都被禁止

39、以下叙述中错误的是____B___。

A、下拉式菜单和弹出式菜单都用菜单编辑器建立

B、如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见

C、除分隔线外，所有菜单项都能接收Click事件

D、在多窗体程序中，每个窗体都可以建立自己的菜单系统

40、在程序中可以通过复选框和单选按钮的____A___属性值来判断它们的当前状态它。

A、Value

B、Caption

C、Checked

D、Selected

42、运行如下程序后，输出结果为______。

Dim i As Integer, y As Integer

For i = 3 To 15 Step 3

y = y + i

i = i + 3

Next i

Print i; y

答案：21 27

43、如果依次输入75,55,45,70,30,25,40,15,20,5,下列程序段的执行结果为______。 Dim c As Integer, k As Integer, d As Integer

c = 70

For k = 11 To 20

x = InputBox("输入X的数值:")

If x < c Then

d = d + x: c = x

Else

d = d + c

End If

Next k

Print d

答案：330

46、素互换，第2个元素与第9个元素互换……分别输出数组原来各元素的值和对换后各元素的值。

Private Sub Command1_Click()

Dim a(10) As Integer

Dim i As Integer, j As Integer

Print "原序列："

For i = 1 To 10

a(i) = Int(Rnd * 90) + 10

Print a(i);

Next i

Print

For i = 1 To ________

t = a(i)

________

________

Next i

Print "交换后的序列："

For i = 1 To 10

Print a(i);

Next i

Print

End Sub

答案：第一空：5

第二空：[NY]a(i)=a(11-i)

第三空：[NY]a(11-i)=t

47、执行以下程序段，则第一行输出结果是_______，第二行输出结果是_______。Dim a(-3 To 5) As Single

Dim b(3, 4) As Integer

Print UBound(a), UBound(b, 1)

Print LBound(a), LBound(b, 2)

答案：第一空：5 3

第二空：[NY]-3 0

48、设有数组声明语句：Dim A(-1 To 2,-1 To 1) As Long，则数组A在内存中所占的字节数为______。

答案：48

49、顺序文件通过PRINT语句或__________语句把缓冲区中的数据写入磁盘。

答案：WRITE

52、假设递归函数fact(n)用来求n的阶乘，请补充程序。

Private Function fact(n As Integer) As Long

If n = 0 Or n = 1 Then

fact = 1

Else

fact = ___________

End If

End Function

答案：n*fact(n-1)

54、执行以下程序，单击命令按钮后，如果在弹出的对话框中单击"是"按钮，则窗体上的输出内容是_______。

Private Sub Command1_Click()

Dim a As Integer

a = MsgBox("非法数据！" & Chr(13) & Chr(10) & "请重新输入", vbYesNo+ vbCritical, "提示信息")

Print a

End Sub

答案：6

55、运行下列程序，单击命令按钮后，在窗体上输出结果为______。

Option Base 1

Private Sub Command1_Click()

Dim a(3, 3), s(3)

Dim x, i%

For i = 1 To 3

s(i) = 0

For j = 1 To 3

a(i, j) = i + j

s(i) = s(i) + a(i, j)

Next j

Next i

For Each x In s

Print x;

Next x

End Sub

答案：9 12 15

1下列符号常量的声明中，___D___是不合法的。

Const a As single =1.1

Const a As Integer =″12″

Const a =″OK″

Cost a As Double =Sin(1)

2`在以下有关对象属性的叙述中错误的是___D____。

只能在执行时设置或改变的属性为执行时属性

所有对象都具有Name 属性

对象的某些属性只能在设计时设定，不能使用代码改变

Enabled属性值设为False的控件对象在窗体上将不可见

3`以下关于图片框控件的说法中，错误的是_____A__。

用Stretch属性可以自动调整图片框中图形的大小

清空图片框控件中图形的方法之一是加载一个空图形

图片框控件可以作为容器使用

可以通过Print方法在图片框中输出文本

4`设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是D

List1.Index

List1.Listindex

List1.List

List1.Text

5`以下关于动态数组的语句中，正确的是____D___。

ReDim a(3,4)：ReDim Preserve a(4,7)

Dim a() As Integer：ReDim a(5) ：ReDim a(3,4)：a(4)=a(3)+1

Dim a() As Integer：ReDim a(5) As Single

ReDim a(k+1)：ReDim preserve a(10)

6`执行下面的程序，输出结果是___________。

Option Explicit

Private Sub Form_Click()

Dim M As Integer,N As Integer

M=1:N=2

Print M+N+F(M,N)

M=2:N=1

Print F(M,N)+F(M,N);

End Sub

Private Function F(X As Integer,Y As Integer)

X=X+Y

Y=X+3

F=X+Y

End Function

1830

8`名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是__________A_。

Private Sub sort(A() As Integer)

Private Sub sort(ByVal A() As Integer)

Private Sub sort(A(10) As Integer)

Private Sub sort(A( ，) As Integer)

9以下叙述中错误的是___D_____。

Visual Basic应用程序不具有明显的开始和结束语句

Visual Basic中控件的某些属性只能在运行时设置

Visual Basic 是事件驱动型可视化编程工具

Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性

10 一只白色的足球被踢进球门，则白色、足球、踢、进球门是________。

属性、对象、事件、方法

11 以下叙述中正确的是____A_______。

随机文件中每个记录的长度是固定的

Open命令的作用是打开一个已经存在的文件

使用Input #语句可以从随机文件中读取数据

一个记录中所包含的各个元素的数据类型必须相同

13 假定在窗体上建立了通用对话框，其名称为CommonDialog1 ，用下面的语句可以建立一个对话框:

CommonDialog1.Action = 2

与该语句等价的语句是_______A____。

CommonDialog1.showsave

CommonDialog1.showopen

CommonDialog1.showcolor

CommonDialog1.showfont

14 执行以下语句后，a的值为__3 ___。

Dim a As Integer

a = 1

Do

a = a + 2

Loop While a = 100

窗体Form1的名称属性是frm，它的Load事件过程名是_Form_Load

16运行如下程序后，输出结果为_30_____。

a = 0

For j = 1 To 30 Step 2

a = a + j mod 5

Next j

Print a

18 运行下列程序，单击命令按钮后，在窗体上输出结果为__9 12 15____。

Option Base 1

Private Sub Command1_Click()

Dim a(3, 3), s(3)

Dim x, i%

For i = 1 To 3

s(i) = 0

For j = 1 To 3

a(i, j) = i + j

s(i) = s(i) + a(i, j)

Next j

Next i

For Each x In s

Print x;

Next x

End Sub

20 假设递归函数fact(n)用来求n的阶乘，请补充程序。

Private Function fact(n As Integer) As Long

If n = 0 Or n = 1 Then

fact = 1

Else

fact = __n*fact(n-1)_________

End If

End Function

22 执行以下程序，单击命令按钮后，如果在弹出的对话框中单击"是"按钮，则窗体上的输出内容是_____6__。

Private Sub Command1_Click()

Dim a As Integer

a = MsgBox("非法数据！" & Chr(13) & Chr(10) & "请重新输入", vbYesNo+ vbCritical, "提示信息")

Print a

End Sub

23 设有数组声明语句：Dim A(-1 To 2,-1 To 1) As Long，则数组A在内存中所占的字节数为__48___。

1 以下可以作为Visual Basic变量名的是___D___。

F1.1 a*b2FA F2A

2 以下叙述中错误的是________。

程序运行过程中，可以重新设置菜单的Visible属性

在菜单的标题栏中，"&"所引导的字母指明了访问该菜单项的访问键

在同一窗体的菜单项中，不允许出现标题相同的菜单项

弹出式菜单也在菜单编辑器中定义

3 下列程序段的执行结果为________。

Dim a(10) As Integer, b() As Integer

Dim i As Integer

ReDim b(5)

For i = 1 To 10

a(i) = i

If i Mod 2 = 0 Then

b(i/2) = a(i)

End If

Next i

Print a(4); b(3)

4 6

4 在调用过程时，下列说法中正确的是_____C______。

只能使用Call语句调用Sub过程

调用Sub过程时，实际参数必须用括号括起来

Function过程也可以使用Call语句调用

Function过程也可以使用Call语句调用

5 表达式Abs(-5)+Len("ABCDE")的值是___10___。

5ABCDE 10 -5ABCDE 0

6 单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的_______中安排适当的单选按钮，即可实现。

框架控件（Frame）或图片框（PictureBox）

7 阅读下面程序，当单击窗体后，窗体上输出的是17 13 3_________。

Private Sub Form_Click()

Dim i As Integer, k As Integer

Dim a As Integer, b As Integer

a = 5:

b = 1

For i = 1 To a + b Step b

i = i + 1

a = a + i

b = b + i

k = k + 1

Next i

Print a; b; k

End Sub

9 下列程序的执行结果为_____35 20_____。

Private Sub Form_Click()

Dim M As Integer, N As Integer

M = 15: N = 20

Call try(M, N)

Print M; N

End Sub

Sub try(x As Integer, Byval y As Integer)

x = x + 20

y = x + y

End Sub

11 执行以下程序，单击命令按钮后，如果从键盘上输入5，则第一行输出结果是_1 2 3 4 5_____，第二行输出结果是__(NY)00000000000____。

Private Sub Command1_Click()

Dim a() As Integer

Dim n As Integer, i As Integer

n = InputBox("input n:")

ReDim a(n)

For i = 1 To n

a(i) = i

Print a(i);

Next i

Print

ReDim a(10)

For i =0 To 10

Print a(i);

Next i

End Sub

12 执行下列程序，单击命令按钮在窗体上输出结果为_5 6 3_____。

Option Base 1

Private Sub Command1_Click()

Dim a(3, 3) As Integer, k As Integer

Dim i As Integer, j As Integer, n As Integer

n = UBound(a, 1)

For i = 1 To n - 2

For j = i To n - i

a(i, j) = k + 1

a(j, n + 1 - i) = k + 2

a(n + 1 - i, n + 1 - j) = k + 3

a(n + 1 - j, i) = k + 4

k = k + 4

Next j

Next i

If n Mod 2 <> 0 Then

a((n + 1) / 2, (n + 1) / 2) = k + 1

End If

Print a(1, 2); a(2, 3); a(3, 3)

End Sub

14 执行下面的程序段，输出结果是_ABCBCD________。

Dim str1 As String, str2 As String

str1 = "abc"

str1 = UCase(str1)

For i = 1 To 3

str2 = Chr(Asc(str1) + i)

str1 = str1 & str2

Next i

Print str1

15 执行下面程序段，如果运行时输入2，则在窗体上输出结果是___4__。 Dim x As Integer

x = InputBox("input x")

If x > 1 Then

y = x + 2

ElseIf x < 5 Then

y = x + 3

ElseIf x = 2 Then

y = x

End If

Print y

16 执行以下程序，单击命令按钮后，窗体上的输出结果是__-1___。

Private Sub Command1_Click()

Dim a As Integer

a = True * 6 + 5

Print a

End Sub

17 执行下面程序，若依次输入10，20，30，40，50，60，则输出结果是__10 30 50 20 40 60____。

Option Base 1

Private Sub Command1_Click()

Dim a(3, 2) As Integer

Dim i%, j%, t

For i = 1 To 3

For j = 1 To 2

a(i, j) = InputBox("请输入数组元素的值")

Next j

Next i

For Each t In a

Print t;

Next t

End Sub

1 如果X是一个正数的实数，将千分位四舍五入，保留两位小数的表达式是______。

0.01*Int(100*(X+0.005))

2 为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用___________。记录类型

下面所列四组数据中，全部是正确的VB常数的是____。

ABCE，#02-03-2004#，E-2

3窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用___________。Frm1.k

4 运行以下程序，单击命令按钮后，如果用户从键盘上输入6、5、4、3、2、1，则窗体上输出内容为____9____。

Private Sub Command1_Click()

Dim a() As Integer

Dim i As Integer, j As Integer

ReDim a(6)

For i = 5 To 10

a(10 - i + 1) = InputBox("input number")

Next i

ReDim Preserve a(10)

a(10) = a(5) + a(4)

Print a(10)

End Sub

5 以下叙述中错误的是___D_____。

一个工程中只能有一个Sub Main过程

窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体

若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

窗体的Hide方法和Unload方法的作用完全相同

6以下关于文件的叙述中，错误的是_____A______。

随机文件中记录的长度是随机的

顺序文件中的记录一个接一个地顺序存放

执行打开文件的命令后，自动生成一个文件指针

LOF函数返回给文件分配的字节数

7以下叙述中错误的是_____A___。

在同一窗体的菜单项中，不允许出现标题相同的菜单项

程序运行过程中，可以重新设置菜单的Visible属性

在菜单的标题栏中，"&"所引导的字母指明了访问该菜单项的访问键

弹出式菜单也在菜单编辑器中定义

8 下面的程序是找出两个正整数a和b，使a

Private Sub Command1_Click()

Dim a As Integer, b As Integer

Dim m As Integer, n As Integer

Dim r As Integer, k As Integer

For a = 1 To 49

__b=99-a________

m = a: n = b

Do

__r=m mod n______

m = n

n = r

Loop Until r = 0

If m Mod 3 = 0 Then

__k=k+1________

Print a; b

End If

Next a

Print "符合条件的数对个数为" & k & "个"

End Sub

10 阅读下列程序，输出结果是__30 0_____。

Private Sub Command1_Click()

Dim i As Integer

For i = 10 To 1 Step -2

s = s + i

Next i

Print s,i

11 运行下面的程序，第二行显示结果是__11 22 33_________。

Option Base 1

Private Sub Form_Click()

Dim a, b(), i, j, k

a = Array(11, 12, 13, 21, 22, 23, 31, 32, 33)

ReDim b(3, 3)

Call read(a, b)

Call prt(b)

End Sub

Private Sub read(a, b)

For i = 1 To 3

For j = 1 To 3

k = k + 1

b(i, j) = a(k)

Next j

Next i

End Sub

Private Sub prt(b)

For i = 1 To 3

For j = 1 To 3

p = b(i, j) Mod 3 + 1

q = b(j, i) Mod 3 + 1

Print b(p, q);

Next j

Print

Next i

End Sub

12 以下程序是求1到1000之间所有能被3整除的数的和，按要求完善程序。

Private Sub Command1_Click()

Dim n As Integer, s As Long

n = 1

Do While n <= 1000

If n Mod 3 = 0 Then ___s=s+n______

____n=n+1_______

Loop

Print s

End Sub

13 执行以下程序，单击命令按钮后，输出结果是_0 1 2 3 4 5 6 7 8 9 10_____。 Private Sub Command1_Click()

Dim a(10) As Integer

Dim b

For i = 1 To 10

a(i) = i

For Each b In a

Print b;

Next b

End Sub

14 在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，在文本框中输入以下字符串:

Microsoft Visual Basic Programming

然后编写如下事件过程:

Private Sub Command1_Click()

Open "D:\Temp\Outf.Txt" For Output As #1

For I = 1 To Len(Text1.Text)

C = Mid(Text1.Text, I, 1)

If C >= "A" And C <= "Z" Then

Print #1, Lcase(C);

End If

Next I

Close

End Sub

程序运行后,单击命令按钮后,文件Outf.Txt中的内容是__mvbp________。

15 下列程序段的执行结果为____182 2_____。

j = 0: n = 5

Do

j = (j + 1) * (j + 2)

n = n - 1

Loop Until n < 3

Print j; n

16 设计一个函数，求任意数的阶乘。编写通用函数过程如下，请补充程序。

Public Function f(n As Double) As Double

Dim s As Double

Dim i As Integer

If n < 0 Then Exit Function

s=1

For i = 1 To n

____s=s*n_______

Next i

f = s

End Function

17

1 运行以下程序，单击命令按钮后，如果用户从键盘上输入6、5、4、3、2、1，则窗体上输出内容为____9_____。

Private Sub Command1_Click()

Dim a() As Integer

Dim i As Integer, j As Integer

For i = 5 To 10

a(10 - i + 1) = InputBox("input number")

Next i

ReDim Preserve a(10)

a(10) = a(5) + a(4)

Print a(10)

End Sub

4 有如下程序

a = 100

Do

s = s + a

a = a + 1

Loop While a > 120

Print a

运行后的输出结果为__101____。

5 执行以下程序，单击命令按钮后，输出结果是______。

Private Sub Command1_Click()

Dim a(10) As Integer

Dim b

For i = 1 To 10

a(i) = i

Next i

For Each b In a

Print b;

Next b

End Sub

1 2 3 4 5 6 7 8 9 10

执行以下程序，单击命令按钮后，如果在弹出的对话框中单击"是"按钮，则窗体上的输出内容是__6_____。

Private Sub Command1_Click()

Dim a As Integer

a = MsgBox("非法数据！" & Chr(13) & Chr(10) & "请重新输入", vbYesNo+ vbCritical, "提示信息")

Print a

End Sub

7 设有数组声明语句：Dim A(-1 To 2,-1 To 1) As Long，则数组A在内存中所占的字节数为___48___。

1 设菜单中有一个菜单项为"Open"。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置"Open"命令的方式是_______。把Caption属性设置为&Open

2 在使用OPEN语句打开文件时，如果省略"for 子句"，则打开的文件存取方式为__随机存取方式_________

3 为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用___________。记录类型

4 VB 中三种文件访问的类型为___________。顺序、随机、二进制

5 如果x是一个正实数，对x的第3位小数四舍五入的表达式是______。

0.01*Int(100*(x+0.005))

6 Visual Basic 认为下面___D___组变量是同一个变量。

Al和A_l Sum和Summary Aver和Average Al和al

7 函数Int(Rnd(0)*100)是下列______范围内的整数。[0,99]

8 如果要改变窗体的标题，则需要设置的属性是_______。Caption

9 执行下列程序段，输出结果为 _7 0________。

Dim a(10) As Integer

Dim i As Integer

For i = 1 To 10

a(i) = 2 * i - 1

Next i

Print a(4);

Erase a

Print a(4)

10 下列程序段的执行结果为 __0 2 2 3______。

Dim M(2)

For i=1 To 2

M(i)=0

Next i

K=2

For i=1 To k

For j=1 TO k

M(j)=M(i)+1

Print M(k);

Next j

End Sub

以下说法中错误的是_____C______。

数组b中的偶数被保存在数组c中

如果输入的数据大于10，则窗体上不显示任何信息

GetArray过程的参数n 是按值传送的

程序运行结束时，在窗体上显示的是c数组中元素的个数

15 以下叙述中错误的是__B______

Visual Basic 是事件驱动型可视化编程工具

Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性Visual Basic应用程序不具有明显的开始和结束语句

Visual Basic中控件的某些属性只能在运行时设置

16 以下有关对象属性的说法中错误的是_B_______。

所有的对象都具有 Name（名称）属性

Enabled属性值设为False的控件对象在窗体上将不可见

对象的某些属性只能在设计时设定，不能使用代码改变

只能在执行时设置或改变的属性为执行时属性

17 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是____C____。

工程资源管理器窗口

属性窗口

代码窗口

工具箱窗口

20 有程序段如下：

For i = 1 To 3

For j = 5 To i Step -1

Print i * j

Next j

Next i

其中"Print i*j"语句执行的次数为___12______。

21 执行语句：A = Inputbox("Today", "Tomorrow", "Yesterday")

将显示一个输入对话框，在对话框的输入区中显示的信息是____Yesterday

22 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：

Private Sub Command1_Click()

Dim A As Integer

A = Inputbox("Enter An Integer")

B = Inputbox("Enter An Integer")

Text1.Text = B + A

End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是__60_____

23 若执行定义语句Dim a As Integer，以下给a赋值的语句中，错误的是__B____。

a = "13E2" a = 2 * 32760 \ 3 a = True a = 3> 5

24 运行下面程序，如果输入85，则输出结果是__i=3___。

Dim a As Integer, i As Integer

a = InputBox("input a:")

If a > 60 Then i = 1

If a > 70 Then i = 2

If a > 80 Then i = 3

If a > 90 Then i = 4

Print "i="; i

25 关于语句If x=1 Then y=1，下列说法正确的是_______。x=1为关系表达式，y=1为赋值语句

26 运行下面程序，输出结果是__8___。

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

Dim d As Integer

a = 5

b = -3

c = 8

VB习题及答案

1. _________________ GBK 字符集共有 C 汉字。 A 、6000 多 B 、10000 多 C 、20000 多 D 、30000 多 2. 美国标准信息交换码（ASCII 码）中，共有128个字符，包括___B_ 32个控制字符。 A 、52 B 、96 C 、116 D 、101 3. 在计算机中，西文字符最常用的编 码是 __C ―。 A 、原码 B 、反码 C 、ASCII 码 D 、补码 4?下列四个选项中，按照其 ASCII 码值从小到大排列的是 A Q A 、 数字、英文大写字母、英文小写字母 B 、 数字、英文小写字母、英文大写字母 C 、 英文大写字母、英文小写字母、数字 D 英文小写字母、英文大写字母、数字 5?下列字符中，其 ASCII 编码值最大的是__B ________ Q A 、9 B 、D C 、A D 、空格 6. 中文标点符号“。”在计算 机中存储时占用 —B_个字节。 A 、1 B 、2 C 、3 D 、4 7. GBK 是汉字内码 的一种扩充规范，下面叙述中错误的是 _B _ Q A. 它共有20000多个汉字 B. 、它使用双字节表示，字节的最高位均为 0 C. 、它与GB2312保持向下兼容 D 它不但有简体字，也有繁体字 &汉字从录入到打印，至少涉及三种编码，汉字输入码，字型码和 _D A 、BCD 码 B 、ASCII 码 C 、区位码 D 、机内码 9. 在下列汉字编码标准中，不支持繁体汉字的 是 _A Q 个可打印字符和 其原因不可能

A、GB2312 B、GBK C、BIG5 D、GB18030 10.在利用拼音输入汉字时，有时虽正确输入拼音码但却找不到所要的汉字, 是A ______ Q A 、计算机显示器的分辨率不支持该汉字的显示 B 、汉字显示程序不能正常工作 C 、操作系统当前所支持的汉字字符集不含该汉字 D 、汉字输入软件出错 11 ?将字符信息输入计算机的方法中，目前使用最普遍的是_A _ 。 A、键盘输入 B 、笔输入. C语音输入D、印刷体识别输入 12?汉字的键盘输入方案数以百计，能被用户广泛接受的编码方案应_C _ 。 A、必须易学易记 B可输入字数多 C.、易学易记，效率要高 D重码要少，效率要高 13. ________________ MP3音乐采用 C 编码方法。 A、MPEG-1层1 B、MPEG-1 层2 C 、MPEG-1 层3 D、MPEG-2audio 14.Windows操作系统中的“帮助”文件，为方便用户使用，提供了超文本功能，超文本采 用的信息组织形式为_C _______ 。 A 、线性结构 B 、层次结构 C 、网状结构 D 、顺序结构 15?使用计算机进行文本编辑与文本处理是常用的两种操作，下列不属于文本处理的是_ C_。 A.、文本检索 B 、字数统计 C文字输入 D 、文语转换

大学VB考试题库

大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.doczj.com/doc/7313330723.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。

A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0

VB模拟试题1

一、概念填空题 1．在Visaul Basic中,属性窗口分为四个部分，这四个部分分别是（ 1 ）属性显示方式、属性列表和对当前属性的简单解释。 2．组合框有三种不同的风格，它们分别是：( 2 )、( 3 )和( 4 )。3．VB中，当KeyPress事件发生时会返回一个按键的（ 5 ）值。 4. 时钟控件是有规律地以一定的( 6 )激发计时器事件，而执行相应的代码程序。 5．A = 8，B = 3，C = 5，则表达式A MOD 3 + B^3 / C \ 5的值为（ 7 ）。6．声明一个双精度变量Num5，的声明语句是 ( 8 ) 。 7．有一文本框Text1，为了使该文本框在运行时获取焦点，应执行的语句是（ 9 ）。8．在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应使用（ 10 ）关键字。 9．Visual Basic逻辑数据类型只有 True 与 False 两个值。当逻辑数据转换成整型数据时，True 转换为（ 11 ），False转换为（ 12 ）。 10．在Visaul Basic 中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（ 13 ）变量、（ 14 ）变量和（ 15 ）变量。 11．在Visual Basic工程中，拥有多个窗体的程序可用（ 16 ）语句将窗体装入内存，用（ 17 ）语句将指定窗体从内存中删除。 12．在Visual Basic中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）是（ 18 ）坐标。 13．字符串常量是由任何ASCII字符组成，在程序代码中，它必须由（ 19 ）括起来。 14．如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中（ 20 ）个单选按钮。 二、概念选择题 1．不能触发滚动条Change事件的操作是（）。 A) 拖动滚动条的滑块 B) 单击两端箭头 C) 单击滚动条的滑块 D) 单击滚动条的空白处 2．已知变量x 、y为整数型，且x=4 , y=12 ,s为字符型，且s=“a”，Leble1为标签控件，Leble1的Caption属性值为Label1，下列合法的赋值语句是（）。 A) X= Leble1.Caption B) Leble1.Caption=Str(X) C) X*3=Y D) Y=X*S 3．下列可以将变量A、B的值互换的语句是( )。 A) A=B : B=A B) C=B : B=A ：A=C C) A=C : C=B : B=A D) A=(A+B)/2 ：B=(A-B)/2 4．下列叙述中错误的是（）。 A)VB是采用了事件驱动编程机制。

程序设计语言VB_习题集(含答案)

《程序设计语言VB》课程习题集 一、单选题 1. Visual Basic是一种面向（）的程序设计语言。 A. 用户 B. 事件 C. 程序 D. 对象 2.在Visual Basic6.0中规定工程文件的扩展名是（）。 A. vbp B. for C. frm D. bas 3. Visual Basic6.0中规定窗体文件的扩展名是（）。 A. for B. frm C. vbp D. bas 4.如何使一个标签或按钮控件在运行时不可用（）。 A. 把它的Visible属性设置成False B. 把它的Visible属性设置成True C. 把它的Enabled属性设置成False D. 把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（）属性中调整？ A. Font B. Color C. Text D. Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A. Value B. Cancel C. Default D. Enabled 7.在VB中，记录对象数据的是（）。 A. 方法 B. 事件 C. 属性

8.在文本框上显示文本的属性是（）。 A. Value B. Text C. Print D. Enabled 9. InputBox函数返回值的类型为（）。 A. 字符串 B. 数值 C. 变体 D. 数值或字符串（视输入的数据而定） 10.设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A. 字符串"20" B. 字符串"120" C. 默认值100 D. 数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 A. Label控件 B. TextBox控件 C. Timer控件 D. CommandButton控件 12.语句PRINT "25*4"的输出结果是（）。 A. 25*4 B. "100" C. 100 D. 出现错误信息 13.只能用来显示字符信息的控件是（）。 A. 文本框 B. 标签框 C. 图片框 D. 图像框 14.下列可作为Visual Basic变量名的是（）。 A. A%A B. 4A C. ?xy D. Stemp 15.下列哪个符号不能作为VB中的变量名（）。 A. timefly

最新VB题库及答案

最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() Command1.Caption = "计算机等级考试" End Sub B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() Text1.Caption = "计算机等级考试" End Sub D、Private Sub Command1_Click() Text1.Text = "计算机等级考试" End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。

A、, B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y 4、下面（）是合法的字符常量。 A、ABC$ B、“ABC” C、‘ABC’ D、ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", "B")后，x的值为 A、"a" B、"b" C、"B" D、"A" 8、在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x = InputBox("请输入一个整数")

计算机vb模拟试题

一、单选题（本大题共25题，每题2分，共50分） 1、不属于VB三种工作模式的是（）。 A.设计模式 B.运行模式 C.调试模式 D.中断模式 2、窗体的前景颜色由（）属性设置。 A.BorderStyle B.BackColor C.ForeColor D.FillStyle 3、当窗体被启动时，（）事件将会发生。 A.Load B.Unload C.QueryUnoad D.CLs 4、每个窗体对应一个窗体文件，窗体文件的扩展名是（）。 A..bas B.cls C.frm D.vbp 5、可用来清除窗体内容的方法是（）。 A.Print B.InputBox C.Cls D.Clear 6、下列语句有语法错误的是（）。 A.a＝5 B.b＝a C.b=“a” D.5=a 7、表达式1＋((2＋3)*2)*2的值是（）。 A.26 B.22 C.21 D.24 8、产生大于等于10且小于20的随机整数的表达式为（）。 A.Int(Rnd(10)＋10) B.Int(Rnd*10+10) C.Int(Rnd*10+11) D.Int(Rnd*20-10) 9、求字符串长度的函数是（）。 A.Len B.long C.Length D.Val 10、若要使定时器暂停，应将其（）属性设置值设为False。 A.Interval B.Value C.Text D.Enabled 11、下列可作为Visual Basic的变量名的是（）。 A.Abt B.TA C.IF D.A[B]T 12、VB中可用（）语句产生一消息框。 A. InputBox B.Shift C. Both D.MsgBox 13、以下程序段的输出结果是（） Print Format(12345.6,"0.00E+00") A.1.23E+04 B.1.23E+4 C.1.23456E+04 D.1.23456E+4 14、执行下面的语句后，所产生的信息框的标题是（）。 a = MsgBox("AAAA", "BBBB", "", 5) A.BBBB B.空 C.AAAA D.出错，不能产生信息框 15、以下程序段的输出结果是（）。 Print 1;2; Print 3 A.1 2 3 B.1 23 C.123 D.12 3 16、下列关于Do While …Loop和Do…Loop Until循环执行循环次数的描述正确的是（）。 A.Do While …Loop循环和Do…Loop Until循环至少都执行一次 B.Do While …Loop循环和Do…Loop Until循环可能都不执行 C.Do While …Loop循环至少执行一次和Do…Loop Until循环可能不执行循环 D.Do While …Loop循环可能不执行和Do…Loop Until循环至少执行一次 17、默认条件下，语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是（）。 A. 12 B.60 C.120 D.345 18、数学关系3≤x<10对应的Visual Basic表达式是（）。

vb练习题及答案.doc

vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23

25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb

vb题库2(2019525153035)

单选 1.启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称. A.窗体 B.工程1 C.窗体1 D.工程 2.下列关于窗体上控件的基本操作错误的是(). A.按下一次DEL键可以同时删除多个控件 B.按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件 C.按住ALT键,然后单击每个要选择的控件,可以同时选中多个控件 D.按一次DEL键只能删除一个控件 3.求以10 为底X 的常用对数的表达式为(). A.LOG(X)/LOG(10) B.LOG(X) C.LOG(X)/LOG(E) D.LN(X) 4.要在图片框P1中打印字符串"HowAreYou",应使用语句(). A.P1.Print"HowAreYou" B.Print"HowAreYou" C.P1.Picture=LoadPicture("HowAreYou") D.Picture1.Print="HowAreYou" 5.在窗体Form1的Click事件过程中有以下语句: Label1.Caption="Visual Basic" 若本语句执行之前,标签控件的Caption属性为默认值,则标签控件 的Name属性和Caption属性在执行本语句之前的值分别为(). A."Label1"、"Label1" B."Caption"、"Label" C."Label"、"Label" D."Label1"、"Visual Basic" 6.要使得标签能自动扩充以满足字体大小则可对其()属性进行设置. https://www.doczj.com/doc/7313330723.html,emnemonic B.tag C.autosize D.alignment 7.要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine 属性设置为True,然后再将ScrollBar属性设置为(). A.0B.2C.3D.1 8.以下不具有Picture属性对象是(). A.文本框 B.窗体 C.图片框 D.图像框 9.由For k=10 to 0 step 3:next k循环语句控制的循环次数是(). A.-10 B.0 C.-11 D.12 10.循环结构For I%= -1 to -17 Step -2 共执行()次. A.5 B.8 C.9 D.6 11.()属性决定了按Tab键时焦点在各个控件之间移动的顺序. A.SetFocus B.TabStop C.Tablndex D.Index 12.由For k=35 to 0 step 3:next k循环语句控制的循环次数是(). A.-10 B.0 C.-11 D.12 13.单击滚动条两端的任一个滚动箭头,将触发该滚动条的()事件. A.Scroll B.Change C.KeyDown D.Dragover 14.要清除组合框Combol中的所有内容,可以使用()语句. https://www.doczj.com/doc/7313330723.html,bo1.Remove https://www.doczj.com/doc/7313330723.html,bo1.Cls https://www.doczj.com/doc/7313330723.html,bo1.Clear https://www.doczj.com/doc/7313330723.html,bo1.Delete

vb模拟题

要向C盘根目录下的名为my.txt的顺序文件中读出数据，应先使用_________语句打开文件。 复选框对象如果被选中，它的Value值为____________ 。 下列可作为Visual Basic 变量名的是____________。 以下能判断是否到达文件尾的函数是__________ 如果在实验课上进行程序调试，运行时遇到意外出错，最有效的做法是：看清系统错误原因提示信息，____________，以确定错误原因。 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 ____________ 。 在用通用对话框控件建立打开文件对话框时，在文件列表框中只允许显示txt和rtf类型的文件，则Filter属性的正确设置是_________。 在程序运行期间可以用____________函数把图形装入窗体、图片框或图像框。列表框List1中已有10个列表项，要显示列表框List1最后一项，有两种表示法， __________是正确的。 在默认情况下定义了10个元素的数组a，用变量n表示它的上界，有两种赋值语句，______________是正确的。 为了使控件对象不响应用户的事件，需要____________。 假定焦点已经位于文本框Text1中，则能够触发 KeyPress 事件的操作是 ____________。 设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是____________。单击滚动条控件的箭头按钮，滑块的移动幅度与_______________属性设置有关。在自定义函数中，可以通过____________返回值。 程序填空 单击窗体执行将所输入的整数插入排序后的原数组元素适当位置。 Function Insert(s(), ByVal key As Integer) As Integer Dim k%, i%, j% k = ___(1)_____ For i = 0 To UBound(s)

VB练习题(上机)含答案

第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else

ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。

vb试题及答案

VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。

VB模拟试题

VB模拟试题 一、选择题（15分，每题1分） 1、VB集成开发环境共有三种模式，以下 __________ 三种模式是正确？ (A) 设计、运行、退出 (B)运行、中断、退出 (C) 设计、运行、中断 (D)运行、中断、结束 2、以下叙述中错误的是__________ (A) 事件过程是响应特定事件的一段程序 (B) 不同的对象可以具有相同名称的方法 (C) 对象的方法是执行指定操作的过程 (D) 对象事件的名称可以由编程者指定 3、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 __________ (A) 如果工程中含有Sub Main过程，则程序一定首先执行该过程 (B) 不能把含有Sub Main过程的标准模块设置为启动模块 (C) 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 (D) 任何时刻最多只有一个窗体是活动窗体 4、下列说法哪种正确？每次调用过程时，__________ (A) Dim声明的变量可保持原值；Static声明的变量会重新初始化。 (B) Static声明的变量可保持原值；Dim声明的变量会重新初始化。 (C) Dim、Static声明的变量都可以保持原来的值。 (D) Dim、Static声明的变量都会重新初始化。 5、表达式 5 Mod 3+3\5*2的值是__________ (A) 0 (B) 2 (C) 4 (D) 6 6、从字符串N的第5个字符开始，获取4个字符，应使用 _________。 (A) Len(N,5,4) (B) Mid(N,5,4) (C) Right(N,5,4) (D) Rtrim(N,5,4) 7、InputBox函数返回值的类型为 _________。 (A) 数值 (B) 字符串 (C) 变体 (D) 数值或字符串（视输入的数据而定） 8、语句Dim A(3, -2 to 2, 5)声明的数组A包含_________个数组元素。 (A) 120 (B) 75 (C) 60 (D) 13

VB考试题及答案

VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).

A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile

VB试题及答案

以下答案由叶阿飞童鞋友情提供。 1. 何谓VB对象，他们都是可见的吗？每种分别举两个例子。 窗口以及窗口中的每一个部件。不都可见；可视：窗口、菜单、按钮等；不可视：公共对话框、定时器等。 2.何谓对象的成员，分别加以说明。 属性，方法和事件。 ·属性：对象的数据（设置和特性），例如，颜色、大小、位置等。 ·方法：一种可在对象上操作的过程，例如，移动等。 ·事件：对象可识别的动作，例如，单击鼠标和按下键盘键。可编写代码来响应事件。 3.何谓事件驱动和事件过程。说明并举例。 只有在窗口中有关位置进行键盘输入或单击鼠标，程序才会作出响应的程序运行方式称为事件驱动方式。{所谓事件驱动就是利用事件来触发消息，系统再对相应的消息进行处理的一个机制（网上找的，不是书上的，不能确定是否正确）}。 ·vb应用程序中的某个事件被触发时，对象就会对该事件做出响应，响应某个时间后所执行的代码段就是事件过程。 4.VB集成开发环境的工作模式有哪些？分别说明每一种工作模式所能完成的功能。 <1>设计模式：创建应用程序的大多数工作都是在设计时完成的。在设计时，可以设计窗体、绘制空间、编写代码并使用“属性”窗口来设置或查看属性设置值。 <2>运行模式：代码正在运行的时期，用户可与应用程序交流，可查看代码，但不能改动它。 <3>中断模式：程序在运行的中途被停止执行。在中断模式下，用户可查看各变量及不是属性的当前值，了解程序执行是否正常。还可以修改程序代码，检查、调试、重置、单步执行或继续执行程序。 5.VB集成开发环境的控件种类有哪些？每一种分别举例说明。 <1>内部控件。主要有标签、文本框、命令按钮等。 <2>ActiveX控件。如数据绑定网络控件、数据绑定绑定组合框控件等 <3>可插入的对象。主要指microsoft office中的excel工作表或ppt幻灯片等。 6·何谓VB控件，向窗体中添加控件的方法有哪些？举例说明。 在窗体上用于输入、输出信息的图形或文字符号称为控件。 <1>单击工具箱中的控件图标，可以看到鼠标指针变成十字指针，然后在窗体的空白处按住鼠标左键拖动鼠标到合适的位置放开，即可画出对应的控件。 <2>双击工具箱中的控件图标，即可将控件添加到窗体中。 以下答案由妞仔仔童鞋友情提供。 7.试述VB编程步骤，对每一步进行必要的解释。 创建工程→界面设计→属性设置→ 代码编辑→文件保存→程序运行和调试。 创建工程 启动Visual Basic 6.0 后，在“新建工程”对话框中选择“标准EXE”文件，单击“确定”按钮。此时，工程资源管理器窗口中显示已创建了一个工程，默认名字为“工程1” 并创建了一个窗体，默认名称为“Form1” 。界面设计 新建窗体后，利用工具箱可以在窗体上依次添加控件对象。选择工具箱中的标签，通过双击或鼠标拖动将其对象拖放在窗体的合适位置； 属性设置 控件对象的默认属性值显然不能满足程序的要求，因此，我们要对每一个控件对象通过属性窗口设置属性。 代码编辑 应用程序进行到现在仅仅只做了一个空壳，当程序运行，我们单击任何命令按钮，并没有事情发生，这是因为我们还没有进行最重要的一个步骤——代码编辑。根据题目要求，我们要

vb题库及答案

| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",

VB模拟试题2

一、单选题（30分，每小题1分） 1、（C ）字节称为一个MB。 （A）1024 （B）1000K （C）1024*1024 （D）10000K 2、计算机硬件系统的五大部件是（A ）。 （A）CPU、内存储器、输入设备、输出设备、外存储器 （B）运算器、控制器、存储器、输出设备、输入设备 （C）CPU、总线、存储器、外设、主板 （D）主机箱、显示器、音箱、鼠标、键盘 3、常用的输入设备有（A ）。 （A）键盘、鼠标、扫描仪（B）显示器、键盘、鼠标 （C）打印机、扫描仪、键盘（D）触摸屏、打印机、鼠标 4、计算机网络的主要作用是( D )。 (A) 数据处理(B) 信息传输与数据处理 (C) 文献查询(D) 资源共享与信息传输 5、二进制数1010等于十六进制数( C )。 (A) 10 (B) 11 (C) A (D) B 6、在VB中要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句( B )。 (A) Option Base 0 (B) Option Explicit (C) Option Base 1 (D) Option Compare 7、下列程序段的执行结果为( D )。 J1 = 10 J2 = 30 If J1 < J2 Then Print J2; Print J1 (A)10 (B)30 (C)10 30 (D)30 10 8、假设变量x1是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（C ） (A) x1="False" (B) x1='False' (C) x1=False (D) x1=#False# 9、在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（B ）。 (A) Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.text) End Sub (B) Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.text) End Sub (C) Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub (D) Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub