1樓：匿名使用者
dim x as integer
private sub form_click()if x = 0 then
x = x + 1
me.caption = "歡迎你的到來"
me.width = 4700
me.height = 3500
label1.caption = "vb程式設計"
else
x = 0
call form_load
end if
end sub
private sub form_load()me.caption = "vb程式設計"
me.width = 4800
me.height = 3600
label1.caption = ""
end sub
2樓：清新白茶
private sub form_load()me.caption = "vb程式的設計"
me.width = 9000
me.height = 9000
end sub
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
msgbox "vb程式設計"
me.caption = "歡迎你的到來"
me.width = me.width - 10me.height = me.height - 10end sub
求教一道vb程式設計題，題目如下
3樓：陽光上的橋
**部分如下：
sub command1_click()
dim a(1 to 3, 1 to 3) as integer, s as integer, i as integer,j as integer
s=0for i=1 to 3
for j=1 to 3
a(i,j)=int(rnd*9)+1
s=s+a(i,j)
print a(i,j)," ";
next j
next i
print s
end sub
vb編寫程式：設計乙個程式，當單擊窗體時，在窗體上顯示任意一幅**。
4樓：
假設你的**路徑為d:\fafa.gif,**如下：
private sub form_click()picture1.picture = iif(picture1.picture = loadpicture(""), loadpicture("d:
\fafa.gif"), loadpicture(""))
end sub
這樣就可以單擊切換**了，對了，你要加乙個**框控制項，再寫入**
5樓：麥兜
'新增image1、file1、list1控制項各乙個
6樓：手機使用者
.com
壓縮包中有4個目錄
1中是 前兩個sya_1,sya_3
2中是 後面接著的三個sya_1,sya_2,sya_3三角形 就是判斷三角形的
隨機數 就是生成隨機數並判斷的。
請給分，謝謝！！
vb程式設計，設計乙個程式，在文字框裡輸入乙個三位數，單擊窗體，在窗體中輸出這個三位數的個位數十位數百
7樓：匿名使用者
dim str as string = ""
dim n as integer
dim gewei, shiwei, baiwei as integer
n = val(text1.text)
gewei = n mod 10
shiwei = (n \ 10) mod 10baiwei = n \ 100
str = "這個數的個位數字是 " & gewei & " 十位數字是 " & shiwei & " 百位數字是 " & baiwei
text2.text = str
執行結果：
這個數的個位數字是 3 十位數字是 2 百位數字是 1
8樓：岔路程式緣
private sub form_click()dim a as integer, b as integer, i as integer
if text1 <> "" then
a = val(text1)
if a < 100 or a > 999 then goto 1234
else
1234
msgbox "請在文字框中輸入乙個三位數字!", vbokonly + vbcritical
text1.text = ""
text1.setfocus
exit sub
end if
b = a
form1.cls
print "個位數、十位數、百位數分別是："
for i = 1 to 3
print b mod 10; space(5);
b = b \ 10
next
end sub
已經執行過。
執行結果：
vb,執行下面程式，當單擊窗體時，窗體上顯示的內容的第一行是( )，第二行是 ( )。
9樓：匿名使用者
單擊窗體後，呼叫子程式test 並給以引數2即此時x=2
執行x=x*2+1後x的值變為5
執行判斷語句，由於x<6執行call test(x)語句，即子再次呼叫自己（遞迴過程）此時傳給的引數為5
執行x=x*2+1後x的值變為11,
執行判斷語句，由於x>0，不再執行call test(x)語句，而執行end if 後的語句，即x=x*2+1,x的值變為23，接著執行form1.print x語句，在窗體上輸出x，即23（所以第一行顯示23）
第二次呼叫的子過程結束，回到第一次呼叫的子程式，繼續執行end if 後的語句，即x=x*2+1,x的值變為47，接著執行form1.print x語句，在窗體上輸出x，即47（所以第二行顯示47）
第一次呼叫的子程式結束
10樓：匿名使用者
窗體上顯示的內容的第一行是(23)，第二行是 (47)。
VB編寫程式 設計程式，當單擊窗體時，在窗體上顯示任意一
假設你的 路徑為d fafa.gif,如下 private sub form click picture1.picture iif picture1.picture loadpicture loadpicture d fafa.gif loadpicture end sub 這樣就可以單擊切換 了，...
VB裡的MDI窗體和普通窗體有什麼區別
射手夏末之殤 mdi是multiple document inte ce的縮寫，就是文件窗體的意思。它是和單文件sdi相對的。mdi和sdi在介面上的主要區別如下 mdi允許使用者同時開啟多個文件，而sdi只能開啟乙個文件。mdi應用程式甚至可以支援多種文件型別。例如word不僅支援.doc檔案，還...
什麼是窗體和視窗，VB窗體布局視窗的主要用途是什麼？
視窗包含被選擇的窗體 控制項在設計時擁有的屬性的列表，這些屬性能夠在設計時被改變，當使用者選擇多個控制項時，屬性視窗包含的屬性列表被所選擇的控制項共享。什麼是窗體和視窗?窗體是在程式設計時期的視窗，而視窗是設計好程式後，編譯出來執行時的那個視窗 窗體bai 是應用程式的程式設計窗du口和對話方塊。窗...