Visual Basic程序设计基础习题答案Word文档下载推荐.docx
《Visual Basic程序设计基础习题答案Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《Visual Basic程序设计基础习题答案Word文档下载推荐.docx（50页珍藏版）》请在冰点文库上搜索。
请输入你的姓名"
FontUnderLine（True）
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,S
升级会员 