罗朝盛主编VISUAL-BASIC60程序设计教程(人民邮电出版社第三版)课后习题答案

VB 课后习题答案

二、选择题

1. C

2. B

第2章 习题参考答案

一、判断题

二、填空题

1． 窗体font

2． 不能在代码中设置 3．selstart 4．Locked

5． TabIndex 、0 6．vbModal 或 1

7． Activate 、 Deactivate

8． PictureBox 和Frame -

三、选择题

第3章 习题参考答案

一、思考题

1、double

2、 xyC@abc ， 15eyd ， Is ， #ENDX8[P]

3、变量有 (1) (4) (6) (8)，

常量有 (2)字符串型 (3)逻辑型 (5)字符串型 (7)字符串型 (9)日期型 (10)实型 4、 f

d c

b a

+

+

5、 (1) 26 (2) 3.75 (3) 3

6、写出下列Visual Basic 表达式的值：

(1) False (2) True (3) True (4) False(5) True (6) True (7) False (8) False

7、将下列命题用Visual Basic 布尔表达式表示：

(1) z>x and z>y

(2) abs(a)<=abs(b+2) or a>b+2

(3) p mod q=0 (4) x<-5 or x>-2 and x<2 or x>5

(5) xz or x>z and y

8、写出下列函数的值：

(1) -4 (2) 换行符(3) –3 (4) -1 (5) hello

(6) ello (7) 16 (8) “-459.65”(9) 5

二、填空题

1．整型、长整型、双精度型、双精度型

2．(X mod 10)*10+X\10

3．sin(1/4*3.14)+sqr(x+2*exp(y))/abs(x-y)

4．(a+b)/(c*d-sqr(1-a^2))

5．x mod 5=0 or x mod 9=0

6．False

7．-3 、 2 、-2 、 2

8．CDEF

9．x>0 and y>0 or x<0 and y<0 或x*y>0

10．s>=”A” and s<=”Z” or s>=”a” and s<=”z”

三、选择题

四、编程题

1、

Private Sub Form_Click()

Dim x%, Ten%, hundred%

x = Val(Text1.Text)

Ten = (x \ 10) Mod 10

hundred = x \ 100

Print "百位数是: " & hundred

Print "十位数是: " & Ten

End Sub

2

Private Sub Form_Click()

Dim char As String * 1

Form1.CurrentX = Rnd * Form1.ScaleWidth

Form1.CurrentY = Rnd * Form1.ScaleHeight

char = Chr(Int(Rnd * 16) + 65)

Print char

End Sub

第4章习题参考答案

一、判断题

二、选择题

三、程序阅读

写出下列各段程序执行后的输出结果。

1．78

5786

357864

13578642

2．w=4、w=13、w=135、w=31

3．此题有点错误，修改如下：

是将语句“If k < Asc("A") Then k = k + 26”改为：If k < Asc("A") Or k > Asc("Z") And k < Asc("a") Then k = k + 26 改后的答案：

xyza12 uvw&

4．A

BBB

CCCCC

DDDDDDD

EEEEEEEEE

5．此题的“IF KeyAsci=13 Then”改为“IF KeyAsci i=13 Then”

答案是：129

四、程序填空题

1． (1) Sing=-1

(2) For i=2 to 19

(3) Sing=-Sing

2．(1) Len(oldsen)

(2) Mid(oldsen ,i,1)

(3) Ucase(char)

(4) char

3．

(1) Len(str1)

(2) Length-1

(3) Mid(str1,i,2)

(4) Sum=0

4．

(1)Trim(Str(i))

(2)Trim(Str(i*i))

(3)Right(x2,Len(x1))=x1

5.

(1) last_one = last_two

(2) last_two = this_one

(3) i = i+1

(4) i-1

五、编程题

1．

Private Sub Form_Click()

Dim R1 As Double, R2 As Double 'R1，R2 表示两电阻值

Dim Rp As Double, Rs As Double

R1 = Val(InputBox("输入电阻R1=？"))

R2 = Val(InputBox("输入电阻R2=？"))

Rp = R1 * R2 / (R1 + R2)

Rs = R1 + R2

Rp = Fix(Rp * 1000 + 0.5) / 1000 '保留小数点后3位

Rs = Fix(Rs * 1000 + 0.5) / 1000 '保留小数点后3位

MsgBox "并联电阻是：" & Rp & vbCrLf & "串联电阻是：" & Rs End Sub

2．

Private Sub Form_Click()

