文档介绍:第五章选择分支与循环
1.
阅读程序,写出执行结果。
(1)
6 55
(2)
运行结果为:
DDEF
EDDEF
FEDDEF
⑶
运行结果为:
6 5
⑷
运行结果为:
11 10 8
编写程序,随机生成100个两位整数,并统计出其中小于等于40、大于40且小于等于 70及大于70的数据个数。
答:程序代码如下:
Option Explicit
Private Sub Form Click()
Dim i As Integer, x As Integer
Dim cl As Irrteger, c2 As Irrteger, c3 As Integer For i = 1 To 100
x 二 Int (Rnd * 90) + 10
Print x;
If i Mod 10 二 0 Then Print
If x <= 40 Then
cl 二
cl + 1
Elself
x <= 70 Then
c2 二
c2 + 1
Else
c3 二
c3 + 1
End If
Next i
Prin t
Print " 〈二40 的数有:〃,cl
Print,z>40 且〈二70 的数有:〃,c2
Print 〃 >70 的数有:〃,c3
End Sub
73
58
62
36
37
79
14
47
87
81
43
96
57
79
14
63
52
36
84
84
63
98
91
30
19
99
70
11
61
19
36
44
37
95
98
46
46
47
74
39
66
28
91
33
80
44
36
92
60
72
92
85
12
58
56
51
41
46
34
15
0Forml
<二40的数有:
>40且<=T0的数有:
>70的数有:
-Inl x|
11
78
83
73
88
15
95
42
66
68
33
35
72
98
31
58
19
81
35
14
35
24
24
68
26
62
17
51
66
66
48
18
92
48
71
55
31
98
15
45
34
35
31
,
求下面函数的值。
2-x
x + 2
x2
25-x
XW0
0vxW2
2vxW5
x>5
Option Explicit
Private Sub Command1_Click()
二
Text2. Text 二”"
Textl. SetFocus
End Sub
Private Sub Command2_Click()
Dim x As Integer
x 二 Vai (Tex tl .Tex t)
Select Case x
Case Is > 5 Text2. Text 二 CStr(25 - x)
Case Is > 2 Text2. Text 二 CStr(x 八 2)
Case Is > 0 Text2. Text 二 CStr (x + 2)
Case Else 二 CStr(2 - x)
End Select
End Sub
,将其中的奇数和偶数分两行显示在窗体上。 答:程序代码如下:
Option Explicit
Option Base 1
Private Sub Form_Click()
Dim a(20) As Integer, i As Integer
Print 〃生成的20个数如下:〃
For i = 1 To 20
a(i) = Int(Rnd * 900) + 100
Print a(i);
If i Mod 10 = 0 Then Print
Next i
For i = 1 To 20
If a(i) Mod 2 = 0 Then List2. Additem a(i)
Next i
For i = 1 To 20
If a(i) Mod 2=1 Then Listl. Additem a(i)
Next i
Prin t
End Sub
T34 580 621 360 STI T9T 1 12 P84 833 T38
1 AO ATS 8T6 811 436 96