vb三种基本结构练习题

《vb三种基本结构练习题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、.vb三种基本结构练习题1、计算圆的面积（顺序结构）dimr,s,cassingler=inputbox("输入r的值")s=3.14*r*rc=2*3.14*rprintsprintc2、小明去买电池，2.5元一节，买电池超过10节，超出的部分按八折出售。输入小明买电池的数量，输出小明应付的钱数。（选择语句）dimaasintegerdimqassinglea=inputbox("输入小明买的电池数")ifa>10then  b=25+(a-10)*2.5*0.8  else  b=a*2.5endifprintb3、求1+2+3+4+……+100的和。（循环语句）dim

2、i,sumasintegerfori=1to100 sum=sum+inextiprintsum4、输入数字n，求n！（n!=1*2*3*……*n）（循环语句）dimi,sum,naslongn=inputbox("输入n的值")sum=1fori=1ton sum=sum*inextiprintsum..VB上机练习汇总  1、在窗体上任意位置画一个文本框和一个命令按钮，编写程序，当用户单击命令按钮时，文本框移动到窗体的左上角，并且文本框的大小是原来的2倍。 2、在窗体上任意位置画一个文本框和一个命令按钮，设置窗体的标题属性为“信息窗口”；命令按钮的标题属性为“确定”。编

3、写程序，当用户单击命令按钮时，在文本框中显示“包头师范学院”，要求字体为隶书、加粗、加下划线、字号为20、颜色为红色。 3、在窗体上任意位置画两个命令按钮，分别设置它们的标题属性为：加载图片、显示信息。编写程序，当用户单击第一个命令按钮时，在窗体上加载一幅图片（图片自定）。当用户单击第二个命令按钮时，在窗体上打印信息“包头师范学院“。 4、例1: 在窗体上部设置一个文本框，文本框的下面设置3个命令按钮，其中左边按钮中标有“单击此按钮”，中间按钮中标有“清除”，右边按钮中标有“程序结束”。当程序运行时，用鼠标单击左边按钮时，屏幕上部的文本框中显示“欢迎使用vb6.0”;如果单

4、击中间按钮，则清除文本框中显示的内容；而如果单击右边的按钮，则结束程序。 5、例2    请根据题目要求，设计VB应用程序： 1、在窗体的上方并排分别创建一个标签控件label1和一个文本框控件text1； 要求：①窗体的标题命名为“个人简介”、窗体背景颜色为黄色。      ②标签和文本框中显示的字体为隶书、样式为斜体、字体大小为三号的红色字。 2、在两个控件的下方并排创建两个命令按钮控件command1、command2，分别命名为：“姓名”、“单位”。 3、请编写事件过程代码，使得程序运行时，当鼠标按下“姓名”按钮时，将在标签中显示你的名字；当鼠标按下“单位”按钮时，

5、将在文本框中显示你现在所在的系、级、班。 4、完成以上操作后以V1为窗体名保存在D盘自己的文件夹下 上机练习三1、在窗体上画一个文本框控件，要求运行时在文本框中显示信息“包头师范学院”（form-load事件）。当用户在文本框中选中任意数量的字符时，在窗体上显示所选中的字符数、选中字符数的首字符数及选中的字符内容。2、在窗体上画两个文本框控件，先在属性窗口中删除两个文本框中的初始text属性值。要求当程序运行时，当在文本框1中输入任意一个字符时，同时在文本框2中显示出来，同时也在窗体中显示出来。3、实现“减法器”功能。..  上机练习题(四)1、设a=2, b=3, c=4

6、, d=5,求下列表达式的值： (1)a>b AND c<=d (2)ba(3)ab OR c<=d(5)a>b AND c<=d OR 2*a>c(6)3>2*b OR a=c AND b<>c OR c>d2、将下列数学式子写成vb表达式：(1) cos2(c+d)(2) 5+(a+b)2(3)  cosx(sinx+1)(4)  e2+2(5)  2a(7+b)(6)  8e3n23、写出下列程序的运行结果： (1) printchr$(65)(2) printchr$(97)(3) printAsc(“B”)(4) p

7、rintAsc(“def”)(5) printSqr(2)(6) printsgn(2) 4、写出下列程序的运行结果： 设ab$=”ABCDEF”(1)printLeft(ab$,4)(2)printMid$(ab$,3,4)(3)printRight$(ab$,4)(4)printLen(ab$)(5)printInstr(ab$,”DE”)(6)printInstr(ab$,”de”)5、写出下列程序的运行结果：(1)printnow(2)printday(now)(3)printyear(now)(4)pri