loading?如果Form2被关闭，则设置Form1的按钮BtnShowFrm2不可用。 frm1.BtnShowFrm2.Enabled = False frm1.Show() End Sub End Class
第3章 简单Visual Basic .NET程序设计
编程题：
1、 见P74页 3.7题 程序：
2、见P74页 3.8题
程序：
第4章 编程基础（顺序结构部份）
一、单选题 1、合法常量有:
(1)Single (3)Single (4)Double (7)String (9)Date (10) Double (12)八进制的整型 (13) 八进制的整型 (14) 十六进制的整型 (15)Boolean (18)Single 2、合法变量:
(1) (2) (6) (9) (10) (11) 3、(1)abs(x+y)+z^5
(2)(1+x*y)^6
(3)(10*x+sqr(3*y))/(x*y)
(4)sin(45*3.1415926/180)+(exp(10)+log(10))/sqr(x+y+1) 4、(1)chr$(67) and chr$(76)
(2)int(rnd*101)+100
(3)int(x/5) =x/5 or int(x/7)=x/7 (4)略
(5)int(x*100+0.5)/100 (6)略 (7)略
(8)x>=10 and x<20 (9)x
5、写出下列表达式的值：
(1)188 (2)200100 (3)68.56 (4)876543 (5) 6 6、答：单精度类型。
7、答：Val函数；IsNumeric()函数；可以用left、right、mid函数；Ucase、Lcase函数。
8、答：MsgBox返回所按按钮的值是整型数据，InputBox输入的值返回是字符型。 二、选择题
1～5、BC(A和D)DB 6～10、ADBCDC 11～15、BCBCA
16、C 三、填空题
1、整型，长整型，单精度型，双精度型 2、(87 mod 10)*10+87\\10
3、sin(15*3.1415926/180)+sqr(x+exp(3))/abs(x-y) 4、(a+b)/(1/(c+5)-c*d/2)
5、int(x/5)=x/5 or int(x/9)=(x/9) 6、false
7、-4， 3， -3， 3， -4， 4 8、CDEF
9、Ucase(s) or Lcase(s) 四、书上P110页 4.10题
(1)ABCD (2)HIJK (3)CDEF (4)DEFGHIJK (5)11 (6)5 (7)ghijk (8)9
第5章 数据输入输出
编程题
1．利用InputBox输入三角形三条边的长度a，b，c，计算并显示三角形的面积。公式为：
面积=s(s?a)(s?b(s?c)， 其中s=(a+b+c)/2
程序：
2、 InputBox输入一个正实数，用Debug方法或者Console方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数，数据之间有间隔。 试一试，用MsgBox函数或MsgBox语句输出。 程序:
3、书上P133页 5.2题 程序：
第7章 Visual Basic .NET控制结构与过程（选择结构部份）
一、选择题：
1.B 2.A 3. C 4.A 5. D 6. A 7. D 8. D 二、填空题
1、7 2、分别统计由文本框1输入的数据中奇数的和、偶数的和，奇数放入M和偶数放入N变量中。 3、(1) chr(keyascii) KeyAscii转换成字符 (2)chr(keyascii)
(3)count1=count1-1 遇到右括号,括号数减1 (4)count1=0 括号数配对 (5)count1>0 左括号等于右括号, 多于
4、(1)UCase(chr(e.KeyChar)) (2)C (3)”A”,“E”,”I”,”O”,”U” (4)Else (5) e.KeyChar=Chr(13)
三、编程题：
1． 输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。若能，
还要显示三角形的性质：等边三角形、等腰三角形、直角三角形、任意三角形。 程序：
2．输入一年份，判断它是否为闰年，并显示有关信息。判断闰年的条件是：年份能
被4整除但不能被100整除，或者能被400整除。
程序：
3、见书P200页 7.4题 程序：
第7章Visual Basic .NET控制结构与过程（循环结构部份） 选择题： 填空题：
一、 二、
2、10
1～5、ABBCB
1、33 根据计算循环次数公式而定 int[（终值-初值）/步长值] +1=20 3、（1）4次 （2）12次
4、si=2,sj=3,sk=2,I=3,j=3,k=4 5、2 20 3 21
4 22 5 23
6、(12)13 -16
7、(13) len(a) (14) n (15)N-I+1 （16）C
8、(17) n mod 3=1 and n mod 5=1 and n mod 7=1 (18) until CountN n=5 9、X=10100 程序功能是：将给定的数值经过处理后变成对应的ASCII字符串。
三、编程题
1、有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，问这个阶梯有多少阶?
[提示]利用其肯定是7的倍数这个条件，然后根据同时满足除n余m(n=2，3，4，5，6；m=1，2，3，4，5)的逻辑关系即可。
程序：
2．一个球从100m高度自由下落，每次落地后反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少米?落地10次反弹高度多少? 程序:
Private Sub BtnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
n = 0 s =100 i = 100
ListBox1.Items.Add( \次数\每次跳过的高度：\小球跳跃经过的米数：\ Do n = n + 1 s = s + i
ListBox1.Items.Add( n & space(10) & I & space(20) & s) i = i - i / 2 Loop Until n = 10
ListBox1.Items.Add( \
ListBox1.Items.Add( \落地10次过反弹的高度\ I & \第10次小球经过的米数：\End Sub
4、编写程序，用近似公式：
?4?1?13?15?17+…+(-1)n-1
12n?1, 求π近似值，直到最后一项的绝对值小于10-4
为止。
程序：
5、求S=1+(1+3)+(1+3+5)+(1+3+5+7)+……+99的和。
程序:
6、求S=2+22+222+……+2…2的和。 共20个项
程序:
7、设计一个程序，求任意一个十进制整数N的各个位数之和，设M（M=4）为N的位数。
例如：8563=》8+5+6+3=22
程序:
8、见书P201页 7.14题 程序：
9、见书P201页 7.16题，假定有下面程序段： 程序：
第7章Visual Basic .NET控制结构与过程(过程部份习题)
一、选择题
1～5:CBDB(因为调用n后，过程执行完毕, 将值返回调用过程，所以不能采用c)D 6～10:CAD（f1是递归函数）CB 二、填空题
1、(1) 1 4 4 (2)用递归函数实现将十进制转换成r进制 2、(1)6 (2)用辗转相除法求m,n的最大公约数 三、程序设计