VB是面向________的程序设计语言。对象
在设计应用程序时，通过________可以查看到应用程序工程中的所有组成部分。工程资源管理器窗口
创建VB程序的一般步骤是________ 。创建用户界面、设置属性和编写代码、保存工程、创建可执行程序
工程文件、窗体文件的扩展名分别为________。 .vbp .frm
保存VB程序时，系统先保存________文件。窗体
扩展名为VBP的工程文件中包含有_______。工程中所有模块的有关信息
在设计阶段，当双击窗体上某个控件时，所打开的窗口是________。代码窗口
该实验中设置标签AutoSize属性为True的作用是________。能自动调整大小以显示所有内容
文本框PasswordChar属性的作用是________。决定是否在控件中显示用户键入字符或保留区字符
以下不能在工程资源管理器窗口中列出的文件类型是________。 Ocx (bas\res\frm可列出)
刚建立一个新的标准EXE工程后，不在控件工具箱中出现的控件是________。通用对话框
以下算法可以实现x和y变量内容进行交换的算法是________：
① t=x ：x=y ：y=t
② x=x+y ：y=x-y ：x=x-y
③ x=y ：y=x
④ y=x+y ：x=y-x ：y=y-x
①②④
一名五岁儿童被绊倒在地，则五岁、儿童、绊、倒在地分别为________。属性、对象、事件、方法
设置命令按钮1的Default属性为True时，与单击该命令按钮作用相同的按键是________。回车
Visual Basic窗体设计器的主要功能是________。建立用户界面
可以在设计时直观的调整窗体在屏幕上的位置的是________。窗体布局窗口
不能打开属性窗口的操作是________。 Ctrl＋T
应用程序窗体的名称属性为Frml,窗体上有一个命令按钮，其名称属性为Cmdl, 窗体和命令按钮的Click事件过程名分别为________。 Form_Click()和Cmd_Click()
如果要改变窗体的标题，需要设置窗体对象的________属性。 Caption
以下能够触发文本框Change事件的操作是________。改变文本框内容
一般不用来触发事件的对象是________。标签
创建应用程序的界面时，在窗体上设置了一个命令按钮，运行程序后，命令按钮没有出现在窗体上，可能的原因是________。该命令的Visible属性被设置为False
如果窗体上有命令按钮确定，在代码编辑窗口有与之相对应的OK_Click()事件过程，则命令按钮的名称属性和Caption属性分别为________。 OK和确定
在本实验中所用的KeyPress是________。事件
以下语句中，不能正确执行的是________。 Check1.Value = True
若需要在同一窗体内安排两组相互独立的单选按钮(OptionButton)，可使用________控件将它们分开。
① TextBox ② Picture ③ Image ④ Frame
②④
关于该实验，以下说法错误的是________。删除Form_load()事件过程中的代码，在设计状态时，对列表框1的List1属性添加初始值：铅球、跳远、800米，运行结果是不一样的
在列表框中当前被选中的列表项的序号是由下列________属性表示。 ListIndex
引用列表框(List1)最后一个数据项应使用________。List1.List (List1.ListCount - 1) 下面________语句，可以将列表框List1中当前选定的列表项的值替换为abc。
List1.List(List1.ListIndex) = “abc”
当一个复选框被选中时，它的Value属性的值是________。 1
使用框架的主要作用为________。对控件分组
通过改变选项按钮(OptionButton)控件的________属性值，可以改变单选按钮的选取状态。Value
在窗体上放置了一个名为List1的列表框，一个名为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示列表框中被选中项目的名称。我们可以通过在List1_Click()事件过程中添加________代码来实现上述功能。 Label1.Caption = List1.Text
标题文本框中键入________ 。连字符(-)
在使用菜单编辑器创建菜单时，可以在菜单名称中某个字母前插入________符号，那么运行程序时按Alt键和该字母键就可打开该命令菜单。
创建定制弹出式菜单时，需为与弹出式菜单相关联的对象编写响应________事件的代码。MouseDown
以下叙述中错误的是________。如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见
设菜单中有一个菜单项为Open，若要为该菜单命令设置访问键，即按下Alt键及字母O时，能够执行Open命令，在菜单编辑器中设置Open命令的方式是________。把Caption属性设置为Open
在用菜单编辑器设计菜单时，必须输入的项是________。名称
下列关于菜单的说法中，错误的是________。菜单可以相应DblClick事件过程、菜单的索引号必须从1开始
下列说法正确的是________。只有当某个窗体为当前活动窗口时，才能打开菜单编辑器下列说法错误的是________。任何菜单都可以定义快捷键（在VB6.0中最多可以产生6级菜单正确）
可以根据OptionButton的________属性来判断选项按钮的选中情况，来决定用哪个计算公式。 Value
结构化程序设计方法有三种基本结构分别是________。顺序结构、分支结构和循环结构
针对语句If i = 1 Then j = 1，下列说法正确的是________。 i = 1为关系表达式，j = 1为赋值语句
描述X、Y中只有一个为0的逻辑表达式是________。X=0 Xor Y=0
执行下面程序，单击命令按钮Command1后，窗体上显示的内容是________。（1）Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = -5
If Sgn(x) Then
y = Sgn(x ^ 2)
Else
y = Sgn(x)
End If
Print y
End Sub
计算z的值，当x大于y时，z=x；否则z=y。下列语句错误的是________。①
② If x > y Then z = x Else z = y
③ z = y: If x > y Then z = x
④ If x <= y Then z = y Else z = x
执行下列语句，以下叙述中正确的是________。 x的值是5，y的值是10
x = 5
If x > 0 Then y = 5
y = 10
执行下列语句后整型变量a的值是________。 30
If (3 - 2) > 2 Then
a = 10
ElseIf (10 / 2) = 6 Then
a = 20
Else
a = 30
End If
下列语句错误的是________。 D
MsgBox “欢迎学习VB！”
MsgBox “欢迎学习VB！”, ,”程序示例”
MsgBox “欢迎学习VB！”, 0,”程序示例”
MsgBox “欢迎学习VB！”, ”程序示例”
以下Case语句中错误的是________。 C
Case 0 To 10
Case Is > 10
Case Is > 10 And Is < 50
Case 3,5,Is > 10
在Select Case …End Select结构语句中，测试项不可以是以下________形式。变量
执行下面的程序后，变量c的值为________。 50
a = 10
b = 20
Select Case b \ 10
Case 0
c = a * 2 + b
Case 1 To 9
c = a * 3 + b
c = a * 4 + b
End Select
Print c
在Select Case x结构中，描述判断条件3≤x≤7的测试项应该写成________。 Case 3 To 7
以下关于For-Next循环结构的说法错误的是________。当循环控制变量在循环体内被重新赋值，则循环次数一定发生变化
在过程中有语句For I =N1 To N2 Step N3，在该循环体内有下列四条语句，其中________会影响循环执行的次数。
N1=N1+1
I=I+N3
N2=N2+N3
N3=2*N3
Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 1 To 10
For j = 1 To i
s = s + 1
Next j
Next i
Print s
End Sub
执行时，循环体的执行次数是________。 55
执行下面的语句，在窗体上显示的x和i的值分别为________。 5 11
For i = 1 To 10 Step 2
x = x + 1
Next i
Print x, i
执行下面的语句，在窗体上显示的x和i的值分别为________。 3 5
For i = 1 To 10 Step 2
x = x + 1
If x = 3 Then Exit For
Next i
Print x, i
执行下面的语句，在窗体上显示的i的值为________。 13
i = i + 1
Next i
Print i
执行下面的语句，在窗体上显示的a、b、i的值分别为________。 6 15 11
a = 1
b = 10
For i = a To b Step 2
a = a + 1
b = b + 1
Next i
Print a; b; I
执行下面的语句，在窗体上显示的a、i的值分别为________。 7 11
a = 2
For i = 1 To 10 Step a
a = a + 1
Next i
Print a; i
执行下面的语句，在窗体上显示的a、i的值分别为________ 。 6 13
a = 2
For i = 1 To 10 Step a
a = a + 1
i = i + 1
Next i
Print a; i
该实验判断一个正整数x是否为素数，当循环变量i的值从2变化到________,就可以判断x是素数。（x-1 x/2+1 int(sqr(x))+1）
下列关于Do…Loop语句的叙述不正确的是________。（当Do While …Loop或Do Until…Loop语句中White或Until后的表达式的值为True或非零时，循环继续）
假定有以下循环结构，则下列说法正确的是________。（如果条件是一个为-1的常数，则至少执行一次循环）
Do Until 条件
循环体
Loop
a = 1
Do Until a = 100
Loop
执行以上语句后，a的值为________。溢出
a = 1
Do While a = 100
a = a + 2
Loop
Print a
执行以上语句后，a的值为________。 1
a = 1
Do
a = a + 2
Loop While a = 100
Print a
执行以上语句后，a的值为________。 3
执行以下语句，在窗体上显示的s的值为________。 85
n = 8
s = 0
Do
s = s + n
n = n - 1
Loop While n > 0
Print s
m = 2
n = 3
Do
m = m + n
n = n + 1
Loop While m < 10
Print m; n
执行以上语句，在窗体上显示的m和n的值分别为________。 14 6
设S="Program"，那么Mid(S，4，2)=Right(Left(S，_______)，2) 5
设S="Program"，那么Mid(S，4，2)=Left(Right(S，_______)，2) 4
执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是________。 6
可以同时删除字符前导和尾部空格的函数是_______。 Trim
假设s="南京医科大学"，表达式Left(s,1)+Right(s,1)+Mid(s,3,2)的值为______。南
执行下列程序，窗体上显示的t的结果为_________。 cba
s = "abc"
For i = Len(s) To 1 Step -1
t = t & Mid(s, i, 1)
Next i
Print t
执行下列程序，窗体上显示的t的结果为_________。 cba
s = "abc"
For i = Len(s) To 1 Step -1
t = t + Right(Left(s, i), 1)
Next i
Print t
执行下列程序，窗体上显示的t的结果为_________。 acb
s = "abc"
For i = Len(s) To 1 Step -1
t = Mid(s, i, 1) & t
Next i
Print t
执行下列程序，窗体上显示的t的结果为_________。 cba
s = "abc"
For i = 1 To Len(s)
t = Mid(s, i, 1) & t
Next i
Print t
a和b均为字符型
a="NanjingShanghai"
b=Mid(a,Instr(a,"g")+1)
执行上面程序后，变量b的值为_________。 Shanghai
语句 Dim X（-1 to 3.2，4 to 6）as Integer 说明数组X共有个元素。 15 以下有关数组的说明中，错误的是 _________。 B
根据数组说明的方式，数组可分为动态数组和静态数组
数组重新定义维数后，原有的数组元素内容将一定不予保留
用Redim语句定义的动态数组，起下标的上下界可以是赋了值的变量
利用Redim语句重新定义位维数时，不得改变已经说明过的维数的数据类型
以Dim x(6,2 to 5)来声明一个二维数组，错误的选项是________。 A
Ubound(2,x)的返回值是5
Ubound(x,1)的返回值是6
Lbound(x,1)的返回值是0
用选择法对8个数按升序进行排序，请选择合适的代码将下列程序补充完整。
For i=1 to _________
For j=_________ to 8
if _________ then
temp = sort(i)
sort(i) = sort(j)
sort(j) = temp
End If
Next j
Next i
答案： 7 i+1 sort(i)>sort(j)
或 8 I sort(i)>sort(j)
以下程序的功能可能是_________。用冒泡排序法对8个数进行降序排序
For i = 1 To 7
For j = 1 To 8 - i
If a(j) < a(j + 1) Then
temp = a(j)
a(j) = a(j + 1)
a(j + 1) = temp
End If
Next j
Next I
使用语句Dim F(2) As Integer 声明数组F之后，以下说法正确的是________。 F数组中所有元素值都为0
用Dim(1,3 to 7,10)声明的是一个______维数组。 2
设有声明语句：
Option Base 1
Dim a(-1 to 10,2 to 9,10) As Integer
则a数组中全部元素的个数为______。 960
由Array函数建立的数组的名字必须是________类型。整体型变量
执行下列程序后，窗体上显示的s的值为_______。 45
Dim a(3, 3) As Integer
k = k + 1
a(i, j) = k
s = s + a(i, j)
Next j
Next i
Print s
执行下列程序后，窗体上显示的s的值为_______。 12
Dim a(3, 3) As Integer
Dim i As Integer, j As Integer, k As Integer, s As Integer
For i = 1 To 3
For j = 1 To 3
k = k + 1
a(i, j) = k
Next j
Next i
For i = 1 To 3
s = s + a(i, 1)
Next i
Print s
执行下列程序后，窗体上显示的s的值为_______。 6
Dim a(3, 3) As Integer
Dim i As Integer, j As Integer, k As Integer, s As Integer
For i = 1 To 3
For j = 1 To 3
k = k + 1
a(i, j) = k
Next j
Next i
For i = 1 To 3
s = s + a(1, i)
Next i
Print s
执行下面的程序，窗体上第二行显示的内容是________。 3 4 5
a(i, j) = (i - 1) * 2 + j
Print a(i, j);
Next j
Next i
执行下面的程序，窗体上第三行显示的内容是________。 5 6 7 Dim a(3, 3) As Integer, i As Integer, j As Integer
For i = 1 To 3
For j = 1 To 3
a(i, j) = (i - 1) * 2 + j
Next j
Next i
For j = 1 To 3
For i = 1 To 3
Print a(j, i);
Next i
Next j
执行下面的程序，窗体上第二行显示的内容是________。 2 4 6 Dim a(3, 3) As Integer, i As Integer, j As Integer
For i = 1 To 3
For j = 1 To 3
a(i, j) = (i - 1) * 2 + j
Next j
Next i
For i = 1 To 3
For j = 1 To 3
Print a(j, i);
Next j
Next i
以下有关ReDim说法错误的是_____。 D
ReDim可用于定义一个新数组
无Preserve关键字的ReDim语句，可重新定义动态数组的维数
用ReDim语句重新定义数组后，源于数组的那容都不保留
以下说法错误的是________。 D
ReDim是一个可执行语句，只能出现在过程中
用ReDim重新定义动态数组时，不能改变数组的数据类型
当语句中缺省关键字Preserve时，可以重新定义动态数组的维数和各维的上、下界
若要保留原数组的内容，可在语句中使用关键字Preserve，并且可以开改变数组的维数和维界
设有序表ort中的元素为a[1]～a[28]，若在该序列中进行对半查找，则查找a[10]时，比较过程中的下标序列依次为________。 14，7，10
假设已有10个按降序排好的正整数存放在a数组中，设min代表查找区间的左端，初值为1，max代表查找区间的右端，初值为数组的上界，mid代表查找区间的中间位置，要查找的数存放在变量find中，请将以下二分查找的代码补充完整(代码在英文状态下输入，否则不予判分)。
Do While min <= max
mid = __________
If a(mid) = find Then
flg = True
Exit Do
ElseIf find > a(mid) Then
_________
Else
_________
End If
Loop
下面程序的功能是将以“12;3;15”形式输入的字符串分解为数字12、3、15，分别赋予3个数组元素，并对其进行简单运算(图为本程序运行界面，代码在英文状态下输入，否则不予判分)。
Private Sub Command1_Click()
Dim a(3) As Integer, i As Integer, n As Integer
Dim s As String
s = Text1.Text
For i = 1 To 2
n = _______
a(i) = Val(Left(s, n - 1))
Next i
a(3) = _______
Text2.Text = a(1) * a(2) + a(3)
End Sub
用____________属性可唯一标志控件数组中的某一个控件。 Index
下面关于控件数组与一般控件的叙述中，正确的是_________。 B
控件数组一定要由一个以上同类型的控件组成，而一般空件只有一个控件
控件数组的索引值Index为0，而一般控件的Index为空
控件数组的索引值Index为1，而一般控件的Index为0
控件数组的建立同多Dim语句声明，而一般控件不需要声明
窗体上有一个名称为Text1的文本框，有1个由3个单选按钮组成的控件数组，名称为Option1,程序运行后当单击某个单选按钮，文本框中的字体将根据所选择的单选按钮切换，请将下面的代码补充完成，以实现上述功能。
Private Sub Option1_Click(Index As Integer)
Select Case _______ Index
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体_GB2312"
End Select
Text1.FontName= a
End Sub
窗体上有一个由4个文本框建立的控件数组名称Text1(下标从0开始，自左至右顺序增大)，
程序运行后单击命令按钮，4个文本框中显示的内容分别是_______。 0 1 2 3
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i) = Text1(i).Index
i = i + 1
Next
End Sub
下列有关控件数组的说法错误的是____________。同一控件数组中的元素只能有相
同的属性设置值
下列____________操作不能使得程序在运行时进入中断状态。程序中出现逻辑错误
循环语句For缺少Next、除数为0分别属于____________。语法错误、运行错误当我们输入代码时，Visual Basic 可以自动检测下列_______错误。语法
文件
在窗体上放置了DriveListBox、DirListBox和FileListBox三个控件，下面____________语句一定不会改变相应控件的Path属性或Drive属性。 C
Drive1.ListIndex = 2
File1.FileName = “D:\*.*”
Dir1.ListIndex = -2
File1.Path = Drive1.Drive
以下叙述中正确是____________。 D
在使用ChDrive语句时候会激发驱动列表框的Change事件
目录列表框的索引值不能是-2、-3、-4等
使用ChDir语句可以改变目录列表框中的显示内容
可以通过设置文件列表框的Pattern属性显示需要的文件种类
窗体上放置名为Drive1与Dir1的驱动器列表框与目录列表框，需要在选定驱动器列表框中的列表项时，目录列表框中的内容随之改变，正确的语句及语句的位置是____________。
C
A、Dir1.Path ＝ Drive1.Path …位于Drive1_Change()过程
B、Dir1.Path ＝ Drive1.Path …位于Dir_Change()过程
C、Dir1.Path ＝ Drive1.Drive …位于Drive1_Change()过程
D、Dir1.Path ＝ Drive1.Drive …位于Dir1_Change()过程
以下关于文件的叙述中，错误的是____________。 B
顺序文件中的记录一个接一个的顺序存放
随机文件中的记录长度是随机的
执行打开文件的命令后，自动生成一个文件指针
EOF函数返回给文件分配的字节数
文件列表框控件的____________属性用来确定在列表框中显示的文件类型。 Pattern 在VB中三种文件访问的类型是____________ 。顺序、随机、二进制
下列 ____________说法是不正确的。 B
当程序正常结束时，所有没有用Close语句关闭的文件都会自动关闭
在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁
可以用不同的文件号打开同一个随机文件
用Output模式打开同一顺序文件，即使不对它进行写操作，原来的内容也被清楚
下列有关文件的说法正确的是____________。 D
若以Output、Append、Random、Binary方式打开一个不存在的文件，系统会出错
在Input方式下，不能使用文件号同时打开同一个文件
在一个过程中，一个文件号有可能被用于打开不同的文件
下面有关文件管理控件的说法正确的是____________。 C
ChDir语句的作用时知名新的缺省工作目录，同时也改变目录列表框的Path属性值
改变文件列表框的FileName属性值，仅改变列表框中显示的文件名，不会引发其他事件
改变驱动器列表框的ListIndex属性值，会改变Drive属性值并触发Change事件
单击目录列表框中某一项，会触发Change事件
下面对语句Open “text.Dat”for Output As #FreeFile的功能说明中错误的是____________。C
以顺序数促模式打开文件 Text.Dat
如果文件Text.Dat不存在，则建立一个新文件
如果文件Text.Dat已存在，则打开该文件，新写入的数据将增添到该文件中
如果文件Text.Dat已存在，则打开该文件，新写入的数据将覆盖原有的数据
以下关于函数过程的叙述中，正确的是____________。 A
函数过程形参的类型与函数返回值的类型没有关系
在函数过程中，过程的返回值可以有多个
当数组作为函数过程的参数时，既能以传值方式传递，也能以地址方式传递
如果不指明函数过程参数的类型，则该参数没有数据类型
以下说法错误的是________。 D
VB有两种方式调用Sub过程，一种是用Call语句调用，另一种是把过程名作为一个语句来使用
当把Sub过程名作为一个语句使用来调用Sub过程时，不需要关键字Call，实参表不需要加括号
数组只能按地址传递
在过程中可以用Dim或Redim语句对形参数组进行声明
下面程序的功能是把一个一维数组的元素向右左循环移位，移位次数利用inputbox输入。如数组A各元素分别为1、2、3、4、5、6、7、8、9、10，移位次数输入3，则结果为：4、5、6、7、8、9、10、1、2、3(代码在英文状态下输入，否则不予判分)。
Option Base 1
Private Sub Form_Click()
Dim a(10) As Integer, i As Integer, n As Integer
For i = 1 To 10
a(i) = Int(Rnd * 20) + 10
Print a(i);
n = InputBox("输入移位次数", , 1)
For i = 1 To n
_________
Next i
For i = 1 To 10
Print a(i);
Next i
End Sub
Private Sub ste(a() As Integer)
Dim i As Integer, k As Integer
k = a(1)
For i = 1 To UBound(a) - 1
_________
Next i
_________
End Sub
下面程序的功能是通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，…….，a(5)与a(6)的值互换(代码在英文状态下输入，否则不予判分)。
Option Base 1
Private Sub Form_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next i
_________
For i = 1 To 10
Print a(i);
Next i
End Sub
Private Sub swap(b() As Integer)
n = 10
For i = 1 To n / 2
b(i) = b(n)
b(n) = t
_________
Next i
End Sub
Sub过程与Function过程最根本的区别是____________。 Sub过程不能返回值，而Function过程能返回值
以下说法错误的是________。 A
Function过程在函数体内必须要给函数名赋值，否则会报错
Function过程在其内部不得再定义Function过程
Function过程中可以包含多个Exit Function语句
可以像调用Sub过程一样调用Function过程
执行下面的程序，窗体上显示的结果是________。 7
Private Sub Form_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5
s = s + fun(i)
Next i
Print s
End Sub
Private Function fun(ByVal m As Integer) As Integer
If m Mod 2 = 0 Then
fun = 2
Else
fun = 1
End If
End Function
下面程序的功能是求出所有的幸运数显示在列表框中，并将幸运数的个数显示到列表框中。所谓幸运数是指前两位数字之和等于后两位数字之和的四位数(图为
本程序运行界面，代码在英文状态下输入，否则不予判分)。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, n1 As Integer, n2 As Integer
For i = 1000 To 9999
n2 = i Mod 100
If sum(n1) =_________ Then
_________
List1.AddItem CStr(i)
End If
Next i
Text1 = n
End Sub
Private Function sum(s As Integer) As Integer
Dim a As Integer, b As Integer
a = s \ 10
_________
_________ = a + b
下列定义sub过程的语句中，正确的语句是____________ ②③④
① Private Sub Test ( St As String * 8 )
② Private Sub Test (Sarray( ) As String * 5)
③ Private Sub Test (Sarray( ) As String)
④ Private Sub Test (St As String)
下述子过程语句中说明合法的是____________。④
①Sub f1(ByVal n() As Integer )
②Sub f1(n() As Integer ) As Integer
③Function f1(f1 As Integer) As Integer
④Function f1(ByVal n As Integer)
找出所有满足条件的三位正整数N：（1）N是素数；（2）N是降序数。(代码在英文状态下输入，否则不予判分)
素数是指除了1和它本身之外，不能被任何整数整除的数；降序数是指低位数字小于高位数字的数，如742、631等。
Private Sub Form_Click()
Dim i As Integer
For i = 100 To 999
If prime(i) And _________ Then Print i;
Next i
End Sub
Private Function prime(ByVal n As Integer) As _________
Dim i As Integer
If _________ Then Exit For
Next i
If i > Sqr(n) Then _________
End Function
Private Function ifdown(ByVal n As Integer) As Boolean
Dim i As Integer, s As String
s = CStr(n)
For i = 1 To _________
If Mid(s, i, 1) <= Mid(s, i + 1, i) Then Exit For
Next i
If i = Len(s) Then ifdown = True
End Function
如果在过程调用中只影响形参值，而不影响实参值本身，这种参数传递称为____________传递。按地址
下列关于过程参数的说法错误的是____________。 C
过程的形参不可以是定长字符串类型的变量
若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合
形参是定长字符串型的数组，则对应的实参必须是定字符串型数组，且长度相同
按值传递参数，形参和实参的类型可以不同，只要内容相同
下列有关过程的说法错误的是__________。 C
在Sub或Function过程中不能再定义其他Sub或Function过程
递归过程既可以是递归Function过程，也可以是递归Sub过程
在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传的方式结合
在调用过程时，形参为数组的参数对应的实参只能时数组
在窗体中定义了过程Private sub F（a as integer）及整型变量I，则下列过程调用中参数是按值传递的是__________。①③④
①Call F (10) ② Call F ( I ) ③ Call F ( ( I ) ) ④ Call F ( 2*I )
以下程序求0-10之间的任意一个数的阶乘。(代码在英文状态下输入，否则不予判分) Private Sub Command1_Click()
Dim n As Integer, s As Long
n = Val(Text1.Text)
_________
Text2.Text = s
End Sub
Private Function fact(ByVal n As Integer) As _________
fact = 1
Else
fact = _________
End If
End Function
定义两个过程Private Sub Fun1（S as String）和Private Sub Fun2（a（） as String*6），在调用过程中用Dim St（6） as String*6定义了一个字符串数组。下面调用语句中正确的有_________________。① Call Fun1(St(3)) ② Call Fun2(St) ③ Call Fun1(St) ④ Call Fun2(st(6))
答案：①②
程序中的不同过程之间，能通过_____________进行数据传递。①②③
①全局变量②窗体或模块级变量③形参和实参结合④静态变量
在应用程序中用Private Function fun(x As Integer, y As Integer)定义了函数fun，调用函数fun的过程中的变量I，J均定义为Integer型，能正确引用函数fun的是__________。
①②③④
① fun（I，J）② Call fun（I，3.65）
③ fun（3.14，234）④ fun（245，231.5）
当第一次调用fun过程后，i的值为_________，j的值为_________，当单击窗体运行该程序后，在窗体上显示的结果中，i的值为_________，j的值为_________，k的值为_________。Private Sub Form_Click()
Dim i As Integer, j As Integer, k As Integer
i = 2
j = 3
k = fun(fun(i, j), i) + i
Print i; j; k
End Sub
Private Function fun(ByVal a As Integer, b As Integer) As Integer
Static c As Integer
c = c + 1
a = a + b
b = a + b
fun = a + b + c
End Function
所有填空题 1、VB6.0是运行于______操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的特点，即______和______。 答案：1：Windows9x/NT#Windows9x/NT#Windows9x\NT#Windows9x\NT#Windows9x#Windows NT#Windows9x#WindowsNT#windows9x/NT#windows9x/NT#windows9x\NT#windows9x\NT#windows9x#windows NT#windows9x#windowsNT 2：事件驱动编程#可视化设计 3：可视化设计#事件驱动编程 等级：1难度：1 知识点：VB知识点/VB简介 2、VB是一种面向______的可视化编程语言，它采用______的编程机制。 答案：1：对象 2：事件驱动 等级：1难度：1 知识点：VB知识点/VB的编程环境 3、在VB集成开发环境中，运行应用程序的方法有两种：______或______。 答案：1：编译运行模式#解释运行模式#编译运行#解释运行 2：解释运行模式#编译运行模式#解释运行#编译运行 等级：1难度：1 知识点：VB知识点/VB简介 4、VB的对象主要分为______和______两大类。 答案：1：窗体#控件 2：控件#窗体 等级：1难度：1 知识点：VB知识点/VB的对象、属性、方法和事件 5、VB中，用来描述一个对象的状态或特征的量称之为对象的______。 答案：1：属性 等级：1难度：1 知识点：VB知识点/VB的对象、属性、方法和事件 6、在VB中，最基本的对象是______。 答案：1：窗体 等级：1难度：1 知识点：VB知识点/VB的对象、属性、方法和事件 7、一个对象响应某个事件后所执行的操作是通过一段程序代码来实现，这段程序代码称______。 答案：1：事件过程 等级：1难度：1
第一套试题 一、选择题（每题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．下面程序按每行10个数打印出30个介于-300到300间无重复的随机整数，并显示其中的最小值。数组b(30)存放所产生的无重复的随机整数，运行结果如图所示。 Private Sub Command1_Click() Dim b(30), j As Integer, k As Integer Dim y As Integer, x As Single, min As Integer For j = 1 To 30 lb: x = Rnd If x > 0.5 Then y = 1 Else y = -1 b(j) = y * Int(Rnd*301) k = 1 Do While k If b(j) = b(k) Then Goto lb k = k + 1 Loop Print b(j); If j Mod 10=0 Then Print Next j min = b(1) For j = 1 To 30 If b(j) < min Then min=b(j) Next j Print min End Sub 2．下面程序用于对9位的号进行校验。参数mno存放号，mjy存放产生的校验位，tag判断校验正确否，若校验正确tag置1，否则为0。产生校验位的算法为：取号右边的8位之和关于9的模作为校验值，号最左边的一位为校验位。 Public Sub foe(ByVal mno As String, mjy As Integer, Tag As Integer) Dim msum As Integer, m As String msum = 0 for j=2 to 9 m = Mid(mno, j, 1) 程序填空〖第1题〗『程序填空』(1分)(题号:59) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- ' 功能：输入一个数,若大于0,则显示"+"；若小于0， ' 则显示 "-"；若等于"0",则显示"零"。 '------------------------------------------------------- Private Sub Command1_Click( ) x = Val Select Case x '**********SPACE********** Case is > 0 = "+" Case Is < 0 '**********SPACE********** = "-" '**********SPACE********** Case is = = "零" End Select End Sub 答案： 1). Case Is > 0 2). = "-" 3). Case 0 或 Case Else 或 Case Is = 0 〖第2题〗『程序填空』(1分)(题号:60) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能：输入任何一个英文字母x, ' 若x的值为"a","c","d-f" ,则显示x的大写字母； ' 若x的值为"m","o","p-z",则显示x的小写字母； ' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。 '------------------------------------------------------- Private Sub Command1_Click() x = '**********SPACE********** 【】 '**********SPACE********** Case 【】 = UCase(x) Case "m", "o", "p" To "z" = LCase(x) Case Else '**********SPACE********** 【】 End Select End Sub 答案： 1). Select Case x 2). "a", "c", "d" To "f" 3). = Trim(x) + "a" 或 = x + "a" 〖第3题〗『程序填空』 第5章数组与记录 5．1 填空题 1．若要定义一个包含10个字符串元素，且下界为1的一维数组s，则数组说明语句为（）。 答案：Dim s(1 To 10) As String 2．若要定义一个元素为整型数据的二维数组a，且第一维的下标从0到5，第二维下标从-3到6，则数组说明语句为（）。 答案：Dim a(0 To 5,-3 To 6) As Integer 3．如果数组元素的下标值为实数，则VB系统会按（）进行处理。 答案：四舍五入原则 4．数组元素个数可以改变的数组称为（）；数组元素可以存放不同类型数据的数组称为（）。 答案：可调数组、可变类型数组 5．数组刷新语句用于（）。若被刷新的数组是数值数组，则把所有元素置（）；若被刷新的数组为字符串数组，则把所有元素置（）。 答案：清除指定数组内容、０、空字符串 10．控件数组是由一组类型和（）相同的控件组成，共享（）。 答案：名字、同一个事件过程 11．控件数组中的每一个控件都有唯一的下标，下标值由（）属性指定。 答案：Index 12．建立控件数组有两种方法：（）和（）。 答案：在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法 5．2 选择题 1．下列一维数组说明语句错误的是（）。 a) Dim b(100) AS Double b) Dim b(-5 To 0) AS Byte c) Dim b(-10 To –20) AS Integer d) Dim b(5 To 5) AS String 答案：c 2．若有数组说明语句为：Dim a(-3 To 8)，则数组a包含元素的个数是（）。 a) 5 b) 8 c) 11 d) 12 答案：d 3．设有数组说明语句：Dim c(1 To 10)，则下面表示数组c的元素选项中（）是错误的。 a) c(i-1) b) c(5+0.5) c) c(0) d) c(10) 答案：c 4.下列数组说明语句中正确的是（）。 a) Dim a(-1 To 5,8)AS String b) Dim a(n,n)AS Integer c) Dim a(0 To 8,5 To –1)AS Single d) Dim a(10,-10)AS Double 《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0) 一、单选题（每小题1分，共99 分） 1. 假定Picture1 和Text1 分别为图片框和文本框的名称，下列语句中不正确的是______ 。 A Picture1.Print 25 B Text1.Print 25 C Print 25 D Debug.Print 25 2. 在Visual Basic 中要将一个窗体从内存中释放，应该使用以下语句中的______ 。 A UnLoad B Stop C Close D Hide 3. 如果组合框ComBo1中已有10项数据，应使用语句______将数据"Mydata"插入到第5项。 A ComBo1.Insert "Mydata", 4 B ComBo1.Insert "Mydata", 5 C ComBo1.AddItem "Mydata", 5 D ComBo1.AddItem "Mydata", 4 4. 如果列表框List1中已有10项数据，应使用语句______将数据"Mydata"插入到列表框的第3项。 A List1.Insert "Mydata", 3 B List1.AddItem "Mydata", 2 C List1.AddItem "Mydata" ,3 D List1.Insert "Mydata", 2 5. 语句If x=1 Then y=1，下列说法正确的是____________。 A x=1和y=1为赋值语句 B x=1为赋值语句，y=1为关系表达式 C x=1为关系表达式，y=1为赋值语句 D x=1和y=1均为关系表达式 6. 删除列表框中指定的项目所使用的方法为______ 。 A Move B Clear C Remove D RemoveItem 7. 不论何控件，共同具有的属性是______________。 A ForeColor B Name C Text 一、选择题 1．在设计应用程序时，可以查看到应用程序工程中的所有部分的窗口是（）。 A．窗体设计．代码C．属性D．工程资源管理器窗口>> 答案：d 2．窗体的Load事件的触发时机是（）。 A．用户单击窗体时B．窗体被加载时C．窗体显示之后D．窗口被卸载时>> 答案：ｂ 3．与传统的程序设计语言相比，Visual Basuc最突出的特点是（）。 A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术 答案：C 4．VB6.0集成开发环境的主窗口不包括（）。 A．标题栏B．菜单栏C．状态栏D．工具栏 答案：c 5．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（）。 A．Text.Mytext B．Mytext.text C．Mytext.（Text）D．Mytext*Text 答案：b 6．下列可以激活属性窗口的操作是（）。 A．用鼠标双击窗体的任何部位B．执行“工程”菜单中的“属性窗口”命令C．按Ctrl+F4 D．按F4键 答案：b d 7．假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应制造的操作是（）。 A．单击窗体上没有控件的地方B．单击任一个控件C．不执行任何操作D．双击窗体的标题栏 答案：a 8．如果在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（）属性。 A．Caption B．PasswordChar C．Text D．Char 答案：b 9．如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True。 A．Locked B．MultiLine C．TabStop D．Visible 答案：a 10．对于定时器（Timer）控件，设计其定时是否开启的属性是（）。 A．Index B．Tag C．Enabled D．Left 答案：c 11．要在窗体Form1内显示“myfrm”，使用的语句是（）。 A．Form.Caption=“myfrm”B．Form1.Caption=“myfrm”C．Form1.Print=“myfrm”D．Form.Print=“myfrm” 答案：ｂ 12．对象的性质和状态特性称为（）。 A．事件B．方法C．属性D．类 答案：c 13．下列正确的赋值语句是（）。 A．x+y=20 B．y=x+20 C．3x=y D．s=π*r*r 1.Option Explicit'题目：窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。判断密码是否正确，并显示相应提示；在加载窗体时设置密码框最大长度为8，密码显示字符为“*” Private Sub Command1_Click() x = Text1.Text If x【？？】"12345678" Then（like 和=，不定） MsgBox ("欢迎你用机!") Else MsgBox ("对不起，口令错") End If Text1.Text = "" Text1.SetFocus End Sub --------------------------------------------------------------------------------------------------------------------- Private Sub Form_Load() Text1.Text = "" Text1.【？？】=8(maxlength) Text1.【？？】="*" (passwordchar) End Sub 2.'题目：以下程序的功能如(图1)。 Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox("请输入a的值") b = InputBox("请输入b的值") c = InputBox("请输入c的值") d = b * b - 4 * a * c p = -b / (2 * a) If d >= 0 Then If 【？？】Then (d>0) r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r VB程序阅读题与程序填空题综合练习 1、阅读下面程序，当单击窗体之后，窗体上输出的是。 Private Sub Form_Click( ) Dim i As Integer, j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 10 If j > = 5 Then i = i +4: Exit For j = j + 1 k = k + 1 Next If i > 8 Then Exit For Next Print k End Sub 2、阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别 是和；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是和。 Private Sub Form_Click( ) Dim x As Integer, y As Integer x = 1 : y = 0 Do While x < 3 y = y + x 'A语句 x = x + 1 'B语句 Loop Text1.Text = x Text2.Text = y End Sub 3、下面程序段中，k循环共执行次，在窗体上显示的结果是。 Dim b As Integer, k As Integer b = 1 For k =1 To 5 b = b * k If b > = 15 Then Exit For Else k = k + 1 End If Next k Print k, b 4、以下是按钮cmdl的Click事件过程，求1~100之间的所有质数。质数的个数显示在窗 体上，在划线处填上缺少的内容。 Private Sub cmdl_Click( ) Dim intNum As Integer, int1 As Integer, int2 As Integer intNum = 0 For int1 = For int2 = 2 To int1 \2 If (int1 Mod int2) = 0 Then intNum=1 End If Next If sNum = sNum + 1 End If Next Print End Sub 5、若命令按钮的名称为CmdExit，程序要求单击以上命令按钮时，程序停止运行。请在画线处中填入适当的内容。 Private Sub CmdExit_ ( ) End Sub 6、下面的事件过程判断文本框txt1中输入的数所在区间，并在文本框txt2中输出判断结果。在画线处填入正确的内容。 Private Sub Comandl_Click( ) Dim int1 As Integer int1 =val (txt1.Text) Select Case int1 Case txt2.Text = "值为0" Case txt2.Text = "值在1和10之间（包括1和10）" Case txt2.Text = "值大于10" 填空题 第1题表达式 1 and 0的值 ______________________ 答案： False 第2题把"Visual Basic程序设计"添加到列表框 lstBooks____________________________ 答案： lstBooks.AddItem "Visual Basic 程序设计" 第3题 For k=35 to 0 step 3 next k 语句的循环次数是_______________________答案：0 第4题 Val("123.55ab456")的值是多少 _____________________________ 答案：123.55 第5题每隔定时器控件的Interval属性值时间间隔,单位为毫秒,定时器会触发一次 ________________________事件 答案：Timer 第6题表达式(-3) And 8 的值为 _______________________. 答案：True 第7题 Print "x=" & (2=4) 的结果为 ________________________. 答案： x=False 第8题要使同一类型控件组成一个控件数组,必须要求_______________________. 答案： Name 相同或名称相同 第9题循环语句FOR K=1 TO 10 STEP –1控制的循环次数为___________________. 答案： 0 第10题设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为______________. 答案： False 第11题声明定长为10个字符变量Sstr的语句为______________________. 答案： Dim Sstr as String*10 或 Sstr as String*10 第12题在VB中,若要将字符串"12345"转换成数字值应使用的类型转换函数是 ____________. 答案： VAL 或 Cint 第13题在一条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer, 则strVar、intVar与sngVar的数据类型分别是Variant、Variant和_____________________. 答案： Integer 第14题滚动条控件主要支持两个事件,它们是scroll和____________________事件. 答案： change 第15题所有控件都具有的共同属性是 ____________________属性. 答案： name 〖第16题〗Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为 ______. 答案： Picture1 〖第17题〗A和B同为正整数或同为负整数的VB 表达式为________________. 答案： A=INT(A)★AND★ B=INT(B)★ AND ★ A*B>0 〖第18题〗变量min@表示_______________类型的变量. 答案：货币数据变量或货币 〖第19题〗表达式 32\7 MOD 3^2 的值是____________________. 答案： 4 〖第20题〗把整型数1赋给一个逻辑型变量,则逻辑变量的值为___________________. 答案： True 〖第21题〗求x与y之积除以z的余数的VB表达式为_________________________. 答案： x*y★Mod★z 〖第22题〗以图片框Pic1的中心位置为圆心,以700为半径在Pic1上画一个圆的方法是 ______ 答案： pic1.Circle (pic1.width/2,pic1.height/2),700 〖第23题〗要使一个按钮设为默认按钮,应把此按钮的_____________属性的值设为True. 答案： Default 〖第24题〗在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的______________属性的值设置为True. 答案： MultiLine 〖第25题〗设置计时器控件只能触发 ____________________事件. 答案： timer 〖第26题〗VisualBasic6.0用于开发 ____________________环境下的应用程序. 答案： WINDOWS 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 《Visual Basic 程序设计》寒假作业 一、选择题 1．要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是_______。 A． Sub swap(By Val m，By Val n) B． Sub swap(m, By Val n) C． Sub swap(m, n) D． Sub swap(By Val m, n) 2．在过程调用中，参数的传递可以分为按值传递和_______两种方式。 A．按参数传递 B．按数值传递 C．按地址传递 D．按位置传递 3．Sub过程与Function过程最根本的区别是_______。 … A． Sub过程可以直接使用过程名调用，而Function过程不可以 B． Function过程可以有参数，而Sub过程不可以 C．两种过程参数传递方式不同 D． Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 4．在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。 A． ByVal B． ByRef C． Value D． reference 5．可以执行“工具”菜单中的_______命令来建立通用过程。 A．添加过程 B．通用过程 C．添加模块 D．添加窗体 】 6．假定已定义一个过程Public Sub Cir(a As Single, b As Single),则正确的调用语句是_______。A，2 A． Cir 3,8 B． Call Cir x, y C． Call Cir 2*x, y D． Call Cir (3,8, y) 7. 在窗体上添加一个名称为Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private x As Integer Private Sub Command1_Click() a = 6: b = 4 Call sub1(a, b) = a ： = b End Sub Private Sub sub1(ByVal x As Integer, ByVal y As Integer) a = x * x b = y * y End Sub 程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。 《程序设计语言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. 属性 D. 语句 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 B. pass4 《VB程序设计》试卷二 一、选择题（每小题1分，共10分） 1、改变控件在窗体中的上下位置，应修改控件的__（1）_____属性 A .Top B. Left C.Width D. Right 2、将通用对话框类型，设置为字体对话框，可修改该控件的____（2）_____属性 A. font B. filename C. filter D. action 3、标签控件最重要的属性是__（3）______ A. caption B. text C. name D. width 4、文本框中选定的内容，由下列____（4）_____属性反映。 A. Text B.Caption C. Seltext D. sellenght 5、选中复选框控件时，value属性的值，可以是_ （5）______ A.true B. false C. 0 D.1 6、设置列表框选中的文本用____（6）____属性 A. selected B. caption C. text D. list 7、简单组合框的style值为____（7）_____ A .0 B. 1 C. 2 D. 3 8、在文件列表框的实现文件的多重选择，应修改该控件的___（8）______属性 A. filename B. pattem C. path D. multiselect 9、语句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 二、判断题：（每小题1 分，共10 分） 1、全局变量用global或public关键字声明，且仅在通用声明处可以定义。（11） 2、如果某子程序add用public static sub add（）定义，则该子程序的变量都是局部变量。（12） 3、*.bmp格式的图片，如果在autosize设为False的图片框，它会以图片框大小完整显示出来。（13） 4、已知窗体的fillcolor=rgb（255，0，0）红，forecolor=rgb（0，255，0）绿，fillstyle= 0（solid）语句circle（200，100），500，，，，2的输出结果是红边绿心的长椭圆。（14） 5、move方法的一般形式是：对象名.move A，B[，C，D]，其中A指Left，C 指width。（15） 6、清除list1列表框对象的内容的语句是list1.cls。（16） 7、清除combo1对象的内容是combo1.clear。（17） 8、对象的可见性用enabled属性设置，可用性用visible属性设置。（18） 9、若要新建一个磁盘上的顺序文件，可用output，append方式打开文件。（19） 10、滚动条控件不可作为用户输入数据的一种方法。（20） 1．F 2. F 3. F 4. F 5. F 6. F 7. T 8. F 9. T 10. F 三、填空题 1. 如果要指明mystring为固定15个字长的全局变量，应该在标准模块中用以下说明语句定义：___________ VB期末复习题库Visual Basic（填空题） 1 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______（提示：不能出现符号#）。12 2 语句a%=3.14156:Print a%的输出结果是______。 3 3 "以下循环的执行次数是_____。 K=0 Do While k<=10 k=k+1 Loop" 11 4 Fix(5.8)的值是_______。 5 5 "下列程序段的执行后输出的结果为_____。 I=4:A=5 Do I=I+1:A=A+2 Loop Until I>=7 Print ""A="";A" A=11 6 表达式3/6*5的值是_______。 2.5 7 "下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If a 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课后练习答案习题解答 (5)
《VB程序设计》考试题型练习 答案
vb题库(选择与填空)
vb6.0练习题及答案
VB程序填空(Option Explicit)1
vb程序阅读题与填空题
VB题库-填空练习题
vb练习题及答案.doc
VB--过程练习题
程序设计语言VB单项选择题及答案
VB程序设计
VB期末复习题库Visual Basic(填空题)
vb试题及答案
相关主题
文本预览