VB语言程序设计习题答案

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

1、说明：《VB语言程序设计》一书由电子工业出版社2003年1月出版，其电子讲稿及辅助文件已存放在该出版社网站中，可按照该书《前言》介绍的方法进行下载。《VB语言程序设计》习题参考答案第1章习题一、单选题1．D2．B3．C4．A5．C6.A7．A8．B9．C10．(1)A(2)B二、多选题1．ACDE2．BCDE3．CD4.CE三、填空题1．事件驱动2．解释，编译3．设计，运行，中断4.属性，方法，事件5.Command2_Click6.中央，代码7．MyForm.frm8.(1)Cmd1_Click()(2)Pr

2、int"VB语言程序设计"编程及上机调试1.按要求设置窗体属性2．在窗体上建立一个标签Label1。程序代码如下：PrivateSubForm_Click()Label1.Caption="你单击了窗体"EndSubPrivateSubForm_DblClick()Label1.Caption="你双击了窗体"EndSub3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。PrivateSubCommand1_Click()Dimx

3、AsSinglex=Val(Text1.Text)Text2.Text=15*xEndSub第2章习题一、单选题1．①D，②D2．①A，②C3．A4．B5．B6．B7．C8．D9．B10．B11．A12．A13．B14．A15．B16．A17．B二、多选题1．BD2．CD3．AC4.AD三、填空题1．(1)Sin(50*3.14159/180)(2)(2+x*y)/(2–y*y)(3)a*a–3*a*b/(3+a)(4)x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))2．Int(50+6*Rnd)3

4、．(1)138(2)3(3)214(4)"inchina"(5)70(6)"45"(7)04."系统管理数据库"14编程及上机调试1～3题：按要求完成操作练习。4．PrivateSubCommand1_Click()'"最大化"按钮Form1.WindowState=2'最大化EndSubPrivateSubCommand2_Click()'"还原"按钮Form1.WindowState=0'还原EndSubPrivateSubCommand3_Click()'"最小化"按钮Form1.WindowState=

5、1'最小化EndSub5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。PrivateSubCommand1_Click()DimxAsSingleDimyAsSinglex=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=x*x+y*yEndSub6.在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。PrivateSubComma

6、nd1_Click()DimxAsStringx=Left(Text1.Text,1)+Right(Text1.Text,1)Text2.Text=xEndSub第3章习题一、单选题1．C2．B3．D4．D5．B6．C7．B8．D9．D10．A11．A12．C13．C14．B15．(1)A(2)C16．A17．B18．(1)D(2)B(3)C19．D二、多选题1．AC2．AC3．ABCF三、填空题1.$000,1242．Label1.Caption="a*b="3．Height，Width4．25．Text1.

7、SetFocus6．Multiline,ScrollBars,27．编程技术，程序设计8．PrivateSubText2_Change()´当文本框Text2中的文本内容发生变动时，执行该事件过程Label1.Caption=Text1.Text´把文本框Text1中的文本内容作为标签Label1的标题EndSubPrivateSubText1_GotFocus()´当文本框Text1获得焦点时，执行该事件过程Text1.SelStart=0´选定文本框Text1中的所有文本内容Text1.SelLength

8、=Len(Text1.Text)EndSub编程及上机调试1．在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数)，以及一个命令按钮Command1。PrivateSubCommand1_Click()n=Val(Text1.Text)Randomizex=Int(1+n*Rnd)Label1.C