VB上机试题及答案

第一篇：VB上机试题及答案

1、在工程中添加一个窗体form1，当用户单击窗体时，在窗体上显示九九乘法表程序。结果如下图所示（本题编程解决，20分）

参考答案：

Private Sub Form_Click()

Cls

For i = 1 To 9

For j = 1 To i

Print i * j;“ ”;

Next j

Print

Next i End Sub

2、在工程中，添加一个窗体form2，在窗体上放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。

要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（本题编程完成，满分：30分）

参考答案：

Private Sub Check1_Click()

Text1.FontBold = Check1.Value End Sub

Private Sub Check2_Click()

Text1.FontItalic = Check2.Value End Sub

Private Sub Check3_Click()

Text1.FontUnderline = Check3.Value End Sub

3、在工程中添加一窗体form3，在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。

要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除.（本题：20分）

参考答案：

Private Sub Command1_Click()

List1.AddItem Text1.Text End Sub

Private Sub List1_DblClick()

List1.RemoveItem List1.ListIndex End Sub

4、在窗体form4中建立下图所示的菜单,各菜单项的名称如下：

文件：file，新建：NEW，-：kong1，打开：OPEN，关闭：CLOSE 编辑：EDIT，剪切：CUT，复制：COPY，粘贴：PASTE（本题不用编程，30分）

参考答案：略

第二篇：VB上机试题及答案

上机操作练习题

1．某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。

Option explicit Dim a(1 to 20)as integer, I as integer, j as integer, t as integer Private Sub Form_Load()Show Print “原始数组是：” Randomize For i = 1 To 20

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

Print a(i);If i Mod 10 = 0 Then Print Next i Print Print “现在数组是：” For i = 1 To 10

j = 211

a(k)= a(k + 1)

Next k

ReDim Preserve a(UBound(a)1 End If i = i + 1 Loop While(i <= UBound(a))If flag = False Then MsgBox n & “不在该数组中” Else Print “删除” & n & “后的数组是:” For i = 0 To UBound(a)Print a(i);Next i End If End Sub 3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。

注意：要求利用动态数组，能够实现多次插入 Private Sub Form_Load()Show n = 8: ReDim a(n)a = Array(5, 15, 23, 52, 68, 88, 90, 99)n = n + 1: ReDim Preserve a(n)m = InputBox(“请输入要插入的数据:”)For i = 1 To n1)Next k a(k)= m For i = 1 To n

Print a(i);Next i Print End Sub 4．6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。

如：

歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70分

/ 19

Option Base 1

Private Type geshou

xuhao As String

fenshu(6)As Integer

score As Integer

pingjun As Integer End Type Dim singer(1 To 4)As geshou Private Sub Command1_Click()For i = 1 To 4 For j = 1 To 6

singer(i).fenshu(j)= Int(Rnd * 100)

singer(i).xuhao = “歌手” & i Next Next Call paixu End Sub

Private Sub paixu()Dim p As geshou For i = 1 To 4

For j = 1 To 5

For k = j To 6

If singer(i).fenshu(j)> singer(i).fenshu(k)Then

t = singer(i).fenshu(j)

singer(i).fenshu(j)= singer(i).fenshu(k)

singer(i).fenshu(k)= t

End If

Next

Next Next For i = 1 To 4 For j = 2 To 5

singer(i).score = singer(i).score + singer(i).fenshu(j)Next singer(i).pingjun = singer(i).score / 4 Next

For i = 1 To 3 For j = i To 4

If singer(i).score < singer(j).score Then

p = singer(i): singer(i)= singer(j): singer(j)= p

End If Next

/ 19

Next For i = 1 To 4 Print singer(i).xuhao & “得分：” & singer(i).pingjun Next End Sub Private Sub Form_Load()End Sub 10个评委给10个选手打分 Private Sub Form_Load()Show n = UBound(b)For i = 1 To 10

For j = 1 To 10

a(i, j)= Val(InputBox(“请第” & j & “位评委给第” & i & “位选手打分：”))Next j Next i For i = 1 To 10

max = a(i, 1): sum = 0

min = a(i, 1): ave = 0

For j = 1 To 10

If a(i, j)> max Then max = a(i, j)

If a(i, j)< min Then min = a(i, j)

sum = sum + a(i, j)

Next j

