VB课程复习题.docVIP

设a=2,b=5,c=8,计算下列表达式的值： （1）Not(ab) 1 （2） a+b=c And a*bc 0 （3）ab Or cb 1 （4） a+ca+b Xor cb 0 （5） 3+4\5*6/7 Mod 8=9 0 2．把下列数学表达式写成VB中的表达式： （1） （2）2x3+sin450 2、答案：1、(（-b）+sqr (b*b-4*a*c))/(2*a) 2、2*x*x*x+sin45 3．用Rnd产生： （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 4．利用Format（）函数显示有关的日期和时间。 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：mmss 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 5．用Print方法在窗体中输出数据。 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 6．已知三角形的三条边a,b,c的长度，求三角形的面积。 分析:已知三角形的三条边a,b,c的长度,则可用海伦公式求三角形的面积。即： s= 其中： p=(a+b+c) 运行界面如图3.8所示。 6、答案源程序： Private Sub Command1_Click() a = Val(Text1.Text()) b = Val(Text2.Text()) c = Val(Text3.Text()) p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Text4.Text() = s End Sub 7．利用随机函数Rnd产生一个三位整数，输出该数的颠倒数。例如产生的随机数为123，应输出321。 7、答案源程序： Private Sub Command1_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 8．编写一个程序，判断某一年是否为闰年。闰年的条件是:①能被4整除，但不能被100整除的年份。②或能被400整除的年份。 8、答案源程序： Private Sub Command1_Click() n = Val(InputBox(输入)) If n Mod 4 = 0 And n Mod 100 0 Then Print n; 是闰年 ElseIf