VB教程第6章数 组课堂讨论.ppt

1、第6章 习题讨论,退出,单选题,填空题,编程题,编程补充题,1下列程序段运行后，假设依次输入1、3、5，则运行结果是_。 Dim a(3) As Integer, b(3) As Integer For k = 0 To 2 a(k + 1) = Val(InputBox(请输入数据：) b(3 - k) = a(k) Next k Print b(3) + a(3) A. 7 B. 6 C. 5 D. 8,C,一、单选题（补充）,2. 下列程序段的运行结果是_。 Dim a a = Array(1, 3, 5, 7, 9, 11) For k = 0 To 2 Print a(5 - k)

2、- a(k); Next k A. 10 7 4 B. 10 6 2 C. 9 5 3 D. 10 6 3,B,7. 产生n个10100随机整数并存入数组，再从键盘上接收一数据，将该数据插入数组中，插入位置也从键盘接收。补充完整下列程序代码 (先分析) Dim a() As Integer 模块级变量，数组a是动态数组 Private Sub Form_Load() n = Val(InputBox(数据个数：) _(1)_ Randomize Show Print 原始数据： For k = 1 To n 产生n个随机数 a(k) = Int(91 * Rnd + 10) Print a(k

3、); Next k,单选题第7题 (P137),定义 n+1 个元素的数组a,Print: Print d = Val(InputBox(插入的数据：) p = Val(InputBox(插入的位置：) For K = n To p Step -1 _(2)_ Next K _(3)_ Print 处理结果： For K = 1 To n + 1 Print a(K); Next K End Sub,假设 个数 n=8 插入的数据 d=89 插入的位置 p=5,数据右移,数据存入,5. 产生n个10100随机整数并存入数组，再从键盘上接收一数据，将该数据插入数组中，插入位置也从键盘接收。补充完

4、整下列程序代码（填空） Dim a() As Integer 数组a是动态数组 Private Sub Form_Load() n = Val(InputBox(数据个数：) _(1)_ Randomize Show Print 原始数据： For k = 1 To n 产生n个随机数 a(k) = Int(91 * Rnd + 10) Print a(k); Next k,ReDim a(1 To n + 1),单选第7题,单选题第7题 (P137),定义 n+1 个元素的数组a,Print: Print d = Val(InputBox(插入的数据：) p = Val(InputBox(插

5、入的位置：) For K = n To p Step -1 _(2)_ Next K _(3)_ Print 处理结果： For K = 1 To n + 1 Print a(K); Next K End Sub,假设 个数 n=8 插入的数据 d=89 插入的位置 p=5,a(K + 1) = a(K),a(p) = d,数据右移,数据存入,补充题1： 将10个人(分别用A，B，C， J表示)随机分配在4排3列的座位中，分配后的空位用“Empty”表示。在窗体上设置一个文本框控件数组，来显示座位分配情况 1. 用户界面,编程补充题1,编程补充题,Private Sub Form_Load()

6、 Dim t(12) As String Randomize For k = 1 To 12 t(k) = Empty 初始安排12个位置均为Empty Next k For h = 65 To 74 代表A至J，每次随机安排一个字母 Do While True 随机查找一个空位 p = Int(1 + 12 * Rnd) 产生112随机数 If t(p) = Empty Then t(p) = Chr(h) Exit Do End If Loop Next h For k = 1 To 12 Text1(k - 1).Text = t(k) 显示座位分配情况 Next k End Sub,(

7、1)解题方法 数据排序的常用方法：“选择排序法”及“起泡排序法” “起泡法”排序就是每次将两个相邻的数进行比较，然后将大数调换(或称“下沉”)到下面。 例如，若有4个数，则通过三次外循环来完成排序过程：,7 5 3 4,初始 第1次 第2次 第3次,寻 找 最 大 数（第一次外循环）,5 7 3 4,5 3 7 4,5 3 4 7,大数“沉底”，小数“浮起”； 如有n 个数，则要进行n-1趟比较；需要两重循环,编程补充题2：起泡排序法演示程序,(1) 创建应用程序的用户界面和设置对象属性,编程补充题2,(2)创建应用程序的用户界面和设置对象属性 窗体上含有一个文本框控件数组和一个命令按钮 文本

8、框控件数组（Text1(1)Text1(8)）用来显示演示的8个数 (3)编写程序代码 功能要求： 程序运行后自动产生8个两位随机整数 单击“排序”按钮(Command1)时，即启动排序过程 通过MsgBox函数来暂停程序运行, Const n = 8 声明符号常量 Option Base 1 Private Sub Form_Load() Randomize For i = 1 To n 产生n 个随机数 Text1(i).ForeColor = RGB(0, 0, 0) 用黑色显示 Text1(i).Text = Int(90 * Rnd + 10) Next i End Sub,Priv

9、ate Sub Command1_Click() For j = 1 To n - 1 外循环 MsgBox 准备进行第 + Str(j) + 次比较，按回车键继续 For i = 1 To n - j 内循环 If Val(Text1(i).Text) Val(Text1(i + 1).Text) Then t = Text1(i).Text Text1(i) . Text = Text1(i + 1).Text Text1(i + 1).Text = t End If Next i 沉底数用红色表示 Text1(n - j + 1).ForeColor = RGB(255, 0, 0) N

10、ext j MsgBox 排序完毕“ End Sub,输入一个含有数字字符和非数字字符的字符串，如 t345+abc12spc276www8t56? 将其中的数字串(1至多个连续数字字符)存放到列表框中，例如将345放在第一行，12放在第二行，276放在第三行，8放在第四行，56放在第五行。统计共有多少个数字串 (1)创建应用程序的用户界面和设置对象属性,编程补充题3： 从字符串中抽取数字字符串,编程补充题3,(2)编写程序代码 功能要求：用户在文本框(Text1)中输入要处理的字符串内容，单击“处理”按钮(Command1)后，则按要求取出各个数字串并显示在列表框List1中，统计出数字串的

11、个数并显示在标签Label3中,Private Sub Command1_Click() k = 0 : n = -1 : s = Text1.Text 取字符串 For i = 1 To Len(s) 按顺序逐个字符判断 t = Mid(s, i, 1) 取i位置的一个字符 If t 9 Then 判是否数字 k = 0 非数字，置k=0 Else If k = 0 Then n = n + 1 指向列表框的下一行 List1.List(n) = t 存入列表框 k = 1 表示刚存过数字 Else 把数字加入到列表框当前行的末尾 List1.List(n) = List1.List(n) + t End If End If Next i Label3.Caption = Str(n + 1) + 个数字串 End Sub,本程序采用按顺序逐个字符判断方式，大致处理过程如下： (1)取出字符串中的第一个字符，若该字符不是数字，则k=0；若