VB设计习.docVIP

程序设计作业 程序设计作业 　 VB 姓名：　 　　　 学号：　　 　　　 班级：　　 　　　 2011年6月27日 注：1. 黑色题号是第一版教材的，红色题号是第二版教材的，只有一个题号的是第一、二版教材的 2. 将运行结果的截图粘贴到题下，并将程序代码也复制到题下。 3．期末打印出来交上来。 4. 每章做出两道题即可，其它题选做。 （4 -1）设计一个计算购书价程序，界面如图所示。要求： 界面上的文字全部为宋体五号字 按图示给文本框取名。为“计算总价（C）”和“退出（X）”按钮设访问键 编写代码，使得运行时焦点定位在DJ文本框中，输入单价后，按Tab键可输入数量。在输入单价和数量后，点击“计算总价（C）”按钮，将计算出的总价钱，先是在文本框ZJ中，单击“退出（X）”按钮结束运行。运行时，计算出的总价为只读，用户不能在界面上修改计算出的总价，且焦点不能定位在ZJ文本框中。 提示：先将文本框中的内容使用Val函数转换后再进行计算。 将ZJ文本框改换成标签，将标签的BorderStyle属性设置为1-Fixed Single，用标签输出计算结果。 文本框DJ 文本框DJ 文本框SJ 文本框SJ 文本框ZJ 文本框ZJ （4 -2）设计一个收款计算程序，界面如图所示。要求： 三个输入文本框依次取名为T1、T2、T3，应付款文本框取名为TRESULT。 运行时焦点在折扣一栏，输入折扣后，按Tab键可输入单价，再按Tab键可输入数量。 单击“计算”按钮计算应付款，应付款内容为只读。 单击“清除”按钮或“ESC”键清除应付款内容， 并将焦点定位在“折扣”一栏，选中“折扣”中的内容，以便修改。 提示：使用以下语句定位焦点并选中文本 T3.SetFocus T3.SelStart = 0 T3.SelLength = Len(T3.Text) 单击“退出”按钮结束执行。 （4 -3）（2-10）设计如图所示界面。运行时按下某命令按钮对文本框中的文字完成相应的设置。其中每按一次“增大”或“缩小”按钮将是文本框中的文字增大或缩小5磅。文本框各属性如下： 字号：.FontSize 下划线： FontUnderline. 删除线：FontStrikethru 粗体：FontBold 斜体：FontItalic （4-5）（3-2）设计见面如图所示，单击“出题”按钮，产生任意两个[1,100]之间的随机正数，单击“计算”按钮，求这两数的和。 （5-2）（5-1）从文本框中输入一个数，单击“判断”按钮判断它能否同时被3、5、7整除，若能整除，则在窗体上显示“能同时被3、5、7整除”，否则显示“不能整除” （5-3）（5-2）用InputBox函数输入三个数，选出其中的最大数和最小数，显示与窗体上。 （5-6）（5-5）使用Select Case语句进行条件判断。用文本框输入学生某门课程的分数后，给出五级评分。评分标准如下： 优 [90,100] 良 [80,90) 中 [70,80) 及格 [60,70) 不及格 [0,60) 如果输入的分数不在[0,100]范围内，则给出错误提示，并将焦点定位在输入分数的文本框，选中其中的文本。 （6-1）（6-6）单击某命令按钮输出3～100之间的所有奇数、奇数之和。将奇数显示与带垂直滚动条的文本框中，奇数之和显示与另一文本框中。 （6-10）（6-12）求1!+2!+3!+…+20!。 （6-12）（6-13）“水仙花数”是指一个3位数，其中各位数的立方和等于该数，如153=1^3+5^3+3^3，编写程序，打印出100～1000之间的所有水仙花数。 （7-2）（9-2）在窗体上先画两个图片框Picture1 和Picture2，在Picture1中方四个选项按钮Option1(0)、Option1(1)、Option1(2)、Option1(3)；设置各个选项按钮的Style属性为1-Graphical，使他们成为按钮的形状；修改各个选项按钮的Caption属性，使他们分别为“宋体”、“楷体”、“黑体”和“隶书”；在Picture2中方四个复选框Check1(0)、Check