VB小程序代码实例

1、1. 打印负数并分别计算正负数只和：有如下 10 个数：-2，73，82，-76，-1，24，321， -25，89，-20(也可以定位其他数值) 打印出其中的每个负数，分别计算并输出正数和负数的和。程序如下：sub form_click() dim number as integer negativesum=0:postivesum=0 for i=1 to 10 number=inputbox(enter data: ) if number10 then goto 100 i=p*r p=p+i t=t+1 goto again 100 print p end sub 说明：这里的“aga

2、in： ”是标号，“100”是行号。6. 交换两个列表框的项目交换两个列表框的项目。其中一个列表框的项目按字母升序排列，另一个列表框的项目按项目加入的先后顺序排列。当双击某个项目时，该项目从列表框中消失，并出现在在另一个列表框中：private sub form_load() list1.fontsize=14 list2.fontsize=14 list1.additem ibm list1.additem compad list1.additem hp list1.additem fuji list1.additem digital list1.additem 长城 list1.addit

3、em 联想 list1.additem canon list1.additem 四通 list1.additem acer list1.additem nec list1.additem ncr end sub private sub list1_dbclick() list2.additem list1.text list1.removeitem list1.listindex end sub private sub list2_dbclick() list1.additem list2.text list2.removeitem list2.listindex end sub 7. 交换图

4、片交换两个图片框中的图形：在窗体上建立三个图片框picture1、picture2、picture3，其中两个在上，一个在下。private sub form_click() 交换位图picture3.picture=picture1.picture picture1.picture=picture2.picture picture2.picture=picture3.picture 把第三个图片框设置为空picture3.picture=loadpicture() end sub private sub form_load 装入位图picture1.picture=loadpicture _

5、 (c:documents and settingsall usersdocumentsmy pictures1.jpg) 可自行改变路径picture2.picture=loadpicture _ (c:documents and settingsall usersdocumentsmy pictures2.jpd) 可自行改变路径end sub 8. 冒泡排序从键盘上输入10 个整数，用冒泡法排序（bubble sort）法对这十个数从小到大排序：在窗体上建立一个命令按钮，并把caption 属性设置为“click here to start ”编写程序如下：sub command1_cl

6、ick() static number(1 to 10) as integer 定义数组number 为整形msg$=enter number for sort: msgstile$=sort demo for i%=1 to 10 number(i%)=inputbox(msg$,msgtile$) next i% for i%=10 to 2 step -1 for j%=1 to i%-1 if number(j%)=number(j%+1) then t=number(j%+1) number(j%+1)=number(j%) number(j%)=t end if next j% n

7、ext i% for i%=1 to 10 print number(i%) next i% end sub 9. 判断 09 数据类型 -奇数或偶数判断字母大小写及09 数据类型 -奇数或偶数 : sub form_click() dim msg,userinput msg=please enter a letter or number from 0 though 9. userinput=inputbox(msg) if len(userinput)0 then select case asc(userinput) 返回 ascii 码case 65 to 90 大写字母msg=you e

