VB程序练习题整理稿

1、1退出Visual Basic的快捷键是_。 A. Ctrl+Q B. Shift+Q C. Alt+Q D. Ctrl+Alt+Q2窗体设计器是用于设计_。 A应用程序的界面 B. 对象的属性 C应用程序的代码 D. 窗体的代码3启动Visual Basic后, VB为用户建立的第一个窗体是_。 AForm1 B. Form C窗体1 D. 窗体4启动Visual Basic后, VB为用户新建立的工程的名字是_。 A窗体1 B. 工程1 C窗体 D. 工程5工程资源管理器窗口包含的文件类型有_种。 A1 B. 2 C3 D. 46如果VB环境中缺少某个窗口，一般应从主菜单_的下拉菜单中找到

2、相应的激活命令。 A编辑 B. 文件 C调试 D. 视图7能够通过标准工具栏打开的窗口是_。 A代码窗口 B. 设计器窗口 C属性窗口 D. 窗体布局窗口8窗体文件的扩展名_。 A.bas B. vbp C.exe D. frm9工程文件的扩展名_。 A.com B. vbp C. exe D. bas10Visual Basic的编程机制是_。 A面向过程 B. 面向对象 C事件驱动 D. 可视化（三）练习题使用VB建立一个应用软件的全过程有哪些步骤？。1具体过程如下（1）在窗体上建立用户窗口（界面）对象。（2）分别对对象设置属性。（3）分别对对象事件的过程编程且完成代码输入。（4）运行程序

3、和调试程序。（5）保存程序。12 保存VB文件，至少要保存几个文件？应先保存什么文件？2至少保存2个文件，先保存窗体文件，后保存工程文件。工程文件，窗体文件，标准模块文件，类模块文件的文件名的扩展名分别是什么？3.vbp, .frm, .bas, .3 用代码对窗体中的控件设置属性值，这些代码应该放在什么事件中？ 应该放在窗体装入（Form_Load）事件中4 运行程序有几种方法？各是什么？三种：方法一是执行工具栏中的启动按钮；方法二是选取菜单中的“运行/启动”命令；方法三是直接按F5键。5 从代码窗口返回到设计窗体窗口（VB集成开发环境）有几种方法？至少5种方法：点击窗体窗口；选择菜单栏的v

4、iewobject; shift+F7; 点击资源管理器中的窗体按钮；单击工程资源管理器中的窗体名称（如：form1）。7输入代码忘记属性值时怎么办？在代码窗口输入代码时，控件的名称及圆点输入后，系统自动出现属性及方法的下拉列表，可以帮助使用者快速输入。8在代码窗口输入代码时，输入控件的名称及圆点后，出现下拉列表后，如何输入方法或属性？输入方法或者属性关键字的首字母进行初选，再用鼠标或者光标键细选，然后双击鼠标左键或者单击空格键。9窗体、标签、命令按钮、文本框的默认属性分别是什么？标签、命令按钮、文本框、图形图像框的默认属性分别为：caption、caption、text和picture。10

5、在输入代码时，如何从属性列表和方法列表中快速输入属性及方法？ 可以先输入属性或方法的首字母，然后找到需要的属性及方法并选择，用鼠标双击或击空格键即可完成输入。第三章 VB语言基础（三）练习题1. VB定义了哪几种数据类型？变量有哪几种数据类型？常量有哪几种数据类型？ VB6.0定义了13种数据类型，分别是整数、长整数、单精度浮点型、双精度浮点型、货币型、字节型、变长字符串、定长字符串、布尔型、日期型、对象型、可变类型（数值）、可变类型（字符）。变量的数据类型有：数值型（整型、长整型、单精度浮点型、双精度浮点型、货币型和字节型）、字符串（变长字符串和定长字符串）、布尔型、日期型、对象型、可变数据

6、类型（数值和字符）。1. 常量的数据类型有：字符串常量、数值常量（整型、长整型、单精度浮点型、双精度浮点型、货币型和字节型）、布尔常量、日期常量。2. 如果希望使用变量x来存放数据765432.123456，应该将变量x声明为何种类型？ 应该使用双精度数Double类型。 3. VB共有几种表达式？根据什么确定表达式的类型？VB有5种类型的表达式，分别是：算术表达式、字符串表达式、关系表达式、布尔表达式和日期表达式，VB根据表达式的运算符来确定表达式的类型。4.5. 在VB中，对于没有赋值的变量，系统默认值是什么？在VB中，当使用声明语句建立一个变量后，系统自动将数值类型的变量赋初值0，变长的

