VB教材课后习题答案

<大学程序设计基础-Visual Basic>教材课后习题答案 第1章 一、选择题 1 B 第2章 一、选择题 1 B 11 A

二、填空题

1. rem或’ _ ： 2. “” # # 3. 5x2-3x-2sinA/3 4. 321456 5. 300 三、操作题 1、

程序段：

Private Sub Command1_Click() Dim x As Integer, y As Integer Dim s As Long, c As Long x = Text1.Text y = Text2.Text

s = x * y

c = (x + y) * 2

Label3.Caption = \长方形的面积为\+ Str(s) Label4.Caption = \长方形的周长为\+ Str(c) End Sub

3、

程序段：

Private Sub Command1_Click() Text1.Text = \第一\End Sub

Private Sub Command2_Click() Text1.Text = \第二\End Sub

4、程序代码：

Private Sub Text1_Change() Text1.MaxLength = 10 End Sub 5、程序代码：

1

2 D 3 B 4 C 5 B 6 B 7 D 2 C 12 B 3 B 13 A 4 C 14 A 5 B 6 C 7 A 8 A 9 A 10 A Private Sub Text1_Click()

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text) End Sub

第3章 一、选择题 1 2 D A 二、填空题 1. False

2. B^2-4*a*c else 三、操作题

1．从键盘输入三个值，判断它们能否构成三角形的三个边。如果能构成一个三角形，则计

算三角形的面积。

Dim a As Integer, b As Long, c As Long, s As Single, p As Single a = Val(InputBox(\请输入一个值：\b = Val(InputBox(\请输入一个值：\c = Val(InputBox(\请输入一个值：\

If (a + b > c And a + c > b And b + c > a) Then p = (a + b + c) / 2

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

Print a & \能构成一个三角形,它的面积为:\End If

2．编写程序，任意输入一个整数，判定该整数奇偶性。 Dim n As Integer

n = Val(InputBox(\请输入一个整数：\If n Mod 2 = 0 Then Print n & \是偶数\Else

Print n & \是奇数\End If

3．求一元二次方程的a*x^2+b*x+c=0的根。

Dim a As Integer, b As Integer, c As Integer, delta As Single, x1 As Single, x2 As Single

a = Val(InputBox(\请输入一个整数：\b = Val(InputBox(\请输入一个整数：\c = Val(InputBox(\请输入一个整数：\

delta = b ^ 2 - 4 * a * c If delta = 0 Then x1 = -b / (2 * a)

Print \一元二次方程有两个相等的实根x1=x2=\Else

If delta > 0 Then

x1 = (-b + Sqr(delta)) / (2 * a) x2 = (-b - Sqr(delta)) / (2 * a)

2

3 D 4 B 5 A 6 D 7 B Print \一元二次方程有两个不等的实根x1=\ Else

x1 = (-b) / (2 * a) x2 = Sqr(-delta) / (2 * a)

Print \一元二次方程有两个不等的虚根x1=\& x1 & \& x2 & \& x1 & \& x2 & \ End If End If

4. 任意输入三个数，输出最大数。

Dim a As Integer, b As Integer, c As Integer, max As Integer a = Val(InputBox(\请输入一个整数：\b = Val(InputBox(\请输入一个整数：\c = Val(InputBox(\请输入一个整数：\max = a

If max < b Then max = b End If

If max < c Then max = c End If

Print \最大数是\

5．任意输入三个数，由大到小排序输出。

Dim a As Integer, b As Integer, c As Integer, temp As Integer a = Val(InputBox(\请输入一个整数：\b = Val(InputBox(\请输入一个整数：\c = Val(InputBox(\请输入一个整数：\If a < b Then temp = a a = b b = temp End If

If b > c Then Print a, b, c Else

If a > c Then Print a, c, b Else

Print c, a, b End If End If

第4章 一、选择题 1 2 A 11

3 A 13 4 C 14 5 D 15 3

6 B 16 7 A 8 D 9 B 10 B B 12 D 1. 9

C D C B B 二、填空题 2. 1 2 3 3. 7

4. 100+100；x mod 5=0 5. 6 6. 5 7. * 2 5 15 30 75 16 32 80

三、 编程题

1．键盘输入几个不同的数，将它们从大到小排序。

2．设计程序，求出S=11+（1+2）+（1+2+3）+?+（1+2+3+4+?+N）的值。 Dim i As Integer, sn As Long, s As Long, n As Integer sn = 0

s = 0

n = InputBox(\For i = 1 To n sn = sn + i s = s + sn

Next Print s

运行结果：若n为10，S为220。

3．输入X的值，求S=x-x^3/3!+x^5/5!- ?的前20项的和值。 Dim x As Single, i As Integer, s As Double x = InputBox(\输入X值：\s = x

For i = 1 To 19 p = 1

For j = 1 To 2 * i + 1 p = p * j

Next

s = s + (-1) ^ (i) * x ^ (2 * i + 1) / p Next Print s

运行结果：当X为2时，S为0.91(精确到小数点后两位)

4．勾股定理中3个数的关系是：a+b=c。编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是一个整数组合。

Dim a As Integer, b As Integer, c As Integer, k As Integer For a = 1 To 30

For b = 1 To 30 For c = 1 To 30

If a ^ 2 + b ^ 2 = c ^ 2 Then k = k + 1: Print a, b, c Next Next Next

4

2

2

2

Print k 运行结果：22

5．输出1000以内的完全数。完全数就是它的各个约数之和等于该数本身（如：6=1+2+3，6是完全数）。

Dim i As Integer, j As Integer, a As Integer For i = 2 To 1000 a = 0

For j = 1 To i - 1

If i Mod j = 0 Then a = a + j '判断j是否能整除i，如果能，则a增加j Next j

If a = i Then Print i '判断i是否是完全数，如果是，则输出i Next i 运行结果：6

28

496

6．编程求出所有的水仙花数。水仙花数就是一个三位数，其各位数字立方和等于该数。（如153=13+53+33）。 Dim i As Integer, s As Integer

Dim a As Integer, b As Integer, c As Integer Print \到999所有水仙花数：\For i = 100 To 999

a = i \\ 100 '取百位数

b = i \\ 10 Mod 10 '或 b = i Mod 100 \\10 取十位数 c = i Mod 10 '取个位数

s = a ^ 3 + b ^ 3 + c ^ 3 '水仙花数的判断依据 If s = i Then Print i; Next i

运行结果：100到999所有水仙花数：153 370 371 407

7．编写程序，输出100～300间的所有素数。

Dim i As Integer, j As Integer, c As Integer, k As Integer For i = 100 To 300 For j = 2 To i - 1

If i Mod j = 0 Then Exit For Next

If i = j Then Print i; k = k + 1

s = s + i

If k Mod 10 = 0 Then Print End If Next

Print

Print \～300间总共有\个素数，\和值为\运行结果：

5

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，第一范文网，提供最新IT计算机VB教材课后习题答案 全文阅读和word下载服务。