简单的VB题目

1.我空间里有通用对话框的用法．
2.timer1.timer
if n mod t=o then
image1.vliue=ture
image2.vliue=f '不会写
elseif
image2.vliue=ture
image1.vliue=f
endif
t=t+1 '记得设置1000
使X Y各加10每秒
image3.top=image3.top+10
image3.left=image3.left+10

代码x=inputbox("请输入数")
if bb=3 then
unloadme
else
if val(bbn)=99 then
msgbox"对了"
else
msgbox"错误"
endif
endif
4 t=rmd
fontsize=t*2
其他同上．

a=val(text1)+val(text2)
text3=a

这样：

Private
Sub
HScroll1_Change()

Form1.Width
=
HScroll1.Value
End
Sub
Private
Sub
VScroll1_Change()

Form1.Height
=
VScroll1.Value
End
Sub

属性窗口的属性要改好。会的吧？

Private
Sub
Form_Load()
HScroll1.Min
=
1500
HScroll1.Max
=
6000
HScroll1.LargeChange
=
200
HScroll1.SmallChange
=
50
VScroll1.Min
=
1500
VScroll1.Max
=
6000
VScroll1.LargeChange
=
200
VScroll1.SmallChange
=
50
End
Sub
Private
Sub
HScroll1_Change()

Form1.Width
=
HScroll1.Value
End
Sub
Private
Sub
VScroll1_Change()

Form1.Height
=
VScroll1.Value
End
Sub