VB课后习题答案.docx
- 文档编号:3373319
- 上传时间:2022-11-22
- 格式:DOCX
- 页数:23
- 大小:23.82KB
VB课后习题答案.docx
《VB课后习题答案.docx》由会员分享,可在线阅读,更多相关《VB课后习题答案.docx(23页珍藏版)》请在冰豆网上搜索。
VB课后习题答案
第1章参考答案
1.选择题
(1)B
(2)B
2.综合题
(1)属性有:
蓝色、带有纹路;方法有:
踢、按住;事件有:
滚动、静止。
(2)VB应用程序开发的一般步骤有:
①创建用户界面;②设置对象的属性;③编写代码;④程序运行与调试;⑤保存与编译。
第2章参考答案
1.选择题
(1)A
(2)C(3)D(4)B(5)A(6)C
2.操作题
PrivateSubCommand1_Click()
Label1.Caption=Text1.Text
EndSub
PrivateSubCommand2_Click()
Label1.Caption=""
Text1.Text=""
EndSub
PrivateSubForm_Load()
Label1.Caption=""
Text1.PasswordChar="$"
EndSub
第3章参考答案
1.选择题
(1)B、C分析:
(B)3Acd以数字开头;(C)IF是VB的关键字
(2)B分析:
逻辑常量的值只有两个True和False,特别注意”false”是字符串常量。
(3)C分析:
VB表达式不区分大小写。
(4)C分析:
Long是长整型,Byte是字节型,Interge是整型。
2.综合题
(1)a=Int(Rnd*(100))分析:
产生一个区间在[m,n]之间的随机整数,其表达式为Int(Rnd*(n-m+1)+m)
(2)Int(X*100+0.5)/100分析:
Int(X*100+0.5)的作用是将X扩大100倍后,第三位小数小于0.5,则舍掉,大于0.5,则产生进位,取整后就是四舍五入的作用,再除以100,是还原为原值。
(3)
PrivateSubCommand1_Click()
a=Int(99*Rnd+1)
b=Int(99*Rnd+1)
Label1.Caption=a&"+"&b&"=?
"
EndSub
(4)①False②True③8Mod3+3^3/4\5(有改动)答案:
3
第4章参考答案
1.填空
(1)TF
(2)F(3)HEIGHT>160ANDHEIGHT<165ENDIF
(4)SCORE>60、LblSc.caption=、ELSE、LblSc.caption=、ENDIF(5)EXIT
(6)21(7)16(8)0、1、>100、Total+Num、Num+2
2.程序设计题(略)
第5章章参考答案
1.选择
C C D B D D B C C A B A C B B
2.操作题
(1)实现多中选一的功能,通过用图片框和框架来实现单选按钮的分组,方法是,选中图片框或框架后,再在里面绘制单选按钮,另一种方法是将绘制好单选按钮剪切粘贴到图片框或框架中。
(2)第一种方法是:
在属性面板中通过List属性添加,操作方法是,每输入一项按Ctr+回车。
第二种方法是:
在代码中动态增加或减少选项,应用AddIitem和RemoveItem来完成。
(3)应设置Timer属性,值设置为200,用设置计时器控件的Enabled属性为True或False来控制。
(4)
Dimtao(1To10)AsString
PrivateSubCommand1_Click()
DimStrAsString
Fori=1To10
Iftao(i)<>""ThenStr=Str&Chr(10)+Chr(13)&tao(i)
Next
MsgBox"您共买了:
"&Str,vbOKOnly,"合计"
EndSub
PrivateSubForm_Load()
List1.AddItem"铅笔"
List1.AddItem"橡皮"
List1.AddItem"格尺"
List1.AddItem"笔记"
List1.AddItem"水性笔"
List1.AddItem"小刀"
List1.AddItem"钢笔"
Fori=1To10
Combo1.AddItemi&"件"
Nexti
Combo1.Text="1件"
Combo1.Enabled=False
EndSub
PrivateSubList1_Click()
Label2.Caption="单价:
"&Val(List1.ListIndex+1)*1&"元"
IfList1.Selected(List1.ListIndex)Then
Iftao(List1.ListIndex+1)<>""ThenCombo1.Text=Val(Right(tao(List1.ListIndex+1),2))&"件"
Combo1.Enabled=True
Label1.Caption=List1.Text&Combo1.Text
tao(List1.ListIndex+1)=Label1.Caption
Else
Combo1.Text="1件"
Combo1.Enabled=False
EndIf
EndSub
PrivateSubCombo1_Change()
IfList1.Selected(List1.ListIndex)Then
Label1.Caption=List1.Text&Combo1.Text
tao(List1.ListIndex+1)=Label1.Caption
EndIf
EndSub
PrivateSubCombo1_Click()
IfList1.Selected(List1.ListIndex)Then
Label1.Caption=List1.Text&Combo1.Text
tao(List1.ListIndex+1)=Label1.Caption
EndIf
EndSub
(5)
PrivateSubForm_Load()
Combo1.AddItem"宋体"
Combo1.AddItem"新宋体"
Combo1.AddItem"隶书"
Combo1.AddItem"楷体"
Combo1.AddItem"黑体"
Combo1.AddItem"华文行楷"
Combo1.AddItem"华文彩云"
Combo1.AddItem"华文新魏"
Combo1.Text="宋体"
Fori=10To50Step2
Combo2.AddItemi
Nexti
EndSub
PrivateSubCombo1_Click()
Text1.FontName=Combo1.Text
EndSub
PrivateSubCombo2_Click()
Text1.FontSize=Val(Combo2.Text)
EndSub
PrivateSubCombo2_KeyUp(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=13Then
IfVal(Combo2.Text)<5Then
Text1.FontSize=5
Combo2.Text=5
Else
Text1.FontSize=Val(Combo2.Text)
EndIf
EndIf
EndSub
PrivateSubOption1_Click()
Text1.ForeColor=vbBlack
EndSub
PrivateSubOption2_Click()
Text1.ForeColor=vbRed
EndSub
PrivateSubOption3_Click()
Text1.ForeColor=vbYellow
EndSub
PrivateSubOption4_Click()
Text1.ForeColor=vbBlue
EndSub
PrivateSubOption5_Click()
Text1.ForeColor=vbGreen
EndSub
第6章参考答案
1.填空题
(1)静态数组
(2)0、Lbound()(3)20(4)Erase(5)Name、Index
2.编程题
(1)参考代码:
PrivateSubForm_Click()
Dimi,n,a(1To10)AsInteger
Randomize(Timer)
Fori=1To10
a(i)=Int(100*Rnd)
Next
n=1
Fori=2To10
Ifa(n) n=i EndIf Next Print"最大值为";a(n);"位置为";n EndSub (2)参考代码: PrivateSubForm_Click() Dimi,A(1To20),B(1To19)AsInteger Randomize(Timer) Print"数组A为: "; Fori=1To20 A(i)=Int(100*Rnd) PrintA(i); Next Print Print"数组B为: "; Fori=1To19 B(i)=A(i)+A(i+1) PrintB(i); Next EndSub (3)参考代码: PrivateSubForm_Click() Dimi,j,Temp,A(1To10),B(1To10),C(1To20)AsInteger Randomize(Timer) Fori=1To10 A(i)=Int(1000*Rnd) B(i)=Int(1000*Rnd) C(2*i-1)=A(i) C(2*i)=B(i) Next Fori=1To19 Forj=i+1To20 IfC(i) Temp=C(j) C(j)=C(i) C(i)=Temp EndIf Next Next Fori=1To20 PrintC(i); Next EndSub (4)参考代码: PrivateSubForm_Click() Dimi,j,m,n,A(1To5,1To6)AsInteger Randomize(Timer) Fori=1To5 Forj=1To6 A(i,j)=Int(100*Rnd) Next Next m=1 n=1 Fori=1To5 Forj=1To6 IfA(m,n) m=i n=j EndIf Next Next Print"最大值为";A(m,n);"行号为";m;"列号为";n EndSub (5)参考代码: PrivateSubForm_Click() Dimi,j,A(1To4,1To4),B(1To4,1To4)AsInteger DimAdd(1To4,1To4),Subtract(1To4,1To4)AsInteger Randomize(Timer) Fori=1To4 Forj=1To4 A(i,j)=Int(100*Rnd) B(i,j)=Int(100*Rnd) Add(i,j)=A(i,j)+B(i,j) Subtract(i,j)=A(i,j)-B(i,j) Next Next EndSub (6)参考代码: PrivateSubForm_Click() Dimn,i,Temp,a()AsInteger n=Val(InputBox("请输入数组的长度","输入数组长度")) ReDima(n-1)AsInteger Print"原数组: "; Fori=0Ton-1 a(i)=Val(InputBox("请输入数组元素值","输入数据")) Printa(i); Next Print Fori=0ToInt(n/2-1) Temp=a(i) a(i)=a(n-1-i) a(n-1-i)=Temp Next Print"新数组: "; Fori=0Ton-1 Printa(i); Next EndSub (7)参考代码: PrivateSubForm_Click() Dimn,i,j,Temp,num,a()AsInteger n=Val(InputBox("请输入数组的长度","输入数组长度")) ReDima(n)AsInteger Fori=0Ton-1 a(i)=Val(InputBox("请输入数组元素值","输入数据")) Next Fori=0Ton-2 Forj=i+1Ton-1 Ifa(i)>a(j)Then Temp=a(i) a(i)=a(j) a(j)=Temp EndIf Next Next Print"原数组: "; Fori=0Ton-1 Printa(i); Next Print num=Val(InputBox("请输入要插入的数","输入数据")) Fori=n-1To0Step-1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课后 习题 答案