Dim N As Long

N = Val(InputBox("请输入年份", "提示框"))

If (N Mod 400 = 0) Or (N Mod 4 = 0 And N Mod 100 <> 0) Then '判断条件Print N & "年是闰年"

Else

Print N & "年不是闰年"

End If

End Sub

3．

Private Sub Form_Click()

Dim a!, b!, c!, s!, x!

a = Val(InputBox("Enter A=?"))

b = Val(InputBox("Enter B=?"))

c = Val(InputBox("Enter C=?"))

If a + b > c And b + c > a And a + c > b Then '如果能构成三角形x = (a + b + c) / 2

s = Sqr(x * (x - a) * (x - b) * (x - c))

Print "S="; s

Else

Print "数据有错,不能构成三角形"

End If

End Sub

4．(此题不适合使用Select语句)

Private Sub Command1_Click()

Dim x As Double, fx As Double

x = Val(InputBox("输入x=?"))

If x < 0 And x <> -3 Then

fx = x * x + x - 6

ElseIf x >= 0 And x < 10 And x <> 2 And x <> 3 Then

fx = x * x - 5 * x + 6

Else

fx = x * x - x - 1

End If

Print "x= "; x; " f(" & x & ")="; fx

End Sub

5．

Dim i As Integer

Dim s As Long, t As Long

t = 1

For i = 1 To 10

t = t * i

s = s + t

Next i

Print " S=" & s

6．

Dim i%, s!, n!, t!, f%

i = 1 '项数

s = 0 '累加和

n = 1 '阶乘

t = 1 '通项

f = 1 '系数

Do While t > 0.000001

s = s + f * t

i = i + 1

n = n * i

t = 1 / n

f = -f '表示符号

Loop

Print "S="; s

7．

'方法一

Private Sub Form_Click()

Dim i As Integer

Dim Hundred As Integer, Ten As Integer, One As Integer '定义百位，十位，个位数

For i = 100 To 999

Hundred = i \ 100 '求百位数

Ten = (i \ 10) - Hundred * 10 '求十位数

One = i Mod 10 '求个位数

If i = Hundred ^ 3 + Ten ^ 3 + One ^ 3 Then '判断是否为素数

Print i & "是水仙花数"

End If

Next i

End Sub

'方法二

Private Sub Form_Click()

Dim i As Integer

Dim Hundred As Integer, Ten As Integer, One As Integer '定义百位，十位，个位数

For Hundred = 1 To 9 '百位数

For Ten = 0 To 9 '十位数

For One = 0 To 9

i = Hundred * 100 + Ten * 10 + One

If i = Hundred ^ 3 + Ten ^ 3 + One ^ 3 Then '判断是否为素数

Print i & "是水仙花数"

End If

Next One

Next Ten

Next Hundred

End Sub

8．

Dim a As Double, x0 As Double, x1 As Double

