第二章 简单的VB程序设计.doc

《第二章 简单的VB程序设计.doc》由会员分享，可在线阅读，更多相关《第二章 简单的VB程序设计.doc（20页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、第二章 简单的VB程序设计一、填空题 1、Tabstop 2、Left、top、height、width 3、enabled 4、backcolor 5、name 6、name和caption 7、属性 8、标准模块文件 9、运行模式二、选择题 1、D 2、D 3、C 4、C 5、D 6、B 7、D 8、D 9、D 10、D 11、B 12、A 13、D 14、C 15、B 16、B 17、B 18、D第三章 VB基本语言一、填空题 1、Const 2、Variant 3、隐式声明、显示声明 4、option base、ubound、lbound 5、强制变量声明 6、表示a2是一个可选参数

2、7、End 8、Msgbox、Inputbox 9、*.*、showprint 10、Mid() 11、6 12、redim preserve arraya(ubound(arraya()+1) 13、static 14、0 15、f 16、rem、 17、变量、数组 18、1 to 4,1 to 5 19、Inde 20、按地址 21、Option Explicit 22、13 23、ityo 24、符号 25、LCase 26、ESC 27、部件 28、断点 29、False 30、Option Explicit 31、UCase 32、Mid 33、# 34、过程 35、private

3、36、求x的绝对值 37、2.5二、选择题 1、D 2、B 3、D 4、C 5、B 6、C 7、D 8、C 9、D 10、A 11、A 12、D 13、B 14、B 15、D 16、B 17、A 18、D 19、D 20、C 21、D 22、B 23、B 24、B 25、B 26、A 27、B 28、C 28、B 30、C四、读程序题 1、结果如下：B 2、结果如下：BB CCC DDDD EEEEE 3、功能如下：在20个由小到大排列的数据中插入一个数，插入数据后的数据仍按由小到大的顺序排列。 4、输出结果为： 2 4 6 8 5、输出结果为：3 6、输出结果为：2 452 7、输出结果为：

4、120 0 2 0 8、输出结果为：3 3 3 2五、编程题 1、参考代码如下：Private Sub Command1_Click() Dim year, x As Integer year = Val(Text1.Text) If year Mod 400 = 0 Then Label2.Caption = 是闰年 Else 下面是嵌套块If语句 If year Mod 4 = 0 And year Mod 100 0 Then Label2.Caption = 是闰年 Else Label2.Caption = 不是闰年 End If End IfEnd Sub 2、程序参考代码如下：P

5、rivate Sub Command1_Click() Dim m, n, r As Integer m = Val ( Text1.Text ) n = Val ( Text2.Text ) If m 0 Or n 0 Then 若判断为非法数据，Then子句输出相应信息 Label2.Caption = 输入数据有错！ Else 若判断为合法数据，Else子句用辗转相除法求余数 r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop 循环结束后n中存放的就是最大公约数，输出n值 Label2.Caption = 最大公约数为： & n E

6、nd IfEnd Sub 3、参考代码如下：Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)If x 100 Or x 0 Then Text2.Text = error ElseIf x 60 Then Text2.Text = 不及格 ElseIf x 70 Then Text2.Text = 及格 ElseIf x 80 Then Text2.Text = 中等 ElseIf x 90 Then Text2.Text = 良好 Else Text2.Text = 优秀End IfEnd Sub 4、参考代码如下：

7、Private Sub Form_Load() Dim i As Integer Show 使输出可见 Form1.Font = 新宋体 For i = 9 To 16 Step 1 Form1.FontSize = i Print i; 号字型 Next iEnd Sub 5、参考代码如下：Private Sub Command1_Click() Dim a(1 To 11) As Single 定义静态数组a含11个元素 Dim i, j As Integer Dim num As Single 给数组元素赋初值，即原始队列 a(1) = 3: a(2) = 5: a(3) = 7: a(

8、4) = 8: a(5) = 9 a(6) = 13: a(7) = 16: a(8) = 19: a(9) = 33 a(10) = 38 输出原始队列 For i = 1 To 10 Label2.Caption = Label2.Caption & a(i) & , Next i num = Val(Text1.Text) 把输入的数插入队列中 For i = 10 To 1 Step -1 If num a(i) Then a(i+1) = a( i ) 元素后移一个位置 else a(i+1) = num Exit For 退出循环 End If Next i 输出新队列 For i

