vb前七章课后习题参考答案

《vb前七章课后习题参考答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第一章一、√√×√√√×√√×√××√×√×√二、CDDCBADABC三、1.可视2.对象事件3.代码控件4.Proj1.vbp5.Frm1.frm6.编译可执行第二章一、√×××√×√√√√×××√×√√√二、BDACCBADCACDBBBCBBBA三、1.String2.Long43.xxx4.1455.66.37.False8.(xmod10)*10+x109.Int(Rnd*90)+1010.a*bmodc11.log(x)+sin(300)12.constPIassingle=3.141592613.日期14.Int(

2、i)+115.&Alt+Y16.Enabled17.Maxlength1.Text1.setfocus2.Multiline3.Visible4.Alignment5.Autosize第三章一、√×√√××√√××二、ADDCBABABA三、1.Ifx>ythenx=x+y:y=x-y:x=x-y2.同类型的值或表达式3.0或14.True5.06.Enabled四、（见作业3参考答案1、2、3和作业4参考答案1）1.PrivateSubForm_Click()Dimx,yAsSinglex=Val(InputBox("输入x的值

3、","输入"))Ifx>3Theny=x+3ElseIfx>=1Theny=x^2ElseIfx>0Theny=Sqr(x)Elsey=0EndIfPrint"y的值是：";yEndSub2.PrivateSubCommand1_Click()Text1.Visible=FalsePrintTab(20);"欢迎进入"EndSubPrivateSubForm_Load()Text1.PasswordChar="*"Command1.Caption="进入"Command1.Enabled=FalseEndSubPrivateSub

4、Text1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfText1.Text="abc"ThenCommand1.Enabled=TrueElseMsgBox"输入错误",,"提示"EndIfEndIfEndSub3.PrivateSubCommand1_Click()IfCommand1.Caption="显示"ThenPrintSpc(10);"欢迎使用VisualBasic!"Command1.Caption="清除"ElseClsCommand1.Caption="显示"En

5、dIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Command1.Caption="显示"Command2.Caption="退出"EndSub4.DimNAsIntegerPrivateSubCommand1_Click()DimdifAsIntegerdif=Abs(Val(Text1.Text)-N)'PrintNSelectCasedifCase0ms="你猜对了！"Case1To3ms="*"Case4To10ms="**"Case11To

6、50ms="***"Case51To100ms="****"Case101To200ms="*****"Case201To500ms="******"CaseElsems="*******"EndSelectMsgBoxmsEndSubPrivateSubForm_Load()RandomizeN=Int(900*Rnd)+100EndSub第四章一、√√××√×√×√××××二、CCDBBADB三、1.Fori=0to9:b(i)=i:nexti2.Dim数组名()[as数据类型]3.84.Additem5.True6.List

7、1.clear7.文本框列表框8.下拉组合框简单组合框下拉列表框四、1.052.4（输入数据依次为：3，1，0）3.24711164.14916255.WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW6.2343457.8（最大公约数）8.李子苹果橘子葡萄柚子香蕉五、1.q*is=s+p*i/qnexti2.r=0r=mmodn3.j+i-16-(i-1)或7-iprint4.Int(rnd*90)+10i+1to30a(i)>a(j)a(i)mod2<>05.a(i)=mid(str1,i,1)p=ja(

8、i)=a(p)command2.enabled=true6.1to2*i-1command2.enabled=truecommand2.enabled=false7.list1.listcountlist1.removeitemii=i+1六、（见