VB课后习题答案

《VB课后习题答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第1章参考答案1．选择题（1）B（2）B2．综合题（1）属性有：蓝色、带有纹路；方法有：踢、按住；事件有：滚动、静止。（2）VB应用程序开发的一般步骤有：①创建用户界面；②设置对象的属性；③编写代码；④程序运行与调试；⑤保存与编译。第2章参考答案1．选择题（1）A（2）C（3）D（4）B（5）A（6）C2．操作题PrivateSubCommand1_Click()Label1.Caption=Text1.TextEndSubPrivateSubCommand2_Click()Label1.Caption=""Text1.Text=""EndSubPriva

2、teSubForm_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)

3、Int(X*100+0.5)/100分析：Int(X*100+0.5)19的作用是将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/45（有改动）答案：3第4章参考答案1．填空(1)TF(2)F(3)HEIGHT>160ANDHEIGHT<165E

4、NDIF(4)SCORE>60、LblSc.caption=、ELSE、LblSc.caption=、ENDIF(5)EXIT(6)21(7)16(8)0、1、>100、Total+Num、Num+22．程序设计题（略）第5章章参考答案1．选择C　C　D　B　D　D　B　C　C　A　B　A　C　B　B2．操作题（1）实现多中选一的功能，通过用图片框和框架来实现单选按钮的分组，方法是，选中图片框或框架后，再在里面绘制单选按钮，另一种方法是将绘制好单选按钮剪切粘贴到图片框或框架中。（2）第一种方法是：在属性面板中通过List属性添加，操作方法是，每输入一项按C

5、tr＋回车。第二种方法是：在代码中动态增加或减少选项，应用AddIitem和RemoveItem来完成。（3）应设置Timer属性，值设置为200，用设置计时器控件的Enabled属性为True或False来控制。（4）Dimtao(1To10)AsStringPrivateSubCommand1_Click()DimStrAsStringFori=1To10Iftao(i)<>""ThenStr=Str&Chr(10)+Chr(13)&tao(i)Next19MsgBox"您共买了："&Str,vbOKOnly,"合计"EndSubPrivateSubF

6、orm_Load()List1.AddItem"铅笔"List1.AddItem"橡皮"List1.AddItem"格尺"List1.AddItem"笔记"List1.AddItem"水性笔"List1.AddItem"小刀"List1.AddItem"钢笔"Fori=1To10Combo1.AddItemi&"件"NextiCombo1.Text="1件"Combo1.Enabled=FalseEndSubPrivateSubList1_Click()Label2.Caption="单价："&Val(List1.ListIndex+1)*1&"元"IfL

7、ist1.Selected(List1.ListIndex)ThenIftao(List1.ListIndex+1)<>""ThenCombo1.Text=Val(Right(tao(List1.ListIndex+1),2))&"件"Combo1.Enabled=TrueLabel1.Caption=List1.Text&Combo1.Texttao(List1.ListIndex+1)=Label1.CaptionElseCombo1.Text="1件"Combo1.Enabled=FalseEndIfEndSubPrivateSubCombo1_Ch

8、ange()IfList1.Selected(List1.List