9、 = 1 To 11 Label3.Caption = Label3.Caption & a(i) & , Next iEnd Sub 6、参考代码如下：Option Base 1Private Sub Form_Load() Const N = 4 常量N决定二维数组大小 Dim a(N, N) As Integer Dim i, j, Temp As Integer Show 数组初始化 For i = 1 To N For循环 i从1变化到N For j = 1 To N a(i, j) = i * 10 + j Next j Next i 输出原始数组 Print 转置前的数组： Fo

10、r i = 1 To N For循环 i从1变化到N For j = 1 To N Print a(i, j); Next j Print Next i 数组转置 For i = 1 To N For循环 i从1变化到N For j = 1 To i 交换 Temp = a(i, j) a(i, j) = a(j, i) a(j, i) = Temp Next j Next i 输出转置后的数组 Print 转置后的数组： For i = 1 To N For循环 i从1变化到N For j = 1 To N Print a(i, j); Next j Print Next iEnd Sub

11、7、参考代码如下：Private Sub Form_Click()Dim a(10) As Integer, i As IntegerDim sum As Integer, ave As Integersum = 0For i = 1 To 10 a(i) = Int(Rnd * 101) sum = sum + a(i)Next iave = sum / 10Print sum, aveEnd Sub 8、参考代码如下：Private Sub Form_Load() Dim i, j, k, Flower As Integer Show For i = 1 To 9 For j = 0 To

12、 9 For k = 0 To 9 Flower = i * 100 + j * 10 + k If Flower = i 3 + j 3 + k 3 Then Print Flower ; 是水仙花数 Next k Next j Next iEnd Sub 9、程序参考代码如下：Private Sub Command1_Click() Dim m, i, y As Integer m = Val(Text1.Text) If m = 2 Then Label2.Caption = 输入数据有错 Else k = Sqr(m) + 1 For i = 2 To k y = m Mod i If

13、 y = 0 Then Exit For Next i If y = 0 Then Label2.Caption = m & 不是素数 Else Label2.Caption = m & 是素数 End If End IfEnd Sub 10、程序参考代码如下：Option Base 1Private Sub Form_Load() Const N = 5 常数 N 确定数组的大小 Dim a(N, N) As Integer Dim i, j, row, line, min As Integer Show For i = 1 To N For循环 i从1变化到N For j = 1 To N

14、 For循环 j从1变化到N a(i, j) = Int(100 * Rnd) + 1 产生N*N个1100间的随机数 Next j Next i 输出二维数组 Print 数组内容是： For i = 1 To N For j = 1 To N Print a(i, j); Next j Print 输完一行元素后输出一个换行 Next i 设定初始值 min = a(1, 1): row = 1: line = 1 寻找最小数 For i = 1 To N For j = 1 To N If a(i, j) min Then min = a(i, j) row = i line = j E

15、nd If Next j Next i 输出结果 Print 最小值是：; min Print 在第; row; 行第; line; 列End Sub 11、参考代码如下：Private Sub Command1_Click() Dim a, b, c, delt, realpart, imagpart As Single a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text): delt = b * b - 4 * a * c If a = 0 Then Label2.Caption = 是一元一次方程: If b0 the