ave =(summin)/(n1

For j = i + 1 To n

If b(i)< b(j)Then

t = b(i): b(i)= b(j): b(j)= t

End If

Next j Next i Print “选手的得分由高到低为：” For i = 1 To 10

Print b(i);Next i End Sub 5．编写函数求一元二次方程ax2+bx+c=0的解。

注意：要求考虑方程有两相等实根、两不等实根和两个虚根的情况。Dim a As Single, b As Single, c As Single Dim s As Single a = InputBox(“请输入a”)

/ 19

b = InputBox(“请输入b”)c = InputBox(“请输入c”)s = b ^ 2Sqr(s))/ 2 * a End If End Sub 6.任意输入一组字符，统计出大写字母多少个，小写字母多少个，数字多少个？要求用过程实现。

Call tongji(a, n, m, o)Print “数字：” & n & Chr(13)& “小写：” & m & Chr(13)& “大写：” & o End Sub Private Sub tongji(a As String, n As Integer, m As Integer, p As Integer)For i = 1 To Len(a)If Asc(Mid(a, i, 1))> 47 And Asc(Mid(a, i, 1))< 58 Then

n = n + 1 ElseIf Asc(Mid(a, i, 1))> 96 And Asc(Mid(a, i, 1))< 123 Then

m = m + 1 ElseIf Asc(Mid(a, i, 1))> 64 And Asc(Mid(a, i, 1))< 91 Then

p = p + 1 End If Next End Sub 7．随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。

Option Base 1 Private Sub Form_Load()Dim a(5, 5)As Integer Dim s As Integer For i = 1 To 5 For j = 1 To 5

