VB程序练习题整理稿
1．退出Visual Basic的快捷键是______。
A. Ctrl+Q
B. Shift+Q
C. Alt+Q
D. Ctrl+Alt+Q
2．窗体设计器是用于设计______。
A．应用程序的界面 B. 对象的属性
C．应用程序的代码 D. 窗体的代码
3．启动Visual Basic后, VB为用户建立的第一个窗体是______。
A．Form1 B. Form
C．窗体1 D. 窗体
4．启动Visual Basic后, VB为用户新建立的工程的名字是______。
A．窗体1 B. 工程1
C．窗体 D. 工程
5．工程资源管理器窗口包含的文件类型有______种。
A．1 B. 2
C．3 D. 4
6．如果VB环境中缺少某个窗口，一般应从主菜单______的下拉菜单中找到相应的激活命令。
A．编辑 B. 文件
C．调试 D. 视图
7．能够通过标准工具栏打开的窗口是______。
A．代码窗口 B. 设计器窗口
C．属性窗口 D. 窗体布局窗口
8．窗体文件的扩展名______。
A．.bas B. vbp
C．.exe D. frm
9．工程文件的扩展名______。
A．.com B. vbp
C．. exe D. bas
10．Visual Basic的编程机制是______。
A．面向过程 B. 面向对象
C．事件驱动 D. 可视化
（三）练习题
使用VB建立一个应用软件的全过程有哪些步骤？。1．具体过程如下（1）在窗体上建立用户窗口（界面）对象。
（2）分别对对象设置属性。
（3）分别对对象事件的过程编程且完成代码输入。
（4）运行程序和调试程序。
（5）保存程序。
1．
2．保存VB文件，至少要保存几个文件？应先保存什么文件？
2．至少保存2个文件，先保存窗体文件，后保存工程文件。
工程文件，窗体文件，标准模块文件，类模块文件的文件名的扩展名分别是什么？
3．.vbp, .frm, ..bas, .
3．用代码对窗体中的控件设置属性值，这些代码应该放在什么事件中？．应该放在窗体装入（Form_Load）事件中
4．运行程序有几种方法？各是什么？三种：方法一是执行工具栏中的启动按钮；方法二是选取菜单中的“运行/启动”命令；方法三是直接按F5键。5．从代码窗口返回到设计窗体窗口（VB集成开发环境）有几种方法？至少5种方法：点击窗体窗口；选择菜单栏的view\object; shift+F7; 点击资源管理器中的窗体按钮；单击工程资源管理器中的窗体名称（如：form1）。
7．输入代码忘记属性值时怎么办？在代码窗口输入代码时，控件的名称及圆点输入后，系统自动出现属性及方法的下拉列表，可以帮助使用者快速输入。8．在代码窗口输入代码时，输入控件的名称及圆点后，出现下拉列表后，如何输入方法或属性？输入方法或者属性关键字的首字母进行初选，再用鼠标或者光标键细选，然后双击鼠标左键或者单击空格键。
9．窗体、标签、命令按钮、文本框的默认属性分别是什么？标签、命令按钮、文本框、图形图像框的默认属性分别为：caption、caption、text和picture。10．在输入代码时，如何从属性列表和方法列表中快速输入属性及方法？
可以先输入属性或方法的首字母，然后找到需要的属性及方法并选择，用鼠标双击或击空格键即可完成输入。
第三章VB语言基础
（三）练习题
1.VB定义了哪几种数据类型？变量有哪几种数据类型？常量有哪几种数据类型？VB6.0定义了13种数据类型，分别是整数、长整数、单精度浮点型、双精度浮点型、货币型、字节型、变长字符串、定长字符串、布尔型、日期型、对象型、可变类型（数值）、可变类型（字符）。
变量的数据类型有：数值型（整型、长整型、单精度浮点型、双精度浮点型、货币型和字节型）、字符串（变长字符串和定长字符串）、布尔型、日期型、对象型、可变数据类型（数值和字符）。
1.常量的数据类型有：字符串常量、数值常量（整型、长整型、单精度浮点型、
双精度浮点型、货币型和字节型）、布尔常量、日期常量。
2.如果希望使用变量x来存放数据765432.123456，应该将变量x声明为何种
类型？应该使用双精度数Double类型。
3.VB共有几种表达式？根据什么确定表达式的类型？VB有5种类型的表达式，
分别是：算术表达式、字符串表达式、关系表达式、布尔表达式和日期表达式，VB根据表达式的运算符来确定表达式的类型。
4.
5.在VB中，对于没有赋值的变量，系统默认值是什么？在VB中，当使用声明
语句建立一个变量后，系统自动将数值类型的变量赋初值0，变长的字符串
被初始化为一个零长度的字符串（""），而定长的字符串则用空格填充。
Variant 变量被初始化为Empty 。将布尔型的变量初始化为False 。
6.
7. VB 算术表达式a/(b+c/(d+e/Sqr(f)))的数学表达式是什么？写成的数学表达式为
f e
d c b a ++
8. 函数Int(Rnd(0)*10)属于哪个范围内的整数？(0,10)
9. 顺序结构的特点是什么？顺序结构是一种线性结构，在这种结构中，各操作
块按照各自某种顺序依次执行。
10. Rem 和单撇号有什么不同？Rem 命令及命令后的说明文字要求独占一行，Rem
和注释文字间一定要加一个空格，如果非要使用Rem 命令将注释语句写在某
条语句后，则需在Rem 前使用英文“:”号；而单撇号没有上述限制
11. 试述Tab()和Space()两个函数的区别？Tab()函数是绝对定位函数，总是从
左边界开始；Space()函数能从当前输出位置起输出若干空格（形成一段空
距）
12. 试述Int()和Fix()两个函数的区别？
Fix(x)函数无论对正数或负数都是去掉小数部分，取整数部分（符号不变），如：Fix(9.1)=Fix(9.9)=9，Fix(-9.1)=Fix(-9.9)=-9；而Int(x)函数返回的是不超过x 的最大整数，如：Int(9.1)=Int(9.9)=9
，Int(-9.1)=Int(-9.9)=-10。
（5）练习题
1．将一个一维数组a(9)中各元素值按行的顺序放入二维数组b(3×3)。 Private
Sub Command2_Click()
Dim Sum As Single, Count As Integer, Val As Single
Sum = 0
Count = -1
Val = 1
While Val <> 0
Val = InputBox("请输入一个数:" & Chr(13) & Chr(10) & "输入0结束程序!") Sum = Sum + Val
Count = Count + 1
Wend
If Count <> 0 Then
Print "While-Wend 循环:","共输入了"; Count; "个数","平均值为:"; Sum / Count End If
End Sub
2．用随机数函数产生10个40内的整数，使用选择排序法从小到大排序Private Sub Form_Click()
Dim N as Integer,Sum as Single,Term as Single
N = 1
Sum = 0
Do
Term = 1 / (N * N)
Sum = Sum + Term
N = N + 2
Loop Until Term < 0.0001
Print "运算结果为:"; Sum
Print "最后一项的值为:"; Term
End Sub
3．生成下列二维数组，且按下列格式输出。
3 4 5 6
7 8 9 10
11 12 13 14
15 16 17 18 Private Sub Command1_Click()
Print Tab(18); "双循环的结果"
For i = 1 To 10
Print Tab(25 - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
End Sub
4．将一个一维数组反序放置。例如：a=(67,89,76,98,66), 反序放置后，a=(66,98,76,89,67) Private Sub Command1_Click()
Dim ACount As Integer, BCount As Integer,
Dim CCount As Integer, QCount As Integer
Dim CH As String * 1
ACount = 0
BCount = 0
CCount = 0
QCount = 0
For I = 1 To 30
CH = InputBox("请输入一个字符!" & Chr(13) & Chr(10) + "连续输入三个字符Q,可结束程序", "字符统计")
CH = UCase(CH)
If CH = "Q" Then QCount = QCount + 1 Else QCount = 0
If QCount = 3 Then
MsgBox "连续输入了三个字符Q,结束输入", , "注意"
Exit For
End If
Select Case CH
Case "A"
ACount = ACount + 1
Case "B"
BCount = BCount + 1
Case "C"
CCount = CCount + 1
End Select
Next I
Text1.Text = ACount: Text2.Text = BCount: Text3.Text = CCount
End Sub
5．有一个m×n矩阵，找出最大元素值及其最大元素值所在的行、列位置。Private Sub Form_Click()
Dim N As Integer, I As Integer
N = InputBox("请输入一个数正整数N：")
factorial = 1
Sum = 0
For I = 1 To N
factorial = factorial * I
Sum = Sum + factorial
Next I
Print "小于自然数"; N; "的自然数阶乘之和为：", Sum
End Sub
6．将矩阵m(n,n)主对角线和次对角线上的元素置为1，其余元素置为0。Private Sub Form_Click()
a = 0
b = 1
Print a, b,
For i = 1 To 9
a = a + b
b = a + b
Print a, b,
If i Mod 2 = 1 Then Print
Next i
End Sub
运行结果见图：
7．
Private Sub Form_Click()
For i = 1 To 9
For j = 1 To i
Print Tab(11 * (j - 1)); j; "*"; i; "="; Str(i * j);
Next j
Next i
End Sub
运行结果如下图所示：
7．将一个二维数组a（m,n）按行顺序将每个元素放入一个一维数组b(m×n)。编写了两个按扭的事件程序。
“求最大公约数”按扭的过程为：
Dim A As Integer, B As Integer, N As Integer, M As Integer, R As Integer Private Sub Command1_Click()
M = Val(Text1.Text)
N = Val(Text2.Text)
A = M
B = N
If N = 0 Then Exit Sub
R = M Mod N
Do While R <> 0
M = N
N = R
R = M Mod N
Loop
Label3.Caption = N
End Sub
“求最小公倍数”按扭的过程为：
Private Sub Command2_Click()
If N <> 0 Then Label4.Caption = A * B / N
End Sub
运行界面可参阅图。
说明：该设计运行时，如果要求最小公倍数，需要先按“求最大公约数”的按扭，求出最大公约数后方可按“求最小公倍数”的按扭
8．将用inputbox()输入的一个数插入到一个按递增排列的有序数列中，插入后该数列仍然有序。窗体的Click事件过程为：
Private Sub Form_Click()
n = 0
For i = 3 To 1000 Step 2
prime = 1
x = 2
m = Int(Sqr(i))
While x <= m And prime = 1
If i Mod x = 0 Then
prime = 0
Else
x = x + 1
End If
Wend
If prime = 1 And i Mod 10 = 3 Then
n = n + 1
If n Mod 5 = 0 Then
Print i
Else
Print i,
End If
End If
Next i
Print "1000以内个位数为3的素数共有"; n; "个"
End Sub
9．有一个无序数组，删去与第一个元素值相同的其他元素值，删除后其他元素的值前移。
运行结果见图
10．
窗体的Click事件过程为：
Private Sub Form_Click()
Sum = 1 / 2
x = 1
y = 2
For i = 2 To 10
temp = x
x = y
y = x + temp
Sum = Sum + x / y
Next i
Print "数列的前10项的和为：", Sum
Print "该数列的第10项为：", x; "/"; y
End Sub
说明：该数列的规律是：数列项的分子为其前一项的分母，分母为其前一项的分子与分母之
和。在程序中注意生成新的分子和分母时需要利用中间变量temp，并且关注计算的顺序。
1．函数过程有什么不足？1．当有以下二点时，用函数不方便：
（1）不是为了获得某个函数值，而是为了某种功能的处理。
（2）要获得多个结果。
2．子过程与函数过程区别有哪些？2．
(1)函数过程名有值，有类型，在函数体内至少赋值一次；子过程名无值，无类型，在子过程体内不能对子过程名赋值；
(2)调用时，子过程调用是一句独立的语句。函数过程不能作为单独的语句加以调用，必须参与表达式运算。
(3)一般当过程有一个函数值，使用函数过程较直观；反之若过程无返回值，或有多个返回值，使用子过程较直观。
3．函数的参数传递时，什么是传址方式？3．
传址：形参得到的是实参的地址，当形参值的改变同时也改变实参的值
4．函数的参数传递时，什么是传值方式4．
传值：形参得到的是实参的值，形参值的改变不会影响实参的值。
5．什么是变量、过程的作用域？5．
作用域：变量、过程随所处的位置不同，可以被访问的范围
6．过程的作用域有哪几个级别？其对应的关键字是什么？6．
窗体/模块级：加Private关键字的过程，只能被定义的窗体或模块中的过程调用。
全局级：加Public关键字（缺省）的过程，可供该应用程序的所有窗体和所有标准模
块中的过程调用。
7．在VB中，变量有哪些级别？如何定义？7．
局部变量：在过程内声明的变量，只能在本过程中使用。
窗体/模块级变量：在“通用声明”段中用Dim语句或用Private语句声明的变量,可被本窗体/模块的任何过程访问。
全局变量：在“通用声明”段中用Public语句声明的变量，可被本应用程序的任何过程或函数访问。
8．什么是递归？请举例说明。8．用自身的结构来描述自身就称为“递归”。例如对阶乘的定义：n！＝n*（n－1）！（n－1)！＝（n－1）*（n－2）！……，0！＝1
9．设计递归时应遵循哪些原则？
9．递归过程中有终止的条件和终止时的值或某种操作；每递归调用一次，其中的参数要向终止方向收敛。
（三）练习题
1. VB中可使用的控件分为哪几类？1. VB中可使用的控件分为三类：标准控件、ActiveX 控件和可插入对象。
2. 框架有什么作用？2. 每个窗体中可能会存在许多控件，为了将控件适当地按功能
分组，可以使用框架将某些控件组合在一起，对一个窗体中的各种功能进行分类，以
便于用户识别。当用框架将同一个窗体上的单选按钮分组后，每一组单选按钮都是独
立的
3. 列表框的作用是什么？3. 列表框以列表形式显示一系列项目，用户可以从中选择一个或者多个列表项。
4. 组合框有哪几种类型？4. 组合框的类型有：下拉式组合框（Style属性值为0）、
简单组合框（Style属性值为1）和下拉式列表框（Style属性值为2）。
5. 时钟控件的作用如何？5. 时钟控件是一种可按一定时间间隔触发事件的控件，通常用于检查系统时钟，确定是否执行某项任务。运行时，时钟控件不可见。
6. 鼠标事件有哪些？6. 鼠标事件有Click、Dblclick、MouseDown、MouseUp和MouseMove。
7. 键盘事件有哪些？各自的作用如何？7. 键盘事件有KeyPress、KeyUp和KeyDown。其中KeyUp和KeyDown所接收到的信息与KeyPress接收到的不完全相同。KeyUp和KeyDown能检测到KeyPress不能检测到的功能键、编辑键和箭头键。KeyPress接收到的是用户通过键盘输入的ASCII码字符。
8. Animation控件有什么用处？8. Animation控件只能播放无声的AVI文件，不能播放含有声音数据的AVI文件。
9. 怎样设置鼠标光标的形状? 9. 鼠标光标的形状通过MousePointer属性来设置，该属性可以在属性窗口中设置，也可以在程序代码中设置。MousePointer的属性是一个整数，可以取0～15。
10. SSTab控件的Click事件过程有什么特点？10. SSTab控件用来制作含有选项卡的对话框。SSTab控件具有特殊的Click事件过程，其参数previoustab标识先前为活动的选项卡。另外，在当前活动的选项卡上单击不会触发Click事件，只有当单击其他的选项卡时才发生该事件。
第八章数据文件（三）练习题
1．什么是文件？1．
文件是存储在外部介质上数据的集合。
2．根据访问模式，文件可分为哪些种类？请说出其特点。2．
文件是记录的集合。可分为下列三种：
顺序访问模式：顺序文件，记录可长可短；按顺序依次把记录写入文件；按顺序依次把记录读出来。
随机访问模式：随机文件，记录的长度相同；随机文件可以直接访问文件中的任意一个记录，根据记录号访问。
二进制访问模式：二进制文件（可认为记录长度为1）。直接把二进制码存放在文件中。3．若要对文件进行访问，需要经过哪几个步骤？3．
需要进行三个步骤：打开文件、对文件进行操作和关闭文件。
4．打开一个顺序文件时，有哪几种打开的模式？都有什么作用？4．
有三种打开的模式可以选择：
OUTPUT：对文件进行写操作；
INPUT：对文件进行读操作；
APPEND：把数据追加到文件末尾。
5．读顺序文件时，有哪几种命令可以使用？命令的格式和作用各是什么？5．
有三种命令语句可以使用：
INPUT #文件号,变量列表
把读出的每个数据项分别存放到所对应的变量。
LINE INPUT #文件号,字符串变量
读一行到变量中，主要用来读取文本文件。
INPUT$(读取字符数,#文件号)
随意读取字符
6．LOF()和EOF()都有什么作用？6．
LOF(文件号)：返回文件的长度(总字节数)。
EOF(文件号)：返回读写位置。指针在文件尾时，EOF函数为True，否则为False。
7．已知有一个数据文件data.dat，请编写程序将data.dat中的数据复制到文件student.dat 中去。7．
Private Sub Form_Load()
Dim char As Byte
Dim FileNum1,FileNum2 as Integer
FileNum1 = FreeFile '打开源文件
Open "C:\DATA.DAT" For Binary As # FileNum1
FileNum2 = FreeFile ' 打开目标文件
Open "C:\STUDENT.DAT" For Binary As # FileNum2
Do While Not EOF(FileNum1)
Get # FileNum1, , char ' 从源文件读出一个字节
Put # FileNum2, , char ' 将一个字节写入目标文件
Loop
Close #FileNum1
Close #FileNum2
End Sub
8．已知一个学生信息的文本文件为student.dat，学生信息包括：
姓名（字符型），专业（字符型），年龄（整型），分数（整型）
编写程序，找出其中分数最高的和分数最低的学生并输出其记录到文件HL.TXT中去。8．Private Sub Form_Click()
Dim name$, spe$, age%，score%
Dim hname$, hspe$, hage%，hscore%
Dim lname$, lspe$, lage%，lscore%
Open "c:\student.dat" For Input As #1
Open "c:\HL.TXT" For Output As #2
Hscore＝－1
Lscore＝－1
Do While Not EOF(1)
Input #1, name，spe，age，score
If score>hscore then
Hname=Name
Hspe=Spe
Hage=Age
Hscore=Score
End If
If score Lname=Name Lspe=Spe Lage=Age Lscore=Score End If Loop Write #2, Hname, Hspe, Hage, Hscore Write #2, Lname, Lspe, Lage, Lscore Close #1, #2 End Sub 9．已知一个学生信息的文本文件为student.dat，学生信息包括：姓名（字符型），专业（字符型），年龄（整型），分数（整型）编写程序，统计出其中不及格的学生人数并输出。9． Private Sub Form_Click() Dim name$, spe$, age%，score%，Count% Open "c:\student.dat" For Input As #1 Count＝0 Do While Not EOF(1) Input #1, name，spe，age，score If score<60 then Count=Count+1 Loop Print “不及格的人数为：”，Count Close #1 End Sub 10．已知一个学生信息的文本文件为student.dat，学生信息包括：姓名（字符型），专业（字符型），年龄（整型），分数（整型）编写程序，查找姓名为“王军”的学生并输出其记录。10． Private Sub Form_Click() Dim name$, spe$, age%，score% Open "c:\student.dat" For Input As #1 Do While Not EOF(1) Input #1, name，spe，age，score If name=“王军” then Print name, spe, age, score Exit Do End If Loop Close #1 End Sub 二级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) 《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、机器语言 B、汇编语言 C、高级语言 D、0、1二进制语言 解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（D ）不属于VB 6.0的版本。 A、学习版 B、专业版 C、企业版 D、共享版 解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题 1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。 3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。 练习二 一、选择题 1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为蓝色的语句正确的是（ A ） A、Forma1.Backcolor=vbBlue B、Backcolor= vbBlue C、Forma1 =vbBlue D、Forma1′s Backcolor is vbBlue. 2、下面方法中，不能打开编码编辑器的是（D） A、单击“视图”菜单中的“代码窗口”命令。 B、双击窗体设计器的窗体或控件。 C、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。 D、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。 3 、保存VB应用程序时，下列方法中正确的是（Ａ） A、先保存窗体文件，再保存工程文件。 B、先保存工程文件，再保存窗体文件 C、直接保存窗体文件，系统会自动按顺序先保存窗体文件再保存工程文件。 D、直接保存窗体文件，系统会自动按顺序先保存工程文件再保存窗体文件。 二、填空题 1、VB工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。 2、选中工程资源管理器中的窗体对象，再单击按钮可打开窗体设计器。 3、在VB中，按下工具栏中的“启动”按钮或 程序填空〖第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题〗『程序填空』 《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) 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" 中南大学现代远程教育课程（专科）考试复习题及答案 《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)字节型 《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 程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。 第一套试题 一、选择题（每题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 ) 《V i s u a l B a s i c程序设计》期末复习题 一、单项选择题 1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。 A．按过程顺序执行B．从主程序开始执行 C．事件驱动D．按模块顺序执行 2．与传统的设计语言相比，Visual Basic最突出的特点是（） A．程序开发环境B．结构化程序设计 C．程序调试技术D．事件驱动的编程机制 3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。 A．缺少.frm窗体文件B．该可执行文件有病毒 C．运行的机器上无VB系统D．以上原因都不对 4. Visual 集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。 A．设计模式B．编写代码模式 C．执行模式D．中断模式 5．后缀为.bas的文件表示（）。 A．工程文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件 6．工程文件的扩展名是（）。 A．.vbp B．.frm C．.bas D．.frx 7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。 A．时钟控件B．图像框C．框架D．通用对话框 8.以下叙述中错误的是（）。 A．一个工程中可以包含多个窗体文件 B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D．全局变量必须在标准模块中定义 9．要在窗体Form1内显示“欢迎您！”，使用的语句是（） A．="欢迎您!" B．="欢迎您!" C．Form. print "欢迎您!" D． "欢迎您!" 10．决定标签内显示内容的属性是（） A．Name B．Text C．Caption D．Alignment 11．要设置命令按钮的背景图形，必须设置的两个属性是（） A．Caption和Picture B．Style和Picture C．Style和Icon D．Value和Icon 12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．"China" B．"1,China" C．"China",0 D．"China",1 13．在VB中，下列各项合法的变量名是（）。 A．Integer B．ab-c C．2abc D． a_bc 14．在VB中，下列合法的变量名是（） vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23 25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 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、【程序说明】 下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。 Private Sub Form_Click() Dim n As Integer, a As Integer, b As Integer, c As Integer Dim x As Integer For a =0 to 9 '个位数数码 For b = 0 To 9 '十位数数码 For c = ----1---- If a<>b And b<>c And a<>c Then x =a+10*(b+10*c) n = ----2---- ----3---- If n mod 15 = 0 Then Print End If Next c,b,a Print "总共有这样的三位数"; n; "个" End Sub 1、1 to 9 2、n+1或1+n 3、print x; 2、【程序说明】简单 窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。 Private Sub Command1_Click() '确定按钮 Static n As Integer ---const-1----mypwd As String = "123456" '预设密码为自定义常量 n = n + 1 Label2.Visible = True If ---__ text1.text=mypwd____ ---- Then Label2.Caption = "密码正确" Else If n < 3 Then Label2.Caption = "密码错误！" Text1.Text = "" Else --end--3---- End If End If End Sub 1、CONST 2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text1 《VB程序设计》复习题 一、选择题 1.改变控件在窗体中的上下位置，应修改控件的__A_____属性 A .Top B. Left C.Width D. Right 2.将通用对话框类型，设置为字体对话框，可修改该控件的____D_____属性 A. font B. filename C. filter D. action 3.标签控件最重要的属性是__A______ A. caption B. text C. name D. width 4.文本框中选定的内容，由下列____C_____属性反映。 A. Text B.Caption C. Seltext D. sellenght 5.选中复选框控件时，value属性的值，可以是_ D______ A.true B. false C. 0 D.1 6.设置列表框选中的文本用____D____属性 A. selected B. caption C. text D. list 7.简单组合框的style值为____B_____ A .0 B. 1 C. 2 D. 3 8.在文件列表框的实现文件的多重选择，应修改该控件的___D______属性 A. filename B. pattem C. path D. multiselect 9.语句listl.removeitem 1 将删除list.listindext等于___D______的项目。 A. 0 B. 2 C. 3 D. 1 10.计时器的interval属性为0时，表示____A_____。 A. 计时器失效 C. 相隔0 毫秒 B. 相隔0秒 D. 计时器的enable属性为false 11.以下的vb 常量中非法的是(B) a. “Good Luck” b. PI c. 1.5E-03 d. 16.3412 12.要想返回文本框中输入的内容则可利用其( B )属性进行编程 a.caption b. text https://www.wendangku.net/doc/768323771.html, d. righttoleft 13.下列不能用commondialog 控件调用的对话框是( D) a. open/save b. help c. font d. search 14.vb 应用程序是分层管理的,其最高的层次为( A) a. 工程 b. 模块 c. 窗体 d. 过程 《程序设计语言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 C. min4max D. R[8] 16. 在窗体内声明的变量是（）。 A. 局部变量 B. 模块变量 C. 公共变量 D. 任意变量 17. 语句Dim x As Integer作用是:将x定义为（）变量。 A. 单精度型 B. 整型 VB程序设计复习题 1．Visual Basic是一种___D___的可视化程序设计语言。 A．面向机器 B．面向过程 C．面向问题 D．面向对象2．Visual Basic主窗口中不包括____B_____。 A．标题栏 B．状态栏 C．工具栏 D．菜单栏 3．程序运行中用鼠标双击当前窗体时，会触发窗体的_____C____ 事件。 A．Load B．Unload C．DblClick D．KeyPress 4．假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执行的操作是 ____A______。 A．单击窗体上没有控件的地方 B．单击任一个控件 C．双击任一个控件 D．双击窗体上没有控件的地方 5、要设置窗体上各控件的属性，可在 ____C___ 中进行。 A．窗体布局窗口 B．工程资源管理器窗口 C．属性窗口 D．窗体窗口 6．设变量A的值为-2，则___A___函数的执行结果与其他三个不一样。 A．Val("A") B．Int(A) C．Fix(A) D．-Abs(A) 7．要在窗体Forml的标题栏上显示"统计程序"，可用___B___语句。 A．https://www.wendangku.net/doc/768323771.html,="统计程序" B．Form1.Caption="统计程序" C. Forml.Caption=统计程序 D．https://www.wendangku.net/doc/768323771.html,=统计程序 8．函数String(n, "str")的功能是 B 。 A．把数值型数据转换为字符串 B．返回由n个字符组成的字符串 C．从字符串中取出n个字符 D．从字符串中第n个字符的位置开始取子字符串 9、定义变量如下： Dim MyVar MyVar =”come see me “ 若在立即窗口中显示MyVar的值，下面正确的是（ A ） 1．退出Visual Basic 的快捷键是______。A. Ctrl+Q B.Shift+Q C.Alt+Q 2．窗体设计器是用于设计______。 A．应用程序的界面 C．应用程序的代码D. Ctrl+Alt+Q B. 对象的属性D. 窗体的代码 3．启动Visual Basic 后,VB为用户建立的第一个窗体是______。 A．Form1 B.Form C．窗体1 D. 窗体 4．启动Visual Basic 后,VB为用户新建立的工程的名字是______。 A．窗体1 B. 工程1 C．窗体 D. 工程 5．工程资源管理器窗口包含的文件类型有______种。 A．1 B.2 C．3 D. 4 6．如果VB环境中缺少某个窗口，一般应从主菜单______的下拉菜单中找到相应的激活命令。 A．编辑C．调试B. 文件D. 视图 7．能够通过标准工具栏打开的窗口是______。 A．代码窗口 C．属性窗口 8．窗体文件的扩展名______。B. 设计器窗口D. 窗体布局窗口 A．.bas B. vbp C．.exe 9．工程文件的扩展名______。 A．.com D. frm B. vbp C．.exe D. bas 10．Visual Basic的编程机制是______。 A．面向过程C．事件驱动B. 面向对象D. 可视化 （三）练习题 使用VB建立一个应用软件的全过程有哪些步骤？。1．具体过程如下（1）在窗体上建立用户窗口（界面）对象。 （2）分别对对象设置属性。 （3）分别对对象事件的过程编程且完成代码输入。 （4）运行程序和调试程序。 （5）保存程序。 1． 2．保存VB文件，至少要保存几个文件？应先保存什么文件？2．至少保存2个文件，先保存窗体文件，后保存工程文件。 1、题目:（事件）单击窗体（响应)用输入框输入一自然数，判断就是＂正数”、＂负数或＂零”,并根据输入得数用消息框显示”正数"、”负数”或”零". 2、题目:（事件）单击窗体。（响应）求２０0～３0０之间既能被3整除又能被7整除得数.并求出所有数之与存入变量ＳＵＭ中 3、题目：单击窗体。（响应)已知S=1+1/４+１／9+1/1６+1/25+…+1／1０0，结果输出在窗体上。 4、题目：（事件）单击窗体.（响应）在窗体上打印数列２／1，３／2,5/3,8/5，1３/８…得前10项，并求其与，将与保存在变量s中。 5、题目：（事件）双击窗体。(响应)把一元钞票换成一分、二分与五分得硬币每种至少有一枚)，求出其所有得换法，把结果输出在窗体上。将所有得换法得数目存入变量N中 6、题目:单击窗体。）求１！+２！＋3!+4！＋5!并将结果输出到窗体上。结果存入变量S中 7、题目:（事件）单击窗体。（响应)生成一个一维数组（10个数组元素依此为: ' １5、23、７2、４3、9６、2３、３、65、88、１7 写程序求出这个数组中得最大值、最小值与平均值,并输出在窗体上。将最大值，最小值,平均值分别存入变量Max，Min，Aver中 8、题目:(事件）单击窗体。（响应)在窗体上输出100～２0０之间得所有合数。求出所有数之与存入SUＭ中所谓合数就是指自然数中能被1与本数整除以外，还能被其她数整除得数。 ９、题目：（事件）单击窗体.(响应）求10～20之间所有素数得乘积并输出在窗体上。将结果存入变量L中。 1０、题目：(事件）单击窗体。（响应)求1- 1/2＋1/3 －1/4 +……+ 1／99－1/10０得值。将结果存入变量J中。 １题 ｎ = InputＢoｘ（"输入一个自然数”） If n ＞0 Then rｅsulｔ = ”正数＂ ElseIf n < 0 Ｔhen ｒeｓult = ”负数" ElseIf n ＝ 0 Ｔhen result ＝"零＂ End If MsgＢox "输入得数据”& ｎ＆”为：”＆ rｅsuｌt 2题 Dｉｍ i As Inteｇer Fｏｒ i = 201 To 300 Ｉf ((i Mod 3） = 0) Aｎｄ((i Mod ７) = 0） Tｈen Ｐrinｔ (CStｒ(i)） sum = ｓum + i End Iｆ Ｎeｘt Ｐrint sum 3题 DiｍｉAｓ Inteｇeｒ ｓ = 0 For i = 1 To 1０ s ＝ s + 1 / (i ^ i) Next Print (s) ４题 Ｄim i，ｊ, ｋ， m As Integer s ＝ 0 :i = 2:j = １ For k = 1 To 10 s = s ＋ｉ / j ｍ＝ j Prｉnt (CSｔｒ(i)） & "／" ＆ＣＳtｒ(j) j = i ｉ = i + m Ｎexｔ 5题 Ｄｉｍ i, j，ｋAｓＩnｔegｅr For i = １ To １00 Fｏr j = 1 Ｔo 50 For k = 1 Tｏ 20 If （（i + 2 ＊j ＋ k * 5）＝ 100) Ｔｈｅn Print (CＳｔr(i)） Priｎｔ (CStr（j)） Pｒinｔ（CＳtｒ(k)） n ＝n + １VB程序填空复习题
《VB程序设计》习题答案-林卓然编著
VB程序设计习题
VB题库程序填空
《VB程序设计》考试题型练习 答案
vb程序阅读题与填空题
[整理]VB程序设计复习题及答案.
VB--过程练习题
vb程序设计试题(含答案)
VB程序设计期末复习题
vb练习题及答案.doc
VB程序设计 试题与答案-1
vb程序填空题
VB程序设计复习题
程序的设计语言VB单项选择题与答案
VB程序设计复习题答案
VB程序练习题整理稿剖析
VB程序设计考试题库——考试专用