VB语言基础编程练习.doc

《VB语言基础编程练习.doc》由会员分享，可在线阅读，更多相关《VB语言基础编程练习.doc（13页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第二章 VB语言基础 编程练习一、编程：1.试分别用块结构语句与Select Case语言实现符号函数。程序参考界面如图2-1所示，属性要求如表2-1所示。图2-1表2-1控件属性名称属性值控件属性名称属性值窗体Caption文本框2NameText标签1Caption命令按钮1NameCaption标签2Caption命令按钮2NameCaption文本框1NameText命令按钮3NameCaption2.编写程序，利用文本框检查用户口令。程序界面如图2-2所示，主要属性如表2-2所示。图2-2表2-2控件属性名称属性值控件属性名称属性值标签1Caption命令按钮1NameCaption

2、文本框1TextPasswordChar命令按钮2NameCaption3.根据学生的考试成绩，只要满足如下条件之一即可给予奖励：（1）所考5门课程的成绩超过450分。（2）每门课程的成绩均在85分以上。（3）前3门课程（主课）的成绩在95分以上，后两门课程（非主课）的成绩都在80分以上。程序界面如图2-3所示。图2-34.小麦税款与粮款的计算程序。编程要求：（1）程序参考界面如图2-4所示，其中Label1对象用于显示“小麦的收购价格是：1.10元/公斤”、“农业税额：55元/亩”等提示信息。编程时不能增加或减少界面对象或改变对象的种类，但界面元素的大小、位置可随意设置。（2）实现以下功能。

3、单击“计算”按钮，可根据输入的小麦数量以及所拥有的土地亩数，求出应缴税款和应得粮款（应得粮款=小麦总金额-应缴税款），并显示在相应的文本框中。图2-4单击“清除”按钮，清除4个文本框中的内容。单击“结束”按钮，结束程序的运行。5.从键盘输入任意3个数，将它们从大到小进行排序。界面如图2-5所示。图2-5编程要求：将需要排序的3个数输入X、Y、Z文本框中，单击“比较”按钮后，中间3个文本框中显示排序后从大到小的3个数，下面3个文本框用于显示在进行交换时中间变量的值。控件的属性可自行确定。6.从键盘输入一个学生的学号与考试成绩，然后输出该学生的学号与考试成绩，并根据成绩，按下面的规定输出对该学生的

4、评语。成绩：85100 6084 5059 4049 039评语：Very Good Good Fair Poor Fail编程要求：（1）程序界面如图2-6所示。图2-6（2）成绩判定采用Select Case语句结构。7.设计一个程序，从键盘输入若干个学生的分数，计算并输出及格、不及格的人数及总平均分。编程要求：单击“输入”按钮时，用输入框输入学生人数与各学生的成绩。在输入成绩时，应提示输入的第几个学生的成绩。输入完毕后，单击“计算”按钮显示计算结果，同时标签上显示有多少个学生参加考试。程序界面如图2-7所示。图2-78.字符类型统计。编程要求：从键盘输入任意字母或数字至文本框中，单击“统

5、计”按钮对其进行分类统计（分别按大小写字母、奇数、偶数进行统计），统计结果显示在4个相应得标签中。界面如图2-8所示。图2-89.打印120之间的数的平方、平方根、自然对数、e指数的数学用表。要求按如图2-9所示的界面输出。图2-910.从键盘输入10个数，打印其中的负数，并分别计算正数的和与负数的和。编程要求：（1）10个数通过输入框函数输入。（2）程序运行时，将正数与负数分别放置在两个文本框中，在文本框的下方分别显示正数的和与负数的和。程序运行界面如图2-10所示。图2-1011.打印九九乘法表(要求只输出下三角)。编程要求：要求程序运行的界面如图2-11所示。图2-1112.设计一个程序

