VB程序设计例题12例.pdfVIP

索引 一、在窗体上画一个文本框，其名称为 Text1 ，Text 属性为空白。再画一个命令 按钮，其名称为 C1，Visible 属性为 False 。编写适当的事件过程。 程序运行后， 如果在文本框中输入字符，则命令按钮出现。 二、计算圆的周长和面积：在窗体中添加一个文本框（ Text1 ）和一个对应的标 签（ Label1 ），再添加两个命令按钮（ Command1和 Command2）和一个图片框 （Picture1 ）。程序运行时，当单击 Command1按钮后，计算圆的周长；当单击 Command2按钮后，计算圆的面积；计算结果输出在图片框中。 （要求在未输入半 径前两个按钮呈灰色不可用。 ） 三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位” 、 “十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【 100，999】区 间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。 四、设计一个计算程序： 在窗体上添加四个文本框和四个对应的标签， 标签的标 题分别是“语文” 、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为 “清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框 中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四 个文本框中（计算结果保留小数点后一位） 。单击退出按钮则程序退出。 五、某税务部门征收所得税，规定如下： （1）收入 200 元以内，免征。 （2 ）收入 在 200~400 元，超过 200 元的部分纳税 3% 。（3）收入超过 400 元的部分，纳税 4%。（4）当收入达 5000 元或超过时， 将 4%税金改为 5% 。编程序实现上述操作。 六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出 的三条边能否构成三角形， 如可以构成， 则计算并输出该三角形的面积， 否则要 求重新输入。当输入 -1 时结束程序。 七、 编程求 100 以内的全部素数。 八、 编程打印钻石图案。 九、 输出杨辉三角形。 十、有一个数组，包含了 10 个不同的随机整数（ 20~90 ），要求计算出它们的平均值，并输 出这个数组中最接近于平均值的数。 十一、 在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标 题不同的命令按钮时，使文体框中文字的字体发生相应的变化。 十二、编程求 1000 以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括 该数本身）。如 28=1+2+4+7+14 就是一个完全数。 一、（P50-2 ）在窗体上画一个文本框，其名称为 Text1 ，Text 属性为空白。再画 一个命令按钮，其名称为 C1，Visible 属性为 False 。编写适当的事件过程。程 序运行后，如果在文本框中输入字符，则命令按钮出现。 要求：存盘时必须存放在“上机题”文件夹下，工程文件名为 vb2-2.vbp ，窗体 文件名为 vb2-2.frm 。程序中不得使用任何变量。 程序清单如下： Private Sub Text1_Change() If Text1 Then C1.Visible = True End Sub 运行效果如下： 二、 （P78-2）计算圆的周长和面积：在窗体中添加一个文本框（ Text1 ）和一个 对应的标签（ Label1 ），再添加两个命令按钮（ Command1和 Command2）和一个图 片框（ Picture1 ）。程序运行时，当单击