If i = j Or i = 6Asc(Mid(s1, i, 1))+ 64)ElseIf Asc(Mid(s1, i, 1))< 123 And Asc(Mid(s1, i, 1))> 96 Then convert = convert & Chr(1235: g = e

For j = 1 To n

If j > i Then

a(i, j)= 0

Else

If i = j Then

a(i, j)= 1

Else

a(i, j)= a(i1, ji + 1);String(2 *(i1)/ 2 To 1 Step(-1)

c = c + 1

s = Chr(64 + ii + c + 1);String(2 *(j1)/ 2 Else

x = x / 2 End If i = i + 1 Loop

ReDim Preserve a(UBound(a))If y < 0 Then For i = 1 To UBound(a)convert = convert & a(i)Next convert = “-” & convert Else For i = 1 To UBound(a)

/ 19

convert = convert & a(i)Next End If

End Function Private Sub Command1_Click()Dim y As Integer Text1.Text = “" y = InputBox(”请输入十进制数字“)Text1.Text = convert(y)

End Sub

Private Sub Form_Load()

End Sub 14．输入一个整数N，产生N个随机数（范围1—10*N），然后采用任何2种算法实现由小到大的排序。将排序前后的数据显示出来。

Option Base 1 Private Sub Command1_Click()Dim a()As Integer, n As Integer n = InputBox(”请输入数列项数“)ReDim a(n)For i = 1 To n

a(i)= Int(Rnd * 10 * n + 1)

Print a(i);Next Print ReDim Preserve a(n)For i = 1 To n1 For j = 1 To n2)+ fact(n2 s = s1 + s2: t = s2: s2 = s: s1 = t Next End Function

Private Sub Command2_Click()n = InputBox(”请输入n“)Print s(n)End Sub 17.编写2个函数，分别采用递归法和递推法求斐波纳契数列的第n个月的兔子数，n使用inputbox输入，调用函数的结果在窗体上显示。Private Sub Command1_Click()List1.Clear Dim i As Integer For i = Val(Text1.Text)To Val(Text2.Text)If isprime(i)= True Then

List1.AddItem(i)

c = c + 1

If i Mod 10 = 9 Then

/ 19

List1.Selected(c1 If n Mod i = 0 Then

isprime = False

Exit For End If Next End Function 18 Dim sum As Long Private Sub Command1_Click()

Dim i As Integer, j As Integer, a(40)As Long

a(1)= 1

a(2)= 1

For i = 3 To 40

a(i)= a(i2)

Next i

sum = 0

For j = 1 To 40

sum = sum + a(j)

Next j End Sub

Private Sub Command2_Click()

Open ”out18.txt“ For Output As #1

Print #1, ”数列1，1，2，3，5，8…的前四十项的之和是：“

Print #1, sum

Close #1 End Sub 1.百钱买百鸡

Option Explicit

Private Sub Command1_Click()Dim a As Integer, b As Integer For a = 1 To 34

For b = 1 To 20

If 3 * a + 5 * b +(100b)/ 3 = 100 Then

/ 19

Print a;

Print b;

Print 100b

End If

Next b Next a End Sub 2.分钱作业

Private Sub Command1_Click()Dim a As Single,b as single,c as single a = Text1.Text b = Fix(a / 100)Print ”100元：“;Print b c = ab * 50

b = Fix(c / 20)Print ”20元：“;Print b c = c0.05 * b b = Fix((c + 0.005)/ 0.02)Print ”0.02元：“;Print b c = c1

If a(i)= a(j)Then

GoTo aaa

End If

Next j

Next i For i = 1 To 10

Print a(i);Next i Print End Sub

Private Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9

For j = 1 + i To 10

If a(i)> a(j)Then

t = a(j)

a(j)= a(i)

a(i)= t

End If

Next j Next i For i = 1 To 10

Print a(i);Next i Print

End Sub

Private Sub Command3_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9

For j = 1 To 10c)> 10 ^(-5)i =(a + b)/ 2

If i ^ 2c = 0 Then

Exit Do

Else

a = i

End If Loop MsgBox(i)End Sub 7.闰年

Option Explicit

Private Sub 计算_Click()Dim i As Integer i = InputBox(”请输入一个年份“)If i Mod 4 = 0 And i Mod 400 = 0 Then

If i Mod 100 <> 0 Then

MsgBox ”NOT“

Else

MsgBox ”YES“

End If Else

MsgBox ”NOT“ End If

End Sub 8.三角

Option Explicit Private Sub Command1_Click()

/ 19

Dim a As Single Dim b As Single Dim c As Single Dim p As Single Dim s As Single

a = Text1.Text b = Text2.Text c = Text3.Text

p =(a + b + c)/ 2

s = Sqr((pb)* p +(p1

If n Mod i = 0 Then

MsgBox ”NOT“

Exit For

End If Next i If i = n Then

MsgBox ”YES“ End If End Sub

Private Sub Command2_Click()

Dim a As Boolean, n As Double, i As Double a = False n = InputBox(”请输入一个数：“)For i = 2 To n-1

If n Mod i = 0 Then

a = True

Exit For

End If Next i If a = True Then

/ 19

MsgBox ”NOT“ Else

MsgBox ”YES“ End If End Sub

Private Sub Command3_Click()Dim n As Double, i As Double n = InputBox(”请输入一个数：“)i = 2 Do While i < n

If n Mod i = 0 Then

MsgBox ”NOT“

Exit Do

End If i = i + 1 Loop If i = n Then

MsgBox ”YES“ End If End Sub

Private Sub Command4_Click()Dim n As Double, i As Double, sushu As Boolean n = InputBox(”请输入一个数：“)i = 2 sushu = True Do While i < n And sushu = True

If n Mod i = 0 Then

sushu = False

End If i = i + 1 Loop If sushu = True Then

MsgBox ”YES“ Else

MsgBox ”NOT" End If End Sub

/ 19

第三篇：VB上机考试习题以及答案

VB上机考试

1、利用随机函数产生25个100到999之间的整数，构成55的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5)Private Sub Form_Click()Randomize For i = 1 To 5 For j = 1 To 5 a(i, j)= Int(Rnd *(99910 + 1)+ 10)Print a;s = s + a Next i Print Avg = s / 25 Print Avg End Sub

3、在窗体上按下鼠标的右键，记录其坐标。

Private Sub Form_Load()Label1.BorderStyle = 1 Label1.Alignment = 2 End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then Label1.Caption = X & “,” & Y End If End Sub

4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1 To 25)Private Sub Form_Click()Cls For i = 1 To 25 a(i)= Int(Rnd *(991 For j = 1 To 251 + 1)+ 1)a(x)= a(x)+ 1 Next j For i = 1 To 6 Print i & “出现了” & a(i);“次” Next i

End Sub

6、在文本框中输入一些英语单词，统计空格的个数。

Dim n%, x As String, s% Private Sub Form_Click()n = Len(Text1.Text)x = Text1.Text For i = 1 To n If Mid(x, i, 1)= “ ” Then s = s + 1 Next i Print “共出现了” & s & “个空格” End Sub

7、编程计算下列公式的值，其中n(<10)为从键盘输入的正整数。S=1!+3!+5!+……+(2*n-1)!Private Sub Form_Click()n = Val(InputBox(“请输入一个不大于10的整数”))s = 0 For i = 1 To 2 * n2 * i1 a = a + 1 Print Str(a);Next j Print Next i End Sub

10、用For …Next语句编程，双击窗体后，在屏幕上显示如图：

Private Sub Form_DblClick()For i = 1 To 3 Print Tab(113 * i);For j = 1 To 5 Print x;Next j Print Next i End Sub

12、从文本框输入一个正整数，判断该数是否为素数。Dim a As Long Private Sub Form_Click()a = Val(Text1.Text)If a = 2 Then Tag = True ElseIf a Mod 2 = 0 Then Tag = False Else Tag = True For i = 3 To Sqr(a)Step 2 If a Mod i = 0 Then Tag = False: Exit For Next i End If If Tag = True Then Print a;“是素数” Else Print a;“不是素数” End If

End Sub

13、利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。Option Explicit Dim i%, max%, loc% Dim a(1 To 10)As Integer Private Sub Form_Click()Randomize Form1.Cls For i = 1 To 10 a(i)= Int(Rnd *(9991000 + 1)+ 1000)Print a(i)Next i min = 9999 For i = 1 To 10 If a(i)< min Then min = a(i): loc = i Next i Print “最小的数是”;min Print “在数组中是第”;loc;“个数” End Sub

15、当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景色变为绿色。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbRed

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbGreen End Sub

16、编制一个时钟程序，如下图

：Option Explicit

Private Sub Form_Load()Label1.BackColor = vbWhite Label1.BorderStyle = 1 Label1.Alignment = 2 Timer1.Enabled = True Timer1.Interval = 1000 End Sub

Private Sub Timer1_Timer()Label1.Caption = Time End Sub

17、从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。Option Explicit Dim i% Dim a(1 To 10)As Single Private Sub Form_Click()For i = 1 To 10 a(i)= Val(InputBox(“请输入第” & i & “个数”))Print a(i);Next i Print For i = 10 To 1 Step-1 Print a(i);Next i

End Sub

18、计算圆面积的程序。程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面积。

Option Explicit Dim r%, a As Single Const pi As Single = 3.14159 Private Sub Form_Click()r = Val(InputBox(“请输入圆半径” & vbCrLf & “（1-9）：”, “输入”, 5))a = pi * r ^ 2 Print “半径为”;r;“的圆面积为”;a End Sub

19、编写一个时钟程序，当选择“24小时”时，以24小时的方式显示如A，当选择“12小时”时，以12小时的方式显示如B。

Private Sub Form_Load()Timer1.Interval = 1000 End Sub

Private Sub Timer1_Timer()Select Case True Case Option1.Value Label1.Caption = Time Case Option2.Value Label1.Caption = Format(Time, “HH:MM:SS AM/PM”)End Select End Sub 20、设计一个程序，用户界面如图所示。程序运行后，用户在文本框中输入一段文字，然后按需要单击选择框，用以改变文本的字体、字型、颜色以及大小。

Option Explicit

Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontName = “黑体” Else Text1.FontName = “宋体” End If End Sub

Private Sub Check2_Click()If Check2.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub

Private Sub Check3_Click()If Check3.Value = 1 Then Text1.FontSize = 20 Else

Text1.FontSize = 9 End If End Sub

Private Sub Check4_Click()If Check4.Value = 1 Then Text1.ForeColor = vbGreen Else Text1.ForeColor = vbBlack End If End Sub

Private Sub Command1_Click()Text1.Text = “" End Sub

Private Sub Command2_Click()End End Sub 20做出2个周期的正弦波形.Private Sub Form_Click()Dim i%, x#, y# Const pi As String = 3.1415926 Form1.Scale(-2 * pi, 1.2)-(2 * pi,-1.2)Form1.Line(-2 * pi, 0)-(2 * pi, 0)Form1.Line(0, 1.2)-(0,-1.2)For x =-2 * pi To 2 * pi Step 0.01

y = Sin(x)

Form1.PSet(x, y)Next x End Sub 21以窗体为中心,产生1000个半径颜色随机的同心圆.Private Sub Form_Click()For i = 1 To 1000

x = Form1.ScaleWidth / 2

y = Form1.ScaleHeight / 2

r = Int(Rnd * y)

c = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)

Form1.Circle(x, y), r, c Next End Sub 22.九九乘法表 Private Sub Form_Click()Dim i%, j% Form1.Caption = ”九九乘法表“ Print Tab(48);Caption Print Tab(48);”-------------“ For i = 1 To 9

For j = 1 To i

Print Tab((j-1)* 12 + 1);i;”*“;j;”=“;i * j;

Next j Print Next i End Sub 23求最大公约数和最小公倍数 Private Sub Command2_Click()Text1.Text = ”“ End Sub

Private Sub command1_Click()Dim m%, n%, r%, t% m = Val(Text1.Text)n = Val(Text2.Text)If m < n Then t = m: m = n: n = t t = m * n Do

r = m Mod n

m = n

n = r Loop Until r = 0 Text3.Caption = ”公约数:“ & m Text4.Caption = ”公倍数" & t / m End Sub 24.用随机函数产生50个两位数,保存于一个一维数组中,要求找出其中的最大值,最小值及所在位置.

第四篇：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.标签框的边框，由属性的设置值决定。A)BorderStyle B)BackStyle C)BackColor D)AutoSize 18.标签框文本的对齐方式由属性来决定。

