VB课后习题参考答案最全Word格式文档下载.docx
《VB课后习题参考答案最全Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB课后习题参考答案最全Word格式文档下载.docx(66页珍藏版)》请在冰豆网上搜索。
![VB课后习题参考答案最全Word格式文档下载.docx](https://file1.bdocx.com/fileroot1/2022-11/25/8e475c30-6d9c-4f9b-be88-f409ab76bc3b/8e475c30-6d9c-4f9b-be88-f409ab76bc3b1.gif)
第二章
1、
2、
3、S1输入待判断自然数:
N(N>
=2);
S2i=2;
S3判断i是否小于N-1,若不是转S5
S4判断N除以i的余数是否为0,如果不是则i=i+1转S3;
S5判断i是否等于N,若是输出“是素数”,否则输出“不是素数”。
4、S1输入待判断自然数:
N;
S2将N转换成字符S,计算S的长度K;
S3i=1;
S4判断i是否小于K-1,若不是转S6;
S5判断S中的第i位和第K-i+1位是否相等,如果是则i=i+1转S4,如果不是则转S6;
S6判断i是否是中间位数,若是输出“是回文数”,否则输出“不是回文数”。
5、S1输入待判断自然数:
a;
S2i=1;
S3判断i是否小于a-1,若不是转S5
S4判断a除以i的余数是否为0,如果是则保留因子i,否则i=i+1转S3;
S5输出所有因子。
6、
第三章
1、窗体的属性主要分为杂项、外观、行为、字体、位置等五类。
Caption是窗体标题,出现在窗体标题栏的文本内容;
而Name是窗体名称,在程序代码中被作为窗体的标识名。
2、ABDE
4、改变窗口的工作状态会引发Activate事件,改变窗口大小会引发resize事件。
5、forecolor和backcolor属性首先选择系统中的选项,然后在调色板中设置相应的颜色;
font属性设置好以后,在窗体上放置的任何控件都会继承窗体的font属性。
6、C
7、Label、optionbutton、checkbox、commandbutton有caption属性,没有text属性;
text、combobox有text属性,没有caption属性
8、对象的属性可以在设计界面时在属性窗口中和运行中在代码中设置;
属性窗口中的属性列表并没有包括对象的所有属性。
9、picturebox、frame等
10、optionbutton和checkbox。
Optionbox的Value可以取true-选中和false-未选中,checkbox的Value可以取0-未选中,1-选中,2-变灰,表示暂时不能访问。
11、text、commandbutton可以获得焦点。
在设计界面时第一个放在窗体上的文本框或命令按钮将得到焦点。
12、C
13、把Value的值设为2,表示暂时不能访问复选框,点击复选框后就可以访问了,而把enabled属性设为false则是复选框变灰,完全不能访问。
若把一个控件的Visible属性设为false则在程序运行时看不到该控件。
14、用additem来添加列表项,用removeitem删除已有的列表项,用clear删除所有列表项。
15、
16、
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Label2.Font.Italic=True
ElseIfCheck1.Value=0Then
Label2.Font.Italic=False
EndIf
PrivateSubCheck2_Click()
IfCheck2.Value=1Then
Label2.Font.Bold=True
ElseIfCheck2.Value=0Then
Label2.Font.Bold=False
End
PrivateSubOption1_Click()
IfOption1.ValueThenLabel2.Font.Size=12
Label2.Refresh
PrivateSubOption2_Click()
IfOption2.ValueThenLabel2.Font.Size=14
PrivateSubOption3_Click()
IfOption3.ValueThenLabel2.Font.Size=16
PrivateSubOption4_Click()
IfOption4.ValueThenLabel2.Font.Name="
宋体"
PrivateSubOption5_Click()
IfOption5.ValueThenLabel2.Font.Name="
隶书"
PrivateSubOption6_Click()
IfOption6.ValueThenLabel2.Font.Name="
黑体"
17、
18、
第四章
1.B
2.见教材P40-41
3.不对,通用过程也可以存在于窗体模块中
4.见教材P43
5.字符串型常量的界定符是双引号"
,日期型数据的界定符是磅号#。
A、B是字符型,C、D是日期型,E、F不属于任何类型。
6.合法变量名有:
A、C、D(VB中合法变量名只能由字母、数字和下划线构成,并且只能以字母开头)
7.见教材P46
8.
(1)a/(b+c/d)
(2)(sqr(x^2+1)+x)^(1/3)
(3)(2*y)/((a*x+b*y)*(a*x-b*y))(4)1+1/(1+1/m)
(5)(d/3)^(2*x)/2(6)log(y+cos(x)^2)
(7)fabs((exp(x)+sin(x)^3)/(x+y))
(8)log((exp(x*y)+fabs(tan(z)^-1+cos(x)^3))/(x+y-z))
9.
(1)
(2)(A+B)/(A-B)
(3)(4)A*B*C/((D+1)*Y)
(5)(6)(X*Y)^5
10.Ax+y<
10andx-y>
Bx*y>
0andx=fix(x)andy=fix(y)
CA=0XORB=0
DC1+C2+C3>
=255andC1>
90andC2>
90andC3>
80
11.TFFFF
12.BCDE(A会发生溢出的错误)
13.
(1)"
3548"
(2)3548(3)"
(4)3548
(5)"
83"
(6)83(7)"
(8)3548
14.以2为底的X的对数:
log(x)/log
(2)
15.C
16.z=Inputbox("
输入一个数:
"
,"
程序示例"
,1.5)
17.Msgbox"
Z的值1.5大于0"
,48,"
18.
OptionExplicit
ConstPIAsSingle=3.14159
DimaAsSingle,bAsSingle,cAsSingle,areaAsSingle
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)*PI/180'
角度角转换为弧度角
area=a*b*Sin(c)/2
Text4=CStr(Format(area,"
0.00"
))'
使纯小数能出现整数位的0
EndSub
PrivateSubCommand2_Click()
Text1.Text="
Text2.Text="
Text3.Text="
PrivateSubCommand3_Click()
第五章
1.
DimaAsInteger,bAsInteger
a=1:
b=0
DoWhilea<
=5
b=b+a*a
a=a+1
Loop
Printa,b
DimchAsString,iAsInteger
ch="
DEF"
Fori=1ToLen(ch)'
循环的上界不会变
ch=Mid(ch,2*i-1,1)&
Left(ch,Len(ch))
Printch
Nexti
DimpAsInteger,iAsInteger
p=1
Fori=1To5
p=p+(2*i-1)/(2*i+1)
Ifp>
=20ThenExitFor'
跳出循环前执行不到这一句
Printi,p
PrivateSubCommand4_Click()
DimpAsInteger,iAsInteger,nAsInteger
p=2:
n=20
Fori=1TonStepp'
计数循环的初值、终值和步长都不会变
p=p+2
n=n-3
i=i+1
=10ThenExitFor
Printi,p,n
2.
Dimn1AsInteger,n2AsInteger,n3AsInteger
DimiAsInteger,jAsInteger,kAsInteger
Fori=1To10
Forj=1To10
k=Int(Rnd*90+10)
Printk;
Ifk<
=40Then
n1=n1+1
ElseIfk<
=70Then
n2=n2+1
Else
n3=n3+1
Nextj
Print
Print"
小于等于40的数据个数为:
&
n1&
"
个"
大于40小于等于70的数据个数为:
n2&
大于70的数据个数为:
n3&
Cls
3.
DimxAsInteger,yAsInteger
x=Text1.Text
Ifx<
=0Then
y=2-x
ElseIfx<
=2Then
y=x+2
=5Then
y=x^2
y=25-x
Text2.Text=y
Text2="
4.
Fori=1To2
k=Int(Rnd*900+100)
Picture1.Printk;
IfkMod2<
>
0Then
List1.AddItemk
List2.AddItemk
Picture1.Print
5.
DimmAsInteger,nAsInteger,rAsInteger
m=Val(Text1.Text)
n=Val(Text2.Text)
Do
r=mModn
Ifr<
m=n
n=r
ExitDo
Text3.Text=Val(Text1.Text)*Val(Text2.Text)/n
6.
Dimr1AsInteger,r2AsSingle'
r2可能是个很大的数,最好定义成单精度型
DimiAsInteger,kAsInteger
r1=0:
r2=1'
r2一定要初始化为1,否则积为0
k=InputBox("
请输入第"
i&
个数"
)
r1=r1+k
r2=r2*k
Text1=r1
Text2=r2
7.
DimsAsString,s1AsString,s2AsString,iAsInteger
s1=Text1.Text
Fori=1ToLen(s1)
s=Mid(s1,i,1)
Ifs>
="
0"
Ands<
9"
Then
s2=s2&
s
Text2.Text=s2
8.
Text1="
DimnAsInteger,rAsString,sAsString
n=Val(Text1.Text)
Do
r=nMod2
s=r&
n=n\2
LoopUntiln=0'
当商为0时则跳出循环
Text2.Text=s
9.
DimaAsLong,bAsLong,cAsLong
Fora=1To100
Forb=1To100
Forc=1To100
Ifa*a+b*b=c*cThen
List1.AddItema&
"
b&
c
Nextc
Nextb
Nexta
10.
DimiAsInteger,r1AsInteger,r2AsInteger,r3AsInteger
Fori=100To999
r1=i\100
r2=(i\10)Mod10'
或者r2=(imod100)\10
r3=(iMod100)Mod10
Ifr1<
r2Andr2<
r3Then
List1.AddItemi
11.
DimaAsSingle,bAsSingle,cAsSingle
a=0:
b=1
c=(a+b)/2
Iff(a)*f(c)>
a=c
b=c
LoopUntilAbs(b-c)<
=0.00001
Text1.Text=Format(c,"
0.########"
PrivateFunctionf(xAsSingle)AsSingle
f=x^3-x^4+4*x^2-1
EndFunction
第六章
6-1结果为6
7
9
2
5
8
1
3
4
6-2
OptionBase1
DimiAsInteger,tAsInteger
Dima(15)AsInteger
Randomize
Fori=1To15
a(i)=Int(100*Rnd)
Text1=Text1&
Str(a(i))
Fori=1To7
t=a(i)
a(i)=a(16-i)
a(16-i)=t
Text2=Text2&
6-3
Dima(20)AsInteger
DimiAsInteger
Fori=1To20
a(i)=Int(90*Rnd)+10
DimiAsInteger,jAsInteger,fAsBoolean
DimnAsInteger
f=True
Forj=i+1To20
Ifa(i)=a(j)Thenf=False
Iff=TrueThenn=n+1
Text2=n
6-4
DimiAsInteger,jAsInteger,maxAsInteger
DimnAsInteger,wAsInteger,pAsInteger
n=0:
p=i
Forj=1To4
Ifi>
20Thenp=p-20
n=n+a(p)
Ifn>
maxThen
max=n
w=i
Text2=max
Picture1.Printw&
--"
w+4
PrivateSubCo