7、字符串被初始化为一个零长度的字符串（""），而定长的字符串则用空格填充。Variant变量被初始化为Empty。将布尔型的变量初始化为False。6.7. VB算术表达式a/(b+c/(d+e/Sqr(f)的数学表达式是什么？写成的数学表达式为8. 函数Int(Rnd(0)*10)属于哪个范围内的整数？(0,10)9. 顺序结构的特点是什么？顺序结构是一种线性结构，在这种结构中，各操作块按照各自某种顺序依次执行。10. Rem和单撇号有什么不同？Rem命令及命令后的说明文字要求独占一行，Rem和注释文字间一定要加一个空格，如果非要使用Rem命令将注释语句写在某条语句后，则需

8、在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

9、)中各元素值按行的顺序放入二维数组b(3×3)。 Private Sub Command2_Click()Dim Sum As Single, Count As Integer, Val As SingleSum = 0Count = -1Val = 1While Val <> 0 Val = InputBox("请输入一个数:" & Chr(13) & Chr(10) & "输入0结束程序!") Sum = Sum + Val Count = Count + 1WendIf Count <> 0

10、 ThenPrint "While-Wend 循环:","共输入了" Count; "个数","平均值为:" Sum / CountEnd IfEnd Sub2用随机数函数产生10个40内的整数，使用选择排序法从小到大排序 Private Sub Form_Click()Dim N as Integer,Sum as Single,Term as SingleN = 1Sum = 0DoTerm = 1 / (N * N)Sum = Sum + TermN = N + 2Loop Until Term < 0

11、.0001Print "运算结果为:" SumPrint "最后一项的值为:" TermEnd Sub3生成下列二维数组，且按下列格式输出。 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 Print Next iEnd Sub4将一

12、个一维数组反序放置。例如： 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 IntegerDim CH As String * 1ACount = 0BCount = 0CCount = 0QCount = 0For I = 1 To 30CH = InputBox("请输入一个字符!" & Chr(13) & Ch

13、r(10) + "连续输入三个字符Q,可结束程序", "字符统计")CH = UCase(CH)If CH = "Q" Then QCount = QCount + 1 Else QCount = 0If QCount = 3 ThenMsgBox "连续输入了三个字符Q,结束输入", , "注意"Exit ForEnd IfSelect Case CHCase "A"ACount = ACount + 1Case "B"BCount = BCount +

14、 1Case "C"CCount = CCount + 1End SelectNext IText1.Text = ACount: Text2.Text = BCount: Text3.Text = CCountEnd Sub5有一个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 factori

15、al = factorial * I Sum = Sum + factorial Next I Print "小于自然数" N; "的自然数阶乘之和为：", SumEnd Sub6将矩阵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 iEnd Sub运行结果见图：7Private Sub

16、Form_Click() For i = 1 To 9 For j = 1 To i Print Tab(11 * (j - 1); j; "*" i; "=" Str(i * j); Next j Print Next iEnd Sub运行结果如下图所示：7将一个二维数组a（m,n）按行顺序将每个元素放入一个一维数组b(m×n)。 编写了两个按扭的事件程序。“求最大公约数”按扭的过程为：Dim A As Integer, B As Integer, N As Integer, M As Integer, R As IntegerPrivate

17、 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 = NEnd Sub“求最小公倍数”按扭的过程为：Private Sub Command2_Click() If N <> 0 Then Label4.Caption = A * B / NEnd Sub运行界面可参阅图。说明：该设计运行

18、时，如果要求最小公倍数，需要先按“求最大公约数”的按扭，求出最大公约数后方可按“求最小公倍数”的按扭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

19、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 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

20、 y = x + temp Sum = Sum + x / y Next i Print "数列的前10项的和为：", Sum Print "该数列的第10项为：", x; "/" yEnd Sub说明：该数列的规律是：数列项的分子为其前一项的分母，分母为其前一项的分子与分母之和。在程序中注意生成新的分子和分母时需要利用中间变量temp，并且关注计算的顺序。1函数过程有什么不足？1当有以下二点时，用函数不方便：（1）不是为了获得某个函数值，而是为了某种功能的处理。（2）要获得多个结果。2子过程与函数过程区别有哪些？2(1)函数过程名有

21、值，有类型，在函数体内至少赋值一次；子过程名无值，无类型，在子过程体内不能对子过程名赋值；(2)调用时，子过程调用是一句独立的语句。函数过程不能作为单独的语句加以调用，必须参与表达式运算。(3)一般当过程有一个函数值，使用函数过程较直观；反之若过程无返回值，或有多个返回值，使用子过程较直观。3函数的参数传递时，什么是传址方式？3传址：形参得到的是实参的地址，当形参值的改变同时也改变实参的值4函数的参数传递时，什么是传值方式4传值： 形参得到的是实参的值，形参值的改变不会影响实参的值。5什么是变量、过程的作用域？5作用域：变量、过程随所处的位置不同，可以被访问的范围6过程的作用域有哪几个级别？其

22、对应的关键字是什么？6 窗体/模块级：加Private关键字的过程，只能被定义的窗体或模块中的过程调用。全局级：加Public关键字（缺省）的过程，可供该应用程序的所有窗体和所有标准模块中的过程调用。7在VB中，变量有哪些级别？如何定义？7局部变量：在过程内声明的变量，只能在本过程中使用。窗体/模块级变量：在“通用声明”段中用Dim语句或用Private语句 声明的变量,可被本窗体/模块的任何过程访问。 全局变量：在“通用声明”段中用Public语句声明的变量，可被本应用程序的任何过程或函数访问。8什么是递归？请举例说明。8用自身的结构来描述自身就称为“递归”。例如对阶乘的定义：n！n*（n1

23、）！（n1)！（n1）*（n2）！，0！19设计递归时应遵循哪些原则？ 9递归过程中有终止的条件和终止时的值或某种操作；每递归调用一次，其中的参数要向终止方向收敛。（三）练习题1. VB中可使用的控件分为哪几类？1. VB中可使用的控件分为三类：标准控件、ActiveX控件和可插入对象。2. 框架有什么作用？2. 每个窗体中可能会存在许多控件，为了将控件适当地按功能分组，可以使用框架将某些控件组合在一起，对一个窗体中的各种功能进行分类，以便于用户识别。当用框架将同一个窗体上的单选按钮分组后，每一组单选按钮都是独立的3. 列表框的作用是什么？3. 列表框以列表形式显示一系列项目，用户可以从中选择

24、一个或者多个列表项。4. 组合框有哪几种类型？4. 组合框的类型有：下拉式组合框（Style属性值为0）、简单组合框（Style属性值为1）和下拉式列表框（Style属性值为2）。5. 时钟控件的作用如何？5. 时钟控件是一种可按一定时间间隔触发事件的控件，通常用于检查系统时钟，确定是否执行某项任务。运行时，时钟控件不可见。6. 鼠标事件有哪些？6. 鼠标事件有Click、Dblclick、MouseDown、MouseUp和MouseMove。7. 键盘事件有哪些？各自的作用如何？7. 键盘事件有KeyPress、KeyUp和KeyDown。其中KeyUp和KeyDown所接收到的信息与Ke

25、yPress接收到的不完全相同。KeyUp和KeyDown能检测到KeyPress不能检测到的功能键、编辑键和箭头键。KeyPress接收到的是用户通过键盘输入的ASCII码字符。8. Animation控件有什么用处？8. Animation控件只能播放无声的AVI文件，不能播放含有声音数据的AVI文件。9. 怎样设置鼠标光标的形状? 9. 鼠标光标的形状通过MousePointer属性来设置，该属性可以在属性窗口中设置，也可以在程序代码中设置。MousePointer的属性是一个整数，可以取015。10. SSTab控件的Click事件过程有什么特点？10. SSTab控件用来制作含有选项

26、卡的对话框。SSTab控件具有特殊的Click事件过程，其参数previoustab标识先前为活动的选项卡。另外，在当前活动的选项卡上单击不会触发Click事件，只有当单击其他的选项卡时才发生该事件。第八章 数据文件（三）练习题1什么是文件？1文件是存储在外部介质上数据的集合。2根据访问模式，文件可分为哪些种类？请说出其特点。2 文件是记录的集合。可分为下列三种：顺序访问模式：顺序文件，记录可长可短；按顺序依次把记录写入文件；按顺序依次把记录读出来。随机访问模式：随机文件，记录的长度相同；随机文件可以直接访问文件中的任意一个记录，根据记录号访问。二进制访问模式：二进制文件（可认为记录长度为1）

27、。直接把二进制码存放在文件中。3若要对文件进行访问，需要经过哪几个步骤？3需要进行三个步骤：打开文件、对文件进行操作和关闭文件。4打开一个顺序文件时，有哪几种打开的模式？都有什么作用？4有三种打开的模式可以选择：OUTPUT：对文件进行写操作；INPUT：对文件进行读操作；APPEND：把数据追加到文件末尾。5读顺序文件时，有哪几种命令可以使用？命令的格式和作用各是什么？5有三种命令语句可以使用：INPUT #文件号,变量列表把读出的每个数据项分别存放到所对应的变量。LINE INPUT #文件号,字符串变量读一行到变量中，主要用来读取文本文件。INPUT$(读取字符数,#文件号)随意读取字符

28、6LOF()和EOF()都有什么作用？6 LOF(文件号)：返回文件的长度(总字节数)。EOF(文件号)：返回读写位置。指针在文件尾时，EOF函数为True，否则为False。7已知有一个数据文件data.dat，请编写程序将data.dat中的数据复制到文件student.dat中去。7Private Sub Form_Load()Dim char As ByteDim FileNum1,FileNum2 as IntegerFileNum1 = FreeFile '打开源文件Open "C:DATA.DAT" For Binary As # FileNum1Fi

29、leNum2 = FreeFile ' 打开目标文件Open "C:STUDENT.DAT" For Binary As # FileNum2Do While Not EOF(FileNum1)Get # FileNum1, , char ' 从源文件读出一个字节Put # FileNum2, , char ' 将一个字节写入目标文件LoopClose #FileNum1Close #FileNum2End Sub8已知一个学生信息的文本文件为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" Fo