VB程序设计课后习题答案(科学出版社)

同步练习1

二、选择题

01——05 CADAB

06——10 ACDAB

11——15 CBDBB

同步练习2

二、选择题

01——05 ABDCA

06——10 CACBC

11——15 DADAD

16——20 BDBBB

三、填空题

1．可视

2．LEFT、TOP、WIDTH、HEIGHT

3．按字母顺序

4．查看代码

5．工具、编辑器

6．FORM窗体、FONT

7．MULTILINE

8．在运行时设计是无效的

9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0

同步练习3

二、选择题

01——05 BCADB

06——10 ADBBC

11——15 DBCBA

16——20 BAABB

三、填空题

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

2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-19

4．FALSE

5．-4、3、-3、3、-4、4

6．CDEF

7．(X MOD 10)*10+X\10

8．(35\20)*20=20

( 35 \ 20 )* 20 = 20

9．X MOD 3=0 OR X MOD 5=0

10．27.6、8.2、8、1、100、397、TRUE、FALSE

同步练习4

一、选择题

01——05 DBCAD

06——10 CBBAB

11——15 D25BAC

16——20 CBACB

21——25 DAABC

二、填空题

1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1 2 3

3．X>=7

4．X

5．1024

6．11

7．12

8．6、I、”*”;

9．0、100、I+1

10．2*I、6、”*”;

三、编程题

1．编程求n！，n从键盘输入。

Private Sub Form_Click()

Dim n%, s%, i%

n = Val(InputBox("请输入n的值："))

s = 1

For i = 1 To n

s = s * i

Next i

Print n; "!="; s

End Sub

2．编程求100以内的全部质数。

Private Sub Form_Click()

Dim i%, k%, n%, y$

For n = 1 To 100

k = Int(Sqr(n))

For i = 2 To k

If n Mod i = 0 Then Exit For

Next i

If i > k Then

y = y & Str(n)

End If

Next n

MsgBox y, , “显示质数"

End Sub

3．编写程序，计算1+2+…+100的值。

Private Sub Form_Click()

Dim i%, s%

s = 0

For i = 1 To 100

Next i

Print "1+2+3+…+100="; s

End Sub

4．百元买百鸡。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。(采用穷举法)

假设母鸡、公鸡、小鸡各为x、y、z，列出方程为：

x+y+z=100

3x+2y+0.5z = 100

Private Sub Form_Click()

Dim x%, y%, z%

Print "母鸡", "公鸡", "小鸡"

For x = 0 To 33

For y = 0 To 50

z = 100 - x - y

If 3 * x + 2 * y + 0.5 * z = 100 Then

Print x, y, z

End If

Next y

Next x

End Sub

5．给定三角形的3条边的边长，计算三角形的面积。编写程序，首选判断的3条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。

Private Sub Form_Click()

Dim a%, b%, c%, s!, p!

Do Until a = -1 Or b = -1 Or c = -1

a = Val(InputBox("a="))

b = Val(InputBox("b="))

c = Val(InputBox("c="))

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 "s="; s

End If

Loop

End Sub

6．编程打印如下图所示的数字金字塔。

Private Sub Form_Click()

Dim i%, j%

For i = 1 To 8

Print Tab(9 - i);

For j = 1 To 2 * i - 1

Print Trim(Str(i));