实验4-循环与数组
更新时间:2024-01-26 08:58:01 阅读量: 教育文库 文档下载
- 热机循环实验推荐度:
- 相关推荐
VB程序设计实验四
实验目的
? ?
掌握循环嵌套
掌握一维数组和二维数组的操作
实验内容
一、单选题(答案填写在“”实验4答题卡.xlsx文件中)
1.数组具有相同的_____________。 A.下标B.类型C.数值D.存放地址
2.重定义数组大小的语句是______________。
A.Dim语句B.ReDim语句C.Static语句D.Public语句
3.使用Dim A(100) As Integer 语句声明了数组A,其下标的取值范围为____________。 A.0~100 B.1~100 C.0~99 D.1~99
4.若使用Dim A(100) As Integer 语句声明了数组A,下列引用错误的是___________。 A.A(0)=2 B.A(1)= -28 C.A(56)= A(-56) D.A(100)=A(0)+A(55)
5.如果要对已经声明的数组重新定义大小,并保留原有数据,可使用语句___________。 A.DimB.ReDimC.Dim Preserve D.ReDim Preserve
6.对于Integer 类型的数组,如果没有赋值,则所有元素的值为____________。 A.空B.0 C.1 D.最大数
7.执行重定义数组大小语句ReDim A(UBound(B))后,A数组的上界为______________。 A.B数组的上界B.B数组的上界+1 C.B数组的上界- 1 D.不确定 8.下列数组声明语句中正确的是______________。 A.Dim A(9) As Single ={1,2,3,4,5,6,7,8,9,10} B.Dim A() As Single ={1,2,3,4,5,6,7,8,9,10}
C.DimA() As Single ={1,”abc”,”ccc”,4,5,6,7,8,9,10} D.Dim A( , ) As Single ={1,2,3,4,5,6,7,8,9,10}
9.若有声明Dim a(2 ,3) as Integer,则数组a共有元素个。 A.12 B.30 C.16 D.4 10.下列程序的输出结果是______________。 Dim A() As Integer ={1,2,3,4,5,6,7} For i=0 to UBound(A) A(i)= A(i)* A(i) Next i
MsgBox (A(i))
A.49 B.0 C.不确定D.程序出错 11.关于数组的声明,正确的是__________。 A.Dim a(5) As Integer = {1,2,3,4,5,6} B.Dim a(1,6) As Integer = {1,2,3,4,5,6} C.Dim a( ) As Integer = {1,2,3,4,5,6} D.Dim a(1 to 6) As Integer = {1,2,3,4,5,6}
12.若有语句A=Array(1,2,3,4,5,6,7,8),则A(5)的值是__
A. 4 B.5 C.6
D.7
二.调试改错题
(1)程序自动产生10个10~99 之间的随机正整数,在lable1显示大的数,lable2显示小的数。找出能被2、3、5整除的数,结果显示在Label3,如图4- 1所示。程序中有3个错误,请调试改正。保存项目为shiyan4-1。
图4- 1产生随机整数
PrivateSub Button1_Click(……) Handles Button1.Click Dim a%(9), max%, i%, min% Randomize() For i = 0 To 9
a(i) = Int(Rnd() * 99 + 10)
if i=0 then min=a(i): max=a(i)
If a(i) < min Then min = a(i) Else
max = a(i) End If
If a(i) Mod (2,3,5) = 0 Then Label3.Text &= a(i) & \ End If Next i
Label1.Text &= max Label2.Text &= min End Sub
(2))随机产生15个不重复的A-Z之间的字母(包括A,Z的大写字母),存放在字符数组中。 实现的思想是,每产生一个字母,在数组中查找已产生的字母。若找到,刚产生的字母作废,重新产生;如果找不到,则产生字母放入数组中。保存项目为shiyan4-2。
Sub Button1_Click(.....) Handles Button1.Click Dim s(14) As Char ,c As Char, n%, j% s(0)=Chr(Int(Rnd()*26+65)) For n=1 To 14
re: c= Chr(Int(Rnd()*26 +65))
For j=0 To n '在已产生的字母中若找到有重复字母,则重新产生
If s(j)=c Then goto Next j
s(j)= c '没有重复的加入数组中 Next n
For j=0 To 14
Label3.Text =s(j) &“” Next j End Sub
三.程序填空题
(1)计算数组中正数之和和负数之和,最后输出这两个和数的绝对值之商。保存项目为shiyan4-3。
Private Sub Button1_Click(……) Handles Button1.Click
Dim a() As Integer = {23, -5, 23, -45, 11, 8, -3, 38, -31, 15} Dim s1, s2, i As Integer, x As Single s1 = 0: s2 = 0 For i = (1)To (2)
Label1.Text = Label1.Text &a(i) &vbCrLf If (3) Then s1 = s1 + a(i) Else
s2 = (4) End If Next i
x = s1 / Math.Abs(s2) Label2.Text = x End Sub
(2)从键盘读取40个数保存到数组a中,将一维数组中各元素的值移到后一个元素中,而最末一个元素的值移到第一个元素中去。按每行4个数的格式输出。保存项目为shiyan4-4。
Private Sub Button1_Click(……) Handles Button1.Click Dim A(10) As Integer,i, b As Integer For i = 0 To 10
A(i) = Val(InputBox(\请输入一个整数\ Next i b = A(10) For i = (1) A(i + 1) = A(i) Next i (2)
For i = 0 To 10
If i(3) 4 = 0 Then Label1.Text = Label1.Text &vbCrLf Label1.Text = Label1.Text &A(i) & \ Next i
End Sub
(3)下列程序的功能是对已知数组A,删除数组中指定值的元素。保存项目为shiyan4-5。
Private Sub Button1_Click(……) Handles Button1.Click
Dim A() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10} Dim key, i, j, n As Integer n = UBound(A)
Key = Val(InputBox(\输入要删除的值\ For i = 0 To n If (1) Then
For j = i + 1 To n (2) Next j ReDim (3) MsgBox(\删除完成\ Exit For End If Next i
If i> n Then MsgBox(\找不到要删除的元素\End Sub
四. 编写程序
(1)输出如下形式的乘法表。将项目保存在shiyan4-6文件夹内。
(2)有100克的药需用天平秤量,现在砝码只有1克、2克和5克共3种,要求的砝码总数为30个,有几种不同的加法?将项目保存在shiyan4-7文件夹内。
(3)建立并输出一个10×10的矩阵,该矩阵对角线元素为1,其余元素均为0。保存项目为shiyan4-8。
在VB中矩阵常用二维数组来处理,首先要定义一个二维数组A(9,9),接着可以用二重For循环实现二维数组的输入和输出,并正确处理在主、副对角线上的数组元素。
正在阅读:
实验4-循环与数组01-26
XX年大学生寒假社会实践报告精选范文01-11
BEC中级写作指导08-27
档案职称考试复习题精华版10-02
合租房协议合同范文【优秀5篇】03-23
大工水工建筑物在线作业整理12-01
长白山划界历史考证11-09
2022年赣南师范学院体育概论(同等学力加试)复试实战预测五套卷04-06
- exercise2
- 铅锌矿详查地质设计 - 图文
- 厨余垃圾、餐厨垃圾堆肥系统设计方案
- 陈明珠开题报告
- 化工原理精选例题
- 政府形象宣传册营销案例
- 小学一至三年级语文阅读专项练习题
- 2014.民诉 期末考试 复习题
- 巅峰智业 - 做好顶层设计对建设城市的重要意义
- (三起)冀教版三年级英语上册Unit4 Lesson24练习题及答案
- 2017年实心轮胎现状及发展趋势分析(目录)
- 基于GIS的农用地定级技术研究定稿
- 2017-2022年中国医疗保健市场调查与市场前景预测报告(目录) - 图文
- 作业
- OFDM技术仿真(MATLAB代码) - 图文
- Android工程师笔试题及答案
- 生命密码联合密码
- 空间地上权若干法律问题探究
- 江苏学业水平测试《机械基础》模拟试题
- 选课走班实施方案
- 数组
- 循环
- 实验
- 2016最新北京课改版初中数学目录
- 小学五年级一元一次方程应用题2
- 龙泉驿区首届小学语文及品德学科
- 成都七中近几年自主招生数学试卷
- 2017-2018学年杭州市第二次高考科目教学质量检测及答案解析
- 业务招待工作贯彻落实“八项规定”实施细则
- 西南大学17秋1128《分析化学(一)》在线作业(参考资料)
- 六年级语文组主题教研活动总结
- 六年级数学差倍问题应用题练习
- 高考英语重点长难句及词汇分析
- 2009年高考数学复习资料—函数、导数部分错题精选
- 南开大学2005现代汉语与古代汉语
- 农村信用社合规风险管理问责办法
- 辽宁省辽阳市2018年中考物理试卷(解析版)
- 20MWp农光互补分布式光伏电站示范项目施工组织设计
- 2012—2002感动中国十大人物颁奖词
- 五大集团+四小豪门+地方电厂+民营外资+自备电厂 - 图文
- 社团简介
- 儿科学题库 及答案 A1型题1
- 新希望集团财务报表分析