vb报告册答案-高等教育出版社-王贺明主编

1.D 2.D 3.B 4.A 5.B 6.C 7.CD 8.D 9.D 10. BC

11. A 12.D 13. D 14. C 15. A

二、填空

1.windows 2. 中断 3.工具箱 4.代码 5.分类

6.form2.show 7. 出现语法错误 8. 错 9. 事件 10. 面向对象 11.工程文件结构 12. 工程 13. 设计程序代码 14. 双击窗体 15. C:\\Program

Files\\Microsoft Visual Studio\\VB98 或者 VB的安装文件夹 16.属性 17.方法 18.font 19. form_load() 20.对象 实验二： 一、选择

1.B 2.C 3. B 4.C 5.C 6.C 7.B 8.B 9.D 10. A

11. C 12.C 13. C 14. B 15. A 16.C 17.B 18.D 19.C 20. C

二、填空

1. Form_Click() 2. Interval、5000 3..vbp .frm 4.left top Height、Width twip 5.picture 6.load 7. locked 8. font Alignment

9. GotFocus() LostFocus() 10. 属性窗口 程序代码 实验三： 一、选择

1.A 2.BC 3.BC 4.A 5.A 6.A 7.BCD 8.D 9.B 10. B 11. B

二、判断题

不合法的变量： 3. 4. 5. 6. 8. 10. 11. 14.15. 16. 三、

1、abs(x+y) 2. (3+x*y)^2

3. (-b+sqr(b^2-4*a*c))/(2*a) 4.sin(30*3.14/180)+exp(2) 四、

1. int(rnd* 71+20) 或int(rnd* 71)+20 2. x<0 and y>0 or x>0 and y<0 或者x*y<0 3. x mod 3=0 or x mod 7=0 或 x/3=x\\3 or x/7=x\\7 4. x>=10 and x<20 5. x>=\"A\" and x<=\"Z\" 6. left(s,3)

实验四： 一、选择

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=13 2. 10

实验五 一、选择

B C B A C 二、填空

（1）for x=2 to 10 s*(1-1/x)

(2) 1 t>1E-6 (3) j t

(4) 5 11 5 实验六 一、选择

B C C C D D D D C A

实验七 一、选择

1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A 二、填空 （1）n！

（2）1+1+2+3+4+……+n （3）n是否是素数 （4）冒泡排序

（5）递归调用产生斐波那契数列 （6）求最大公约数和最小公倍数

第八页编程 2-1

Private Sub Command1_Click()

Label3 = Val(Text1) * Val(Text2) End Sub

Private Sub Command2_Click()

Label3 = Val(Text1) / Val(Text2) End Sub

2-2

Private Sub Command1_Click()

