vb实验报告答案全21.docx

1、vb实验报告答案全21实验一问答题：1、答：常见的有visual Basic、C+、Java、SQL。用途特点：（参考课本4-5页）2、答：代码是一行或几行命令。程序是针对某个任务编写的有序代码的集合。软件是程序和文档的集合。它们的关系是：代码 程序 软件3、答：面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象，因此它们都可以被看作一个小型的“机器”，即对象。它能够让人们更简单地设计并维护程序，使得程序更加便于分析、设计、理解。4、答：参考课本第9页5、答：类是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。对象 是类的一个实例，继承了类的属性、

2、方法。控件是具有图形界面的对象，它同样具有属性、方法、事件，是用来设计用户界面的重要元素。属性是对象的性质，用来描述和反应对象特征的参数。事件 响应对象的动作，它发生在用户与程序交互时。如单击控件、鼠标移动、键盘按下。过程指附在该对象上的程序代码，是事件的处理程序。6、答：参考课本12页到17页。实验二问答题：1、答通用属性有：Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。2、答标签label是用来显示信息的，不具有输入功能。 属性有Caption、BackStyle、Alignment、BorderStyle、Aut

3、oSize。文本框用来输入、输出数据，编辑文本。 属性有Text、 Maxlength、 MultiLine、 ScrollBars、 Locked 、 PassWord 。3、答结果为：标签里显示一个“abc”，图片框里显示3行“欢迎您”。4、答要保存2次，分别是工程文件.vbp和窗体文件.frm。实验一：一、选择1.D 2.D 3.B 4.A 5.B 6.C 7.CD 8.D 9.D 10. 编程机制是C、设计方式是B11. A 12.D 13.D 14. C 15. A二、填空1.windows 2. 中断 3.工具箱 4.代码 5.分类6.form2.show 7. 出现语法错误 8.

4、 错 9. 事件 10. 面向对象 11. 工程文件结构及各文件名 12. 工程 13. 设计程序代码 14. 双击窗体 15. vb的安装文件夹 16.属性 17.方法 18.font 19. form_load() 20.对象1. Private Sub Command1_Click() Print Sqr(8), 8 (1 / 3)End Sub2. Private Sub Command1_Click() For i = 100 To 110 Print Sqr(i) Next iEnd Sub3. Private Sub Form_Load() Print Print 郑州大学在前进

5、！End Sub4. Private Sub label_click()Print Label.caption=”蓝天白云绿水青山”End sub实验二：一、选择1.B 2.C 3.B 4.C 5.C 6.C 7.B 8.B 9.D 10. A11. C 12.C 13. C 14. B 15. A16.C 17.B 18.D 19.C 20. C二、填空1. Form_Click() 2. Interval、500 3.vbp .frm 4.left top Height、Width twip 5.picture 6.load 7. locked 8. font Alignment 9. G

6、otFocus() LostFocus() 10. 属性窗口 程序代码1. Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2. Private Sub Command1_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture(d:tu1.jpg)End SubPrivate Sub Command2_Click

7、()Picture1.Visible = TruePicture1.Picture = LoadPicture(d:tu2.jpg)End SubPrivate Sub Command3_Click()Picture1.Visible = False也可以改为：Picture1.Picture = LoadPicture()End Sub3. Private Sub Command1_Click() Label3 = Val(Text1) * Val(Text2)End Sub4. Private Sub Command1_Click() Text2 = Text1End SubPrivate

8、 Sub Command2_Click() Text1 = Text2 = End SubPrivate Sub Form_Load() Command1.Visible = False Command2.Visible = FalseEnd SubPrivate Sub Text1_Change() Command1.Visible = True Command2.Visible = TrueEnd Sub5. Private Sub Form_Load() Image1.Picture = LoadPicture(d:tu3.jpg)End SubPrivate Sub Command1_

9、Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)End实验三：一、选择1.A 2.BC 3.BC 4.A 5.A 6.A 7.BCD 8.D 9.B 10. B 11. B

