vb程序设计书习题和参考答案
练习题
习题一
一、判断题
1．Visual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。
2．面向对象的程序设计是一种以对象为基础，由事件驱动对象的编程技术。
3．事件是由Visual Basic预先定义的对象能够识别的动作。
4．新建工程时系统会自动将窗体标题设置为Form1。
5．控件的属性值不可以在程序运行时动态地修改。
6．决定对象是否可见的属性为Visible属性，决定对象可用性的属性是Enabled属性。7．保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存窗体或模块文件。
8．单击“启动”菜单项将窗体装入内存时，一定触发窗体的Load事件。
9．“事件过程”是用来完成事件发生后所要执行的程序代码。
10．在打开某窗体时，初始化该窗体中的各控件，应选用Load事件。
二、选择题
1．工程文件的扩展名为。
A、.frx
B、.bas
C、.vbp
D、.frm
2．下列不属于对象的基本特征是。
A、属性
B、方法
C、事件
D、函数
3．在设计模式双击窗体将显示的窗口是
A、工程窗口
B、工具箱
C、代码窗口
D、属性窗口
4．VB中运行程序的快捷键是
A、F2
B、F5
C、Alt+F3
D、F8
5．改变控件在窗体中的上下位置应修改该控件的属性。
A、Top
B、Left
C、Width
D、Right
6.窗体模块的文件扩展名是
A、.exe
B、.bas
C、.frx
D、frm
7．设置窗体的字体用属性。
A、FontName
B、FontSize
C、FontBold
D、FontItalic
8.设置窗体的字号用属性。
A、FontName
B、FontSize
C、FontBold
D、FontItalic
9．下列选项中不属于事件的是。
A、Dblclick
B、Load
C、Show
D、KeyUp
10．VB编制的程序保存在磁盘上，至少会产生何种文件。
A、.doc与.txt
B、.com与.exe.
C、.bat与.frm
D、.vbp与.frm
三、程序设计题
1．新建一个工程，单击窗体时，在窗体上显示“欢迎使用Visual Basic程序”。生成可执行文件，保存到D盘根目录下。
2．建立一个工程，界面如图1-28所示。它由一个窗体、两个文本框和两个命令按钮组成。单击“拷贝”按钮，可以将第一个文本框中显示的内容复制到第二个文本框中；单击“退出”按钮退出应用程序。
图1-28题2界面图1-29 题3界面
3．在窗体上添加一个标签和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏标签”和“显示标签”。当单击第一个命令按钮时，标签消失；而当单击第二个命令按钮时，标签重新出现，并且标签中显示“VB程序设计”。界面如图1-29所示。
习题二
一、判断题
1. 用DIM定义数值变量时，该数值变量自动赋初值为0。
2. 整型数值常量有整数，长整数两种。
3在逻辑运算符Not、Or、And中，运算优先级由高到低依次为Not、Or、And。
4关系表达式是用来比较两个数据的大小关系的，结果为逻辑值。
5一个表达式中若有多种运算，同一层括号内，计算机按逻辑运算→关系运算→算术运算的顺序对表达式求值。
6赋值语句的功能是计算机表达式并转换为相同类型数据后为变量或控件属性赋值。
二、单选题
1．以下合法的Visual Basic标识符是_______。
A、ForLoop
B、Const
C、9abc
D、A#x
2．下列可作为Visual Basic变量名的是_________。
A、a#a
B、4a
C、?xy
D、Consta
3．表达式6*7/8 Mod 9的值是_______。
A、4
B、5
C、6
D、7
4．将数学表达式cos2(a+b)+5e2写成Visual Basic表达式，其正确的形式是_______。
A、cos(a+b)^2+5*Exp(2)
B、cos^2(a+b)+5*Exp(2)
C、cos(a+b)^2+5*Ln(2)
D、cos^2(a+b)+5*Ln(2)
5．数学关系3≤x＜10表示成正确的VB表达式为________。
A、3<=x<10
B、3<=x and x<10
C、x>3 or x<10
D、3<=x and <10
6．设x=4，y=8，z=7，表达式x A、1 B、-1 C、True D、False 7．已知变量a、b、c中c最小，下列判别a、b、c能否构成三角形的逻辑表达式为_________。 A、a>=b and b>=c and c>0 B、a+c>b and b+c>a and c>0 C、(a+b>=c or a-b<=c) and c>0 D、a+b>c and a-b 8．下面进行算术运算符号的是_______。 A、Imp B、Mod C、Not D、Like 9．可以同时删除字符串前导和尾部空白的函数是_______。 A、Ltrim B、Rtrim C、Trim D、Mid 10．Rnd函数不可能为下列_______值。 A、0 B、1 C、0.1234 D、0.0005 11．Int(198.555*100+0.5)/100的值是_______。 A、198 B、199.6 C、198.56 D、200 12．如果x是一个正实数，对x的第3位小数四舍五入的表达式是______。 A、0.01*Int(x+0.005) B、0.01*Int(100*(x+0.005)) C.、0.01*Int(100*(x+0.005)) D.、0.01*Int(x+0.05) 13．执行语句s=len(Mid(“Visual Basic”,1,6))后，s的值为______。 A、Visual B、Basic C、6 D、11 14．描述x、y中有一个小于z的逻辑表达式是_______。 A.x B.x C.x D.x 15．Int(Rnd*100)表示的是______范围内的数。 A、[0,100] B、[1,99] C、[0,99] D、[1,100] 16．输入对话框inputbox的返回值的类型是_________。 A、字符串 B、整数 C、浮点数 D、长整数 17．在一行内写多个语句时，每个语句之间要用_____ 符号分隔。 A、， B、； C、： D、、 18．一个语句要在下一行中继续书写，可以用______符号作为续行符。 A、+ B、- C、_ D、… 19．下列声明语句中错误的是_________。 A、Const var1=123 B、Dim var2=’abc’ C、dim a,b as string D、dim var3 as integer 20．Print Not 10>15 And 8<5+2的输出结果为_____。 A 、8 B 、7 C 、true D 、false 三、程序设计题 1．编写窗体的单击事件代码，求一任意三角形的面积，三角形的三条边a 、b 、c 通过Inputbox 函数输入，计算的结果存入S 变量中，并以消息框的形式输出。 提示：任意三角形的面积公式2/)(,))()((c b a t c t b t a t t s 2．编写一段代码，求给定的一个圆的周长和面积。要求： （1）圆的半径r 利用Inputbox 函数从键盘任意输入(r>0)。 （2）圆周率定义为符号常量。 （3）利用赋值语句将求出的周长和面积赋给变量L 和S 。 （4）用Print 方法输出详细结果。 习题三 一、选择题 1．执行以下语句后的结果为 。 Dim x As Integer If x Then Print x Else Print x-1 A 、1 B 、0 C 、-1 D 、不确定 2．下列关于Select Case 测试表达式的叙述中，错误的是 。 A 、只能是变量名 B 、可以是整型 C 、可以是字符型 D 、可以是浮点类型 3．下列关于Select Case 的叙述中，错误的是 。 A 、Case 10 To 100 表示判断Is 是否介于10与100之间 B 、Case "abc","ABC" 表示判断Is 是否和"abc"、"ABC"两个字符串中的一个相同 C 、Case "X" 表示判断Is 是否为大写字母X D 、Case -7,0,100 表示判断Is 是否等于字符串"-7，0，100" 4．由“For i=1 To 16 Step 3”决定的循环结构被执行 次。 A 、4 B 、5 C 、6 D 、7 5．若i 的初值为8，则下列循环语句的循环次数为 次。 Do While i<=17 i=i+2 Loop A 、3次 B 、4次 C 、5次 D 、6次 6．由“For i=1 To 9 Step -3”决定的循环结构被执行 次。 A 、4 B 、5 C 、6 D 、0 二、程序阅读题（写出下列程序的运行结果） 程序1. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim x As Integer, y As Integer x = 5 y = -20 If Not x > 0 Then x = y - 3 Else y = x + 3 Print x - y; y - x 程序2. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim a As String, b As String a = "abcd" b = "cdef" e = Right(a, 3) f = Mid(b, 2, 3) If e < f Then Print e + f Else Print f + e End Sub 程序3. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim i As Integer, j As Integer Dim n As Integer n = 0 For i = 1 To 3 For j = 5 To 1 Step -1 n = n + 1 Next j, i Print n; j; i End Sub 程序4. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click( ) Dim i As Integer Static Sum As Integer For i=1 To 10 Sum= Sum+i Next i Print Sum End Sub 程序5. 请写出单击命令按钮后，窗体上的显示结果。 Private Sub Command1_Click() Dim s As Integer, i As Integer s = 1 i = 1 Do While i <= 4 s = s * i i = i + 1 Loop Print "s="; s 程序6. 请写出单击命令按钮后，窗体上的显示结果。 Private Sub Command1_Click() Dim i As Integer Do Until i >= 3 Print Tab(4 * i + 1); "A" i = i + 1 Loop End Sub 三、程序填空题 1．【程序说明】下面是一段计算数学表达式 的程序。 Private Sub Form_Click() Dim n As Integer, p As Integer, s As Sigle, q As Integer, i As Integer n = InputBox("请输入N 的值:") s = 0：p = -1：q = 1 For i = 1 To n p = -p: q = （1） s = （2） （3） Print s End Sub 2．【程序说明】下列程序用于计算1+（1+3）+（1+3+5）+…+（1+3+5+…+39）。 Private Sub Form_Click() Dim t As Integer, m As Integer Dim sum As Integer t = 0 m = 1 sum = 0 Do t = （1） sum = sum + t （2） Loop While （3） Print "sum="; sum End Sub 3．【程序说明】下列程序在文本框Text1中输入任一字符串，并按相反的顺序显示在文本框Text2中。 Private Sub Command1_Click() Dim n As String, c As String, d As String n = Text1.Text m = （1） For i = m To 1 Step -1 ()!1!44!3 3!2211n n n +-+?+-+- c = Mid(n, i, 1) d = （2） Next i （3） End Sub 四、程序设计题 1．用InputBox 函数输入3个任意整数，按从大到小的顺序输出。 2．编程，输入x 值，按下式计算并输出y 值。 ???????≤<<≤≤>-==0 0105155)(2x x x x x x x x f y 3．计算下式的和，变量x 与n 的数值用输入对话框输入。 )! 12()1(!7!5!31sin 1 21753-?-++-+-≈--n x x x x x x n n 4．用近似公式求自然对数的底数e 的值，直到前后两项之差小于10-4为止。 习题四 一、选择题 1．窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界 。 A 、下界必须为1 B 、缺省的下界为1 C 、下界必须为0 D 、缺省的下界为0 2．用Dim c(2 to 5) As Integer 语句定义的数组占用 个字节的内存空间。 A 、4 B 、8 C 、6 D 、10 3．以下 是VB 合法的数组元素。 A 、x9 B 、x[9] C 、x(9) D 、x{9} 4．设有数组声明语句：Dim a(2,3 to 4) As Integer 以上语句所定义的数组a 为 维数组，共有 个元素，第一维下标从 到 ，第二维下标从 到 。 A 、0 B 、1 C 、2 D 、3 E 、4 F 、5 G 、6 H 、9 二、程序阅读题（写出下列程序的运行结果） 程序1. 在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(5) As Integer,b(5) As Integer For j =1 to 4 a(j)=3*j b(j)=a(j)*3 Next j !1...!31!21!111n e +++++≈ Text1.text=b(j\2) End Sub 程序运行后，单击命令按钮，写出程序的运行结果。 程序2. 在窗体中添加一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click() Dim a(10) As Integer Dim p(3) As Integer k = 1 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * 2) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub 程序运行后，单击命令按钮，写出程序的运行结果。 程序3. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim a(5, 5) As Byte, i AsByte, j As Byte For i = 1 To 5 : For j = 1 To 5 a(i, j) = i * j Next j, i For i = 1 To 5 : Print a(i, i); : Next i End Sub 程序4. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim a(1 To 2,1 To 3) As Integer, i As Integer, j As Integer For i = 1 To 2 For j = 1 To 3 a(i,j) = i + j: Print Tab(j * 5 + 2); a(i,j), Next j Print Next i End Sub 三、程序填空题 1．【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中，再 将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。 Private Sub Form_Click() Dim a(30) As byte, i as Byte, j As Byte, m As Byte For i = 1 To 30: a(i) = ⑴: Next i For i = 1 To 29 For j = ⑵ If a(i) > a(j) Then m = a(i): ⑶:a(j) = m End If Next j,i For i = 1 To 30 If ⑷Then Print a(i); Next i End Sub 2．【程序说明】以下程序产生20个两位随机整数存于数组之中，打印数组中大于50的数，并求出这些数的和。 Private Sub Command1_Click() Dim arr(1 To 20) As Integer Dim i As Integer, sum As Integer For i = 1 To 20 arr(i) = ⑴ Next i sum = 0 For i = 1 To 20 If ⑵Then Print arr(i); sum = ⑶ End If Next i Print Tab(2); "sum="; sum End Sub 3．【程序说明】下列程序用来在窗体上输出如图4-2所示大小可变的正方形数据。 Dim a() As Integer Private Sub Form_Click() Dim n As Integer, i As Integer Dim j As Integer, k As Integer n = Val(InputBox("请输入数据：")) ⑴ For i = 1 To ⑵ For j = i To n - i + 1 For k = i To n - i + 1 ⑶ Next k, j, i For i = 1 To n 图4-2 n为7时的输出图形 For j = 1 To n Print Tab(j * 3); a(i, j); Next j ⑷ Next i End Sub 四、程序设计题 1． 设有a ，b 两矩阵，编程完成两个矩阵的相乘，结果存入c 矩阵中。 ??????? ????????????????666555 4443332223333322222 2． 编程产生10个[20，40]之间的随机整数存于一维数组a 中，将a 数组中的元素依次向后 移动一个位置，最后一个元素移动到第一个元素的位置上。 3．用二分法对已排好序（升序）的数据进行检索。 说明：二分查找法是对一批有序的数，取其中间元素，如果该元素是要找的数（key ），输出该数的位置，否则，如果该元素大于key ，则查找数列的范围缩小到该元素的前一个元素；如果该元素小于key ，则查找数列的范围缩小为该元素的后一个元素到数列尾。重复上述方法，直到查找的数列范围缩小到0个元素。 习题五 一、选择题 1．在过程调用中，参数的传递可以分为 和 两种方式。 A 、按值传递 B 、按地址传递 C 、按参数传递 D 、按位置传递 2．在参数传递过程中，使用关键字 来修饰参数，可以使之按值传递。 A 、ByVal B 、ByRef C 、Value D 、Reference 3．在窗体模块的通用声明段中声明变量时，不能使用 关键字。 A 、Dim B 、Public C 、Private D 、Static 4．要想在过程调用后返回两个结果，下面的过程定义语句合法的是 。 A 、Sub p(Byval n,Byval m) B 、Sub p(n,byval m) C 、Sub p(n,m) D 、Sub p(Byval n,m) 5．Sub 过程与Function 过程最根本的区别是 。 A 、Sub 过程可以使用Call 语句或直接使用过程名调用，而Function 过程不可以 B 、Function 过程可以有参数，Sub 过程不可以 C 、两种过程参数的传递方式不同 D 、Sub 过程的过程名不能返回值，而Function 过程能通过过程名返回值 二、程序阅读题（写出下列程序的运行结果） 程序1. 请写出三次单击命令按钮后，窗体上的显示结果。 Private Sub p() Static s As Integer Dim i As Integer For i = 1 To 10 Step 2 s = s + i Next i Print s; End Sub Private Sub Command1_Click() Call p End Sub 程序2. 请写出单击命令按钮后，窗体上的显示结果。 Private Sub s(x As Single, y As Single) Dim m As Single m = x x = m / y y = t Mod y End Sub Private Sub Command1_Click() Dim a As Single, b As Single a = 8 b = 5 Call s(a, b) Print a, b End Sub 三、程序填空题 1．【程序说明】如果两个质数的差为2，就称这两个质数为质数对。下列程序用于输出100以内的质数对。 Private Function p(m As Integer) As Boolean Dim i As Integer (1) For i = 2 To Sqr(m) If (2) Then p = False: Exit For Next i End Function Private Sub Command1_Click() Dim i As Integer Dim p1 As Boolean, p2 As Boolean p1 = p(3) For i = 5 To 99 Step 2 p2 = p(i) If p1 And p2 Then Print (3) p1 = p2 Next i End Sub 2．【程序说明】下列过程用选择法对double类型数组按值从小到大排序。 Private Sub Sort( (1) ) Dim i As Integer, j As Integer, k As Integer, t As Double For i = 1 To (2) k=i For j = i + 1 To n If (3) Then k = j Next j t=a(i): a(i)=a(k): a(k)=t Next i End Sub 3．【程序说明】下列程序用于将一维数组反序排放。 Private Sub swap(b() As Integer, n As Integer) Dim m As Integer, i As Integer For i = 1 To (1) m = b(i) b(i) = (2) b(n - i + 1) = m Next i End Sub Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i As Integer For i = 1 To 10 a(i) = i Print a(i); Next i Print Call swap( (3) ) For i = 1 To 10 Print a(i); Next i End Sub 四、程序设计题 1．编制通用函数过程，计算Double类型一维数组所有元素的平均值。 2．编制通用Sub过程，在一个m行n列二维数组中查找绝对值最大的元素，以及该元素的行号、列号（提示：Sub过程的形参列表如x() As Single, m As byte, n As Byte, xmax As Single,ki As Byte,kj As Byte）。 习题六 一、选择题 1.要为按钮设计一个访问键A，应该在Caption中加入。 A．&A B．@A C．$A D．#A 2.要把按钮设置为不可使用，应设置属性为False。 A．Enable B．Default C．Cancel D．Caption 3.要使按钮能够显示图片，应先设置属性。 A．Style B．Enable C．Index D．Caption 4.将命令按钮Command1设置为窗体的缺省按钮，可修改该控件的属性。 A．Enabled B．Value C．Default D．Cancel 5.将焦点主动设置到指定的控件或窗体上，应采用方法。 A．SetDate B．SetFocus C．SetText D．SelText 6.要使标签控件的大小能随Caption属性的大小自动调整，应该设置属性为 True。 A．Enabled B．Visible C．AutoSize D．Alignment 7.要使文本框显示滚动条，需先设置属性。 A．AutoSize B．MultiLine C．Alignment D．ScrollBars 8.下列属性表示文本框中选定的内容。 A．SelLength B．Text C．Caption D．SelText 9.下列控件没有Caption属性。 A．命令按钮B．标签C．框架D．文本框 10.下列不能接收焦点的控件是。 A．命令按钮B．文本框C．标签D．列表框 11.改变文本框中文字的颜色，应该修改属性。 A．BackColor B．ForeColor C．Font D．FontBold 12.选中单选按钮控件时，V alue属性的值为。 A．True B．False C．0 D．1 13.选中复选框控件时，Value属性的值为。 A．True B．False C．0 D．1 14.若要在同一窗体中安排两组单选按钮（OptionButton）可用控件予以分隔。 A．文本框B．框架C．列表框D．组合框 15.下列对象具有编辑功能，即运行时可以进行输入或修改。 A．下拉式列表框B．下拉式组合框C．复选框D．标签 16.不能通过来删除列表框中的表项。 A．RemoveItem方法B．Clear方法C．Text属性 17.若要把"XXX"成为List1清单中的第三项，则可执行语句。 A．List1.AddItem "XXX",3 B．List1.AddItem "XXX",2 C．List1.AddItem 3,"XXX" D．List1.AddItem 2,"XXX" 18.设置列表框各表项中的文本，用属性。 A．Selected B．List C．Text D．Caption 19.下面表示列表框控件List1的最后一个项目。 A．List1.List(List1.ListIndex) B．List1.List(List1.ListIndex-1) C．List1.List(List1.ListCount) D．List1.List(List1.ListCount-1) 20.执行List.RemoveItem List1.ListCount语句的结果为。 A．删除最后一项B．删除所有项C．出错D．显示所有项 21.下列关于组合框的说法中，正确的是。 A．组合框有Click事件，没有Change事件。 B．组合框有Change事件，没有Click事件。 C．组合框既有Change事件，也有Click事件。 D．组合框没有Change事件和Click事件。 22.滚动条的属性用于指定用户单击滚动条的滚动箭头时，Value属性值的增减 量。 A．LargeChange B．SmallChange C．Value D．Change 23.单击滚动条两端的任意一个滚动箭头，都将触发该滚动条的事件。 A．KeyDown B．Change C．Scroll D．Click 24.下列事件中，能够触发滚动条的Scroll事件。 A．单击滚动条两端的滚动箭头B．单击滚动条上滑块两侧的空白处 C．单击滚动条上的滑块D．拖动滚动条上的滑块 25.在任何情况下，控件在运行时都不可见。 A．标签B．按钮C．复选框D．定时器 26.下列控件没有Value属性。 A．滚动条B．复选框C．定时器D．单选按钮 27.下列设置中，可以使定时器Timer1停止计时的是。 A．Timer1.Locked=True B．Timer1.Locked=False C．Timer1. Enabled =True D．Timer1. Enabled = False 28.定时器控件的属性决定Timer事件发生的时间间隔。 A．Interval B．Top C．Visible D．Enabled 29.要将一个控件设置成为一个控件数组，应该设置属性。 A．Index B．TabIndex C．Caption D．Enabled 30.下面有关控件数组的说法，错误的是：。 A．控件数组由一组具有共同名称和相同类型的控件组成。 B．控件数组中的每一个控件共享同样的事件过程。 C．控件数组中的每个元素的下标由控件的Index属性指定。 D．同一控件数组中的元素只能有相同的属性设置。 二、程序填空题 1、程序说明：密码验证程序。在窗体上已建立一个标签Label1、文本框Text1和命令按钮 Command1。请将以下事件过程填完整。 Private Sub Form_Load() Text1. ⑴ = "*" End Sub Private Sub Command1_Click() If ⑵ = "ABC" Then ' 密码不区分大小写 MsgBox "密码正确" Else MsgBox "密码错误" End If End Sub 2、以下程序用于实现字符串的反转。在Text1中输入字符串并按回车确认后，在Text2中 显示反转字符串，请将程序补充完整。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim i As Integer, x As String, y As String If ⑴ Then x = Text1.Text （2） For i = n To 1 Step -1 （3） Next i （4） End If End Sub 3、以下程序可以将列表框中同时选中的多个列表项删除，请将程序补充完整。 Private Sub Command1_Click() i = 0 Do While i< ⑴ If List1.Selected(i) = True Then ⑵ Else ⑶ End If Loop End Sub 4、程序说明：在窗体上有一个标签Label1和一个水平滚动条Hscroll1,其Min的值为0， Max的值为100，程序运行后，单击滚动条两端的箭头和拖动滚动滑块时，在标签中实时显示滚动条的值。 Private Sub HScroll1_ ⑴ () Label1.Caption = ⑵ End Sub Private Sub HScroll1_ ⑶ () ⑷ End Sub 三、程序设计题 1、编程实现文本框内文本信息的剪切、复制和粘贴的功能。界面设计如图1所示，要求各 命令按钮为一个控件数组。 a)程序刚运行时3个命令按钮都不能响应。 b)选择文本后，“剪切”和“复制”按钮能响应。 c)单击“剪切”或“复制”按钮后，只有“粘贴”按钮能响应。 d)单击“粘贴”按钮后，3个命令按钮都不能响应。 图6-35 程序设计题1的界面设计 2、设计一个程序，要求在文本框中输入两个操作数后，通过单选按钮来选择进行+、-、* 或/的运算，同时，在标签框中显示相应地操作符，结果显示在第三个文本框中。图2为第二个文本框中输入0时的情况。 图6-36 程序设计题2的运行界面 3、设计一个程序，在列表框和组合框之间进行信息的移动，没有选择项时给出相应的提示。 程序运行情况如图3所示。 图6-37 程序设计题3的运行界面 4、利用定时器设计一个滚动标签（从左到右），标签在程序刚开始运行时不可见。 习题七 一、选择题 1.控件在窗体上的上下位置由下列属性决定。 A．Top B．Left C．Width D．Height 2.执行语句Form1.Scale(-200,-100)-(2000,1000)后，窗体Form1的ScaleWidth属性值 为。 A．200 B．1800 C．2000 D．2200 3.用Scale方法改变窗体坐标系后，下面属性值发生改变。 A．ScaleWidth B．Width C．Height D．DrawMode 4.在VB窗体中，默认的坐标单位是。 A．Pixel B．Twip C．cm D．mm 5.设置属性可以使图片显示在图片框或影像框中。 A．Picture B．Image C．Icon D．DownPicture 6.程序运行时，可用函数把图形装入窗体、图片框或影像框。 A．AutoSize B．Stretch C．Picture D．LoadPicture 7.将图片框的属性设置为True时，可使图片框根据图片调整大小。 A．Picture B．AutoSize C．Stretch D．AutoRedraw 8.将影像框的属性设置为False时，可使影像框根据图片调整大小。 A．Picture B．AutoSize C．Stretch D．AutoRedraw 9.在Visual Basic中，不能作为其他控件的容器。 A．框架B．图片框C．影像框D．窗体 10.要使Shape控件以实心方式填充，应设置属性。 A．FillColor B．FillStyle C．ForeColor D．BackStyle 11.下面属性决定Shape控件的图形。 A．Shape B．FillColor C．FillStyle D．BorderWidth 12.下列表达式中，不是红颜色的值。 A．VBRed B．RGB(255,0,0) C．QBColor(1) D．&HFF 13.Visual Basic用下列哪条指令来绘制直线。 A．Line方法B．Pset方法C．Circle方法D．Point函数 14.下列属性用来设置图形的边框类型。 A．BorderWidth B．BorderStyle C．DrawWidth D．FillStyle 15.属性可用来设置所绘线条宽度。 A．Draw S tyle B．DrawWidth C．BorderStyle D．BorderWidth 16.使用Circle方法不能绘制的图形是。 A．圆角矩形B．椭圆C．圆弧D．圆饼图 17.语句“Line(1000,1000)-(3000,3000),,B”绘制的是。 A．直线B．矩形C．椭圆D．圆弧 18.语句“Circle(1000,1000),500,,-л/3,-л/2”绘制的是。 A．圆弧B．椭圆C．扇形D．同心圆 19.语句“Circle(1000,1000),500,,,,2”绘制的是。 A．圆弧B．椭圆C．扇形D．同心圆 20.描述以(1000,1000)为圆心，以400为半径画1/4圆弧的语句，以下正确的是。 A．Circle(1000,1000),400,0,л/2 B．Circle(1000,1000),,400,0,л/2 C．Circle(1000,1000),400,,0,л/2 D．Circle(1000,1000),400,,0,90 二、程序填空题 1、程序完成在窗体上画一条对角线（从右上角到左下角），并在窗体中心画一个半径为窗 体高度四分之一的红色圆环。请将程序补充完整。 Private Sub Form_Click() Dim x1, y2, r As Integer x1 = ⑴ y2 = ScaleHeight r = y2 / 4 （2）'画对角线 （3）'画圆环 End Sub 2、程序要求在窗体上以窗体中心为圆心，以窗体宽度1/4为直径画一红边实心黄圆。 Private Sub Form_Click() Dim x As Integer, y As Integer, r As Integer x = ScaleWidth / 2 y = ScaleHeight / 2 r = ScaleWidth / 4 ⑴ FillColor = RGB(255, 255, 0) （2） End Sub 三、程序设计题 1.编程，在图片框中画余弦曲线。程序运行情况如图1所示。 图1 程序设计题1的运行界面 2.编程，在窗体中心画一个窗体所能容纳的最大的蓝色实心圆。 习题八 一、判断题 1、在多重窗体程序中,各窗体的菜单是彼此独立的。 2、通用对话框的FileName属性返回值中不包含文件的路径。 3、可以在窗体上绘制任意位置任意大小的通用对话框。 4、菜单中分隔线也可以响应Click事件。 5、在显示字体对话框前必须设置Flags属性，否则会产生不存在字体的错误。 6、一个菜单也是一个对象，它不能和当前窗体中的其他控件同名。 7、弹出式菜单只能设置成右键菜单。 8、如果一个菜单项的Visible属性为False，则它的子菜单也不会显示。 二、单选题 1、通用对话框控件所不具有的属性为（） A、BackColor B、FileName C、Flags D、Filter 2、以下叙述中错误的是 A、在程序运行时，通用对话框控件是不可见的 B、在同一个程序中，用不同的方法(如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用 C、调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件 D、调用通用对话框控件的ShowColor方法，可以打开颜色对话框 3、在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是 A、“text (.txt)|(*.txt)” B、“文本文件( .txt) | (.txt)” C、“text(.txt)||(*.txt)” D、“text(.txt)(*.txt)” 4、在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程： Private Sub Command1_Click() CommonDialog1.FileName ="" CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle="VBTest" CommonDialog1.Action=1 End Sub 对于这个程序，以下叙述中错误的是 A、该对话框被设置为“打开”对话框 B、在该对话框中指定的默认文件名为空 C、该对话框的标题为VBTest D、在该对话框中指定的默认文件类型为文本文件(*.Txt) 5、以下说法中不正确的是（） A、下拉式菜单通常出现在窗体标题栏下方，启动应用程序后始终可以看见。 B、弹出式菜单是一种浮动菜单，鼠标右击某个对象时打开，可以快速展示当前对象可用的命令功能，也称为快捷菜单 C、下拉式菜单通常用右键单击选择 D、下拉式菜单和弹出式菜单都可用“菜单编辑器”编辑 6、下面操作中不能打开“菜单编辑器”的是（） A、选择“工具|菜单编辑器”命令 B、选择“工程|菜单编辑器”命令 C、单击工具栏上的菜单编辑器按钮 D、使用Ctrl+E组合键 7、以下说法正确的是（） A、菜单项之间可以有空项存在 B、子菜单的层次必须是连续的，不能有跨越，且层次最好不要超过3层 C、主菜单项的Caption属性可以设置为“-” D、主菜单项和子菜单项可以同名 8、设菜单中有一个菜单项为"Open"。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是 A、把Caption属性设置为&Open B、把Caption属性设置为O&pen C、把Name属性设置为&Open D、把Name属性设置为O&pen 9、以下叙述中错误的是 A、下拉式菜单和弹出式菜单都用菜单编辑器建立 B、在多窗体程序中，每个窗体都可以建立自己的菜单系统 C、除分隔线外，所有菜单项都能接收Click事件 D、如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见 10、如果要在菜单中添加一个分隔线，则应将其Caption属性设置为 A、＝ B、* C、& D、- 11、以下关于菜单的叙述中，错误的是 A、在程序运行过程中可以增加或减少菜单项 B、如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项 C、弹出式菜单在菜单编辑器中设计 D、利用控件数组可以实现菜单项的增加或减少 12、假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是 A、该过程的功能是弹出一个菜单 B、popForm是在菜单编辑器中定义的弹出式菜单的名称 C、参数X、Y指明鼠标的当前位置 D、Button = 2表示按下的是鼠标左键 13、以下叙述中错误的是 A、在同一窗体的菜单项中，不允许出现标题相同的菜单项 B、在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键 C、程序运行过程中，可以重新设置菜单的Visible属性 D、弹出式菜单也在菜单编辑器中定义 三、填空题 1、通用对话框控件提供了一组标准的对话框，使用_______、________、__________、_________和________方法可以分别显示“打开”、“另存为”、“打印”、“颜色”和“字体”5种类型的对话框。 2、要使用消息框可以使用___________函数。它所提供的三个参数分别是_____________、_____________、_________________。 3、VB中，菜单也是一个控件，但它不在工具箱中，需要使用__________设计。 4、如果要使菜单项的左边显示一个复选标记，则应将该菜单项的____________属性设置为True 5、要使某菜单项呈灰色不可用状态，应将它的____________属性设置为False 6、将菜单项的Caption属性设置为___________，可以创建一个分隔条，将同一个菜单命下功能相关的菜单项划分成若干个逻辑组。 四、程序填空 在窗体上有一个名为Text1的文本框和一个如表所示的下拉菜单，其中“剪切”、“复制” 同步练习1 二、选择题 01——05 CADAB 06——10 ACDAB 11——15 CBDBB 同步练习2 二、选择题 01——05 ABDCA 06——10 CACBC 11——15 DADAD 16——20 BDBBB 三、填空题 1．可视 2．LEFT、TOP、WIDTH、HEIGHT 3．按字母顺序 4．查看代码 5．工具、编辑器 6．FORM窗体、FONT 7．MULTILINE 8．在运行时设计是无效的 9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0 同步练习3 二、选择题 01——05 BCADB 06——10 ADBBC 11——15 DBCBA 16——20 BAABB 三、填空题 1．整型、长整型、单精度型、双精度型 2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-19 4．FALSE 5．-4、3、-3、3、-4、4 6．CDEF 7．(X MOD 10)*10+X\10 8．(35\20)*20=20 ( 35 \ 20 )* 20 = 20 9．X MOD 3=0 OR X MOD 5=0 10．27.6、8.2、8、1、100、397、TRUE、FALSE 同步练习4 一、选择题 01——05 DBCAD 06——10 CBBAB 11——15 D25BAC 16——20 CBACB 21——25 DAABC 二、填空题 1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1 2 3 3．X>=7 4．X 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。 《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y) 实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5 （3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③ 程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152) 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 1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5 一、程序设计 '【程序设计】 1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5" '要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目：(事件)单击窗体。 ' (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m 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. 标签框的边框，由属性的设置值决定。 第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C ) | 最新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程序设计》综合复习资料 第一章 Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键 C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（） A．可视化 B．面向对象 C．面向图形 D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（） 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。 课后习题解答 第一、二章： 1、简述VB6.0的主要特点 答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。2、当正常安装VB6.0后，误把Windows子目录删除。当重新安装Windows后，是否需要再次安装VB6.0？ 答：要重新安装的。因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。 3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？ 答：在VB6.0的启动界面上，能显示对应的版本。 4、叙述建立一个完整应用程序的过程 答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程； 保存应用程序；程序调试和运行。 5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？ 答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。 6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。试问该工程涉及多少个要保存的文件？ 若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？ 答：涉及两个文件要保存。先保存窗体文件（.frm），再保存工程文件（.vbp）。若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。 7、保存文件时，若不改变目录名，则系统默认的目录是什么？ 答：系统默认的目录是VB98 8、安装Visual Basic 6.0后，帮助系统是否也已安装？ 答：没有。VB6.0的帮助系统在两光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。 9、如何使用Visual Basic 6.0的帮助系统？ 答：最方便的方法是选定要帮助的容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定容有关的帮助信息。 10、什么是类？什么是对象？什么是事件过程？ 答：类是同类对象集合的抽象，它规定了这些对象的公共属性和方法； 对象是类的一个实例，对象包含三个要素：属性、方法和事件。 当在对象上发生了事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。 11、属性和方法的区别是什么？ 答：属性是对象的特征，方法是对象的行为。前者有值，可以被赋值或引用；后者没有值，表示能够执行的操作。 12、当标签边框的大小由Caption属性的值进行扩展或缩小时，应对该控件的什么属性进行何种设置？ 答：将该控件的Autosize属性值设置为true。 13、在VB6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性来设置？若选 择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，应怎样修改？ 答：命令按钮的显示形式通过将Style属性值设置为Graphical来实现。通过Picture属性来装入图 V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (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循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……VB程序设计课后习题答案(科学出版社)
VB期末考试试题及答案
《VB程序设计》习题答案-林卓然编著
vb程序设计实验教程习题答案
VB题库—程序设计[1]
vb练习题及答案.doc
VB程序设计教程(第3版)课后实验答案最新版2
vb题库程序设计
vb试题及答案
vb程序设计试题(含答案)
vb题库及答案
visual_Basic程序的设计教程_课后习题答案及练习
VB程序设计 试题与答案-1
vb经典题目及答案
VB程序的设计教程课后答案
VB程序设计试题及答案一