Picture1.Picture = LoadPicture(\"d:\u1.jpg\") End Sub

Private Sub Command2_Click()

Picture1.Picture = LoadPicture(\"d:\u2.jpg\") End Sub

Private Sub Command3_Click() Picture1.Visible = False End Sub

2-5

Private Sub Form_Load()

Image1.Picture = LoadPicture(\"C:\\Documents and Settings\\All Users\\Documents\\My Pictures\\示例图片\\Sunset.jpg\") End Sub

Private Sub Command1_Click() Timer1.Enabled = True End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Image1_Click() Timer1.Enabled = False End Sub

Private Sub Timer1_Timer()

Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End Sub

第11页编程 2-3

Private Sub Command1_Click() Dim 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 Sub

Private 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

Private Sub Form_Load() End Sub

2-4

Private Sub Command1_Click() Dim m%, n% Randomize

m = Val(Text1): n = Val(Text2) x = Int(Rnd * (n - m + 1) + m) y = Int(Rnd * (n - m + 1) + m) z = Int(Rnd * (n - m + 1) + m) Label3 = m & \"到\" & n & \"之间的3个随机数为: \" & x & Space(3) & y & Space(3) & z

End Sub

Private Sub Form_Load() End Sub

2-5

Private Sub Command1_Click() Label1.Caption = Date End Sub

Private Sub Command2_Click() Label2.Caption = Time End Sub

Private Sub Command3_Click()

Label3.Caption = WeekdayName(Weekday(Date)) End Sub

Private Sub Form_Load() End Sub

第十五页 2-1 方法一

Private Sub Command1_Click()

Dim x!, a!, aa%, 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 Sub 方法二

Private Sub Command1_Click()

x = InputBox(\"请输入弧度数值\弧度转换\ 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

2-2

Private Sub Command1_Click() Dim x%

x = Val(Text1)

If x / 400 = x \\ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 Then Label2 = Text1 & \"年是闰年\" Else

Label2 = Text1 & \"年不是闰年\" End If End Sub

2-3 方法二

Private Sub Command1_Click() Dim x%, y%, z%

x = InputBox(\"输入第一个数\") y = InputBox(\"输入第二个数\") z = InputBox(\"输入第三个数\")

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 x, y, z End Sub

Private Sub Form_Load()

End Sub 方法一

Private Sub Command1_Click() Dim x%, y%, z% x = Val(Text1) y = Val(Text2) z = Val(Text3)

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 End If End If

Label1 = x & Space(5) & y & Space(5) & z End Sub

2-4 方法一

Private Sub Command1_Click()

x = Val(InputBox(\"请输入上网时间:\")) If x <> -1 Then Select Case x

Case Is < 10 fei = 25 Case 10 To 50 fei = x * 2 Case 50 To 100 fei = x * 1.5 Case Is >= 100 fei = x * 1 End Select

MsgBox \"上网费用为:\" & fei & \"元\" End If End Sub

Private Sub Command2_Click() End

End Sub

Private Sub Form_Load()

End Sub 方法二

Private Sub Command1_Click() Do

x = Val(InputBox(\"请输入上网时间:\If x <> -1 Then Select Case x Case Is < 10 fei = 25 Case 10 To 50 fei = x * 2 Case 50 To 100 fei = x * 1.5 Case Is >= 100 fei = x * 1 End Select

zongfei = zongfei & Space(3) & fei MsgBox zongfei, , \"上网费用为\" Else

Exit Do End If Loop End Sub

Private Sub Command2_Click() End

End Sub

Private Sub Form_Load() End Sub 2-5

第18页 2-3

Private Sub Command1_Click() n = 0 Do

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 + 1 Loop Print n End Sub]

2-5

Private Sub Command1_Click() x = Val(Text1) y = x * 4 n = 0

Do While x <= y x = x * (1 + 0.1) n = n + 1 Print x Loop

Print x, n End Sub 2-6

Private Sub Command1_Click()

n = Val(InputBox(\"输入计算到第几项:\For i = 1 To n

s = s + (-1) ^ (i + 1) * i Next

Print n, s End Sub

Private Sub Form_Load()-8 End Sub

2-8

Private Sub Command1_Click() Dim s As Double, pi As Double n = 1: s = 0

Do While 1 / (2 * n - 1) >= 0.0001

s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1) n = n + 1 Loop

pi = 4 * s Print pi End Sub

2-9

Private Sub Command1_Click() For n = 100 To 999 k = Trim(Str(n))

If n = Left(k, 1) ^ 3 + Mid(k, 2, 1) ^ 3 + Right(k, 1) ^ 3 Then Print n Next End Sub

2-11

Private Sub Command1_Click() s = 0: Max = 0: Min = 1000 For i = 1 To 20 Randomize

x = Int(Rnd * 50 + 51) Print x;

If x > Max Then Max = x If x < Min Then Min = x s = s + x Next i

aver = s / 20 Print

Print \"max=\"; Max, \"min=\"; Min, \"aver=\"; aver End Sub

Private Sub Form_Load() End Sub

实验一： 一、选择

1.D 2.D 3.B 4.A 5.B 6.C 7.CD 8.D 9.D 10. BC

11. A 12.D 13. D 14. C 15. A

二、填空

1.windows 2. 中断 3.工具箱 4.代码 5.分类

6.form2.show 7. 出现语法错误 8. 错 9. 事件 10. 面向对象 11.工程文件结构 12. 工程 13. 设计程序代码 14. 双击窗体 15. C:\\Program

Files\\Microsoft Visual Studio\\VB98 或者 VB的安装文件夹 16.属性 17.方法 18.font 19. form_load() 20.对象 实验二： 一、选择

1.B 2.C 3. B 4.C 5.C 6.C 7.B 8.B 9.D 10. A

11. C 12.C 13. C 14. B 15. A 16.C 17.B 18.D 19.C 20. C

二、填空

1. Form_Click() 2. Interval、5000 3..vbp .frm 4.left top Height、Width twip 5.picture 6.load 7. locked 8. font Alignment

9. GotFocus() LostFocus() 10. 属性窗口 程序代码 实验三： 一、选择

1.A 2.BC 3.BC 4.A 5.A 6.A 7.BCD 8.D 9.B 10. B 11. B

二、判断题

不合法的变量： 3. 4. 5. 6. 8. 10. 11. 14.15. 16. 三、

1、abs(x+y) 2. (3+x*y)^2

3. (-b+sqr(b^2-4*a*c))/(2*a) 4.sin(30*3.14/180)+exp(2) 四、

1. int(rnd* 71+20) 或int(rnd* 71)+20 2. x<0 and y>0 or x>0 and y<0 或者x*y<0 3. x mod 3=0 or x mod 7=0 或 x/3=x\\3 or x/7=x\\7 4. x>=10 and x<20 5. x>=\"A\" and x<=\"Z\" 6. left(s,3)

实验四： 一、选择

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=13 2. 10

实验五 一、选择

B C B A C 二、填空

（1）for x=2 to 10 s*(1-1/x)

(2) 1 t>1E-6 (3) j t

(4) 5 11 5 实验六 一、选择

B C C C D D D D C A

实验七 一、选择

1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A 二、填空 （1）n！

（2）1+1+2+3+4+……+n （3）n是否是素数 （4）冒泡排序

（5）递归调用产生斐波那契数列 （6）求最大公约数和最小公倍数

第八页编程 2-1

Private Sub Command1_Click()

Label3 = Val(Text1) * Val(Text2) End Sub

Private Sub Command2_Click()

Label3 = Val(Text1) / Val(Text2) End Sub

2-2

Private Sub Command1_Click()

Picture1.Picture = LoadPicture(\"d:\u1.jpg\") End Sub

Private Sub Command2_Click()

Picture1.Picture = LoadPicture(\"d:\u2.jpg\") End Sub

Private Sub Command3_Click() Picture1.Visible = False End Sub

2-5

Private Sub Form_Load()

Image1.Picture = LoadPicture(\"C:\\Documents and Settings\\All Users\\Documents\\My Pictures\\示例图片\\Sunset.jpg\") End Sub

Private Sub Command1_Click() Timer1.Enabled = True End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Image1_Click() Timer1.Enabled = False End Sub

Private Sub Timer1_Timer()

Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End Sub

第11页编程 2-3

Private Sub Command1_Click() Dim 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 Sub

Private 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

Private Sub Form_Load() End Sub

2-4

Private Sub Command1_Click() Dim m%, n% Randomize

m = Val(Text1): n = Val(Text2) x = Int(Rnd * (n - m + 1) + m) y = Int(Rnd * (n - m + 1) + m) z = Int(Rnd * (n - m + 1) + m) Label3 = m & \"到\" & n & \"之间的3个随机数为: \" & x & Space(3) & y & Space(3) & z

End Sub

Private Sub Form_Load() End Sub

2-5

Private Sub Command1_Click() Label1.Caption = Date End Sub

Private Sub Command2_Click() Label2.Caption = Time End Sub

Private Sub Command3_Click()

Label3.Caption = WeekdayName(Weekday(Date)) End Sub

Private Sub Form_Load() End Sub

第十五页 2-1 方法一

Private Sub Command1_Click()

Dim x!, a!, aa%, 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 Sub 方法二

Private Sub Command1_Click()

x = InputBox(\"请输入弧度数值\弧度转换\ 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

2-2

Private Sub Command1_Click() Dim x%

x = Val(Text1)

If x / 400 = x \\ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 Then Label2 = Text1 & \"年是闰年\" Else

Label2 = Text1 & \"年不是闰年\" End If End Sub

2-3 方法二

Private Sub Command1_Click() Dim x%, y%, z%

x = InputBox(\"输入第一个数\") y = InputBox(\"输入第二个数\") z = InputBox(\"输入第三个数\")

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 x, y, z End Sub

Private Sub Form_Load()

End Sub 方法一

Private Sub Command1_Click() Dim x%, y%, z% x = Val(Text1) y = Val(Text2) z = Val(Text3)

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 End If End If

Label1 = x & Space(5) & y & Space(5) & z End Sub

2-4 方法一

Private Sub Command1_Click()

x = Val(InputBox(\"请输入上网时间:\")) If x <> -1 Then Select Case x

Case Is < 10 fei = 25 Case 10 To 50 fei = x * 2 Case 50 To 100 fei = x * 1.5 Case Is >= 100 fei = x * 1 End Select

MsgBox \"上网费用为:\" & fei & \"元\" End If End Sub

Private Sub Command2_Click() End

End Sub

Private Sub Form_Load()

End Sub 方法二

Private Sub Command1_Click() Do

x = Val(InputBox(\"请输入上网时间:\If x <> -1 Then Select Case x Case Is < 10 fei = 25 Case 10 To 50 fei = x * 2 Case 50 To 100 fei = x * 1.5 Case Is >= 100 fei = x * 1 End Select

zongfei = zongfei & Space(3) & fei MsgBox zongfei, , \"上网费用为\" Else

Exit Do End If Loop End Sub

Private Sub Command2_Click() End

End Sub

Private Sub Form_Load() End Sub 2-5

第18页 2-3

Private Sub Command1_Click() n = 0 Do

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 + 1 Loop Print n End Sub]

2-5

Private Sub Command1_Click() x = Val(Text1) y = x * 4 n = 0

Do While x <= y x = x * (1 + 0.1) n = n + 1 Print x Loop

Print x, n End Sub 2-6

Private Sub Command1_Click()

n = Val(InputBox(\"输入计算到第几项:\For i = 1 To n

s = s + (-1) ^ (i + 1) * i Next

Print n, s End Sub

Private Sub Form_Load()-8 End Sub

2-8

Private Sub Command1_Click() Dim s As Double, pi As Double n = 1: s = 0

Do While 1 / (2 * n - 1) >= 0.0001

s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1) n = n + 1 Loop

pi = 4 * s Print pi End Sub

2-9

Private Sub Command1_Click() For n = 100 To 999 k = Trim(Str(n))

If n = Left(k, 1) ^ 3 + Mid(k, 2, 1) ^ 3 + Right(k, 1) ^ 3 Then Print n Next End Sub

2-11

Private Sub Command1_Click() s = 0: Max = 0: Min = 1000 For i = 1 To 20 Randomize

x = Int(Rnd * 50 + 51) Print x;

If x > Max Then Max = x If x < Min Then Min = x s = s + x Next i

aver = s / 20 Print

Print \"max=\"; Max, \"min=\"; Min, \"aver=\"; aver End Sub

Private Sub Form_Load() End Sub