《vb教学资料》vb习题参考答案（第5章）

《《vb教学资料》vb习题参考答案（第5章）》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第5章常用控件一、判断题1.X2.X3.X4.75.X6.V7.X8.V9・V10.V11.X12.X13.V14.J15.X16.X17.XV19.V20.X21.V22.X23.V24.X25.V二、选择题1.C2.D3.B4.B5.B6.C7.B8.B9.B10.A11.D12.C13.B14.B15.A16.D17.B1&B19.B20.A三、填空题1.上、下、左、左2•缓（或twip）>无关3.&、+4.Enabled5•MaxLength6.Textl.SetFocus7・MultiLine8.Visible9・Alignment10

2、.AutoSize11.ForeColor12.0或113.True14.115.Additem16.117.Ustl.Clear1&文本框、列表框19.下拉式组合框、简单组合框、•卜拉式列表框20.Scroll21.Value22-Change23.定时器不起作用24.Timer25.65535四、程序阅读题程序1.116程序2.8说明：本题与课本P85第五大题第2小题是同一题目：利用辗转相除法求两数的最大公约数，举例说明如下：a=24,b=32,求两数的最大公约数第1轮循环：r=amodb=24<>0,贝!ja=b(32),b=r(24)第2轮循环：r=am

3、odb=8<>0,贝0a=b(24),b=r(8)第3轮循环：r=amodb=0(结束)，最大公约数为b=8o总结：结束条件为余数20；每一轮循环结束前，更新被除数a二除数，除数b二余数程序3・注意：本题代码有误，原代码如下PrivateSubTextl_KeyPress(KeyAsciiAsIntegerJDimaAsString*1$bAsStringynAsByte^iAsIntegerIfKeyAscii二13Thenb二Text1・Text:n二Len(b)Fori=1Ton2a二Left(K1)：b=Right(b,n-1)+aLabell.Cap

4、tion二Labell.Caption+b+Chr(13)+Chr(10)NextiEndIfEndSub分析：本题先在textl中输入n个字符，按下回车后将textl中字符串的前半部分移到后面,例如“12345”，移动后变成“34512”，即前半部“12”移到后面去了。分为n2次移动,一次移动一个字符。答案为：2345134512程序4.您好欢迎使用VisualBasic!程序5-£FowlT回E兆果子萄密龙子谿莘椅前哈火柑獗子果子萄子蕉李苹橘葡柚香Hi分析：首先将新增项“香蕉”加入Combol（界面左侧）；然后将Combol中名称长度小于3的水果加入到Li

5、stl（界面右侧）。程序6・y=6程序7.n=1n=3五、程序填空题1.(1)a(i)=Mid(strl,i,1)或a(i)=Mid(Textl.Text,i,1)(2)p=j(3)a(i)=a(p)(4)Command2・Enabled二True(3)Command2.Enabled二False3.(1)Text2.Enabled=False(2)p=2(4)Val(Textl.Text)<2或Val(Textl.Text)<=1(3)Listl.Addltemi(5)ExitSub4.(1)Listl丄istCount(2)Listl.RemoveitemI

6、(3)i=i+l5・(1)Timerl・Enabled=True(2)x3600(3)(xMod3600)60或(x-3600*h)60(4)x=x+12.(1)1To2*i-l(2)Command2.Enabled=True6.(1)Labell.Left(2)Labell.Left=-Labell.Width六、程序设计题程序：L界面如图5・40所示，过程设计如下：PrivateSubCommancil_Click()IfCommandl.Caption="显示”ThenPrint"欢迎使用VisualBasic!n:Command1・Caption=

7、”)青除”ElseForml•Cis:Commandl.Caption=’显示“EndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Forml.Cis:Commandl.Caption="显示”：Command2.Caption=”退出”EndSub程序2.界面如图5・41所示，过程设计如下：PrivateSubForm_Load()Textl.MaxLength=1:Text1.Text=11HEndSubPrivateSubTextl_KeyPress(KeyAsciiAsIn

8、teger)Labell