vb编写显示小程序,编写vb显示姓名

用vb编个小程序用VB -2编个小/见附例程序。我想用VB编一个小的程序，VB编写Xiao程序Code改为:private subform _ click()马頔，vbhideendsub，vb做一个简单的小程序optionexplicitprivateesubform _ load()shock flash 1 . moved:\ \ kufang \ images \ 1，swfshockWaveflash 1。MenufalshockWaveflash 1，playingrueendsubprivatetimer 1 _ timer()ended sub构建无边框窗体，

dimasintegerprivatesubcommand 1 _ click()select case 0:me。结果。TextVal(我。Number1.text) val (me。案例一:我。结果。TextVal(我。Number1.text)。Val(我。案例二:我。结果。TextVal(我。number 1 . text)* val(me。案例三:我。结果。TextVal(我。numeric 1 . text)/val(me。编号2.text)。endselectendsubprivatesubcommand 2 _ Click()endenddsubprivateesubform _ Load()Me。option 1(0). valuetrueendprivatesuboption 1 _ Click(indexas integer)iIndexEndSub .

见附例程序。为了直接看到效果，示例程序 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，

Put文本组件Text1和命令组件command1。双击command1，编写以下代码:private subcommand 1 _ click()shell text 1 . text，vbhideendsub。private subcombo 1 _ Click()()()dir 1。path drive 1 . DriveEndSubPrivateSub()MsgBox()combo 1。AddItem * . txt combo 1 . AddItem * . dat combo 1 . AddItem *。jpg*.wmf*.gifcombo1.additem *。* combo1.text *。txt *。txt end sub可能不符合你的要求，但绝对有用。

5、用VB写一个小 程序

获取CPU序列号privatetypeosversioninfosizeaslingwidmajorversionaslongwidwinserver slongdwbuingnumberslongdwplatformidasslongzcsdversionasst。ring * 128 maintenancestringforpsusageendtypeprivatedeclaurefunctiongetversionexlibkernel32 aliasgetversionexa(lpVersionInformationAsOSVERSIONINFO)aslongprivatedeclaurefunctiongetcomputernamelibkernel32 aliasgetcomputernamea(byvallpbufferastring，

optionexplicitprivateesubform _ load()shock flash 1 . moved:\ \ kufang \ images \ 1 . swfshockwaveflash1 . menufalshockwaveflash1 . playingtrueendsubtimer 1 _ timer()ended sub构建无边框窗体，

optionexplicitprivateesubform _ Load()shock flash 1。MovieD:\ \ KuFang \ images \ 1 . swfshockwaveflash1 . menufalseshockwaveflash1 . playing rueendsubprivatesubtimer 1 _ Timer()ended sub .

代码改为:private subform _ click()马頔，dastringdimsum，averagslongaval(Inputbox(请输入第一个数字))bInputBox(请输入第二个数字)cInputBox(请输入第三个数字)dInputBox(请输入第四个数字)Suma b c Daversum/。一，