8、ntered the uppercase letter msg=msg&chr(asc(userinput)&! case 97 to 122 小写字母msg=you entered the lowercase letter msg=msg&chr(asc(userinput)&! case else msg=you did not enter a letter or a number. end select else select case cdbl(userinput) 转换为双精度数值case 1,3,5,7,9 msg=userinput&is

9、an odd number 奇数case 0,2,4,6,8 msg=userinput&is an odd number 偶数case else 出界msg=you entered a number ouside msg=msg&the requested range end select end if msgbox msg end sub 10.判断 100200 的所有偶数可以分解为两个素数之和判断 100200 的所有偶数可以分解为两个素数之和。function nf(n as integer) as boolean 判断 n 是否为素数dim s as boolean

10、 dim i as integer s = false for i = 2 to int(sqr(n) 如果能被2 int(sqr(n) 中任何一个数整除,则不是素数 ,跳出 for 循环if n mod i = 0 then exit for end if next i if i int(sqr(n) then 如果正常跳出for 循环 ,则 i 跳出循环for 后的值应该是n,所以满足这个条件s = true 当 i 是素数时s=true end if nf = s 当 i 是素数时 , nf=true,否则nf=false end function private sub form_cl

11、ick() dim t as boolean dim q as boolean dim i as integer dim j as integer dim a as integer for i = 100 to 200 step 2 for j = 2 to i / 2 i 一定可分解为一个大于它一半的数和小于它一半的数t = nf(j) 调用 funtion(函数 )nf, 判断 i 是否是素数 ,把 nf 的值 (true 或 flase)赋值给变量t if t = true then 如果 t 是 true 就往下执行 ,否则就执行到end if(2) 后面的 next j 语句q =

12、nf(i - j) 调用 funtion(函数 )nf,判断 i-j 是否是素数 ,把 nf 的值 (true 或 flase)赋值给变量q if q = true then 如果 q 是 true(说明 i-j 是素数 ) 就往下执行 ,否则就跳到end if(1), 继续执行j 循环print j, i - j 当 q 是 true 和 t是 true 同时满足时 ,说明 i 的确能分解为两个素数,就打出j 和 i-j 的值exit for 跳出 j 循环 ,判断下一个偶数end if (1) end if (2) next j next i end sub 11.判断是否为素数判断一个整

13、数（=3）是否为素数：提示：如果一个（=3 的）整数可以将n 被 2 到 n（ n 的平方根）之间的所有整数除，如果都除不尽，则n 为素数（）质数，否则n 为非素数（合数） 。编写程序如下：sub form_click() dim n as integer n=inputbox( 请输入一个正整数（=3）:) k=int(spr(n) 取不大于n 的平方根的最大整数i=2 swit=0 while iint(sqr(n) then print n & 是素数 else print n & 不是素数 end if end sub 用 while , .wend 循环 : sub

14、form_click() dim i as integer, n as integer n = val(inputbox() i = 2 c = int(sqr(n) do while i c then print n & 是素数 else print n & 不是素数 end if end sub 法 2：一个数 n 是素数的条件 :不能被 2 n-1 整除用 for,.next 语句sub form_click() dim i as integer,n as integer n=val(inputbox() for i=2 to n-1 if n mod i=0 then

15、exit for 如果能被2 n-1 中任何一个数整除,则不是素数 ,跳出 for循环next i if i = n then 如果正常跳出for 循环 ,则 i 跳出循环for 后的值应该是n,所以满足这个条件print n & 是素数 else print n & 不是素数 end if end sub 12.切换信号灯模拟交通信号灯的切换：在窗体上画出3 个图像框和两个命令按钮command1(切换信号 )和 command2(结束程序 )。三个图像框分别装有红、绿、蓝三的信号标志的图片。编写如下事件过程：private sub form_load() image2.vi

16、sible=flase image3.visible=flase end sub private sub command1_click() if image1.visible=true then image1.visible=false image2.visible=ture elseif image2.visible=ture then image2.visible=false image3.visible=true else image3.visible=false image2.visible=true end if end sub private sub commdan2_click(

17、) end end sub 13.求 n！求 n 的阶乘 n！ （n 为自然数）：程序如下：sub form_click() dim n as integer n=inputbox(enter n:) k=1 for i=1 to n k=k*i next i print n;n!=;k end sub 该程序也可以写成：sub form_click() dim n as integer n=inputbox(enter n:) k=1:m=1 for i=1 to n k=k*i:m=m+1 next i print n;n!=;k end sub 程序也可以这样写：private sub

18、command1_click() dim i as integer, f as double, n as integer n = inputbox( 输入一个自然数：, 输入提示 , ) f = 1 for i = 1 to n step 1 f = f * i next i text1.text = f end sub private sub command2_click() end end sub 14.人口达到或超过70 亿所需年数假设目前世界人口约为60 亿，如果以每年1.4%的速度增长，多少年后世界人口达到60 亿或超过 60 亿？程序如下：sub form_click() dim

19、p as double dim r as single dim n as integer p=6000000000# r=0.014 n=0 do until p=7000000000# p=p*(1+r) n=n+1 loop print n; 年后世界人口达到;p end sub 上述所用是“ do until ,loop”循环结构。该程序若改用“do,loop until ”循环，则程序为：sub form_click() dim p as double dim r as single dim n as integer p=6000000000# r=0.014 n=0 do p=p*(1+r) n=n+1 loop until p=7000000000# print n; 年后世界人口达到;p end sub 15.输出 100300 之间的所有素数输出 100300 间的所有素数：程序如下：sub form_click() for n=101 to 300 step 2 k=int(spr(n) 取不大于 n 的平方根的最大整数i=2 swit=