1樓：匿名使用者
剛剛寫玩，測試成功，直接複製了（文字框名稱為：text1；命令按鈕名稱為：command1)
private sub command1_click()
endend sub
private sub form_load()
text1.text = "visual basic程式設計"
text1.left = 0
text1.top = 0
text1.width = form1.scalewidth / 2
text1.height = form1.scaleheight / 2
command1.caption="結束"
command1.left = form1.scalewidth - command1.width
command1.top = form1.scaleheight - command1.height
end sub
private sub form_resize()
text1.left = 0
text1.top = 0
text1.width = form1.scalewidth / 2
text1.height = form1.scaleheight / 2
command1.left = form1.scalewidth - command1.width
command1.top = form1.scaleheight - command1.height
end sub
2樓：匿名使用者
option explicit
private sub command1_click()unload me
end sub
private sub form_load()with text1
.top = 0
.left = 0
.width = form1.width / 2.height = form1.height / 2.text = "visual basic程式設計"
end with
with command1
.left = form1.width - command1.width
.top = form1.height - command1.height
.caption = "結束"
end with
end sub
private sub form_resize()call form_load
end sub
一道VB的題目，求助大家啊
a 1 為什麼是假？boolean變數初始值是假。進行了for迴圈後怎麼判斷的？判斷如果a i 為假，則賦值為真，並且退出for迴圈。j 為什麼是1？j 是integer型變數，初始值是0 j 0 1 1 程式中，第一次判斷if a i false then，在之前未曾對a i 進行過賦值，所示系統...
VB程式設計題目，vb程式設計題目
private sub command1 click dim k sum sum 0 k val trim inputbox 請輸入正整數k的值 for i 1 to len str k sum sum val mid str k i,1 next i msgbox sum end subpriva...
vb題目急急急，vb題目 急急急！！！！！！
求500以內最大的10個能被13或17整除的自然數之和private sub form click dim a 1 to 10 i,j as integerfor i 1 to 500 if i mod 13 0 or i mod 17 0 then a 1 a 2 a 2 a 3 a 3 a 4 ...