16、n Text4.Text = x1= & -c / b Else If c=0 then Text4.Text = 有无穷根 Else Text4.Text = 无根 End if End if Else 下面嵌套块If语句 If delt = 0 Then Label2.Caption = 有两个相等的实根: Text4.Text = x1= & -b / 2 / a Text5.Text = x2= & -b / 2 / b ElseIf delt 0 Then Label2.Caption = 有两个不等的实根: Text4.Text = x1= & (-b + Sqr(delt) /

17、(2 * a) Text5.Text = x2= & (-b - Sqr(delt) / (2 * a) Else Label2.Caption = 有两个共轭复根: realpart = -b / (2 * a) imagpart = Sqr(-delt) / (2 * a) Text4.Text = x1= & realpart & + & imagpart & i Text5.Text = x2= & realpart & - & imagpart & i End If 此行End If部分与内层的块If语句对应 End If 此行End If部分与外层的块If语句对应End Sub 1

18、2、参考代码如下：Private Sub Command1_Click() Dim n, i, t As Long n = Val(Text1.Text) i = 1: t = 1 If n 0 Then Label2.Caption = error ElseIf n = 0 Then Label2.Caption = 0!=1 Else Do While i = n t = t * i i = i + 1 Loop Label2.Caption = n & != & t End IfEnd Sub 13、参考代码如下：Private Sub Form_Load() Dim Prev, Las

19、t, NewOne, sum As Long Dim i As Integer Prev = 0: Last = 1: sum = Prev + Last For i = 3 To 20 NewOne = Prev + Last sum = sum + NewOne Prev = Last Last = NewOne Next i Label1.Caption = 第20项为 & NewOne Label2.Caption = 前20项的和为 & sumEnd Sub第四章 常用控件与窗体一、填空题 1、AddItem 2、窗体、控件 3、StartUpPostion 4、form1.hide

20、 5、sorted、ture 6、text1、tabindex、0 7、chr(10) 8、timer 9、interval 10、scroll和change事件 11、mousepointer 12、selected、text、list1.text、removeitem 2*i-1、x,2*i-1 13、change、value、scrol、value 14、List 15、Checked 16、keypress 17、组合框 18、Form2.Show 1 19、Click（或鼠标单击）二、选择题 1、C 2、B 3、A 4、C 5、A 6、A 7、C 8、A 9、C 10、B 11、C

21、12、C 13、A 14、D 15、A 16、A 17、D 18、D 19、D 20、A 21、C 22、B三、简答题 1、单选按钮用来显示一个可以打开或关闭 选项，而且在同一组中的单选按钮控件，用户只能选择其中的一项。 2、主要是用鼠标拖动滑块时对Value属性的影响不同。 3、快捷键是执行某一个菜单项的键盘命令，常用形式Ctrl+字母，访问键是打开一个菜单的键盘命令，常用形式Alt+字母。 4、Scroll事件 5、MenuItem.Enabled=False 6、Interval属性 7、单选按钮用于只能选择一个的情况下，复选框（即检查框）用于可以选择多个的情况下 8、为一个菜单项设置热

22、键时需要在相应字符前面加&，设置快捷键需要在菜单编辑器中选择 9、菜单的形式有两种：下拉式菜单和弹出式菜单 10、在KeyPress事件中，若想取消用户刚输入的字符，只要将该事件的参数设置为0即可 11、框架主要是用作容器，可以实现多组单选按钮，并且可以美化界面 12、250 13、在一个窗体的程序代码中可以访问另一个窗体上控件的属性，在访问时只要写上窗体名称即可 14、先建立框架，然后再在其中建立控件 15、下拉式组合框、简单组合框、下拉式列表框四、读程序题 1、输出结果为：4985 2、结果如下：14五、编程题 1、参考代码如下：Private Sub Form_Load()Timer1.

23、Interval = 1000End SubPrivate Sub Timer1_Timer()Txttime.text = TimeEnd Sub 2、参考代码如下：Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text) Text2.Text = Text2.Text & Spc(5) & Char & _ Spc(10) & Str(Asc(Char) & chr(13)&chr(10) Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Le

24、n(Text1.Text)End Sub 3、4、5、6、7具体代码略。六、程序分析填空题 1、结果如下：Private Sub btnCut_Click() 请补充 Str1 = text1.selText text1.selText = “”End Sub 2、结果如下：Private Sub Form_Load()Dim sum,count as Integer请补充 Sum = 0 Count = 0Do while count =100请补充 Count = count + 1 Sum = sum + countLoopText1.Text = sumEnd Sub 3、结果如下：P

25、rivate Sub Command1_Click() Dim i As Integer Dim s As String s = txtname.Text & 爱好 For i = 0 To List1.ListCount - 1 请补充 If List1.Selected(i) Then S = s & List1.List(i) End If Next Label3.Caption = s End Sub 4、结果如下：Private Sub Form_Load() Show 请补充Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer(

26、)请补充 Form1.Print Int(Rnd*10) + 1End Sub第五章 文件一、填空题 1、顺序、随机、二进制 2、dir1的chang、list1.path=dir1.path 3、目录列表框二、选择题 1、C 2、C三、简答题 1、存放在外部存储介质上的数据和程序等。 2、文件的存取分为顺序型、随机型、二进制型，其编码方式分为ASC码文件和二进制文件。 3、顺序文件：文件中每一个字符都被假设为代表一个文本字符或者文本格式序列，数据被存储ANSI字符，这类文件的信息按照顺序从头到尾排列，只提供第一条记录的存储位置，因而顺序文件只用于要求少量空间，不经常进行数据修改的有规律的文件

27、。随机文件：随机文件由记录组成，能够随机存取相同长度的数据记录，每一数据记录内可以设计各种栏位，以容纳不同的数据，各数据记录长度相同，数据类型可以不同，随机文件有一定的磁盘空间的浪费。二进制文件：二进制文件与随机文件类似，但不必限制记录的长度，可以用喜欢的方式存取文件，二进制访问能提供对文件的完全控制，通过使用二进制型访问可使磁盘空间的使用降到最小。 4、参见教材 5、Print #语句用来将一个或多个格式化的数据写入顺序文件，Write #语句的用法和Print #语句相似，不同的是：l 输出的数据采用紧凑格式存放，数据项之间自动用逗号分开；l 输出的字符串自动用引号扩起来。 6、在读取数据

28、时，如果已到达文件结尾，继续读会被终止并产生一个错误。为了避免出错，常在读操作前用EOF函数检测是否已经达到文件末尾四、编程题 1、参考代码如下：Private Sub Command1_Click()Dim if1 As Integer, if2 As IntegerDim sf1 As String, sf2 As StringDim buffer() As Byte使用动态数组sf1 = InputBox(请输入源文件名：, 源文件)sf2 = InputBox(请输入目标文件名：, 目标文件)If sf1 = Or sf2 = Then Exit Subif1 = FreeFileOp

29、en sf1 For Binary As if1 打开源文件if2 = FreeFileOpen sf2 For Binary As if2 创建目标文件ReDim buffer(1 To LOF(if1) 分配内存Get #if1, , buffer 读源文件Put #if2, , buffer 写目标文件Close 关闭所有打开的文件MsgBox 完成复制。End Sub 2、参考代码如下：Private Sub cmdCopy_Click()Dim destFile As StringIf fSource.FileName = Then Exit Sub 先选定文件destFile =

30、InputBox(输入目标文件名：)If destFile Then 不为空 FileCopy fSource.FileName, destFile 复制文件End IfEnd Sub Private Sub cmdExit_Click()EndEnd SubPrivate Sub cmdKill_Click()Dim resIf fSource.FileName = Then Exit Sub 首先选定文件res = MsgBox(确定要删除文件 & fSource.FileName & 了吗？, vbOKCancel)If res = vbOK Then 确认操作 Kill fSource

31、.FileName 删除文件End IfEnd Sub Private Sub cmdName_Click()Dim destFile As StringIf fSource.FileName = Then Exit Sub 首先选定文件destFile = InputBox(输入新文件名：)If destFile Then Name fSource.FileName As destFile 命名（移动）文件End IfEnd SubPrivate Sub dirSource_Change()fSource.Path = dirSource.Path 与文件列表关联End SubPrivate

32、 Sub drvSource_Change()dirSource.Path = drvSource.Drive 与文件夹关联End Sub第六章 图形操作一、填空题 1、print、circle、line 2、loadpicture 3、autosize二、选择题 1、D 2、A三、简答题 1、Image控件中图形可以伸展以适应控件的大小，而在PictureBox控件中权可通过调整控件的大小以适合图形的大小，图形本身单不伸缩，因此，当需要调整图形大小时，应使用Image控件。 2、程序运行时，在图形框中装入和删除图形是利用LoadPicture函数，只要参数为空或为零长度字符串，即可删除图形；

33、否则，即为装入图形 3、颜色函数主要有：RGB、QBColor四、编程题 1、参考代码如下：Private Sub drvList_Change() dirList.Path = drvList.Drive 设置当前驱动器End SubPrivate Sub dirList_Change() fileList.Path = dirList.Path 设置当前目录End SubPrivate Sub fileList_Click() Dim s As String s为所选文件的全称 If Right(fileList.Path, 1) = Then s = fileList.Path & fi

34、leList.FileName Else s = fileList.Path & & fileList.FileName End If Label4.Caption = s If Right(s, 1) Then Image1.Picture = LoadPicture(s) 显示图片End SubPrivate Sub Form_Load() fileList.Pattern = txtFile.Text 初始化文件列表框End SubPrivate Sub txtFile_LostFocus() fileList.Pattern = txtFile.Text 改变筛选条件End Sub 第

35、七章 面向对象的编程一、填空题 1、集合 2、定义了一个对象类型的变量TEMP二、简答题 1、模块是具有一定功能的代码的集合，VB中提供了三种类型的模块：窗体模块、标准模块、类模块。第八章 界面设计一、简答题 1、多文档界面是指在一个父窗口下面可以同时打开多个子窗口。子窗口归属于父窗口，如果父窗口关闭，则所有子窗口全部关闭。 2、窗体的顶部一般含有菜单栏和工具栏，菜单栏中是菜单，菜单中含有菜单项，工具栏上有工具按钮，工具栏上的工具按钮实际上就是菜单中某一菜单选项的功能，工具栏上的工具体现了大部分菜单的功能。 3、应关闭所有窗体，防止数据丢失。第九章 Visual Basic与数据库一、简答题 1、表间的关系类型有三种：一对一、一对多和多对多 2、Visua Basic中的记录集有三种类型第 20 页