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

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

ID:15582987

大小:101.50 KB

页数:15页

时间:2018-08-04

vb前七章课后习题参考答案_第1页
vb前七章课后习题参考答案_第2页
vb前七章课后习题参考答案_第3页
vb前七章课后习题参考答案_第4页
vb前七章课后习题参考答案_第5页
资源描述:

《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六、(见

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。