1樓:匿名使用者
樓上的什麼啊……
private sub ***mand1_click()dim i as integer, n as integern = 3
for i = 1 to n
print space(n - i); string(2 * i - 1, "*")
next
for i = n - 1 to 1 step -1print space(n - i); string(2 * i - 1, "*")
next
end sub
2樓:匿名使用者
option explicit
private sub form_load()autoredraw = true
dim i as long, j as longfor i = 1 to 5
j = iif(i < 4, i, 6 - i)print space(4 - j); string(j * 2 - 1, 42)
next
end sub
'^-^
3樓:匿名使用者
用print來實
現private sub ***mand1_click()print "*"
print chr(10) & " ***"
print chr(10) & " ****"
print chr(10) & " ***"
print chr(10) & " *"
end sub
vb程式設計輸出1至500之內的質數
option explicit private sub form click dim i as integer,j as integer,n as integer dim isp as boolean n 0 for i 3 to 500 step 2isp true for j 2 to i 1 ...
VB程式設計請問hwnd在VB中的用法
返回窗體或控制元件的控制代碼。microsoft windows 執行環境,通過給應用程式中的每個窗體和控制元件分內 配一個控制代碼 或 hwnd 來標識容它們。hwnd 屬性用於windows api呼叫。許多 windows 執行環境函式需要活動視窗的 hwnd 作為引數。vb中hwnd的作用?...
C從鍵盤上輸入小寫字元,在螢幕上輸出該字元以及它的大寫字元和它的ASCII碼
string s console.readline if s.length 1 if abcdefghijklmnopqrstuvwxyz indexof s 0 console.writeline 你輸入的是 s console.writeline 對應的大寫是 s.toupper byte ar...