vb程序 小程序,vb编写各种趣味小程序

用VB制作小程序见附例程序。求助:A段vb肖程序楼上，另外，你的cb/10要放在第一个nexti之后的线上，这样可以提高程序的运行速度，用VB写一个小程序马頔，VB小程序写th/(mn)？如何用VB写一个简单的小程序VB来设计一个简单的小程序变量定义曲面变量名X。

2、VB设计一个简单的小 程序

变量定义表面变量名x，y等。DIM X1 Asigner private subcommand 1 _ click() button x1y 1 1me。captionx 1 end subprivatesubcommand 2 _ click() button x1x 11 me . captionx 1 end sub

马頔，bprivatesubcommand 1 _ click()endedsubvrivatesubform _ load()text . text visual basic程序design command 1。标题end text . left 0:text . top 0:text . width 0.5 * form 1。宽度文本高度0.5 *表格1。heightaform 1 . width command 1 . left b form 1 . height command 1 . topendsubprivatesubform _ Resize()text . left 0:text . top 0:text . width 0.5 * form 1 . width text . height 0.5 * form 1 . height command 1 . left form 1 . width command 1 . top form 1 . highbendedsub注意变量名和控件名一致。

见附例程序。为了直接看到效果，示例程序 number每秒刷新一次，可以根据需要改成自己喜欢的区间。OptionExplicitDimDDAsSingle 0 dimttasintegerprivatesubform _ Load()label 1。captiontimer 1 . interval 1000 timer 1 . enabledtruett 0 label 1 . font size 16 ddint(* Rnd 1)label 1。标题格式(DD，

th/(mn)？在表单中添加三个文本框、一个标签和一个按钮，不修改它们的名称，然后编写如下代码:private subcommand 1 _ click()dimhassingle、mas single、nas single、Tassinglehtext1。textmtext2。textntext3。textth/(Mn) label1。图说一只青蛙从高度为