A)Align B)Alignment C)Autosize D)BackStyle 19.标签框所显示的内容，由属性值决定。

A)Text B)Name C)Caption D)Alignment 20.在运行时，若要获得用户在文本框中所选择的文本，可通过访问属性来实现。A)SelStart B)SelLength C)Text D)SelText

二、填空题(每题2分,共20分)1.Visual Basic是一种面向的可视化程序设计语言，采取了的编程机制。2.在VB集成开发环境中，运行应用程序的方法有两种是：或。

3．Visual Basic的对象主要分为和两大类。

4.在Visual Basic中，用来描述一个对象外部特征的量称之为对象的。

5.在Visual Basic中，设置或修改一个对象的属性的方法有两种，它们分别是 和。

6.在Visual Basic中，最基本的对象是。

7.在Visual Basic中，默认窗体名为，默认工程名为。8.若用户单击了窗体Form1，则启动的事件名为。9.调用方法的具体调用格式为。10．在代码中设置对象属性的格式为。

三、简答题(每题8分,共40分)1.简述VB的特点。

2.安装Visual Basic系统程序应具备什么条件？ 3.启动Visual Basic有几种方法？ 4．退出Visual Basic有几种方式？

5．什么是对象？什么是类？简述它们之间的关系。参考答案:

一、单项选择题

