使用vb:来设计a窗体，单击 窗体，窗体标题为“VB-3”时单击 窗体，设计a...在窗体“欢迎学习VB-2”上显示一段话。每单击下窗体向右移动，运行程序时运行程序时单击窗体on窗体...dimxasinteger private subform _ click()if x0 then xx 1Me，caption Welcome to Me . width 4700 Me . height 3500Label1.captionvb程序设计else x0 callform _ loadendifendsubprivatesubform _ load()me.captionvb/ -3/Me，宽4800米，高3600磅。
1、...在 窗体上显示一段文字“欢迎学习VB 程序设计!”。当 单击 窗体时,private subform _ click()label 1 . font黑体label 1 . font size 22 label 1 . forecolorvbred label 1 . left 0.5 * Form 1 . width label 1 . top 0.5 * Form 1 .heightedsubprivateesubform _ load()Label 1。Caption欢迎学习vb程序设计EndSubPrivateSubform _ dblclick()label 1。字体隶书label 1 . font size 22 label 1 . forecolorvbblue label 1 . left 0 label 1 . top 0 end sub
2、VB编写程序:设计一个程序,当 单击 窗体时,在 窗体上显示任意一幅图片。Dimnum，sum，it(1)，hPrivateSubForm_Click()((i)，。)(UBound(Split((i)，)。)))if case(t)LCase(jpg)or case(t)LCase(BMP)or case(t)LCase(gif)then list 1。AddItem(I):sumsum 1 nexthrnds(sum)printhimage 1。PictureLoadPicture(List1。list(h))EndSubPrivateSubForm _ Load()(ByValValue)re:DoEventsRandomizenFix(Rnd * Value)if num 1 thennnum 1 numnum num 1 it(num)ni fit(0)it(1)thengotorendsnendfunction 为image1、file1和list1添加一个控件。
3、用 vb:设计一个 窗体,在 窗体上添加命令按钮。运行程序时,每次用鼠标 单击...private subcommand 1 _ Click()command 1。Left command 1 . Left 100 endsubprivatesubform _ Click()Me。LeftMe.Left300EndSub .private subcommand 1 _ Click()command 1 . move command 1 . left 100，
4、设计一个VB程序, 单击 窗体,每 单击一下 窗体向右移动一下,并且 窗体变大private subform _ mousedown(button as integer，shift as integer，xas single，yas single) a100: me。moveleft a，top，width a，height aendsub可以这样写，那个100就是每次点击增加和移动的大小。PrivateSubForm_Click()Form1。左Form1 .左 500Form1。WidthForm1 .宽度*1.2Form1 .高度Form1 .高度*1.2EndSub .
5、设计一个 窗体, 窗体的标题为“VB 程序设计”,运行程序时 单击 窗体在 窗体上...dimxasinteger private subform _ click()if x0 the nxx 1me . caption欢迎我. width 4700 Me . height 3500label1.captionvb程序设计 else x0 callform _ LoadEndIfEndSubPrivateSubForm _ Load()Me .CaptionVB 程序设计Me。宽4800米，高3600磅。
