改错题专项练习（一）
改错题要求
1. 新建工程，输入代码，改正程序中的错误。
2. 改错时，不得增加或删除语句。
3. 以Myfrm1的名字和Myprj1的名字分别将窗体和工程保存到软盘A的根目录下。
本专项练习共包括五题，每题30分钟，合计150分钟。请同学务必把握好解题时间。
第一题
本程序的功能是：从给定的字符〞age43dhbc765shdk8djfk65bdgth23end〃中找出所有的数（单个的数字或连续的数字都算一个数），并求出这些数的个数、总和及平均值（测试字符串含有5个数43、765、8、65、23，总和是904，平均值是180.8）。（2001秋VB02考题）
含有错误的源程序如下：
Option Explicit
Option Base 1
Private Sub getn(s As String, ByVal d() As Integer) ‘去掉ByVal Dim k As Integer, st As String, n As Integer, f As Boolean
k = 1: n = 1
Do Until n > Len(s)
If Mid(s, n, 1) >= "0" And Mid(s, n, 1) <= "9" Then
st = st & Mid(s, n, 1)
f = True
ElseIf f Then
f = False
ReDim Preserve d(k)
d(k) =val( st)
st = ""
k = k + 1
End If
n = n + 1
Loop
End Sub
Private Sub Form_Click()
Dim p As String, num() As Integer, i As Integer
Dim s As Integer, av As Integer ‘Dim s As Integer, av As Single
p = "ags43dhbc765shdk8djfk65bdgth23end"
Call getn(s, num) ‘Call getn(p, num) For i = 1 To UBound(num)
s = s + num(i)
Print num(i)
Next i
av = s / UBound(num)
Print "s="; s, "av="; av
End Sub
第二题
本程序的功能是：验证在n与n!之间至少有一个素数，其中n>2。可输入n=4验证。（2001春VB05考题）
含有错误的源程序如下：
Option Explicit
Private Sub Form_Click()
Dim n As Integer, k As Long
Dim m As Long, f As Integer
n = Val(InputBox("请输入一个大于2的整数"))
m = 0 ‘m=1
For k = 1 To n
m = m * k
Next k
For k = n + 1 To m - 1
f = Flag(k)
If f = 1 Then Exit For
Next k
If f = 0 Then ‘If f = 1 Then Print n; "与"; m; "之间一个素数是"; k
Else
Print n; "与"; m; "之间没找到一个素数"
End If
End Sub
Private Function Flag(n As Long) As Integer
Dim I As Integer
Flag = 1
For I = 2 To Sqr(n)
If n Mod I <> 0 Then ‘If n Mod I = 0 Then Flag = 0
Exit For
End If
Next I
End Function
第三题
求下面数列的和，计算到第n项的值小于等于10-5为止。
其中
本程序若用x＝0.5来测试，运行的正确结果为0.6480143。（2000秋VB05考题）含错误的源程序如下：
Option Explicit
Private Function Fib(N As Integer) As Integer
If N = 1 Then
Fib = 1
ElseIf N = 2 Then
Fib = 2
Else
Fib = Fib(N - 1) + Fib(N - 2)
End If
End Function
Private Sub Form_Click()
Dim N As Integer, S As Single, X As Single, A As Single
Do
X = InputBox("输入一个绝对值小于1的数:")
If Abs(X) >= 1 Then Exit Do ‘If Abs(X) <= 1 Then Exit Do
Loop
S = X
N = 1 ‘N = 2
Do
A = X ^ Fib(N) / (Fib(N - 1) * Fib(N))
If Abs(A) <= e - 5 Then Exit Do ‘If Abs(A) <= 1e-5 Then Exit Do
S = S + A
N = N + 1
Loop
Print "s="; S
End Sub
第四题
下面程序的功能是：将一个字符串中的相同字符调整到一块，得到一个新的字符串（下面为程序正确执行时的画面）。（2002秋VB04考题）
含错误的源程序如下：
Option Explicit
Private Sub Command1_Click()
Dim S As String
S = Text1.Text
Call sub1(S)
Text2.Text = S
End Sub
Private Sub sub1(st As String)
Dim I As Integer, L As Integer, K As Integer
Dim P As Integer, AL As String * 1
For I = 1 To Len(st)
AL = Mid(st, I, 1)
P = I - 1
Do Until P >= 1 ‘Do While P >= 1 If AL = Mid(st, P, 1) Then
For K = I To P + 1 ‘For K = I To P + 1 Step -1 Mid(st, K, 1) = Mid(st, K - 1, 1)
Next K
Mid(st, P, 1) = AL
Exit Do
End If
P = P + 1 ‘P = P - 1
Loop
Next I
End Sub
第五题
下面是一个二分插入排序的程序。二分插入排序，是直接插入排序，是直接直接插入排序的一个改进，即将顺序查找插入位置，改为用二分法查找插入位置，元素的移动和插入处理基本相同。（2002秋VB08考题）
含错误的源程序如下：
Option Explicit
Option Base 1
Private Sub Form_Click()
Dim A(10) As Integer, I As Integer
For I = 1 To 10
A(I) = Int(rnd * 20) + 1
Print A(I);
Next I
For I = 2 To 10
Call Insertion(A, K) ‘Call Insertion(A, I) Next I
For I = 1 To 10
Print A(I)
Next I
End Sub
Private Sub Insertion(S() As Integer, ByVal k As Integer)
Dim L As Integer, R As Integer, M As Integer
Dim Tem As Integer
L = 1: R = k - 1
Tem = S(k)
Do While L < R ‘Do While L <= R M = (L + R) / 2
If S(M) < S(k) Then
L = M + 1
Else
R = M - 1
End If
Loop
Do Until k = L
S(k) = S(k - 1)
k = k + 1 ‘k = k - 1 Loop
S(k) = Tem
End Sub +——+——+——+——+——+——+——+——+——+——+
1．选择
1．一个VB应用程序可以包含几个vbp文件（）。
A．1个B．2个
C．可以没有D．不受限制
2．启动VB后，就意味着要建立一个新（）。
A．窗体B．文件
C．工程D．程序
3．后缀为.bas的文件表示（）。
A．类模块文件B．窗体文件
D．窗体二进制数据文件D．标准类模块文件
4．当一个工程中含有多个窗体时，其中的启动窗体是（）。
A．启动VB时创建的第一个窗体B．第一个添加的窗体
C．最后一个添加的窗体D．在“工程属性”对话框中指定的窗体
5．在文本框控件中将Text的内容全部显示为所定义的字符的属性是（）。 A．Password B．PasswordChar
C．需要编程来实现D．以上都不是
3．表达式#11/22/99#-10的值是______。
A) 11/12 /1999 B) 10-12-1999 C) 1999-11-12 D) 1999-10-22
4．表达式3^2*2+3 MOD 10\4的值是______
A)18 B)1 C)19 D)0
5．将变量X,Y中的最大数赋值给变量A,正确的代码为______
A)：IF Y>X THEN A=Y: A=X B) IF Y>X THEN A=Y:A=X
C) A= IF Y>X THEN Y ELSE X D) IF Y>X THEN A=Y ELSE A=X
6．当执行以下过程时，在窗体上将显示______。
Private Sub Commandl_Click( )
Print “VB”
Print“Hello!”；
Print “VB”
End Sub
A) VB Hello! VB B）VB C）VB D）VB
Hello!VB Hello! VB Hello!
VB
7．将数据项“China”添加到列表框（List1中成为第一项，应使用的语句是______
A)List1.AddItem"China", B) List1.AddItem"China",0
C)List1.AddItem"China",1 D) List1.AddItem"1,China
1．下列控件中没有Caption属性的是（）
A、标签
B、文本框
C、框架
D、命令按纽
2．除框架外，能对单选按纽分组的控件是（）。
A、窗体
B、标签
C、图片框
D、图像
5．若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（）。
A、Text属性值为*
B、Caption属性值为*
C、Password属性值为空
D、PasswordChar属性值为*
6．表达式2*3^2+2*8/4+3^2的值为（）。
A、64
B、31
C、49
D、42
7．表达式mid("abcdefg",3,2)的值是（）
A、abc
B、cd
C、bcd
D、abcde
8．数学表达式Sin25°写成VB表达式是（）。
A、Sin25
B、Sin（25）
C、Sin（25°）
D、Sin（25*3.14/180）
9．Sub过程与Function过程最根本的区别是（）。
A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。
B、Function过程可以有参数，Sub过程不可以。
C、两种过程参数的传递方式不同。
D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。
1. 判断两个逻辑关系同时满足的逻辑运算是B 。
A) Or B) And C) Not D) Ok
2. InputBox函数返回值的类型为A 。
A）字符串B）数值C）变体D）数值或字符串（视输入的数据而定）
3. 程序运行时单选框如果选中，其Value值是C 。
A) 0 B) 1 C) True D) False
4. 加载并显示窗体的命令是A 。
A）Show B) Load C) Move D) Call
5. 若要设置定时器控件的定时时间，需设置的属性是A 。
A）Interval B) Value C）Enabled D）Text
1.要改变控件的宽度，应修改该控件的（1）属性。
A. Top
B. Width
C. Left
D.Height
2.将命令按钮Command1设置为不可见，应修改该命令按钮的（2）属性。
A.Visible
B.Value
C.Caption
D.Enabled
9．下列数据类型中，占用内存最大的是（15）。
A、Boolean
B、Byte
C、Integer
D、Single
1．一个对象可以执行的动作和可被对象识别的动作分别称为（11）。
A、事件、方法
B、方法、事件
C、属性、方法
D、过程、事件
2．在窗体Form1的Click事件过程中有以下语句：
Label1.Caption=”Visual Basic”
若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为（12）。
A．”Label”、”Label” B、”Label1”、”Visual Basic”
C、”Label1”、”Label1”
D、”Caption”、”Label”
3．（13）对象不具有Caption属性。
A、Label
B、Option
C、Form
D、Timer
15．命令钮控件（Command）快捷键的设置通过哪个字符实现______
A) @ B) $ C) # D) &
16．决定标签内显示内容的属性是______
A)TEXT B）NAME C）ALIGNMENT D）CAPTION
17．假定有以下程序段：
for i=1 to 3
for j=5 to 1 step -1
print i*j
next j
next i
则语句PRINT I*J 的执行次数是______
A）15 B）16 C）17 D）18
18．使文本框获得焦点的方法是______
A）CHANGE B）GOTFOCUS C）SETFOCUS D）LOSTFOCUS
19．骰子是一个正六面体,分别用1~6 代表这六个面,掷一次骰子出现的数可表示为______
A) Int(rnd*6+1) B) int(rnd*6) C) int(rnd*7) D) int(rnd(6)+1)
5.不能通过（5）来删除列表框中的选项.
A .List属性B.Removeltem方法C.Clear方法D.Test属性
7.设计动画通常使用时钟控件（7）来控制动画速度.
A.Enabled
B.Interval
C.Timer
D.Move
8.用户可以通过设置菜单项的（8）属性值为FALSE来使该菜单项不可见.
A.Hide
B.Checked
C.Visible
D.Enabled
9.通常使用（9）方法来显示自定义对话框.
A.Load
B.Checked
C.Unload
D.Hide
1、标签控件最重要的属性是__（3）______
A. caption
B. text
C. name
D. width
2、文本框中选定的内容，由下列____（4）_____属性反映。
A. Text
B.Caption
C. Seltext
D. sellenght
3、选中复选框控件时，value属性的值，可以是_ （5）______
A.true
B. false
C. 0
D.1
4、设置列表框选中的文本用____（6）____属性
A. selected
B. caption
C. text
D. list
5、简单组合框的style值为____（7）_____
A .0 B. 1 C. 2 D. 3
6、在文件列表框的实现文件的多重选择，应修改该控件的___（8）______属性
A. filename
B. pattem
C. path
D. multiselect
7、语句listl.removeitem 1 将删除list.listindext等于___（9）______的项目。
A. 0
B. 2
C. 3
D. 1
10、计时器的interval属性伪时，表示____（10）_____。
A. 计时器失效C. 相隔0 毫秒
B. 相隔0秒D. 计时器的enable属性为false
=================================================================== ==
2．判断
a) 清除list1列表框对象的内容的语句是list1.cls。（16）
b) 清除combo1对象的内容是combo1.clear。（17）
c) 对象的可见性用enabled属性设置，可用性用visible属性设置。（18）
d) 若要新建一个磁盘上的顺序文件，可用output，append方式打开文件。（19）
10、滚动条控件不可作为用户输入数据的一种方法。（20）
1．VB是一种面向对象的程序设计语言。(11)
2．在VB的工具栏中包括了所有的VB控件，我们不能再加载其他的控件。(12)
3．在VB5 中，文件菜单的“删除工程”的作用是将当前VB工程在硬盘中删除掉。(13)
1. 对象的属性都可以在属性窗口中设置。(11)
2. 时钟控件的属性Interval值为0时，表示屏蔽计时器。(12)
3. 设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名字和事件。(13
1）只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可完成。（11）
2）控件是对象，而窗体不是对象，它只是控件对象的窗口。（12）
3）TextBox与Label有许多共同特点，它们都能显示和输入文本。（13）
4）有的对象属性既可在属性窗口中设定又可在程序代码中设定。（14）
5）在框架控件内的几个单选按钮中，只能有一个单选按钮的Value属性为True.(15) 6）标签没有Change事件和SetFocus方法。（16）
7）事件过程与Sub过程，它们相同点都是事件驱动，而不同的只是事件过程由控件属性决定，而Sub过程是由户自定义。（17）
8）Function函数有参数传递，并且一定有返回值。(18)
9）滚动条控件不可作为用户输入数据的方法。（19）
10）Msgbox函数建立的信息框能显示信息又能输入用户的信息。(20）
4．设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名字。（）
5．在框架控件内的几个单选按钮中，只能有一个单选按钮的Value属性为True. ( )
6．所有的控件在程序运行以后都是可见的。（）
7．设有如下变量声明:Dim TestDate As Date，为变量TestDate正确赋值的表达方式
是TestDate=#“1/1/2002”#
4．Listl.clear是清除Listl的全部列表项，所以Clear是对象的方法。（14）
5．有的对象属性既可在属性窗口中设定又可在程序代码中设定。（15）
（16）
7．在框架控件内的几个单选按钮中，可有一个或多个单选按钮的Value属性为True.(17)
3．填空
2.设x=2,y=4,a=4,b=6,表达式（a>x Xor b
(22) 。
3．a 和b 中有仅只有一个不为1，相应的Visual Basic逻辑表达式为
(23) 。
4．把条件为1￡ x ￡ 5 写成VB表达式为：(24) 。
6．用随机函数产生10个100～500的整数，其表达可为：
(26) 。
8．表达式93 \ 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And ca And Not b 10．日期表达式#2/24/02# - #2/12/02# 的值为___________。 11．数学表达式sin2x+ 写成等价的Visual Basic表达式为_________________。 3. Option Base 1 的作用是确定数组的下界为【_____】。 4. VB提供了结构化程序设计的三种基本结构，这三种基本结构是【_____】【_____】和【_____】。 5. 欲使某命令按钮失效，应修改命令按钮的【_____】属性进行设置。 6. 设x=6,y=4,z=7,计算下面表达式的值。 （1）x>y And y>x-z Or xz ，结果为【_____】。 （2）len(“X+Y”), 结果为：【_____】。 1. 将数学式子写成ＶＢ表达式是【______】. 2. 把条件1<=X<12写成VB关系表达式为【______】. 3. 求x与y之积除以z的余数的VB表达式为【______】。 4. 请写出清除以下对象内容的语句： 文本框【______】窗体【______】列表框【______】。 5. 欲使某命令按钮失效，应修改命令按钮的【______】属性进行设置。 6. 使用Frame控件将其他控件分组时，应先画【______】再在其中画【______】。 1．下列循环语句控制的循环次数为___（29）_____________。 FOR K=1 TO 20 STEP –2 2．VB表达式9^2 MOD 45 \2 *3 的值______（30）____________。 3．设变量x,y,a,b,的值分别为1，2，3，4，计算下面表达式的值。（用True或False表示） 1) x+y>a+b and not y 2) x <0 or not y <0 and a>0 值_____(29)____________。 4．求x与y之积除以z的余数的VB表达式为___ _ (30)___________。 4．程序阅读 1． Private Sub Form_Click() Dim x As Integer St atic y As Integer x = x + 2 y = x + y Form1.Print "x="; x, "y="; y End Sub 写出程序运行时连续单击三次窗体后，Form1上的输出结果。 2． Private Sub Form_Click() Dim c As Integer, j As Integer, k As Integer k = 0 c = 1 For j = 1 To 6 If j > 4 Then c = c + 4 Exit For Else k = k + 1 End If Next j Print c, k End Sub 写出程序运行时单击窗体后，c,k的值分别是： For X = 5 To 1 Step -1 For Y = 1 To 6 - X Print Tab(Y + 5); "*"; Next Y Print Next X 3．将下面程序的运行结果填入[______]处。 Private Sub Form_Click() Dim i As Integer, k As Integer, c As Integer For i = 1 To 7 If i Mod 2 = 0 Then k = k + 2 Else c = c + 2 End If Next i Print k, c End Sub 写出程序运行时单击窗体后，Form1上的输出结果 4．输入一学生成绩，评定其等级。方法是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”， 60~69分为“及格”，60分以下为“不合格”. 请在[______] 填入适当的内容，将程序补充完整。 其代码是: X=V AL(INPUTBOX(“请输入0到100之间的分数X=”)) Select Case x Case 90 to 100 Print "优秀" Case [______] Print "良好" Case70 to 79 Print "中等" Case 60 to 69 Print "及格" [______] Print "不及格" End Select 5．Private Sub Form_click() Dim a As Integer a=Val(InputBox("请输入数据",,100)) Select Case a Mod 5 Case Is <4 w=a+10 Case Is <2 w=a*2 Case El se w=a-10 End Select Label1.Caption="w=" & Str(w) End Sub 设输入的数据分别为14、3、125、21时，标签框Label1.Caption的值分别是多少？ 6．Private Sub Form_Click() Dim k,a,bjg,jg,zd,lh,yx As Integer Randomize For k=1 To 30 A=Int(Rnd()*100) Select Case a Case 0 To 60 Bjg=bjg+1 Case 61 To 69 Jg=jg+1 Case 70 To 79 Zd=zd+1 Case 80 To 89 Lh=lh+1 Case 90 To 100 End Select Next k Print”不及格”+Str$ (big)+”人，及格”+Str$(jg)+”人，中等”+Str$(zd)+”人”; Print”良好”+Str$(lh)+”优秀”+Str$(yx)+”人” End Sub 5．编程 1. 用对话框函数INPUTBOX和MSGBOX编写代码求任意球的体积(V=4/3*R^3*PI) 2.用条件语句实现分段函数:当X=0,时Y=0;X>0,时Y=1;X<0;时Y=-1. 设计时用文本框输入任意整数X,用标签输出”Y=值”形式的结果,用命令控件进行确定计算的过程. (要求画出窗体效果图且写出代码和控件属性) 3输出100~200之间不能被7整除的数. 4在窗体上设计两个文本框和两个标签，标签上显示“摄氏温度”和“华氏温度”，文本框一个用于输入摄氏温度数，一个用于输出对应的华氏温度。摄氏温度与华氏温度的转换公式为：c=(5/9)*(f-32) 运行界面如图所示： 5输出100到300之间不能被3整除的数,要求用数组存放,用列表框显示,用命令按钮计算. 6．随机产生10个两位整数，找出其最大值、最小值和平均值。 7．编写99乘法表 8．用对话框输入0~6 编写程序显示其中英文星期信息。 9．在窗体上设计一个文本框，一个命令按钮和二个标签，一个标签上用于显示结果，另一个用于提示输入，文本框用于输入自然数，命令按钮用于计算。编写求N！的设计过程 《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) 大学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/4b16207322.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 '以下程序段用于输出杨辉三角:结果样式如图1 ' Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(I, 1) = 1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(I,j)】 Next j Print Next I End Sub Option Explicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数' 据错误。X、N都是由用户输入。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox("Please input a integer value:")) 程序改错 一、下面每个程序的划线处有语法或逻辑错误，请找出并改正，使其得到符合题意的执行结果。 １．求1?2?3?4? ?n main() { long int sum; int n,i=1; scanf("%d",n); printf(“\n”); while(i main() { float a,b; int c; scanf("%f,%f",&a,&b); c=sum(a,b); printf("\nSum is %f",sum); } 5．用指针作函数参数，对输入的两个整数按大小顺序输出。 swap(int *p1,*p2) { int *p; *p=*p1;*p1=*p2;*p2=*p; } main() { int a,b; int *q1,*q2; scanf("%d,%d",&a,&b); &q1=a,&q2=b; if(a 第一套试题 一、选择题（每题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期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5） 1.程序的功能是：单击命令按钮“输出”，在图片框Picture1中输出费波那契数列的前20项项值，要求按区输出，每行输出4个项值。程序中有两处错误，请修改程序并运行，直到得出正确结果。 注意：程序中的修改行就在注释行： '**********found*************' '请不要删除该行' 的下面，请不要修改程序中的其他部分。最后把修改后的文件按原来文件名存盘。 第1个出错位置：For i=3 to 20 第2个出错位置：If i Mod 4=0 then Picture1.Print Private Sub Command1_Click() Dim f(40) As Long Dim i As Integer Picture1.Cls f(1) = 0 f(2) = 1 Picture1.Print f(1), f(2), '**********found*************' '请不要删除该行' For i = 1 To 40 For i=3 to 20 f(i) = f(i - 1) + f(i - 2) Picture1.Print f(i), '**********found*************' '请不要删除该行' If i Mod 4 = 0 Then Picture.Print If i mod 4=0 then picture1.print Next i End Sub 2. 程序的功能是：程序运行时，单击“输出”按钮，产生10个[0，99]之间的随机整数存入数组A中，并按照相反的顺序输出在窗体上。程序中有两处错误，请修改程序并运行，直到得出正确结果。 第1个出错位置：A(i)=Int(Rnd*100+0) p50 第2个出错位置：Print A(11-i); Private Sub Command1_Click() Randomize Dim A(10), I As Integer Form1.Cls For I = 1 To 10 '*********found******** '请不要删除该行 A(I) = Int(Rnd * 99) A(i)=Int(Rnd*100+0) Print A(I); Next I Print For I = 1 To 10 '*********found******** '请不要删除该行 Print A(I); Print A(11-i) (注意答案中间无;) Next I End Sub 11 *程序名：TEST.prg *检索选修课程门数等于３门或３门以上,每门课程成绩大于或等于７０分的每个学生的 *学号,姓名,性别,平均成绩,最低分和选课门数,并将结果存储到表NEW_TEST中． *以下程序有三处错误，请改正 OPEN DA TABASE SDB SELECT STUDENT.学号,姓名,性别,A VG(成绩) 平均成绩,MIN(成绩) 最低分,COUNT(*) 选课门数; FROM STUDENT,SC; WHere STUDENT.学号= SC.学号AND 成绩>= 70 ; &&**********Error********** GROUP BY STUDENT.学号HA VING count(课程号) >= 3; &&**********Error********** inTO table NEW_TEST &&**********Error********** CLOSE ALL 9 *程序名：dbtest3.prg *定义一个视图VS1, *检索选课门数是3门以上的每个学生的学号、姓名、平均成绩、最低分、选课门数和院系编号, *并按平均成绩降序排序. *以下程序有三处错误，请改正 SET TALK OFF SET SAFETY OFF open DATABASE SDB &&****Error***修改本行的语法错误,不许注释掉本行或删除本行 CREATE VIEW VS1 SELECT STUDENT2.学号, 姓名, A VG(成绩) 平均成绩, MIN(成绩) 最低分, COUNT(*) 选课门数, 院系编号; FROM STUDENT2, sc; &&*************Error************* WHERE STUDENT2.学号= SC.学号; GROUP BY SC.学号HA VING COUNT(课程号) > 3; ORDER BY 平均成绩desc &&*************Error************* CLOSE DATABASE RETURN i=2 create table four(结果I) do while i<=1000 if i%3=0 insert into four values(i) &&错误语句请修改 endif VB程序设计编程考试题及答案 1.输入3个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox("输入第" & i & "个数")) If n > max Then max = n End If Next Print "三个数中最大的数是" ; max End Sub 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Sub 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”， 若小于60，则弹出消息框，显示“抱歉！成绩没有通过！ Private Sub Form_Load() Text1 = "" End Sub Private Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox("恭喜！成绩通过！")) Else Val (MsgBox("抱歉！成绩没有通过！")) End If End Sub 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整 除但不能被100整除，或者能被400整除） Private Sub Command1_Click() Dim y% 中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型 c语言程序设计第五版习 题答案 Prepared on 24 November 2020 习题解析与答案 第1章C语言概述 一．简答题 1．概述C语言的主要特点。 【解答】 （1）语言简洁、紧凑，使用方便、灵活。 （2）数据类型丰富，表达能力强。 （3）运算符多样。C语言中的运算符包含的范围非常广泛。 （4）具有结构化的控制语句。如if…else语句、while语句、dowhile语句、switch语句、for语句。 （5）允许直接访问物理地址。C语言中含有的位和指针运算，能够直接对内存地址进行访问操作。 （6）所生成的目标代码质量高，可移植性好。 2．构成C语言程序的基本单位是什么它由哪几部分组成 【解答】函数是构成C语言程序的基本单位。一个完整的C程序一般由文件包含、宏定义、函数说明、变量和一个或若干个函数组成。 3．Ｃ语言程序的运行一般要经过哪几个步骤 【解答】（1）编辑；（2）编译；（3）连接，生成EXE文件；（4）执行。 二．运行程序写结果 1．输入下面程序并运行。 main（） ｛ inta1，a2，x; a1=100; a2=50; x=a1-a2; printf（″x=%d\n″，x）; ｝ 【解答】运行结果为：x=50 2．输入下面程序并运行。 main（） { inta1，a2，x; a1=10; a2=20; x=a1*a2; printf（″a1=%d，a2=%d\n″，a1，a2）; printf（″x=%d\n″，x）; ｝ 【解答】运行结果为：a1=10,a2=20 x=200 三．编程题 1．参照本章例题，编写一个Ｃ程序，用于显示如下信息： ************************* IloveCprograms! ************************* 【分析与提示】 ①要有文件包含语句#include<>。C语言中没有数据的输入、输出等功 能，数据的输入、输出都是通过调用系统提供的库函数scanf和printf 等来实现的。这些函数的说明都包括在文件中。 ②main是主函数的名称。用｛｝括起来的内容是函数体，函数体由若干 条语句组成，这是计算机要执行的部分，每条语句以分号“;”结束。 ③注意显示的信息有三行，所以要用到换行符“\n”。 参考代码： #include<> main() { printf("************************\n"); printf("IloveCprograms!\n"); printf("************************\n"); } 第2章数据类型及其运算一．简答题 1．C语言中的数据类型主要有哪几类 【解答】短整型(shortint) 整型整型（int） 长整型(longint) 基本类型字符型(char)(float) 实型（浮点型） 双精度(double) 枚举类型(enum) 数组类型 目录 功能：在一个已按升序排列的数组中插入一个数，插入后，数组元素仍按升序排列。 (1) 功能：求如下表达式： (2) 功能：判断m是否为素数，若是返回1，否则返回0。 (4) 功能：用下面的和式求圆周率的近似值。直到最后一项的绝对值小于等于0.0001。 (5) 功能：求1到20的阶乘的和。 (6) 功能：输出Fabonacci数列的前20项,要求变量类型定义成浮点型，输出时只输出 整数部分，输出项数不得多于或少于20。 (7) 功能：先从键盘上输入一个3行3列矩阵的各个元素的值，然后输出主对角线上的 元素之和sum。 (8) 功能：找出大于m的最小素数，并将其作为函数值返回。 (9) 功能：有一数组内放10个整数,要求找出最小数和它的下标,然后把它和数组中最前 面的元素即第一个数对换位置. (10) 功能：一个已排好序的一维数组，输入一个数number，要求按原来排序的规律将 它插入数组中. (11) 第1题/*------------------------------------------------------ 【程序改错】 -------------------------------------------------------- 功能：在一个已按升序排列的数组中插入一个数，插入后，数组元素仍按升序排列。 ------------------------------------------------------*/ #include VB 期末考试试题A 卷 一、填空题 1、VB 程序设计的主要特点是可视化设计和事件编程。 2、在VB 中，最主要的两种对象是窗体（form ）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB 提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作___ 。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value 属性指示复选框处于 _____ 选中___或禁止状态（暗淡的）中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width ）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox 函数中，如果缺省title 参数，则使用工程1 作为消息框的标题。 12、设x = 34.58，语句Print Format（x, “ 000.0”）的输出结果是34.6。 13、在VB 中，数值型变量的初值为0 ，Varant 型变量的初值为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP 图片框中的图片应使用语句cls 。 二、选择题 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" 第2题（1、0分）题号:1 2 9 ＇【程序改错】 '题目:该程序实现将输入得0 —255 之间得正整数转 换成二进制数 O p t i on Explici t P riv a t e Sub Fo r m _Cl i ck () Con st n = 8 Dim a(n) A s I n tege r, s As Stri ng, m A s I n te g er, x A s Integer x = Va l (In p utB ox （”请输入一个0 — 2 55之间得正整数: ")) Prin t x ** ＊* ＊＊＊***FOUND** Fo r m = 1 T o n (m ) = x Mod 2 *** * *F^) D******＊** ＊ Nex t m For m =n To 0 S t e p —1 * ＊********FOU N D * **** * * ** * s = Str(a( m )) Nex t m Pri n t s E n d Sub 答案: (答案1)For m = 0 To n======= 答案2)x= x \ 2 或x= int(x/2)=======(答案3)s = s + St r (a (m)) 第3题(l、0分) 题号:463 '题目：以下程序功能就是输入三个数,由大到小排序。 Op t io n Explicit Di m A A s I n teger Dim B As I n te g er D im C As I nt e ger P r ivat e Sub F o r m_Click() Dim nTemp A s Integer A = V a l(ln put B o x (H P lease in put fi r st i nt e ger","输入正整数”)) B = Val( I n putBo x (” Pl e a s e in put s eco nd int e ge r”，"输入正整数”)) C = Va i (In pu tB o x(” P 1 e a se in put third int e ger ” ,"输入正整数”)) F OU ND * * ***** If A v= C T h en n Te m p = A A = B B = n Te mp E nd I f > ***** ＊FOUND**** * * * *** I f B <= C T hen nTe mp = A A = C C = nTem p 12592 '题目:编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。'------------------------------------------------ Option Explicit Private Sub Form_Click() Dim N As Integer, Sum As Integer, S1 As String, S2 As String Dim i As Integer, Ch As String Sum = 0 N = InputBox("输入整数n") S1 = Str(N) S1 = Trim(S1) For i = 1 To Len(S1) '**********ERROR********** Ch = Mid(N, i, 1) '**********ERROR********** Sum = Val(Ch) Next i Print "该整数的各位数之和是："; Sum End Sub 12610'题目：程序功能根据输入的学习成绩,分别显示优秀(90分以上), 良好(75分以上),及格(60分以上)不及格四个等级. '------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim i As Integer i = InputBox("请输入学习成绩") Select Case i '**********ERROR********** Case 0 < i < 100 MsgBox "成绩应该在0--100之间""" '**********ERROR********** Case 90 Print "优秀" Case 75 To 89 Print "良好" Case 60 To 74 Print "及格" '**********ERROR********** Case MsgBox "不及格", vbCritical End Select End Sub 12616.题目：求s=1!+3!+5!+7!，阶乘的计算用Function过程fact实现. '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim i As Integer, s As Integer '**********ERROR********** For i = 1 To 7 s = s + fact(i) Next i Print s End Sub '**********ERROR********** Public Function fact() Dim t As Integer, i As Integer t = 1 For i = 1 To n t = t * i Next i '**********ERROR********** fact = i End Function 12620题目:编程实现从左到右的滚动字幕，滚动的速度由滚动条控件来控制。 '------------------------------------------------ Option Explicit Private Sub HScroll1_Scroll() '**********ERROR********** Timer1.Interval = HScroll1.Min - HScroll1.Value End Sub Private Sub Timer1_Timer() '**********ERROR********** If Label1.Left <= Form1.Width Then '**********ERROR********** VB课后习题解答 第一、二章： 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属性设置的文字，应怎样修改？ 大学 VB 考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。 A、结构化程序设计 B 、程序开发环境 C、事件驱动编程机制 D 、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（C）。 A、 "12334" B 、 123 C、 12334 D 、 157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B 、窗体文件和工程文件 C、窗体文件和标准模块文件 D 、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、 ="VisualBasic窗体" B、 ="VisualBasic窗体" C、 ="VisualBasic窗体" D、 ="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集成环境的主窗口中不包括（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《VB程序设计》习题答案-林卓然编著
大学VB考试题库
VB程序设计例题-程序改错程序填空程序设计
程序改错基本题
vb程序设计试题(含答案)
大学-VB期末考试试题
VB改错题(答案)
计算机程序改错题,及答案
VB程序设计编程考试~题及答案~
[整理]VB程序设计复习题及答案.
c语言程序设计第五版习题答案
有目录-程序改错部分试题及答案(2015-2016-1)
大学VB期末考试试题
VB程序改错40题
程序改错--答案版
VB程序的设计课后复习题答案
大学VB考试卷试题库题集.doc
相关主题
文本预览