VB程序练习题整理稿剖析.doc

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环境中缺少某个窗口，一般应从主菜单_的下拉菜单中找到相应的激活命令。 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）运行程序和调试程序。（5）保存程序。12 保存VB文件，至少要保存几个文件？应先保存什么文件？2至少保存2个文件，先保存窗体文件，后保存工程文件。工程文件，窗体文件，标准模块文件，类模块文件的文件名的扩展名分别是什么？3.vbp, .frm, .bas, .3 用代码对窗体中的控件设置属性值，这些代码应该放在什么事件中？ 应该放在窗体装入（Form_Load）事件中4 运行程序有几种方法？各是什么？三种：方法一是执行工具栏中的启动按钮；方法二是选取菜单中的“运行/启动”命令；方法三是直接按F5键。5 从代码窗口返回到设计窗体窗口（VB集成开发环境）有几种方法？至少5种方法：点击窗体窗口；选择菜单栏的viewobject; 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)的数学表达式是什么？写成的数学表达式为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(33)。 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 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.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将一个一维数组反序放置。例如： 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) & Chr(10) + 连续输入三个字符Q,可结束程序, 字符统计)CH = UCase(CH)If CH = Q Then QCount = QCount + 1 Else QCount = 0If QCount = 3 ThenMsgBox 连续输入了三个字符Q,结束输入, , 注意Exit ForEnd IfSelect Case CHCase AACount = ACount + 1Case BBCount = BCount + 1Case CCCount = CCount + 1End SelectNext IText1.Text = ACount: Text2.Text = BCount: Text3.Text = CCountEnd Sub5有一个mn矩阵，找出最大元素值及其最大元素值所在的行、列位置。 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; 的自然数阶乘之和为：, 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 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(mn)。 编写了两个按扭的事件程序。“求最大公约数”按扭的过程为：Dim A As Integer, B As Integer, N As Integer, M As Integer, R As IntegerPrivate 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运行界面可参阅图。说明：该设计运行时，如果要求最小公倍数，需要先按“求最大公约数”的按扭，求出最大公约数后方可按“求最小公倍数”的按扭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 hscore thenHname=NameHspe=SpeHage=AgeHscore=ScoreEnd IfIf scoreLscore thenLname=NameLspe=SpeLage=AgeLscore=ScoreEnd If Loop Write #2, Hname, Hspe, Hage, Hscore Write #2, Lname, Lspe, Lage, Lscore Close #1, #2End Sub9已知一个学生信息的文本文件为student.dat，学生信息包括：姓名（字符型），专业（字符型），年龄（整型），分数（整型）编写程序，统计出其中不及格的学生人数并输出。9Private Sub Form_Click() Dim name$, spe$, age%，score%，Count% Open c:student.dat For Input As #1Count0Do While Not EOF(1)Input #1, name，spe，age，scoreIf score60 then Count=Count+1 Loop Print “不及格的人数为：”，Count Close #1End Sub10已知一个学生信息的文本文件为