




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 项目执行月度工作计划书
- 三农产品加工与储存安全管理手册
- 制造业智能化生产管理系统设计方案
- 化妆品行业产品安全与质量监管解决方案
- 冷链物流智能配送平台建设
- 阿坝2025年四川阿坝小金县面向县外考调机关事业单位工作人员23人笔试历年参考题库附带答案详解
- 遵义2025年贵州赤水市事业单位招聘113人笔试历年参考题库附带答案详解
- 绍兴2025年浙江绍兴市上虞区卫生健康系统招聘卫技人员39人笔试历年参考题库附带答案详解
- 甘肃2025年甘肃省科学技术厅所属事业单位招聘18人笔试历年参考题库附带答案详解
- 安徽省阜阳市颍州区阜阳市第三中学2024-2025学年高二上学期1月期末英语试题(解析版)
- 河南省洛阳市瀍河回族区2023-2024学年九年级上学期期末语文试题
- SLT 478-2021 水利数据库表结构及标识符编制总则
- 【异丙苯法生产苯酚的工艺设计18000字(论文)】
- 《关于加强矿井水保护和利用的指导意见(发改环资〔2024〕226号)》详细解读
- 题库基本(计算机硬件技术基础-题库)
- 安全生产管理人员职责与胜任力
- 小学数学跨学科学习
- 借款合同、收据范本简版范文
- 复调音乐巡礼-巴赫勃兰登堡协奏曲 课件-2023-2024学年高中音乐人音版(2019)必修音乐鉴赏
- 《3-6岁儿童学习与发展指南》考试参考题库120题(含答案)
- 汽车维修保养工作质量考核表
评论
0/150
提交评论