VB教程第6章数 组课堂讨论.ppt_第1页
VB教程第6章数 组课堂讨论.ppt_第2页
VB教程第6章数 组课堂讨论.ppt_第3页
VB教程第6章数 组课堂讨论.ppt_第4页
VB教程第6章数 组课堂讨论.ppt_第5页
已阅读5页,还剩13页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

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;若

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论