10、二、判断题不合法的变量： 3. 4. 5. 6. 8. 10. 11. 14.15. 16. 三、1、abs(x+y)2. (3+x*y)23. (-b+sqr(b2-4*a*c)/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x0 or x0 and y0 或者x*y=10 and x=A and x=Z6. left(s,3) 或 mid(s,1,3)操作题：2. Private Sub Command1_Click() Dim n% n = Abs(Val(Text1) Label2 = For

11、mat(n 2, #.000) & Space(2) & Format(Sqr(n), #.000) & Space(2) & Format(n 3, #.000) & Space(2) & Format(n (1 / 3), #.000) 上句的输出也可以用下面的print方式: Print Format(n 2, #.000); Spc(2); Format(Sqr(n), #.000); Spc(2); Format(n 3, #.000); Spc(2); Format(n (1 / 3), #.000)End Sub3. Private Sub Command1_Click() Di

12、m x%, y% x = Int(Rnd * 900 + 100) Print 产生的随机数：; x y = (x Mod 10) * 100 + (x 10 Mod 10) * 10 + x 100 Print 反序数：; Format(y, 000)End SubPrivate Sub Command2_Click() Dim x%, y As String x = Int(Rnd * 900 + 100) Print 产生的随机数：; x y = Trim(Str(x) Print 反序数： & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1)End Sub

13、4. Private Sub Command1_Click() Dim m%, n% Randomize m = Val(Text1): n = Val(Text2) x = Int(Rnd * (n - m) + m) y = Int(Rnd * (n - m) + m) z = Int(Rnd * (n - m) + m) Label3 = m & 到 & n & 之间的3个随机数为: & x & Space(3) & y & Space(3) & zEnd Sub5. Private Sub Command1_Click() Label1.Caption = DateEnd SubPri

14、vate Sub Command2_Click() Label2.Caption = TimeEnd SubPrivate Sub Command3_Click() Label3.Caption = WeekdayName(Weekday(Date)End Sub实验四：一、选择1.C 2.D 3. C 4.D 5.A 6.D 7.B 8.B 9.A 10. C二、填空1. 48.71E-01, -4.8712 2. 关系、逻辑、算术 3. 900，100，mid(s,2,1) 4.m、1,2,3 、print m & 月是第二季度、end select三、程序结果1. X=4 y=132.

15、10操作题：1. 方法一：Private Sub Command1_Click() x = InputBox(请输入弧度数值, 弧度转换, 0) xx = Val(x) a = x * 180 / 3.14 aa = Int(a) b = (a - aa) * 60 bb = Int(b) c = (b - bb) * 60 cc = Format(c, #.000) MsgBox 弧度 & x & 转换为 & aa & 度 & bb & 分 & cc & 秒End Sub方法二：Option ExplicitPrivate Sub Command1_Click() Dim x!, a!, a

16、a%, b!, bb%, c!, cc$ x = Val(Text1) a = x * 180 / 3.14 aa = Int(a) b = (a - aa) * 60 bb = Int(b) c = (b - bb) * 60 cc = Format(c, #.000) Label2 = 弧度 & Text1 & 转换为 & aa & 度 & bb & 分 & cc & 秒End Sub2. Private Sub Command1_Click() Dim x% x = Val(Text1) If x / 400 = x 400 Or x Mod 4 = 0 And x Mod 100 0

17、Then Label2 = Text1 & 年是闰年 Else Label2 = Text1 & 年不是闰年End IfEnd Sub3. Private Sub Command1_Click() Dim x%, y%, z% x = InputBox(输入第一个数) y = InputBox(输入第二个数) z = InputBox(输入第三个数) Print 输入的数是：; x; y; z If x y Then t = x: x = y: y = t If y z Then t = y: y = z: z = t If x y Then t = x: x = y: y = t Print

18、 排序结果是：; x; y; zEnd Sub4. 方法一：Private Sub Command1_Click() x = Val(InputBox(请输入上网时间:) If x -1 Then Select Case x Case Is = 100 fei = x * 1 End Select MsgBox 上网费用为: & fei & 元 End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub方法二：Private Sub Command1_Click()Do x = Val(InputBox(请输入上网时间:, , -1) If x -

19、1 Then Select Case x Case Is = 100 fei = x * 1 End Select zongfei = zongfei & Space(3) & fei MsgBox zongfei, , 上网费用为 Else Exit Do End IfLoopEnd SubPrivate Sub Command2_Click() EndEnd Sub实验五一、选择B C B A C二、填空（1）for x=2 to 10s*(1-1/x)(2) 1 t1E-6(3) j t(4) 5 11 51. Private Sub Command1_Click() For n = 1

20、 To 100 s = s + n Next n Print sEnd SubPrivate Sub Command2_Click() n = 1 Do While n = 100 s = s + n n = n + 1 Loop Print sEnd Sub2. Private Sub Command1_Click()For i = 0 To 20 For j = 0 To 33 If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then Print i, j, 100 - i - j Next jNext iEnd Sub3. Private S

21、ub Command1_Click()n = 0Do If n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Do n = n + 1LoopPrint nEnd Sub4. 已知x,y,z分别是09中的一个数，求x,y,z的值，使得xxz+yzz=532.Private Sub Command1_Click()Dim x%, y%, z%, i%, j%For x = 0 To 9 For y = 0 To 9 For z = 0 To 9 If (x * 100 + x

22、 * 10 + z) + (y * 100 + z * 10 + z) = 532 Then Print x, y, z Next NextNextEnd SubPrivate Sub Command2_Click()For x = 0 To 9 For y = 0 To 9 For z = 0 To 9 If Val(x & x & z) + Val(y & z & z) = 532 Then Print x; y; z Next NextNextEnd Sub5. Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do Whil

23、e x = 0.0001 也可以是 Do Until 1 / (2 * n - 1) Max Then Max = x If x Min Then Min = xNext i aver = s / 20 Print Print max=; Max, min=; Min, aver=; averEnd Sub12. Private Sub Command1_Click()For i = 1 To 4 Print Tab(10 - i); For j = 1 To 2 * i - 1 If j = i Then Print Format(j); Else Print Format(2 * i - j); End If Next PrintNextEnd Sub