VB实验指导书课后习题答案版.docx
- 文档编号:18601091
- 上传时间:2023-08-20
- 格式:DOCX
- 页数:6
- 大小:18.82KB
VB实验指导书课后习题答案版.docx
《VB实验指导书课后习题答案版.docx》由会员分享,可在线阅读,更多相关《VB实验指导书课后习题答案版.docx(6页珍藏版)》请在冰点文库上搜索。
VB实验指导书课后习题答案版
VB实验指导书课后习题答案2016版
VB作业参考答案(xx年3月)
第1次习题VB程序设计概述一、选择题1A2A3D4C5A6C7C8B9B二、1、在设计阶段利用属性窗口直接设置对象的属性值,程序运行时不能改变;
2、在程序运行阶段通过赋值语句实现,即通过事件触发修改属性。
对象名.属性名=属性值
第2次习题VB可视化编程基础一、选择题1A2D3B4C5A6B7C8B9A10C二、填空
123
第3次习题VB语言基础一、选择题1BH二、123
1
AutoSizeMultiLinePasswordChar2B3C4B5A6B7B8C9B10C11CAbs(x+y)+Z^5/(x*y)/(2*+EXP(X+Y))
三、
1234四、
123456
第4次习题VB控制结构一、选择
chr(int(rnd*4)+65)int(rnd*90)+10xmod5=0orxmod7=010*(xmod10)+x\\10或StrReverse(x)18830306876554;8819VISUALC++Programming1B11D21A2D12A22C3A13A23C4B14B5D15A6B16D7B17B8C18D9A19B10B20A 二、填空
123
2
70Result*xm;t;m三、程序设计题
1.求函数的值。
DimyAsLong,xAsInteger,i%
x=InputBox(\输入X的值:
\或者x=val()IfxElseIfxElseIfxy=x*x 'ory=x^2Else
y=25-xEndIf
Print\
2.计算机:
1+3+5+……+99的值。
DimsumAsLong,i% sum=0
Fori=1To99Step2 sum=sum+i Nexti Printsum
3.从键盘输入一个字符串,统计其中出现”a”和”c”的个数,如输入“abcaabbc”,则”a”的个数为3,”c”的个数为2。
DimstAsString,suma%,sumb%,i% st= Fori=1ToLen(st)
IfMid(st,i,1)=\Then suma=suma+1
ElseIfMid(st,i,1)=\Then sumb=sumb+1 EndIf Nexti
Print\的个数是:
\Print\的个数是:
\
4.从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。
如8的所有因子为1、2、4,因子个数为3个。
3
Dimx%,sum%,i%
x=Val()'或者x=inputbox(\输入一个整数:
\Fori=1Tox-1 '或者fori=1tosqr(x) IfxModi=0Then sum=sum+1 Nexti Print
Printx&\的因子的个数是:
\
5.编写程序,求一字符串的反序串。
'求字符串反序串的方法1:
'每次从后面取一个字符并把它们串起来 DimstAsString,s$ Dimi%
st=
Fori=Len(st)To1Step-1 s=s&Mid(st,i,1) Nexti
Printst&\的反序串为:
\
'求字符串反序串的方法2:
函数 s=StrReverse()
Print&\的反序串为:
\
'求字符串反序串的方法3:
第1个与最后一个字符交换位置,。
。
。
Dimn% n=Len(st)
Fori=1Ton/2 c=Mid(st,i,1)
Mid(st,i,1)=Mid(st,n-i+1,1) Mid(st,n-i+1,1)=c Nexti
Print&\的反序串为:
\
6.输入一个正整数,判断其是否为素数。
参见教材83页,例
7.实现对分数约分的功能。
输入m,n,求m/n约分后的分子和分母分别是多少。
Dimm%,n%,r%,m1%,n1%m=Val()
4
n=Val()
'先求m,n的最大公约数r=mModnDoWhiler0
m=n:
n=r:
r=mModnLoop
PrintText1&\和\的最大公约数为:
\'分子分母进行约分m1=Val()/nn1=Val()/n
Print\约分后的分子为:
\约分后的分母为:
\
8.输入一个之间的十进制正整数,将其转化为8位二进制数,如7转换为00000111。
‘方法1:
DimstAsString,x%,i%,r%x=Val()Fori=1To8
r=xMod2:
x=x\\2:
st=r&stNexti
‘方法2:
DoWhilex0 r=xMod2 st=r&st x=x\\2Loop
DoWhileLen(st)PrintText1&\转换为二进制是:
\
5
第5次习题数组和自定义类型一、选择题1D112A123A13B3B14C4B15C5C16B6A17D7A18D8D19C9A20C10B21C22D70A810二、填空
1234567
三、改错题
12
第6次习题过程一、选择
4216123;789204;406b(i*j)num;i+1;a(j)=tempDimarr(10)错,改为:
Dimarr()Fori=1to10‘循环3错,改为:
Fori=1to91A
2B3A4D5D6B7C8D9C二、填空
6
1234567
三、改错题
38212 10033ch temptrue246854321891011121314Callswap(a),n=n-110 011 6100 1207010201234staticnx>bTempchMax=a
(1);a(k)>max;max=a(k)四、编程题1、Dimi%
PrivateSubCommand1_Click()DimaAsLong
Text1=CStr(fun(a)) EndSub
PrivateFunctionfun(sumAsLong)sum=0
Fori=1To100
IfiMod70Thensum=sum+iNextifun=sumEndFunction2、
OptionExplicit
Dimb(4)AsInteger,i%
PrivateSubCommand1_Click()Dimmin% Fori=0To4
b(i)=Val(Text1(i)) Nexti
min=findmin(b)Printmin
7
EndSub
PrivateFunctionfindmin(a()AsInteger) Dimmin% min=a
(1)
Fori=0ToUBound(a)
Ifa(i)findmin=minEndFunction
第7次习题用户界面设计一、选择1B11A2A12B3C13A4A14A5D15C6D16C7A17D8C18C9C10A 二、填空题123Opt1(i).captionButton;down;100;或;500;Not或者:
IIf(=True,False,True)或者:
IIf(=false,True,False)或者:
IIf(=-1,0,-1); =True4
第8次习题数据文件一、选择
1C
2B3D4A5D6C7A8D9C10B8
二、填空题
1Output;#12EOF
(1);Close#1;或text13Input;ch;len(mystr)4Forinput;as#2;noteof
(2)5Op1_Click;*3;Caption6;ch$
第9次习题图形操作
选择题123
(1)MouseMoveBDB填空题
(2)True
9
VB作业参考答案(xx年3月)
第1次习题VB程序设计概述一、选择题1A2A3D4C5A6C7C8B9B二、1、在设计阶段利用属性窗口直接设置对象的属性值,程序运行时不能改变;
2、在程序运行阶段通过赋值语句实现,即通过事件触发修改属性。
对象名.属性名=属性值
第2次习题VB可视化编程基础一、选择题1A2D3B4C5A6B7C8B9A10C二、填空
123
第3次习题VB语言基础一、选择题1BH二、123
1
AutoSizeMultiLinePasswordChar2B3C4B5A6B7B8C9B10C11CAbs(x+y)+Z^5/(x*y)/(2*+EXP(X+Y))
三、
1234四、
123456
第4次习题VB控制结构一、选择
chr(int(rnd*4)+65)int(rnd*90)+10xmod5=0orxmod7=010*(xmod10)+x\\10或StrReverse(x)18830306876554;8819VISUALC++Programming1B11D21A2D12A22C3A13A23C4B14B5D15A6B16D7B17B8C18D9A19B10B20A 二、填空
123
2
70Result*xm;t;m三、程序设计题
1.求函数的值。
DimyAsLong,xAsInteger,i%
x=InputBox(\输入X的值:
\或者x=val()IfxElseIfxElseIfxy=x*x 'ory=x^2Else
y=25-xEndIf
Print\
2.计算机:
1+3+5+……+99的值。
DimsumAsLong,i% sum=0
Fori=1To99Step2 sum=sum+i Nexti Printsum
3.从键盘输入一个字符串,统计其中出现”a”和”c”的个数,如输入“abcaabbc”,则”a”的个数为3,”c”的个数为2。
DimstAsString,suma%,sumb%,i% st= Fori=1ToLen(st)
IfMid(st,i,1)=\Then suma=suma+1
ElseIfMid(st,i,1)=\Then sumb=sumb+1 EndIf Nexti
Print\的个数是:
\Print\的个数是:
\
4.从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。
如8的所有因子为1、2、4,因子个数为3个。
3
Dimx%,sum%,i%
x=Val()'或者x=inputbox(\输入一个整数:
\Fori=1Tox-1 '或者fori=1tosqr(x) IfxModi=0Then sum=sum+1 Nexti Print
Printx&\的因子的个数是:
\
5.编写程序,求一字符串的反序串。
'求字符串反序串的方法1:
'每次从后面取一个字符并把它们串起来 DimstAsString,s$ Dimi%
st=
Fori=Len(st)To1Step-1 s=s&Mid(st,i,1) Nexti
Printst&\的反序串为:
\
'求字符串反序串的方法2:
函数 s=StrReverse()
Print&\的反序串为:
\
'求字符串反序串的方法3:
第1个与最后一个字符交换位置,。
。
。
Dimn% n=Len(st)
Fori=1Ton/2 c=Mid(st,i,1)
Mid(st,i,1)=Mid(st,n-i+1,1) Mid(st,n-i+1,1)=c Nexti
Print&\的反序串为:
\
6.输入一个正整数,判断其是否为素数。
参见教材83页,例
7.实现对分数约分的功能。
输入m,n,求m/n约分后的分子和分母分别是多少。
Dimm%,n%,r%,m1%,n1%m=Val()
4
n=Val()
'先求m,n的最大公约数r=mModnDoWhiler0
m=n:
n=r:
r=mModnLoop
PrintText1&\和\的最大公约数为:
\'分子分母进行约分m1=Val()/nn1=Val()/n
Print\约分后的分子为:
\约分后的分母为:
\
8.输入一个之间的十进制正整数,将其转化为8位二进制数,如7转换为00000111。
‘方法1:
DimstAsString,x%,i%,r%x=Val()Fori=1To8
r=xMod2:
x=x\\2:
st=r&stNexti
‘方法2:
DoWhilex0 r=xMod2 st=r&st x=x\\2Loop
DoWhileLen(st)PrintText1&\转换为二进制是:
\
5
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 指导书 课后 习题 答案
![提示](https://static.bingdoc.com/images/bang_tan.gif)