a = Val(InputBox(“输入a=?”)

x0 = a ' 初值

x1 = 2 / 3 * x0 + a / (3 * x0 * x0) ' 第一次迭代后的值

Do While Abs(x1 - x0) > 0.000001 ' 控制精度

x0 = x1 ' 迭代

x1 = 2 / 3 * x0 + a / (3 * x0 * x0)

Loop

Print “立方根: ”; x1

第5章习题参考答案

一、判断题

二、选择题

三、程序填空

1. Preserve a(n+1)a(i+1)=a(i)a(i+1)=m n+1或Ubound(a)

2. Print

K-1

t = a(k, j): a(k, j) = a(j, k): a(j, k) = t

3．Rnd*100

P=10

P = J

P = 0

四、编写程序

1.

Private Sub Command1_Click()

Dim A() As Integer, N As Integer

Dim i As Integer, M As Integer, t As Integer, k As Integer

N = Val(InputBox("请输入数组的大小N=?"))

M = Val(InputBox("请输入移位次数M=?")) '输入循环次数的大小

If N <= 0 Then Exit Sub

ReDim A(N - 1)

Print "原始数组值"

For i = 0 To N - 1 '给数组赋值

A(i) = Int(Rnd * 100)

Print A(i);

Next i

Print

'移位

For i = 1 To M '循环体完成右移一位，循环完成右移j 位

t = A(N - 1)

For k = N - 1 To 1 Step -1 '循环右移

A(k) = A(k - 1)

Next k

A(0) = t

Next i

'打印右移后的数组值

Print "循环右移" & M & "位后的数组值"

For i = 0 To N - 1

Print A(i);

Next i

Print

End Sub

2.

Const NM = 100

Private Sub Command1_Click()

Dim a(1 To NM) As Single, b(1 To NM) As Integer, max As Integer

Dim i As Integer, j As Integer, k As Integer, t As Integer

For i = 1 To NM '输入100个数值

a(i) = Val(InputBox("请输入a(" & i & ") 的值"))

If Int(a(i)) = a(i) Then '判断是否为整数

k = k + 1 '整数个数加1

b(k) = a(i) '将这个整数存放到数组B

End If

Next i

'选择排择

For i = 1 To k - 1

max = i

For j = i + 1 To k

If b(max) < b(j) Then max = j

Next j

If max <> i Then

t = b(max): b(max) = b(i): b(i) = t

End If

Next i

'打印输出

For i = 1 To k

Print b(i);

If i Mod 5 = 0 Then Print

Next i

End Sub

3.

Private Sub Command1_Click()

Dim a() As Integer

Dim n%, i%, j%

n = Val(InputBox("输入一个整数n=?"))

ReDim a(n)

Form1.Cls

Randomize

Print "产生的30个随机整数:"

For i = 1 To n

a(i) = Int(Rnd * 21) - 10

Print a(i);

If i Mod 10 = 0 Then Print

Next i

Print

'删除数组的相同数据

j = 2

Do While j < n

For i = 1 To j - 1 '查找相同的元素

If a(j) = a(i) Then Exit For

Next i

If i < j Then '如果第i个数与前面的数据相同,删除第i个元素For i = j To n - 1

a(i) = a(i + 1)

Next i

n = n - 1

ReDim Preserve a(n)

Else

j = j + 1

End If

Loop

Print "删除后的数据:"

For i = 1 To n

Print a(i);

If i Mod 10 = 0 Then Print

Next i

End Sub

4.

Private Sub Command1_Click()

Dim a(1 To 50) As Integer, i%, j%, t%, p%, n%, x%

n = 0 '已经产生的元素个数

Randomize

Do While n < 50

x = Int(Rnd * 90) + 10 '产生10~100之间的随机整数 For i = 1 To n

If x = a(i) Then Exit For

Next i

If i > n Then

n = n + 1

a(n) = x

End If

Loop

For i = 1 To 49 ' 使用选择法排序

p = i

For j = i + 1 To 50

If a(p) > a(j) Then p = j

Next j

t = a(p): a(p) = a(i): a(i) = t

Next i

For i = 1 To 50 '打印输出

Print a(i);

If i Mod 10 = 0 Then Print

Next i

End Sub

第6章习题参考答案

一、判断题

二、选择题

三、程序填空题

1.（1）nsp=true

(2) m mod i=0

(3) p1 and p2

(4)p1=nsp(i)

2．（1）number(i,7)

(2) (int n, int m)

(3) number=number*10+m

四、程序阅读

1. a=9 b=4

2．(1) 36

25

16

9

4

1

(2)

1

4

9

9

4

1

3．6

4. 1 4 6

五、编写程序

1.

Public Function fact(x As Integer) As Single '求x!

Dim f As Single, i As Integer

f = 1

For i = 1 To x

f = f * i '累积

Next i

fact = f

End Function

Private Sub Form_Click()

Dim n%, m%, y!

Do

m% = Val(InputBox("m="))

n% = Val(InputBox("n="))

Loop Until m >= n And n >= 0

y = fact(m) / (fact(n) * fact(m - n))

Print y

End Sub

2private sub Insertfun(a%(), y%)

Dim i as integer,n as integer

n=ubound(a)

Redim preserve a(n+1)

For i=ubound(a)-1 to 0 step -1

If y

a(i+1)=a(i)

If i=0 then a(i)=y

Else

a(i+1)=y

exit for

end if

next i

3. '判断是否为回文函数

Private Function Judge(str As String) As Boolean

Dim i As Integer

Judge = True '假设为回文

For i = 1 To Len(str) \ 2 '依次判断对应位置的两个字符，只要有一组不等即不是回文If Mid(str, i, 1) <> Mid(str, Len(str) + 1 - i, 1) Then

Judge = False

Exit Function

End If

Next i

End Function

4.

Private Sub Form_Click()

Dim n%,x!

n = Val(InputBox("n="))

x = Val(InputBox("x="))

Print fe(n, x) '调用求值函数过程

End Sub

'求值函数过程

Public Function fe(n%, x!) As Single

Dim i As Integer, t As Single

fe = 1: t = 1

For i = 1 To n

t = t * x / i 't为通项

fe = fe + t

Next i

End Function

5.。。。。

第7章习题参考答案

一、判断题

二、填空题

1．___Multiline_______

2．____Value______

3．___Selected______、____List______、____0______、___List1.ListCount-1____ 4．下拉式列表框

5．___LargeChange_______、____Value______

6．Shift+Ctrl

7．KeyAscii=0

if KeyAscii>57 OR KeyAscii<48 then KeyAscii=0

三、程序填空

1．Label1.Font = Combo1.Text

Combo2.Text

Label1.FontBold = True

Label1.FontItalic = True

Label1.FontSize = Val(Combo3.Text)

2． List1.List(list1.ListIndex)

list1.RemoveItemList1.ListIndex

List1.AddItem List2.List(List2.ListIndex)

List2.RemoveItem

四、选择题

五、编程题

1．'添加功能

Private Sub cmdAdd_Click()

Dim i%

If Combo1.Text = "" Then Exit Sub

For i = 0 To Combo1.ListCount - 1 '逐个判断是否有与输入内容相同的项目If Combo1.Text = Combo1.List(i) Then Exit Sub '找到相同项目则退出Next i

Combo1.AddItem Combo1.Text '未找到则添加

End Sub

'删除功能

Private Sub cmdDelete_Click()

If Combo1.ListIndex >= 0 Then '是否选中某一项目

Combo1.RemoveItem Combo1.ListIndex '删除选中项目

Else '删除与输入内容相同的项目

For i = 0 To Combo1.ListCount - 1

If Combo1.List(i) = Combo1.Text Then

Combo1.RemoveItem i

End If

Next i

End If

End Sub

'清除

Private Sub Command3_Click()

Combo1.Clear

End Sub

2．

Private Sub Command1_Click()‘产生随机数

Dim i%

Randomize

For i = 1 To 10

List1.AddItem Str(Int(Rnd * 90) + 10)

Next i

List2.Clear

End Sub

Private Sub Command2_Click()‘迁移偶数

Dim i%

i = 0

Do While i <= List1.ListCount - 1

If Val(List1.List(i)) Mod 2 = 0 Then

List2.AddItem List1.List(i)

List1.RemoveItem i

Else

i = i + 1

End If

Loop

End Sub

3．

Private Sub List1_DblClick()

Dim i As Integer

For i = 0 To List2.ListCount - 1 '防止重复点歌

If List2.List(i) = List1.Text Then

Exit Sub

End If

Next i

List2.AddItem List1.Text

End Sub

Private Sub List2_DblClick()

List2.RemoveItem List2.ListIndex

End Sub

第10章习题参考答案

一、判断题

二、选择题

三、填空题

1．窗体控件菜单、下拉菜单、快捷菜单

2．___ShowFont___

3．___打开/另存为、颜色、字体、帮助、打印

4．工程/部件、选中Microsoft Common Dialog Control 6.0

5．___ CommonDialog1.Action =3、CommonDialog1.ShowColor______

6．提示信息、对话框类型、对话框标题

7．Click

8．工具

9．代码窗口、Click

10．相同、正（或大于等于0）

第11章习题参考答案

一、判断题

二、选择题

第12章习题参考答案

一、思考题

略

二、填空题

1____Database____、___Database Management System____

2．___层次____、___网状______、___关系___

3．__一个或多___、___行____、___列____ 。

4．_表类型__、_动态集类型_ 、_快照类型_、_快照类型_

5．_从“学生基本信息”表中查询所有“性别”为“男”的记录.

6．_______Select 姓名，应发工资From工资Where性别= "女"

7．_Insertinto学生成绩(学号，姓名，成绩) Values(0204016，张颖，88)__

8．__Delete * from 学生成绩Where 成绩<60___

9．_DatabaseName______、___Connect__

10．AbsolutionPosition___、__ Data1.Recordset.MoveFirst：Data1.Recordset.Move 5___ 11．RecordCount__

12．_Data1.Recordset.Edit：Data1.Recordset("姓名") = "王军"：_Data1.Recordset.Update_ 13．_Data1.Recordset.Index= "XM"____

14．_Data1.Recordset.Move -6___

15．_Data1.Recordset.FindFirst "姓名= '王颖'"__

16．___DataSource______、____DataField_____

三、选择题