VB程序设计 第七章课后习题答案

第七章课后习题答案
一、选择题
二、填空题
1、Eixt Function
2、-2 -1 1.23456 -1
3、去掉
4、2007-2-18 18 22:30:56 2 1
5、The Length of 12345 =5
6、m=20 n=10
x=10 y=15
m=20 n=10
x=20 y=10
7、programmeuachnology
8、0 10 Abs1(Num) 100 M=M:Abs1=S
9、Len(A) N/2 Mid(A,N-I+1,1) Mid(A,N-I+1,1)
三、综合题
1、（1）-56
（2）6
（3）2008
（4）0
（5）12
2、（1）2.5
（2）6.5
（3）1
3、（1）Int(89*Rnd+11)
（2）(x mod 10)*10+x\10
（3）Round(X,2)
（4）Right(String1 , 5)
（5）Format(X,”###.##”)
四、设计题
1、
Function s(a As Integer) As Single
s = 0
For i = 1 To a
s = s + 1 / i
Next i
End Function
Private Sub Form_Click()
Print "1+1/2+1/3+…+1/100="; s(100)
End Sub
2、
Dim r
Private Sub pd(a, b, c)
If a + b > c And a + c > b And b + c > a Then
If a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Then r = "该三角形为直角三角形"
Else
r = "该三角形为普通三角形"
Else
r = "不能组成三角形"
End If
End Sub
Private Sub Command1_Click()
pd Val(Text1), Val(Text2), Val(Text3) Text4 = r
End Sub
3、
Function zh(a)
Select Case a
Case 1
zh = "一月January"
Case 2
zh = "二月February"
Case 3
zh = "三月March"
Case 4
zh = "四月April"
Case 5
zh = "五月May"
Case 6
zh = "六月June"
Case 7
zh = "七月July"
Case 8
zh = "八月August"
Case 9
zh = "九月September"
Case 10
zh = "十月October"
Case 11
zh = "十一月November"
Case 12
zh = "十二月December"
Case Else
zh = "您输入的月份不对！"
End Select
End Function
Private Sub Command1_Click()
a = InputBox("请输入月份数：", "输入") Print zh(Val(a))
4、
Private Sub Command1_Click()
a = 0:
b = 0:
c = 0
For i = 1 To Len(Text1)
Select Case Mid(Text1, i, 1)
Case "a" To "z", "A" To "Z"
a = a + 1
Case 0 To 9
b = b + 1
Case " "
c = c + 1
End Select
Next i
5、
Private Sub Command1_Click()
a = InputBox("请输入一个0-1000的数字", "输入") s = 0
If Val(a) < 0 Or Val(a) > 1000 Then
Print "您输入的数字不在指定范围内！"
Else
For i = 1 To Len(Trim(a))
s = s + Val(Mid(a, i, 1))
Next
Print a; "的各位数字和是："; s
End If
End Sub
6、
Function maxmin(a, b, c, d)
If d = 1 Then
If a > b Then maxmin = a Else maxmin = b
If c > maxmin Then maxmin = c
Else
If a < b Then maxmin = a Else maxmin = b
If c < maxmin Then maxmin = c
End If
End Function
Private Sub Command1_Click()
Text4 = maxmin(Text1, Text2, Text3, 1)
Text5 = maxmin(Text1, Text2, Text3, 0)
End Sub
7、
Private Sub Form_Click()
n = InputBox("请输入要打印的三角形图形行数：")
Print n; "行对称三角形"
For i = 1 To n
For k = 1 To 2 * i - 1
Print Tab(2 * n - 1 - 2 * i + 2 * k); "* ";
Next k
Print
Next i
For i = n To 1 Step -1
For j = 1 To n - i
Print " ";
Next j
For k = 1 To 2 * i - 1
Print "* ";
Next k
Print
Next i
End Sub
8、
Private Sub Command1_Click()
Dim r(8, 8) As Integer
Dim max As Integer
For i = 1 To 8
For j = 1 To 8
r(i, j) = Int(100 * Rnd() + 1)
Print Tab(5 * j - 4); r(i, j);
If r(i, j) > max Then max = r(i, j): x = i: y = j
Next j
Print
Next i
Print "最大值是：" & max & ",行号是：" & Str(x) & ",列号是：" & Str(y) End Sub。