高等教育出版社申石磊季超VB程序设计课后习题参考答案Word文档下载推荐.docx
《高等教育出版社申石磊季超VB程序设计课后习题参考答案Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《高等教育出版社申石磊季超VB程序设计课后习题参考答案Word文档下载推荐.docx(26页珍藏版)》请在冰豆网上搜索。
2-5
If
BackColor
vbRed
Then
vbYellow
Else
If
2-6
Label1.Left
<
Form1.Width
+
200
-Label1.Left
2-7
Text1.Visible
2-8
Text1_Change()
Text2.Text
2-9
20
FontBold
欢迎来到"
河南大学"
Command3_Click()
End
2-10
r
3.14
2
r
Text1.SetFocus
2-11
Form_Load()
河南大学欢迎您!
Text1.FontName
Text1.FontSize
50
Text1.BackColor
Text1.ForeColor
vbBlue
2-12
Dim
s
As
String
Text1.SelText
Text2.SelText
s
2-13
Label1.Top
>
-Label1.Height
-
100
Form1.Height
3-2
n
Integer
Randomize
Int((90
Rnd)
10)
n
3-3
河南大学环境与规划学院"
Int(71
Rnd
3-4
Hex(Asc(Right(Text1.Text,
1)))
3-5
m
Date
m
3-6
b
Left(Text1,
1)
Right(Text1,
Mid(Text1,
2,
&
3-7
Form_click()
InputBox("
请输入字符"
)
Left(r,
1)
Mid(r,
3,
Right(r,
3-8
Label1.FontSize
40
10
Label1.BackColor
RGB(Rnd
256,
256)
Label1.ForeColor
QBColor(Int(16
Rnd))
3-10
r!
请输入您的工资:
a
\
(r
100
a)
c
50)
d
50
10)
5
e
10
5)
2
f
5
您的工资是:
100元张数:
a
50元张数:
b
10元张数:
c
5元张数:
d
2元张数:
e
1元张数:
f
4-1
p
Single,
Single
Text1
Text2
Text3
(1
r)
^
MsgBox
您的本息是:
Round(s,
2)
4-2
max
min
a!
请输入第一个实数"
b!
请输入第二个实数"
a,
b,
4-3
请输入年份"
Mod
4
0
And
400
您刚刚输入的年份为闰年!
您刚刚输入的年份不是闰年!
4-4
a="
b="
c!
c="
d!
m!
(-b
Sqr(d))
/
(2
a)
n!
X1
;
m,
"
X2="
(-b)
i
Sqr(Abs(-d))
+"
Abs(i)
i"
X2
-"
4-5
x!
x
60
Text2
重考!
ElseIf
70
及格!
80
中等!
90
良好!
优秀!
Text1
4-6
Select
Case
x
Is
70
80
90
Select
4-7
请输入年龄"
30
您的年龄为"
s,
请参加长跑运动"
请参加跳绳运动"
请参加竞走运动"
请参加慢跑运动"
4-8
For
To
Step
n;
20
Then
Print
Next
4-9
1000
3
7
4-10
0:
Do
r%
请输入学生成绩"
1
Loop
Until
-1
学生平均成绩="
(m
(n
4-11
(-1)
(a
1-2+3-4+5-6+…+99-100="
4-12
m%
请输入正整数m(m>
=1)"
阶乘"
n%
请输入正整数n(n>
=m)"
t
1
i
t
+(m+1)!
+…+n!
="
4-13
a%
b%
c%
4-14
500
i;
4-15
Long
Do
While
0.00001
Loop
e的近似值是"
5—1
PrivateSubForm_Click()
Dimi%,x(1To5)AsString
Fori=LBound(x)ToUBound(x)
x(i)=InputBox("
x("
&
i&
"
)"
Nexti
Fori=UBound(x)ToLBound(x)Step-1
Printx(i)
EndSub
5-2
i%,
Array(1,
4,
5,
6,
7,
8,
9,
9
s(i)
s(i);
5-3
Option
Base
x()
x
(1)
x(i)
x(i
x(i);
Next
x(10)
x(i)
x(10)
9
x
(1)
5-4
a(5,
5)
Sum
j
a(i,
j)
Int(Rnd
51
j)
j);
j
Sum
5-5
a()
Max
Integer,
iMax
jMax
Min
iMin
jMin
M
输入M"
N
输入N"
ReDim
a(M,
N)
M
N
900)
a(1,
1):
j):
i:
Max="
Max,
iMax="
iMax,
jMax="
jMax
Min="
Min,
iMin="
iMin,
jMin="
jMin
Erase
5-6
n"
a(n,
n)
5-7
Variant
7
3)
Preserve
7)
or
5-8
Command1_Click(Index
Integer)
Index
Text3
Val(Text1)
Val(Text2)
3
4
6-1
y
z
InputB