vb课后练习答案习题解答 5Word文件下载.docx
- 文档编号:17012983
- 上传时间:2022-11-27
- 格式:DOCX
- 页数:14
- 大小:66.36KB
vb课后练习答案习题解答 5Word文件下载.docx
《vb课后练习答案习题解答 5Word文件下载.docx》由会员分享,可在线阅读,更多相关《vb课后练习答案习题解答 5Word文件下载.docx(14页珍藏版)》请在冰豆网上搜索。
cDima(0To8,5To–1ASSingle
dDima(10,-10ASDouble
a
5.设有数组说明语句:
Dimb(-1To2,-2To2,则数组b中元素的个数是(。
a12b15c16d20
6.设有数组说明语句:
Dimc(-1To1,1To5,则下列表示数组c的元素选项中(是正确的。
ac(i+jbc(i(jcc(i+1,j-1dc(1,0
7.若有数组说明语句:
Dima(ASInteger,则a被定义为(。
a定长数组b可调数组c静态数组d可变类型数组
b
8.若有数组说明语句:
Dimt(1To10ASVariant,则t被定义为(。
a数值数组b可调数组c字符串数组d可变类型数组
9.下面选项中,错误的是(。
aDimsAsvariant:
s=Array("
one"
"
two"
Three"
bDimb:
b=Array(1,2,3
cDimbAsInteger:
dDimbAsvariant:
10.若有以下说明语句
Typeemployee
numAsInteger
salaryAsSingle
EndType
DimprogrammerAsemployee
则下面表示记录变量programmer的成员Salary正确的是(。
aprogrammer→salaryb.salary
csalary.programmerdprogrammer.salary
11.已知有说明语句
Typedat
yearAsInteger
monthAsInteger
dayAsInteger
Typeemp
noAsInteger
nameAsString﹡10
sexAsString*1
birthdayAsdat
salaryAssingle
DimprogrammerAsemp
并假设变量programmer所表示职工的出生日期是“1978年10月1日”,则下列正确的赋值语句是(。
ayear=1978:
month=10:
day=1
bbirthday.Year=1978:
birthday.month=10:
birthday.day=1
cprogrammer.year=1978:
programmer.month=10:
programmer.day=1
dprogrammer.birthday.year=1978:
programmer.birthday.month=10:
programmer.birthday.day=1
12.假设有第11题的说明语句,则下列With语句正确的是(。
awithprogammer
no=1000:
name="
张勇"
:
sex="
男"
withbirthday
year=1978:
month=10:
Endwith
salary=2800
bwithprogrammer
.no=1000:
.name="
.sex="
with.birthday
.year=1978:
.month=10:
.day=1
.salary=2800
cwithprogrammer
.no=1000:
.name="
.birthday.year=1978:
.birthday.month=10:
.birthday.day=1
dwithprogrammer,birthday
month.=10:
day.=1
5.3解答题
1.使用关键字Dim,ReDim和Static定义的数组分别称为什么数组?
它们各有什么特点?
答:
使用关键字Dim说明的数组称为定长数组。
说明定长数组时,应同时确定维数和下标范围。
VB编译程序在编译时为定长数组分配相应的内存区域,并且在应用程序运行期间,定长数组都占有这块内存区域。
使用关键字ReDim说明的数组称为可调数组或动态数组。
若在程序运行前,不能确定数组的大小或在程序运行时需要改变数组的大小,则该数组应定义为可调数组。
在应用程序运行期间,可调数组占用的内存区域可能会改变。
使用Static说明的数组称为静态数组。
在整个应用程序运行期间,系统分配固定内存
区域。
定义该数组的过程执行结束时,数组的值仍保留,该过程再次被调用时,数组的值为上次过程调用结束时的值。
而定长数组和可调数组则不然,定义它们的过程执行结束时,它们的值不保留。
5.4阅读程序,并写出执行结果
1.PrivateSubCommand1_Click(
Dimf(10AsInteger
f(0=1:
f(1=1
Fori=2To10
f(i=f(i-2+f(i-1
Nexti
Fori=0To10
IfiMod4=0ThenPrint
Printf(i,
EndSub
11
23
581321
345589
2.PrivateSubCommand1_Click(
Dims(1To6AsInteger
Fori=1To6
s(i=i
Fori=1To3
Forj=4To6
t=s(i:
s(i=s(j:
s(j=t
Nextj
Prints(i;
654321
3.PrivateSubCommand1_Click(
Dima(1To9AsInteger
Dimb(1To3,1To3AsInteger
Dimi%,j%
Fori=1To9
a(i=i
Forj=1To3
b(i,j=a(i*j
Ifj<
=iThenPrintb(i,j,
1
24
369
4.PrivateSubCommand1_Click(
Dima(1To5,1To5AsInteger,i%,j%
Fori=1To5
Forj=1To5
Ifi<
=jThena(i,j=1Elsea(i,j=i-j+1
Printa(i,j;
11111
21111
32111
43211
54321
5.5编程题
2.编一程序,使用随机函数产生10个互不相同的两位整数存放到一维数组中,并输出该数组,然后求这组数中的最大值及最大值在数组中的位置。
解答:
(1界面设计和属性设置
在窗体上建立两个命令按钮。
窗体和命令按钮的主要属性设置如表3.5.2所示。
表3.5.2属性设置
(2
PrivateSubCommand1_Click(
Cls
Dima(1To10,i%,j%,max%,p%
Randomize
Fori=1To10
l:
a(i=Int((90*Rnd+10
Forj=1Toi-1
Ifa(i=a(jThenGoTol
Print:
PrintTab(15;
"
产生的随机数为:
"
Print"
a("
;
i;
="
a(i,
max=a(1:
p=1
Ifa(i>
maxThenmax=a(i:
p=i
最大值为:
max
PrintTab(10,"
最大值所在数组元素的下标为:
p
PrivateSubCommand2_Click(
End
(3运行情况
运行程序后,屏幕出现用户界面。
单击标题为“开始”的命令按钮,系统执行相应的
Click事件过程。
执行结果如图3.5.2所示。
单击标题为“结束”的命令按钮,结束程序的执行。
图3.5.2执行结果
4.给定两组已按升序排列好的整型数据,编写一个程序把它们合并为一组仍按升序排列的数据。
窗体和命令按钮的主要属性设置如表3.5.4所示。
表3.5.4属性设置
DimaAsVariant,bAsVariant,c%(0To11
PrivateSubForm_Activate(
Dimi%
a=Array(1,2,7,8
Print:
PrintTab(5;
第一个升序数组:
Fori=0To3
Printa(i;
b=Array(3,4,8,8,9,10,12,12
第二个升序数组:
Fori=0To7
Printb(i;
Dimi%,j%,k%
i=0:
j=0:
k=0
Whilei<
4Andj<
8
b(jThen
c(k=b(j:
k=k+1:
j=j+1'
比较a和b中的元素,把较大的元素移到
Else'
c中,直到其中一个数组搬空为止
c(k=a(i:
i=i+1
EndIf
Wend
4
i=i+1:
k=k+1'
把a中剩余的元素搬到c中
Whilej<
j=j+1:
把b中剩余的元素搬到c中
合并后的升序数组:
PrintTab(8;
Fori=0To11
Printc(i;
运行程序后,系统执行Form_Activate事件过程,屏幕出现用户界面,并显示两个升序数
组。
单击标题为“合并”的命令按钮,系统执行相应的Click事件过程。
执行结果如图3.5.4所示。
图3.5.4执行结果
5.从键盘上输入一个正整数,判别它是否为回文数。
所谓回文数是指正读和反读都一样的数。
例如,123321是回文数。
窗体和命令按钮的主要属性设置如表3.5.5所示。
表3.5.5属性设置
(2程序代码
DimnumAsLong,nAsLong,i%,k%,f%,b%(10
num=InputBox("
请输入一个整数:
k=0:
n=num
Do
b(k=nMod10'
把num的各位数字存入数组b中
k=k+1
n=n\10
LoopWhilen<
>
0
f=1
Fori=0To(k-1/2
Ifb(i<
b(k-1-iThenf=0'
num的第i位与第k-1-i位数字不相同时f置0
Nexti'
说明num不是回文数
IffThen
PrintTab(18;
num;
是回文数!
Else
PrintTab(16;
不是回文数!
单击标题为“开始”的命令按钮,系统执行相应的Click事件过程。
在调用InputBox函数出现对话框时,输入一个整数,例如,1234321。
执行结果如图3.5.5所示。
图3.5.5执行结果
6.编一程序,把一个m行n列矩阵中的元素存放到一个二维数组中,并求出该数组的平均值、最大值和最小值。
(1界面设计和属性设置
窗体和命令按钮的主要属性设置如表3-5-6所示。
表3-5-6第6题的属性设置
最大值Command1Caption开始Command2Caption结束(2程序代码PrivateSubCommand1_Click(Dimi%,j%,m%,n%,sum!
ave!
max!
min!
Dima(AsSinglem=InputBox("
请输入矩阵的行数:
n=InputBox("
请输入矩阵的列数:
ReDima(1Tom,1TonPrintPrintTab(2;
输入的矩阵为:
Fori=1TomPrintTab(15;
Forj=1Tona(i,j=InputBox("
输入第"
&
Str(i&
行"
第"
Str(j&
列元素:
Printa(i,j;
NextjPrintNextisum=0Fori=1TomForj=1Tonsum=sum+a(i,j'
求和NextjNextiave=sum/(m*nmax=a(1,1Fori=1TomForj=1TonIfa(i,j>
maxThenmax=a(i,jNextjNextimin=a(1,1Fori=1TomForj=1TonIfa(i,j<
minThenmin=a(i,j'
求最小值NextjNextiPrintPrintTab(2;
平均值为:
avePrintTab(2;
最大值为:
max'
求最大值'
求平均值
PrintTab(2;
最小值为:
minEndSubPrivateSubCommand2_Click(EndEndSub(3)运行情况运行程序后,需多次调用InputBox函数。
在调用InputBox函数出现对话框时,输入矩阵的行数、矩阵的列数和数组元素的值。
例如,输入矩阵的行数3、矩阵的列数3和数组元素的值1、2、3、4、5、6、7、8、9。
执行结果如图3.5.6所示。
7.某城市三个百货公司某个季度销售电视机的情况和价格由如下表格表示,求各个百货公司的电视机营业额。
牌子公司第一百货商店第二百货商店第三百货商店康佳TCL长虹150200180300200280250240210牌子康佳TCL长虹解答:
(1界面设计和属性设置价格350033003800在窗体上建立两个命令按钮。
窗体和命令按钮的主要属性设置如表3.5.7所示。
表3.5.7控件名称属性设置属性值属性名
Form1Command1Command2CaptionCaptionCaption计算电视机销售额开始结束(2程序代码OptionExplicitPrivateSubCommand1_Click(ClsDimi%,j%,sum!
Dima%(1To3,1To3,p!
(3PrintTab(23;
各百货公司的销售量"
PrintTab(20;
康佳"
Tab(30;
TCL"
Tab(40;
长虹"
Fori=1To3PrintTab(5;
百货公司"
Forj=1To3a(i,j=InputBox("
百货公司"
种牌子销售量:
PrintTab(j*10+10;
a(i,j;
NextjPrintNextiPrintTab(25;
各种牌子价格"
Fori=1To3p(i=InputBox("
种牌号价格:
PrintTab(i*10+10;
p(i;
NextiPrint:
PrintFori=1To3sum=0Forj=1To3sum=sum+a(i,j*p(jNextjPrintTab(10;
百货公司的销售额为:
sum;
元"
NextiEndSubPrivateSubCommand2_Click(EndEndSub(3运行情况运行程序后,屏幕出现用户界面。
单击标题为“开始”的命令按钮,系统执行相应的Click事件过程。
在执行的过程中,需多次调用InputBox函数。
在调用InputBox函数出现对话框时,按表格中的数据输入每个百货公司销售电视机的数量和各种牌子的价格。
执行结果如图3.5.7所示。
单击标题为“结束”的命令按钮,结束程序的执行。
图3.5.7执行结果
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb课后练习答案习题解答 vb 课后 练习 答案 习题 解答