1.答：D 2.答：C 3.答：A 4.答：C 5.答：A 6.答：B 7.答：C 8.答：B 9.答：A 10.答：C 11.答：C 12.答：A 13.答：D 14.答：B 15.答：B 16.答：B 17.答：A 18.答：B 19.答：C 20.答：D

二、填空题

1.答：对象，事件驱动

2.答：编译运行模式、解释运行模式

3.答：窗体、控件 4.答：属性

5.答：在设计阶段利用属性列表框进行设置、在程序中通过程序代码进行设置 6.答：窗体

7.答：Form1、工程1 8.答：Click 9.答：对象名.方法名［参数名表］ 10．答：对象名.属性名＝属性值

三、简答题

1.答：Visual Basic是Microsoft 公司与1991年推出的基于Windows环境的语言，其主要特点如下：

(1)方便、直观的可视化的程序设计工具；

(2)面向对象的程序设计方法；

(3)事件驱动的编程机制；

(4)结构化程序设计语言；

(5)强大的数据库访问能力；

(6)提供强大的网络功能，并具备完备的联机帮助功能；

(7)强大的数据库管理和存取操作的能力。2.答：任何一个软件都要占用计算机系统一定的资源，因此对计算机系统都有一定的要求，Visual Basic系统程序对计算机系统的要求如下：

硬件要求：586以上CPU，16MB以上内存，100MB以上硬盘等。软件要求：Windows 95/98/2000/XP或Windows NT。3.答：通常有以下三种启动方式：

(1)通过“开始”按钮：单击桌面上的“开始”/“程序”菜单，然后打开“Microsoft Visual Studio 6.0中文版”子菜单中的“Microsoft Visual Basic 6.0中文版”程序，即可启动VB 6.0。

(2)利用快捷方式：若桌面上有VB 6.0的快捷图标，双击快捷图标也可启动VB 6.0。(3)利用运行命令：当VB系统软件安装在C盘默认路径下时，可以在“开始”菜单的运行对话框中输入如下命令来启动VB 6.0。

C:Program FilesMicrosoft Visual StudioVB 98VB6.exe。4．答：通常有四种方式：

(1)利用文件菜单：单击菜单“文件”/“退出”，即可退出VB环境。(2)利用快捷方式：利用快捷键Alt+F4，即可退出VB环境。(3)利用标题栏：鼠标右击标题栏，选择“关闭”，即可退出VB环境。

