VB6.0程序设计实践教程 习题及答案.pdf

Vb6 0 第 1 页 共 75 页 第一章第一章 一 判断题一 判断题 1 属性是 Visual Basic 对象性质的描述 对象的数据就保存在属性中 2 控件的属性值不可以在程序运行时动态地修改 3 许多属性可以直接在属性表上设置 修改 并立即在屏幕上看到效果 4 所谓保存工程 是指保存正在编辑的工程的窗体 5 面向对象的程序设计是一种以对象为基础 由事件驱动对象执行的设计方法 6 为了使一个控件在运行时不可见 应该将该控件的 Enabled 属性设置为 False 7 保存 Visual Basic 文件时 若一个工程包含多个窗体或模块 则系统先保存工程文件 再分别保存各窗体或模块文件 8 事件是由 Visual Basic 预先定义的对象能够识别的动作 9 方法是 Visual Basic 对象可以相应的用户操作 10 窗体中的控件 是使用工具箱中的工具在窗体上画出的各图形对象 11 由 Visual Basic 语言编写的应用程序有解释和编译两种执行方式 12 在打开一个 Visual Basic 工程进行修改后 要另存为一个版本 只需单击 工程另 存为 就行 因为系统将同时保存其他文件 13 当用 Load 命令将窗体装入内存时 一定触发窗体的 load 事件和 Activate 事件 二 选择题二 选择题 1 要使某个控件不可操作 要对属性进行设置 A EnabledB VisibaleC CaptionD Name 2 下列不属于对象的基本特征的是 A 属性B 方法C 事件D 函数 3 当运行程序时 系统自动执行启动窗体的事件过程 A ClickB LoadC DblClickD Unload 4 Visual Basic 中 程序运行 允许使用的快捷键是 A F2B F5C Alt F3D F8 5 改变控件在窗体中的左右位置应修改该控件的属性 A TopB LeftC WidthD Right 6 工程文件的扩展名为 A vbpB basC frxD frm 7 在 Visual Basic 中 称对象的数据为 A 属性B 方法C 事件D 封装 8 下列选项中不属于属性的是 A NameB CaptionC ShowD Text 9 将 Visual Basic 编制的程序保存在磁盘上 至少会产生何种文件 A doc 与 txtB com 与 exeC bat 与 frmD vbp 与 frm 10 下列关于属性设置的叙述错误的是 A 一个控件具有什么属性是 VB 预先设计好的 用户不能改变它 B 一个控件具有什么属性值是 VB 预先设计好的 用户不能改变它 C 一个控件的大多数属性既可以在属性窗口中设置 也可以用程序代码设置 D 一个控件的属性在属性窗口中设置后 还可以再利用程序代码为其设置新值 三 填空题三 填空题 1 Visual Basic 中可作为其它控件的容器除了窗体外 还有和 2 在 Visual Basic 中 窗体和控件被称为 3 窗体是用来存放的容器 窗体的 left 和 top 属性是相对对象的 4 在打开某窗体时 初始化该窗体中的各控件 应选用事件 四 程序设计题四 程序设计题 1 编一程序 当用户在文本框中输入姓名 例如输入 机器猫 单击 确定 按钮 则窗体上出现 机器猫 欢迎你 如果单击 结束 按钮 即结束程序运行 2 在窗体上建立 4 个命令按钮 Command1 Command2 Command3 和 Command4 要求 1 命令按钮的 Caption 属性分别为 字体变大 字体变小 加粗 和 标准 2 每单击 Command1 按钮和 Command2 按钮一次 字体变大或变小 3 个单位 3 单击 Command3 按钮时 字体变粗 单击 Command4 按钮时 字体又由粗体变为标 准 4 4 个按钮每单击一次都在窗体上显示 青春无悔 5 双击窗体后可以退出 3 在窗体中创建一个文本框和两个命令按钮 Command1 和 Command2 当单击 Command1 时 文本框消失 当单击 Command2 时 文本框出现 并在文本框中显示 我 学会了创建一个应用程序了 要求 Font 为楷体和三号 第 1 章习题答案 一 一 判断题判断题 1 5 6 10 11 13 二 二 选择题选择题 1 5 ADBBB6 10 AACDB 三 三 填空题填空题 1 图片框和框架 2 对象 3 控件屏幕 4 Load 四 四 程序设计题程序设计题 1 Private Sub Command1 Click Print Text1 Text End Sub Private Sub Command2 Click End End Sub 2 Private Sub Command1 Click Form1 FontSize Form1 FontSize 3 Print 青春无悔 End Sub Private Sub Command2 Click FontSize FontSize 3 Print 青春无悔 End Sub Private Sub Command3 Click Form1 FontBold True Print 青春无悔 End Sub Private Sub Command4 Click FontBold False Print 青春无悔 End Sub 3 Private Sub Command1 Click Text1 Visible False End Sub Private Sub Command2 Click Text1 Visible True Text1 FontName 楷体 gb2312 Text1 FontSize 15 Text1 Text 我学会了创建一个应用程序了 End Sub 第二章 一 判断题 1 InputBox 函数的返回值的类型为整型 2 在逻辑运算符 Not Or And 中 运算优先级有高到低为 Not Or 和 And 3 MsgBox 函数的返回值的类型为长整型 4 整型变量有 Byte Integer 和 Long 三种 5 语句 Form1 Print Tab 10 的作用是在窗体的第 11 列位置输出字符 二 选择题 1 Visual Basic 的逻辑类型数据占 字节内存 A 2B 4C 8D 16 2 下列选项中 是日期型数据 A January10 1997 B January10 2007 C January10 1997 D A B B C C End Sub 2 下面程序执行的结果是 Private Sub Form Click A 456 B 789 C Val A Val B Print C 100 End Sub 3 下面程序运行后输出结果是 Private Sub Form Click X A Y B Z C X Y Y Z End Sub 三 选择题 1 Inputbox 函数的参数中 必选参数的作用是 A 输出信息B 定义提示信息 C 定义隐含信息D 定义输入的位置 2 假设变量 B 是一个布尔型变量 则下面正确的赋值语句是 A B TB B True C B True D B 3ZAnd X Z YAnd Y Z X B X Y Z Or X Z Y Or Y Z X C Not X Y Z Or X Z Y Or Y Z Z Or X Z Y Or Y Z X 第三章 一 思考题略 二 程序阅读题 1 A 2B 1C 2 2 12 3 BABCBACBC 4 12 False 三 选择题 1 B2 D3 A4 C5 A6 A7 A 第四章 一 判断题 1 错2 错3 错4 错5 对 二 选择题 1 A2 D3 A4 B5 A6 A 三 程序阅读题 1 x 0y 7 2 w 4 w 13 w 135 w 31 3 s 1 s 2 s 5 s 20 四 程序填空题 1 1 max 2 min 3 c max 4 c min 2 1 x mod 3 2 and x mod 5 3 and x mod 7 4 then 2 text1 setfocus 五 1 Private Sub Command1 Click Dim y As Integer y Val InputBox y If y Mod 4 0 And y Mod 100 0 Or y Mod 400 0 Then Print 是闰年 Else Print 不是闰年 End If End Sub 2 Private Sub Command1 Click Dim a b c x s a Val InputBox a b Val InputBox b c Val InputBox c If a b c And a c b And b c a Then x a b c 2 s Sqr x x a x b x c Print s s Else Print 不是三角形 重输 a b c End If End Sub 3 Private Sub Command1 Click Dim x y x Val InputBox x If x 0 And x 3 Then y x x x 6 elseIf 0 xAnd x 10 And x 2 And x 3 Then y x sin x 2 x else y sqr x 5 log x 4 log 10 End If Print x x f x y End Sub 4 Private sub form click Dim y z dj p t y 月 Z 订票数dj 票价t 总票价 Y val inputbox 月 Z val inputbox 订票数 Dj val inputbox 票价 Selectcasey case 7 8 9 If z 20 then p 0 15 else p 0 05 case 1 to 5 10 11 If z 20 then p 0 3 else p 0 2 Case else P 0 2 End select T z dj p t end sub 5 private sub form click dim m1 m2 m3 dj m1 val inputbox m1 m2 val inputbox m2 m3 val inputbox m3 if m1 m2 m3 3 95 or a 100 and b 100 and c 80 or a 100 and c 100 and b 80 or c 100 and b 100 and a 80 then dj 一等 elseif m1 m2 m3 3 90 or a 100 and b 75 and c 75 or b 100 and a 75 and c 75 or c 100 and b 75 and a 75 then dj 二等 elseifa 75 and b 75 and c 75 then dj 三等 else dj 没有 endif dj dj end sub 第五章第五章习题与思考题和答案习题与思考题和答案 一 判断题 1 要实现同样的循环控制 在 Do While Loop 和 Do Loop While 循环结构中给定的循环条 件是一样的 2 Do Loop While 语句实现循环时 不管条件真假 首先无条件地执行一次循环 3 Do Loop Until 语句实现循环时 只要条件是假 循环将一直进行下去 4 一个 Do 循环只能使用一个 Loop 关键字 但是可以使用多个 Exit 语句 5 For 循环语句正常结束 即不是通过 Exit For 语句或强制中断 其循环控制变量的值一定 大于 终值 并等于 终值 步长 6 如果有多重 Do 循环嵌套 位于最里层循环体语句中的 Exit Do 语句可以退出所有的循环 7 For Next 循环结构的默认步长为 1 8 Do Loop 语句是循环结构的一种特殊形式 如果循环体中没有 Exit Do 语句 程序运行就 一定会进入死循环 二 选择题 1 循环结构 For i 1 to 10 step 1 5 共执行几次 A 6B 7C 9D 10 2 下列循环正常结束的是 A i 0B i 0 DoDo While i 0 i i 1i i 1 Loop While i 0Loop C i 10D i 6 DoDo i i 1i i 2 Loop Untili 0Loop Until i 1 3 下列哪组语句可以将变量 A B 值互换 A A B B AB A A B B A B A A B C A C C B B AD A A B 2 B A B 2 4 下段程序执行的输出结果是 S 0 T 0 U 0 For i 1 To 3 For j 1 To i For K j To 3 S S 1 Next K T T 1 Next j U U 1 Next i Print S T U A 3 6 14B 14 6 3C 14 3 6D 16 4 3 5 下程序段循环结构执行后 输出 i 的值是 A 25B 10 C 11D 因为 y 的初值不知道 所以不确定 For i 1 to 10 step 2 y y i Next i Print i 6 下列程序段的循环结构执行过程中共循环了次 For i 1 To 10 Step 2 y y i Next i A 3B 4C 5D 6 7 以下程序循环的执行次数是 a 0 Do while a 10 a a 2 loop A 4B 5C 6D 7 三 填空题 1 由下列循环语句控制的循环次数是 For k 25 to 0 step 2 k k 2 Next k 2 循环结构的三种语句是 3 写出 For i 12To 33Step 4 所进行的循环后 i 的值是 四 程序阅读题 1 写出以下程序在单击窗体后的输出结果 Private Sub Form click mun 4 while mun 3 mun mun 1 Print mun Wend Print mun End Sub 2 程序运行时单击 Command1 后 输入 12345678 写出窗体上的输出结果 Private Sub Command1 Click Dim x As Long y As String x InputBox 输入一个数 Do While x 0 y y y i i 1 Loop End Sub 4 写出以下程序在单击窗体后的输出结果 PrivateSubForm click Dim k a b as integer a 20 b 2 k 2 Do While k a b b 2 k k 5 Loop Print b End Sub 5 写出以下程序在单击命令按钮后的输出结果 Private Sub Form click k 0 for i 1 to 5 for j 1 to 3 if j mod 20 then k k 1 end if k k 1 next j next i Print k End Sub 6 Private Sub Form Click Dim i As Integer j As Integer Dim star As String star For i 1 To 6 For j i To 6 Form1 Print star Next j Form1 Print Next i End Sub 写出程序运行后 单击窗体后 Form1 上输出结果为 五 程序填空题 1 下面程序的功能是 计算 f 1 1 2 3 1 3 4 1 4 5 1 19 20 Private Sub Form Click Dim f As Single i As Integer sign As Integer f 1 f f sign i i 1 Next i Print f f End Sub 2 下面的程序是在一个字符串变量中查找 at 并用消息框给出查找结果的报告 没有找到 或找到的个数 程序如下 Private Sub Form Click Dim str1 As String 在字符串 str1 中查找 at Dim length As Integer 字符串长度 Dim sum As Integer 查到的个数 Dim i As Integer str1 InputBox 请输入一个字符串 length i 1 sum 0 Do While i amax then amax x end if if then amin x end if x inputbox enter a score loop print max amax min amin End Sub 5 现面的程序功能是 求Fabonia数列的第17个数是多少 第几个数起每个数都超过1E 8 Public Sub Form Click Fabonia 数列的前三个数是 0 1 2 从第 四个数起 每个数都是它前面的两个 数之和 Dim last one As Long last two As Long this one As Long i As Integer last one 1 数列的第二个数 last two 2 数列的第三个数 i 4 从数列的第四个数求起 Do this one last one last two If i 17 Then Print No 17 this one End If Loop While this one 1E 8 End Sub 6 以下程序是验证 100 至 200 之间的所有偶数都能分解为两个素数之和 Private Sub Form click Dim n As Integer m As Integer Dim i As Integer j As Integer For n 100 to 200 Step 2 For m 2 To n 2 For i 2 To Int Sqr m If m Mod i 0 Then Exit For Next i If Then For j 2 To If n m Mod j 0 Then Exit For Next j If j Int Sqr n m Then Print n m n m End If Next m Next n End Sub 六 编程题 1 编程序计算 1 3 5 11 2 输入两个正整数 m 和 n 求其最大公约数 a 和最小公倍数 b 计算最大公约数 a 的方法如下 先算出 m n 余数 r 若 r 等于 0 则 n 为最大公约数 若 r 不为 0 则把原来的 n 值作为新的 m 值 把原来的 r 值作为新的 n 值 继续运算 这样辗转相除 直到 r 为 0 此 时的 n 值为最大公约数 a 最小公倍数则可用原始 m 与 n 值的积除以最大公约数求得 3 打印由数字组成的如下所示金字塔图案 1 222 33333 4444444 555555555 6666666 77777 888 9 4 试编程序解决百钱买百鸡问题 公元前 5 世纪 我国数学家张丘建在 算经 中 提出 百鸡问题 鸡翁一值钱五 鸡母一值钱三 鸡雏三值钱一 百钱买百鸡 问鸡翁 鸡母 鸡雏各几何 5 编程序求表达式 s 1 x x2 2 x3 3 xn n 的值和直至末项小于 10 5为止 并在 窗体上输出 答案答案 一 判断题 二 选择题 BBBDCCC 三 填空题 1 7 2 Do LoopFor NextWhile Wend 3 36 四 程序阅读题 1 4 2 3 y 1 y 2 y 12 y 288 4 32 5 25 6 88 6886 468864 2468852 五 程序填空题 1 sign 1 For i 2 to 19 3 sign sign 2 Len str1 length Mid str1 i 2 Sum 0 3 i mod 7 5 and i Mod 5 3 And i Mod 3 2 i 0 2 xint sqr m Int Sqr n m 六 编程题 1 Private Sub Form Click Dim i As Integer jAs Integer Dim sAs Double SumAs Double s 1 Sum 0 For i 1 To 11 Step 2 For j 1 To i s s j Next j Sum Sum s Next i Print Sum End Sub 2 Private Sub Form Click Dim m n mn r t m Val InputBox m n Val InputBox n If n 0 Or m 0 Then MsgBox 数据有误 End End If mn m n If m n Then t m m n n t End If Do While n 0 r m Mod n m n n r Loop Form1 Print 最大公约数 m Form1 Print 最小公倍数 mn m End Sub 3 Private Sub Form Click Dim i j For i 1 To 5 Print Spc 20 i For j 1 To 2 i 1 Print Trim Str i Next j Print Next i For i 4 To 1 Step 1 Print Spc 20 i For j 1 To 2 i 1 Print Trim Str 10 i Next j Print Next i End Sub 4 Private Sub Form Click Dim x As Integer Dim y As Integer Dim zAs Integer For x 0 To 100 For y 0 To 100 x z 100 x y If 5 x 3 y z 3 100 Then Print x y z Next y Next x End Sub 5 Private Sub Form Click Dim x As Single yAs Single aAs Single iAs Integer x Val InputBox 输入 x a 1 y a i 0 While a 0 00001 i i 1 a a x i y y a Wend Print y y End Sub 第六章 一 判断题 1 数组中所有元素的数据类型不一定相同 2 可以在程序中使用 ReDim 语句来改变动态数组的大小 维数和类型 3 数组的下界一定是 0 4 定义数组时 其下界只能为正整数 5 可以在通用的声明部分使用 Option Base 1 语句把数组下标下界的默认值设为 1 6 在 VB 中 用 Dim 定义数组时 数组元素将自动赋初值为 0 二 选择题 1 定义数组 A 1 To 5 5 后 下列哪一个数组元素不存在 A A 1 1 B A 1 0 C A 0 1 D 5 5 2 在过程中定义 Dim A 1 To 10 3 As Single 则数组占用字节的内存空间 A 132B 80C 160D 120 3 下列关于数组的说法正确的是 A 在 VB 中 一个数组中所包含的元素只能是相同类型的数据 B 在 VB 中 数组只能在模块中定义 不能在过程中定义模块 C 同普通变量一样 数组也可以不定义 先使用 D 在定义数组时 数组的每一维元素的个数必须是常数 不能是变量或表达式 4 使用语句 DimA As Integer 声明数组 A 之后 以下说法正确的是 A A 数组中的所有元素值为 0 B A 数组中的所有元素值不确定 C A 数组中的所有元素值为 Empty D 再执行语句 ReDim A 1 to 10 As Integer 后 A 数组中的所有元素值不为 0 5 已知数组 b 中的 5 个元素分别是 1 3 5 7 9 现将数组 b 中的 5 个数逆序存放 即排列为 9 7 5 3 1 为实现此功能 正确的程序段应该是 A For i 0 To 5 1 2 temp b i b i b 5 i 1 b 5 i 1 temp Next i B For i 0 To 5 temp b i b i b 5 i 1 b 5 i 1 temp Next i C For i 0 To 5 2 temp b i b i b 5 i 1 b 5 i 1 temp Next i D For i 1 To 5 2 temp b i b i b 5 i 1 b 5 i 1 temp Next i 6 在窗体上画一个命令按钮 然后编写如下事件过程 Option Base 1 Private Sub Command1 Click Dim a 1 To 4 As Integer i As Integer j As Integer s As Long For i 1 To 4 a i i Next i j 1 For i 4 To 1 Step 1 s s a i j j j 10 Next i Print s End Sub 运行上面的程序 单击命令按钮 其输出结果是 A 4321B 12C 34D 1234 三 程序填空题 1 以下代码是对冒泡法排序 升序 的改进 具体方法为 当某一趟比较中没有交换发生 则认为排序完毕 而不管比较趟数是否达到 N 1 次 Const N 30 Private Sub Form Click Dim A N As Integer Dim i As Integer j As Integer t As Integer For i 1 To N A i Int Rnd 99 1 Next i For i N To 2 Step 1 For j 1 To 1 If A j A j 1 Then 2 End If Next j Next i For i 1 To N 3 If i Mod 6 0 Then Print Next i End Sub 2 下面的过程用来输出如图 6 3 所示 但不完整 请在横线上填入必要的内容 使其完整 图 6 3输出结果图 Option Base 1 Private Sub Form Click Dim a 5 5 As Integer Dim i As Integer j As Integer For i 1 To 5 For j 1 To 5 If j 10 个数值元素的一维数组 求出这个数组元素的 最大值 最小值和它们的平均值 根据题意 完成下列程序 Private Sub Command1 Click Dim x As Integer n As Integer sum As Double Dim i As Integer max As Integer min As Integer Do n InputBox 请输入一个大于 10 的数 Loop Until 1 ReDim 2 Randomize Print 产生的 n 个随机整数是 x 1 Int 1000 Rnd 1 max x 1 min x 1 sum x 1 Print x 1 For i 3 x i Int 100 Rnd 1 If x i max Then max x i If x i min Then min x i sum sum x i Print x i Next i Print Print 最大值是 max Print 最小值是 min Print 平均值是 4 End Sub 4 下面的程序用于输出由数字组成的如图 6 4 所示的杨辉三角形图案 图 6 4杨辉三角形 Private Sub Form Click Const n 8 Dim a n 1 As Byte i As Integer j As Integer Dim s As String 给数组 a 赋初值 For i 1 To n 1 a i 0 Next i 计算并打印第一个数 a 1 1 Form1 Print Space 2 n 2 计算数字前的空格数 Form1 Print a 1 计算其余行的数并打印 For i 2 To 1 a i a i 1 For j 2 To 2 Step 1 3 Next j Form1 Print Space n i 1 2 For j 1 To i s Trim Str 4 Form1 Print Space Int 4 Len s 2 0 5 s Space Int 4 Len s 2 0 5 Next j Form1 Print Next i End Sub 四 程序阅读题 1 写出程序运行后 单击窗体 Form1 上显示的内容 Private Sub Form Click Dim ary 1 To 4 As Integer Dim i As Integer Dim Sum As Integer For i 1 To 4 ary i i Sum Sum ary i Print ary i Next i Print Print Sum Sum End Sub 2 写出单击窗体后程序执行的结果 Private Sub Form Click Dim a 1 To 10 Dim P 1 To 3 k 5 For i 1 To 10 a i i Next i For i 1 To 3 a i a i i Next i For i 1 To 3 k k P i 2 Next i Print k End Sub 3 写出单击窗体后程序执行的结果 Private Sub Form Click Dim A 4 4 As Integer k As Integer j As Integer t As Integer For k 1 To 4 For j 1 To 4 A k j j Form1 Print A k j Next j Print Next k Form1 Print For k 2 To 4 For j 1 To k t A k j A k j A j k A j k t Next j Next k For j 1 To 4 Form1 Print A j 1 A j 2 A j 3 A j 4 Next j End Sub 4 写出程序执行的结果 Private Sub Form Click Dim A 4 4 As Integer Dim c As Integer r As Integer Dim i As Integer j As Integer k As Integer c 4 r 1 i 1 j 1 For k 1 To 16 A i j k If i c And j r Then i i 1 Elseif i c And j r And j c Then i i 1 Elseif i r And j r 1 Then j j 1 End If If i r And j r 1 Then c c 1 r r 1 End If Next For i 1 To 4 For j 1 To 4 Print Tab j 4 A i j If j 4 Then Print Nextj Nexti End Sub 第六章答案 一 判断题 1 错 2 错 3 错 4 错 可以为小数 不过仍然是当作整数来处理 5 对 6 错 二 选择题 1 C 2 C 3 A 4 C 5 C 6 D 三 程序填空 1 1 n i 2 t a j a j a j 1 a j 1 t 3 Print a i 2 1 a i j 1 2 Print 3 1 n 10 2 x 1 to n as Integer 3 2 to n 4 sum n 4 1 n 1 2 i 1 3 a j a j 1 4 a j 四 程序阅读 1 1234 Sum 10 2 5 3 1234 1234 1234 1234 1111 2222 3333 4444 4 前面空 4 个空格 1121110 213169 314158 4567 五 程序设计题 1 交换元素 Private Sub Command1 Click Dim a 1 To 20 As Integer i As Integer t As Integer For i 1 To 20 a i Int Rnd 90 10 Next i Print 交换前的数为 For i 1 To 20 Print a i If I mod 10 0 then print Next i Print For i 1 To 10 t a i a i a 11 i a 11 i t Next i Print 交换后的数为 For i 1 To 20 Print a i If I mod 10 0 then print Next i End Sub 2 求最大元素和行 列坐标 Private Sub Form click Dim a 1 To 5 1 To 5 As Integer iAs Integer j As Integer Dim max As Integer maxi As Integer maxj As Integer Dim min As Integer mini As Integer minj As Integer min 20 For i 1 To 5 For j 1 To 5 a i j Int Rnd 11 10 If a i j max Then max a i j maxi i maxj j End If If min a i j Then min a i j mini i minj j End If Print a i j Next j Print Next i Print 最大元素是 Next j Print Next i For i 1 To 5 For j 1 To 5 If i 1 Or j 1 Or i 5 Or j 5 Then sum1 sum1 a i j If i j Or i j 6 Then sum2 sum2 a i j Next j Next i Print 数组靠边元素之和为 sum1 Print 数组对角线元素之和为 sum2 End Sub 4 略 第七章 一 判断题 1 静态变量是一种局部变量 当原过程再次被执行时 静态变量的初值是上一次过程调用 后的值 2 事件过程由某个用户事件或系统事件触发执行 它不能被其他过程调用 3 可以在窗体的通用部分声明静态变量 4 事件过程只能由系统调用 在程序中不能直接调用 5 当形参定义是传地址方式 调用是如果使用常量或表达式 则数据是按值传递 6 事件过程通常由事件驱动执行的 而 SUB 过程是通过过程调用执行的 7 子程序调用时 如果参数按址传递并且实在参数是变量 则子程序在执行时对形参的修 改不会影响到对应传递的实参变量的内容 二 选择题 1 在 Form2 中引用 Form1 中的全局变量 x 写作 A xB Form1 xC Form2 xD Form1 Pablic x 2 编制一个将 Single 类型数组 各元素按值从小到大排序的 Sort 过程 该过程 为 A Private Subsort a As Single n As Integer As Integer B private Sub sort a l To n As Single n As Integer C Private Sub sort ByRef a As Single n AsInteger As Integer D Private Sub sort a As Single n As Integer 3 下面程序运行后 单击窗体的打印结果为 Private Sub Form Click Dim f 2 For I 0 to 2 f i SQ I I 1 Next I Do Until I 0 I I 1 Print F I F i Loop End Sub Public Function SQ x x x 2 Sq x 4 5 End Function A F 0 7 F 1 11 F 2 23B F 2 7F 1 11F 0 23 C F 0 23 F 1 11 F 2 7D F 2 23F 1 11F 0 7 4 设有如下自定义函数 Public Function f x As Integer Dim y As Integer x 20 y 2 f x y End Function 在窗体上画一个名称为 Command1 的命令按钮 然后编写如下事件过程 Private Sub Command1 Click Static x As Integer x 10 y 5 y f x Print x y End Sub 程序运行后 如果单击命令按钮 则在窗体上显示的内容是 A 10 5B 20 5 C 20 40D 10 40 5 设有如下通用过程 Public Sub Fun a ByVal x As Integer For i 1 To 5 x x a i Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮 然后编写如下 的事件过程 Private Sub Command1 Click Dim arr 5 As Variant For i 1 To 5 arr i i Next i n 10 Call Fun arr n Text1 Text n End Sub 程序运行后 单击命令按钮 则在文本框中显示的内容是 A 10B 15C 25D 24 6 以下叙述中错误的是 A 如果过程被定义为 Static 类型 则该过程中的局部变量是 Static 类型 B Sub 过程中不能嵌套定义 Sub 过程 C Sub 过程中可以嵌套调用 Sub 过程 D 事件过程可以像通用过程一样由用户定义过程名 7 过程调用时 形参和实参之间数据传送的原则正确的是 A 按实参与形参同名的原则 B 按实参与形参位置对应的原则 C 按实参与形参个数相同 且类型也对应的原则 D 按实参与形参不仅位置对应 且类型也对应的原则 8 Function 过程有别于 Sub 过程的最主要特点是 A Function 过程一定要有形参 而 Sub 过程可以没有形参 B Function 过程的终端语句是 End Function Sub 过程的终端语句是 End Sub C Function 过程是用于计算函数值 而 Sub 过程是用于改变属性值 D Function 过程要返回函数值 而 Sub 过程没有数值返回 9 编写如下事件过程 Private Sub sub1 ByVal x1 As String y1 As String Dim xt As String Dim i As Integer i Len x1 Do While i 1 xt xt Mid x1 i 1 i i 1 Loop y1 xt End Sub Private Sub Form Click Dim s1 As String s2 As String s1 teacher sub1 s1 s2 Print s2 End Sub 程序运行后 单击窗体 则窗体上显示的内容是 A rehcaetB teacherC theraceD certhea 10 在窗体上画一个名为 Command1 的命令按钮 然后编写如下通用过程和命令按钮 的事件过程 Private Function f m As Integer If m Mod 2 1 Then f 1 Else f m End Function Private Sub Command1 Click Dim i As Integer s 0 For i 1 To 5 s s f i Next i Print s End Sub 程序运行后 单击命令按钮 在窗体上显示的是 A 11B 10C 9D 8 三 程序阅读题 1 有以下程序 Dim a As Integer y As Integer Private Sub Command1 Click Call aa 5 y y a Print y y a a End Sub Sub aa i As Integer x 1 Do Until x i a a x x x 3 Loop End Sub 写出程序运行时连续三次单击 Command1 后 窗体上显示的结果 2 有以下程序 Function chg a As Integer b As Integer As Integer Dim n As Integer For n 0 To 2 a a b Next n chg a End Function Private Sub Form Click Dim a As Integer bAs Integer z As Integer a 1 b 1 For n 1 To 3 z chg a b Form1 Print n n z z Next n End Sub 写出程序运行时单击窗体后 Form1 上的输出结果 3 依次写出下列程序运行时四次单击命令按钮 Command1 后窗体上的输出结束 Dim x As Integer y As Integer Private Sub f1 a As Integer a a 2 EndSub Private Sub f2 ByVal b As Integer b b 2 End Sub Private Sub Command1 Click Call f1 x Call f2 y Print x y End Sub Private Sub Form Load x 64 y 64 End Sub 4 有如下程序段 Dim y as integer Private sub Form click Dim x as integer X 1 Y 1 Call aa y 1 Z BB x Print x y z End sub Public sub aa byval z as integer Y z x Z x y End sub Public function BB byref y as integer Y y 1 Bb x y End function 写出当单击窗体后 窗体上显示结果 5 有如下程序段 Public Sub Swap1 ByVal x As Integer ByVal y As Integer Dim t As Integer t x x y y t End Sub Public Sub Swap2 x As Integer y As Integer Dim t As Integer t x x y y t End Sub Private Sub Form Click Dim a As Integer b As Integer a 10 b 20 Swap1 a b