VB课程复习题.doc

设a=2,b=5,c=8,计算下列表达式的值:
(1)Not(a>b) 1
(2) a+b=c And a*b>c 0
(3)a<>b Or c<>b 1
(4) a+c>a+b Xor c>b 0
(5) 3+4\5*6/7 Mod 8>=9 0
:
(1) (2)2x3+sin450
2、答案:1、((-b)+sqr (b*b-4*a*c))/(2*a)
2、2*x*x*x+sin45
:
(1)0~100之间的随机数,包括0和100。
(2)15~35之间的随机数,包括15和35。
3、答案:产生随机数的公式: INT(Rnd*(M-N+1))+N, 产生的随机数范围为:[N,M]
(1)、Int(Rnd*101)
(2)、Int(Rnd*21)+15
()函数显示有关的日期和时间。
Private Sub Form_Click()
T1=#8:30:25AM#
D1=#8/25/2005#
Print Format(D1,"m/d/yy")
Print Format(D1,"mmmm-dddd-yyyy")
Print Format(T1,"h-m-s AM/PM")
Print Format(T1,"hh:mm:-ss A/P")
Print Format(D1,"dddddd")
Print FormatDateTime(Now)
End Sub
4、答案显示结果:
8-25-05
August-Thursday-2005
8-30-25-AM
08:30:-25 A
2005年8月25日星期四
2010-12-29 16:14:30
。
Private Sub Form_Click()
Dim a%, b%
a = 3: b = 6
Print a; b; a + b
Print a, b, a + b
Print "a="; a, "b="; b, " a+b ="; a + b
Print Tab(5); a; Tab(15); b; Tab(25); a + b
Print Spc(5); a; Spc(5); b; Spc(5); a + b
End Sub
5、输出结果:3、6、9
3、6、9
a=3 b=6 a+b=9
3、 6 、 9
3 6 9
,b,c的长度,求三角形的面积。
分析:已知三角形的三条边a,b,c的长度,则可用海伦公式求三角形的面积。即:
s=
其中: p=(a+b+c)
。







6、答案源程序:
Private mand1_Click()
a = Val(())
b = Val(())
c = Val(())
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
() = s
End Sub
,输出该数的颠倒数。例如产生的随机数为123,应输出321。

7、答案源程序:
Private mand1_Click()
a = Int(Rnd * 1012) + 100 '保证输出的是三位数的随机数'
Print "输出的随机数为:"; a
'颠倒顺序'
b = a \ 100
c = (a \ 10) Mod 10
d = a Mod 10
e = d * 100 + c * 10 + b
Print "该随机数的颠倒顺序为:"; e
End Sub
,判断某一年是否为闰年。闰年的条件是:①能被4整除,但不能被100整除的年份。②或能被400整除的年份。
8、答案源程序:
Private mand1_Click()
n = Val(InputBox("输入"))
If n Mod 4 = 0 And n Mod 100 <> 0 Then
Print n; "是闰年"
ElseIf n Mod 400 = 0 Then
Print n; "是闰年"
Else
Print n; "不是闰年"
End If
End Sub
,制定如下随用电量增加而逐级提高电费的收费办法,根据用电量的大小分段计费,。
用电量与收费标准
用电量X(度)
每度电收