《Visual Basic程序设计基础》课后习题参考答案Word文档格式.docx
《《Visual Basic程序设计基础》课后习题参考答案Word文档格式.docx》由会员分享,可在线阅读,更多相关《《Visual Basic程序设计基础》课后习题参考答案Word文档格式.docx(50页珍藏版)》请在冰豆网上搜索。
![《Visual Basic程序设计基础》课后习题参考答案Word文档格式.docx](https://file1.bdocx.com/fileroot1/2023-2/3/d3e1d458-48d7-491f-8e6b-ce35c1c81cde/d3e1d458-48d7-491f-8e6b-ce35c1c81cde1.gif)
FontItalic(True)
命令按钮1
Name(Command1)
确定(&
O)"
命令按钮2
Name(Command2)
结束(&
X)"
过程设计如下:
PrivatesubForm_Click()
Command2.Enabled=False
EenSub
PrivateSubCommand1_Click()
Label2.Visible=False
Label1.Caption=Text1.Text+"
:
欢迎使用"
+Label1.Caption
Text1.Visible=False
Command1.Enabled=False:
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click()
End
程序2.界面设计略,过程设计如下:
PrivateSubCommand1_Click()'
字体变大
Form1.FontSize=Form1.FontSize+3
Form1.Cls:
Print"
欢迎使用VB"
PrivateSubCommand2_Click()'
字体变小
Form1.FontSize=Form1.FontSize-3
PrivateSubCommand3_Click()'
字体加粗
Form1.FontBold=True
PrivateSubCommand4_Click()'
字体不加粗
Form1.FontBold=False
运行时,不得连续、过多次单击“字体变小”按钮,因为当FontSize属性值小于0会产生适时错误。
程序3.界面设计略,过程设计如下(窗体Height值的计量包括标题、边框,而ScaleHeight值仅与窗体有效绘图区域的高度有关):
PrivateSubForm_Load()
Text1.Text="
VisualBasic程序设计"
PrivateSubForm_Resize()
Text1.Top=0:
Text1.Left=0
Text1.Width=Form1.ScaleWidth/2'
用Form1.ScaleWidth效果优于用Form1.Width
Text1.Height=Form1.ScaleHeight/2'
用Form1.ScaleHeight优于用Form1.Height
Command1.Top=Form1.ScaleHeight-Command1.Height
Command1.Left=Form1.ScaleWidth-Command1.Width
第2章程序设计基础
1.√2.×
3.×
4.×
5.√6.×
7.√8.√9.√10.×
1.B2.D3.A4.C5.C6.B7.A8.D9.C10.A
1.String2.43."
aaa"
4.1455.66.37.188.False
9.(xMod10)*10+x\1010.10+Int(Rnd*90)11.a*bModc
12.Log(x)+Sin(3.141593/6)13.ConstPI=3.141592614.日期15.Int(x)+1
程序1.界面设计略,过程设计如下:
方法一、用文本框控件输入圆的半径
DimxAsSingle
x=Text1.Text
Label1.Caption=x*x*3.141593
方法二、用InputBox函数输入圆的半径
DimxAsSingle'
若要求计算结果具有15位有效位数,声明x为Double类型
x=InputBox("
r="
"
输入圆的半径"
程序2.略。
第3章结构化程序设计与数组
3.√4.×
7.×
8.√9.×
10.√
1.A2.D3.C4.C5.D6.B
1.Ifx>
yThent=y:
y=x:
x=t2.IS
3.Fori=0to9:
B(i)=InputBox("
B("
&
i&
"
)="
):
Nexti
4.Dim5.String6.8
四、程序阅读题(写出下列程序的运行结果)
程序1.05程序2.20程序3.2471116
程序4.1491625
程序5.
程序6.
五、程序填空题
1.
(1)q*i
(2)s+p*i/q(3)Nexti
2.
(1)r=0
(2)mModn
3.
(1)i+j-1
(2)7-i(3)Print
4.
(1)10+Int(Rnd*90)
(2)i+1To30(3)a(i)=a(j)(4)a(i)Mod2=1
六、程序设计题
PrivateSubForm_Click()
DimxAsInteger,yAsInteger,zAsInteger
DimmaxAsInteger,middAsInteger,minAsInteger
请输入x的值:
"
y=InputBox("
请输入y的值:
z=InputBox("
请输入z的值:
Ifx>
yThenmax=xElsemax=y
Ifz>
maxThenmax=z
Ifx<
yThenmin=xElsemin=y
Ifz<
minThenmin=z
midd=x+y+z-max-min
Printmax;
midd;
min
DimxAsSingle,yAsSingle
3Then
y=x+3
ElseIfx>
=1Then
y=x*x
0Then
y=Sqr(x)
Else
y=0
EndIf
Printy
程序3.界面设计略,过程设计如下:
DimiAsInteger,jAsInteger
Fori=1To9
Forj=1To9
PrintTab((j-1)*4);
i*j;
Nextj
Print
程序4.界面设计略,过程设计如下:
DimxAsSingle,sAsSingle,tAsSingle
DimiAsInteger,nAsInteger
n=InputBox("
请输入n的值:
t=x/2:
s=t
Fori=3Ton
t=t*x/i
s=s+t
Prints
程序5.界面设计略,过程设计如下:
DimeAsSingle,tAsSingle,iAsInteger
e=2:
t=1:
i=1
Whilet>
=0.0001
i=i+1:
t=t/i:
e=e+t
Wend
Printe
程序6.界面设计略,过程设计如下:
OptionBase1
DimnAsInteger,a(9,9)AsInteger,iAsInteger,jAsInteger
OnErrorGoTok'
下列代码中若出现错误,转到标号为K的语句执行。
请输入n,0<
n<
10"
Fori=1Ton:
a(i,1)=1:
a(i,i)=1:
Forj=2Toi-1
a(i,j)=a(i-1,j-1)+a(i-1,j)
Nextj,i
Fori=1Ton
PrintTab(30-2*i);
Forj=1Toi
PrintSpace(4-Len(Trim(Str(a(i,j)))));
Trim(Str(a(i,j)));
ExitSub
k:
MsgBox"
输入n值小于1或大于10,数组下标超界。
第4章函数与过程
1.×
2.√3.×
8.√
二、填空题
1.按地址传送2.b()AsLong3.64.按值传递5.按地址传递
6.PublicxAsSingle7.StaticxAsInteger8.Form2.y
三、程序阅读题(写出下列程序的运行结果)
程序1.s=2程序2.1程序3.112112122223
s=511
s=9121
1331
14641
四、程序填空题
1.
(1)ByeVal
(2)kModi(3)k=k\i(4)Callpp(i)
2.
(1)a()AaDouble
(2)n-1(3)a(j)<
a(k)
3.
(1)a()AsDouble,nAsInteger
(2)t=t*x(3)f=s
五、程序设计题
PrivateFunctionfsum(x()AsDouble,nAsInteger)AsDouble
DimiAsInteger
fsum=fsum+x(i)
fsum=fsum/n
EndFunction
PrivateSubff(a()AsSingle,nAsInteger)
DimiAsInteger,xAsSingle
Fori=1Ton\2
x=a(n-i+1):
a(n-i+1)=a(i):
a(i)=x
PrivateSubfind(x()AsSingle,mAsbyte,nAsByte,_
xmaxAsSingle,kiAsByte,kjAsByte)
xmax=x(1,1):
ki=1:
kj=1
Fori=1Tom
Forj=1Ton
IfAbs(x(i,j))>
Abs(xmax)Thenxmax=x(i,j):
ki=i:
kj=j
EndSub
第5章常用控件
2.×
4.√5.×
8.√9.√
10.√11.×
12.×
13.√14.√15.×
16.×
17.×
18.√
19.√20.×
21.√22.×
23.√24.×
25.√
1.C2.D3.B4.B5.B6.C7.B8.B9.B10.A
11.D12.C13.B14.B15.A16.D17.B18.B19.B20.A
1.上、下、左、左2.缇、无关3.&
、<
Alt>
+<
Y>
4.Enabled5.MaxLength
6.Text1.SetFocus7.MultiLine8.Visible9.Alignment10.AutoSize
11.ForeColor12.0或113.True14.115.AddItem
16.117.List1.Clear18.文本框、列表框
19.下拉式组合框、简单组合框、下拉式列表框20.Scroll21.Value
22.Change23.定时器不起作用24.Timer25.65535
四、程序阅读题
程序1.116程序2.8
程序3.23451程序4.小,你好!
程序5.您好
34512小李,你好!
欢迎使用VisualBasic!
程序6.李子程序7.y=6程序8.n=1
苹果y=14n=3
橘子n=5
葡萄
柚子
香蕉
1.
(1)a(i)=Mid(str1,i,1)或a(i)=Mid(Text1.Text,i,1)
(2)p=j(3)a(i)=a(p)(4)Command2.Enabled=True
2.
(1)1To2*i–1
(2)Command2.Enabled=True(3)Command2.Enabled=False
3.
(1)Text2.Enabled=False
(2)p=2(3)Printi
(4)Val(Text1.Text)<
2或Val(Text1.Text)<
=1(5)KeyAscii=13
4.
(1)List1.ListCount
(2)List1.RemoveItemI(3)i=i+1
5.
(1)Timer1.Enabled=True
(2)x\3600
(3)(xMod3600)\60或(x-3600*h)\60(4)x=x+1
6.
(1)Label1.Left
(2)Label1.Left=-Label1.Width
程序1.界面设计略,过程设计如下:
IfCommand1.Caption="
显示"
Then
欢迎使用VisualBasic!
Command1.Caption="
清除"
Form1.Cls:
Command2.Caption="
退出"
Text1.MaxLength=1:
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
Label1.Caption=CStr(KeyAscii)
ConstpwdAsString="
123456"
'
预设密码为123456
Cls:
欢迎进入!
进入"
Command1.Enabled=Falsew
Text1.PasswordChar="
*"
IfKeyAscii=13Then
IfText1.Text=pwdThen
m=MsgBox("
口令正确,欢迎进入!
Command1.Enabled=True
口令错误,请重新输入!
DimnumAsInteger,mAsInteger,recAsInteger
出题"
Text1.Enabled=False:
rec=0
Randomize:
num=Int(Rnd*100)+1:
Text1.Enabled=True
Label1.Caption="
Command1.Enabled=False
m=Val(Text1.Text):
rec=rec+1:
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text):
Text1.SetFocus
Ifrec>
10Then
差!
重新开始"
CallForm_Load
Ifm>
numThen
Label1.Caption=Str(m)&
大了!
ElseIfm<
小了!
Ifrec<
5Then
好!
猜对了。
还行!
程序5.界面设计如图10-3所示,过程设计如下:
Command1(0).Enabled=False:
Command1
(1).Enabled=False
Command1
(2).Enabled=False:
PrivateSubCommand1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Clipboard.Clear:
Clipboard.SetTextText1.SelText
Text1.SelText="
请选择要粘贴的位置!
Command1
(2).Enabled=True
Case1
Command1(0).Enabled=False
Command1
(1).Enabled=False:
CaseElse
Text1.SelText=Clipboard.GetText():
Form_Load
粘贴完成!
EndSelect
PrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle)
DimnAsIn