VB程序设计42402.docVIP

VB程序设计作业 一、数学运算(输入圆的半径，求面积和周长) 答：(单击工具箱中的标签按钮label，建立3个按钮，其名称分别改为“半径”“面积”“周长” (单击工具箱中的文本框按钮text，建立3个文本框 (单击工具箱中的按钮command，建立2个按钮，名称改为“清空”“结束” 编写代码 1.计算面积和周长 r=val(text1.text) text2.text=3.14*r*r text3.text=2*3.14*r 2.清空 Text1.text= “” Text2.text=”” Text3.text= “” 3.结束 End 二、依次输入两个数，进行四则运算 答：(建立3个标签，名称分别改为“输入第一个数”“输入第二个数 ”“计算结果” (建立3个文本框 (建立6个按钮，名称分别改为“加”“减”“乘”“除”“清空”“结束” 编写代码 1. 以加为例：x=val(text1.text) y=val(text2.text) Text3.text=x+y 其余的前两项是相同的，最后一项为 Text3,text=x-y text3.text=x*y text3.text=x/y 在VB设计中，编码不区分大小写。 清空 cls 结束 end 三、设计窗体事件，单击窗体，出现一个圆；单击按钮“同圆”出现一个同心圆，单击“清除”则清屏 答：( 双击窗体，进入代码窗口 注：进入编程状态，可以通过双击对象实现，也可以通过“视图”中的“代码窗口”实现。 (编写代码：form1.circle（1500,1000）,1000 注：在编码时，所用的标点都是在英文状态下输入的。 (建立2个按钮，名称分别改为“同圆”“清除” “同圆”代码：form1.circle（1000,1000）,1000 Form1.circle (1000,1000) ,1500 “清除”代码：cls 四、设计窗体，完成下列操作：单击窗体，在标题中产生“欢迎学习VB”楷体，30号，红色，背景颜色，自动调节大小。 答：添加一个标签,双击窗体,输入 Label1.caption=”欢迎学习VB” Label1.fontsize=30 Label1.fontcolor=vbred Label1.backcolor=vbgreen Label1.autosize=true 五、依次输入两个数，点击“最大值”显示其中最大数，点击“由小到大”按从小到大显示 答：(添加一个command命令按钮，重命名为最大值，双击最大值按钮，输入 代码编辑： 方法1： x=val(text1.text) y=val(text2.text) if xy then print x end if if xy then print y end if 注：if条件句中必须包含有完整的语句。 方法2： x=val(text1.text) y=val(text2.text) if xy then print x else print y end if 方法3（此方法比较重要）：x=val(text1.text) y=val(text2.text) max=x if ymax then max=y end if print max 注：关键是赋值。 (添加一个command命令按钮，重命名为“ 由小到大”,双击进入代码窗口。 输入代码：x=val(text1.text)