(4)利用关闭按钮：鼠标单击窗口右上方“关闭”按钮，即可退出VB环境。

5．答：对象(Object)是包含现实世界物体特征的抽象实体，反映了系统为之保存信息和与之交互的能力。每个对象有各自的内部属性和操作方法，整个程序是由一系列相互作用的对象构成的，对象之间的交互通过发送消息来实现。

类(class)是指具有相同的属性和操作方法，并遵守相同规则的对象的集合。从外部看，类的行为可以用新定义的操作(方法)加以规定。

类是对象集合的抽象，规定了这些对象的公共属性和方法；而对象是类的一个实例。

第五篇：VB试题及答案

VB试题及答案

一、基本概念及基本操作

1、如果要向工具箱中加入控件和部件，可以利用“工程”菜单中的______命令。

A、引用 B、部件 C、工程属性 D、添加窗体

2、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。

A、进入设计模式 B、进入运行模式 C、进入中断模式 D、不用进入任何模式

3、系统符号常量的定义可以通过______获得。

A、对象浏览器 B、代码窗口 C、属性窗口 D、工具箱

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

A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口

5、以下叙述中错误的是______。

A、用Shell函数可以调用能够在Windows下运行的程序 B、用Shell函数可以调用可执行文件，也可调用Visual Basic 的内部函数 C、调用Shell函数的格式应为：<变量名>=Shell(......)D、用Shell函数不能执行DOS命令

6、以下叙述中错误的是______。

A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B、以.BAS为扩展名的文件是标准模块文件 C、窗体文件包含该窗体及其控件的属性 D、一个工程中可以含有多个标准模块文件

以下不属于Visual Basic系统的文件类型是______。

A、.frm B、.bat C、.vbg D、.vbp

7、VB中窗体文件的扩展名是______。

A、VBP B、FRM C、VBW D、PDM

8、以下叙述中错误的是______。

A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B、保存Visual Basic程序时，应分别保存窗体文件及工程文件 C、Visual Basic应用程序只能以解释方式执行 D、事件可以由用户引发，也可以由系统引发

9、以下叙述中错误的是______。

A、一个工程可以包括多种类型的文件 B、Visual Basic应用程序既能以编译方式执行，也能以解释方式执行 C、程序运行后，在内存中只能驻留一个窗体

D、对于事件驱动型应用程序，每次运行时的执行顺序可以不一样

10、在Visual Basic工程中，可以作为“启动对象”的程序是______。

A、任何窗体或标准模块 B、任何窗体或过程

C、Sub Main过程或其他任何模块 D、Sub Main过程或任何窗体

11、假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是。

A、只保存窗体模块文件

B、分别保存窗体模块、标准模块和工程文件 C、只保存窗体模块和标准模块文件 D、只保存工程文件

12、以下叙述中错误的是______。

A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B、当程序运行时，双击一个窗体，则触发该窗体的DblClick事件 C、Visual Basic应用程序只能以解释方式执行 D、事件可以由用户引发，也可以由系统引发

13、要显示当前过程中的所有变量及对象的取值，可以利用______窗口。

A、监视 B、调用堆栈 C、立即 D、本地

14、当我们输入代码时，Visual Basic可以自动检测______错误。A、语法错误 B、编译错误 C、运行错误 D、逻辑错误

15、Microsoft Visual Basic 6.0包括三种版本，其中不包括______。

A、通用版 B、企业版 C、学习版 D、专业版

16、Visual Basic窗体设计器的主要功能是：______。

A、建立用户界面 B、编写源程序代码 C、画图 D、显示文字

17、以下关于Visual Basic特点叙述中，错误的是______。

A、Visual Basic是采用事件驱动编程机制的语言 B、Visual Basic程序既可以编译运行，也可以解释运行 C、构成Visual Basic程序的多个过程没有固定的执行顺序

D、Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构

18、以下叙述中，错误的是______。

A、一个Visual Basic应用程序可以含有多个标准模块文件 B、一个Visual Basic工程可以含有多个窗体文件 C、标准模块文件可以属于某个指定的窗体文件 D、标准模块文件的扩展名是.bas

19、以下叙述中错误的是______。A、打开一个工程文件时，系统自动装入与该工程有关的窗体文件 B、保存Visual Basic程序时，应分别保存窗体文件及工程文件 C、Visual BaSic应用程序只能以解释方式执行 D、窗体文件包含该窗体及其控件的属性