vb练习集.docVIP

1. 单击窗体上的任何控件时窗体显示相应名称。要求字体大小为“小二”。 2、 单击窗体窗体中出现一个蓝色的圆并在窗体标题栏中显示“一个简单的应用程序”，单击恢复按钮时圆与窗体标题栏中的 “一个简单的应用程序”都消失。要求圆尽量位于窗体的中心位置。 提示： f2.Circle (X, Y), R, vbBlue 窗体名.画圆命令（圆心的横坐标，圆心的纵坐标），圆的半径，圆的颜色 f2.Cls 窗体名.清屏命令 3、按下列要求完成设计。 初始窗体如下： 单击窗体后如下： 单击按钮后如下： 单击上课单选按钮后如下： 单击课后单选按钮后如下： 提示： Option1.Visible = True 表示该对象在窗体上可见 Option1.Visible = false 表示该对象在窗体上不可见 Label1.ForeColor = vbRed 表示改变该对象的前景颜色（即显示出来的字体颜色）为红色。 设计四： 4.计一个界面如下的加法器： 要求：在text1和text2中输入任意两个数，单击label5时，在text3中显示两者之和。 5.体的left/top属性 要求：点击按钮窗体按箭头方向在屏幕上移动。 6.练习变量的声明 1）.用Dim语句显式声明变量 形式：Dim 变量名 [AS 类型] 例 Dim intX As integer 2）.隐式声明 未进行上述的声明而直接使用，其类型为 Variant 类型。 建议不使用。 注意: 在通用声明处加 Option Explicit 语句可强制显式声明变量。 在窗体上编辑并运行程序： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer a = 1.45: b = 1.55: c = 0.15: d = 1.05 Print a, b, c, d End Sub 运行的结果为： 思考为什么是这个结果？ 如果在这基础之上加通用声明Option Explicit（如下程序）会出现什么情况？ Option Explicit Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer a = 1.45: b = 1.55: c = 0.15: d = 1.05 Print a, b, c, d End Sub 7.求：在文本框中输入希望改变的窗体的大小和位置，单击“改变”后窗体按输入的数据发生改变，单击“还原”按钮则窗体还原至原来的大小和位置。 Move函数用法 [对象名.]MoveA[,B[,C[,D]]] a代表left，b代表top，c代表width，d代表height ab参数表示object移动的位置，cd参数表示object移动后自己的大小 提示：窗体位置变换前的位置数据要保存好，因为还要以此来还原窗体。 8求：在文本框1中输入半径值，单击任意单选框，则在文本框2中显示对应值。 提示：圆周率使用用户自定义常量。半径、周长、面积变量最好在通用声明中声明为模块变量便于多过程调用。 9.在窗体是建立两个命令按钮Command1和Command2， 窗体的标题栏信息通过属性窗口设置， 其余属性通过代码实现。（有字体、斜体、下划线、字号、可用否等设置，不要遗忘每个细节） 10.一个窗体、四个按钮，功能如下所示： 11.按要求输出文字。 12、运算符与表达式练习： 给出下面程序范例，请按要求设计。 13、 14、 15、 16、 17、 练习8.1 18.设计如下用户登陆界面，输入正确的用户名（你的姓名）和密码(你的学号)方可进入下一个界面（FORM2）,否则提示出错，三次输错将关闭登陆窗口。 19.单击窗口，依次弹出三个输入框，输入任意三个数，完成对三个数按从小到大的排序 20.设计用输入函数输入三角形的三边的长度，先判断能否构成一个三角形，如果能够成请计算出三角形的面积并输出，如果不能请提示用户重新输入三边的长度。 提示： 构成三角形的前提是任意边不能等于或长于另外两边之和。 根据海伦公式 p=（a+b+c）/2, 则三角形面积的平方=p*（p-a）*（p-b）*（p-c） 练习9.3： 税务局收税，规定如下：收入2000元以内免税；收入2000到4000元超出部分纳税5