6、，根据输入数组元素的下标输出对应元素的值。编程要求：（1）程序运行后的界面如图2-12所示。（2）数组为二维数组，上、下界由输入框输入。数组元素的值为该元素所在行号与列号的乘积。（3）程序能判断下标值是否正确，若越界则给出错误信息，同时将光标置于“行号”文本框内。图2-1213.有一个nm的矩阵，找出其中最大的元素所在的行和列，并输出其值、列号和行号。编程要求：（1）使用动态数组，n与m的值由用户通过文本框输入。（2）数组的值通过随机函数产生，范围在3200之间。（3）运行后的界面如图2-13所示。图2-1314.编写程序实现矩阵的转置，即将nm矩阵变为mn 矩阵。编程要求： （1）数组可通过

7、随机函数产生。（2）转置前、后的数组分别显示在两个图片框中。（3）程序的运行界面如图2-14所示。15.设计一个简易的记事本，要求能够实现“复制”、“剪切”、“粘贴”、“退出”功能。编程要求：（1）程序的运行界面如图2-15所示。 图2-14（2）运行窗体没有“最大化”、“最小化”按钮，也不可以改变大小。（3）复制、剪切、粘贴可以使用文本框的SelText、SelStart属性。（4）命令按钮采用控件数组。图2-1516.编写一个大奖赛统计选手得分的程序。编程要求：（1）程序参考界面如图2-16所示，其中文本框Text1用于显示得分得情况.。编程时不能增加或减少界面对象或改变对象的种类，但界面

8、元素的大小、位置可随意设置。图2-16（2）单击“得分显示”按钮，可利用随机函数生成15个7099之间的随机整数（可放入数组中）作为某选手的得分，并将其得分添加到文本框中。（3）单击“计算最后得分”按钮，可计算该选手的最后得分，计算方法是去掉一个最高分和一个最低分，然后将剩下的得分求平均，即为该选手的最后得分，并将最后得分显示到相应的文本框中。（4）单击“清除”按钮，清除文本框中所有的内容。二、改错或填充1.个人所得税的计算程序。从2006年1月1日起，个人所得税起征点调整为1600元。设超过1600元的部分为x，x在20000元以下的个人所得税如表2-3所示。税额的计算公式为： 应纳税=x税

9、率-速算扣除数表2-3级数全月应纳税所得额x税率/%速算扣除数1不超过500元5025002000102532000500015125450002000020375“计算”按钮的事件过程是：从键盘输入某人一个月的总收入，计算其应交所得税，并将其显示在相应的文本框中。试将该程序填写完整。程序界面如图2-17所示。Private Sub cmdJs_Click()Dim x As Long,y As LongX=Val(txtSr.Text)-1600If x=0 Then txtSe.Text=”本月不需要交税！”Else Select Case xCase Is =500 y=x*0.05Ca

10、se Is =2000 y= Case Is 2）是否为素数。在窗体上有一个命令按钮cmdJuge，其对应的代码如下，上机验证并修改其中的错误。Private Sub cmdJuge_Click()Dim n As Integern=InputBox(“请输入一个大于2的正整数”)k=n2For i=2 To n If ni=Int(n/i) Then Exit ForNext iIf i=a(j) Then tmp=a(j) a(i)=a(i) a(j)=tmp End If Next jNext iFor i=1 To 10 Print a(i);Next iEnd Sub10.计算表达式

11、： 要求计算精度为第n项的值小于10-5。程序的运行界面如图2-19所示。“计算”按钮的事件过程如下所示，试补充完整。Private Sub cmdJs_Click()Dim x As Integer,n As IntegerDim s As Single,t As Singles=1x=Val(txtX.Text)n=1Do n= t=n*x/xn If Loop 图2-19txtY.Text=sEnd Sub11.密码翻译程序。程序运行界面如图2-20所示。要求输入的原码一律转换为大写字母进行译码，若出现字母以外的其他字符，则显示出错信息。译码规则如表2-4所示。图2-20表2-4原码（输入码）ABCDEXYZ译码（输出码）GHIJKDEF上机验证并改正以下代码：Private Sub cmdTran_Click()Dim x As String, y As StringDim i As Integer,t As Integerx=Ucase(txtIput.Text)i=1Do While i=Len(x) t=Mid(x,i,1) If t90 And t90 Then t=t-26 Else t=t+6 End If End If y=Chr(t) i=i+1LooptxtOutput.Text=yEnd Sub