1樓:匿名使用者
均勻排列
**如下:
private sub command1_click()dim i as integer
dim j as integer
dim k as integer
dim a(5) as string
i = 5
k = 0
for j = 1 to 1000
i = i + 5
if i mod 3 = 0 and right(cstr(i), 1) <> 0 then
k = k + 1
if i < 1000 then
a(k) = i
else
a(k) = ""
end if
if k mod 5 = 0 then
print tab(5); a(1); tab(15); a(2); tab(25); a(3); tab(35); a(4); tab(45); a(5)
k = 0
if i > 1000 then exit forend if
if j mod 5 = 0 then print ""
end if
next j
end sub
2樓:匿名使用者
for i=0 to 1000
if (right(i,1)=5) and (i mod 3=0) then
x=x+1
print i;
if x mod 5=0 then printendif
next
vb程式設計問題:程式執行時,在文字框text1中輸入1個字串,單擊命令按鈕command1時,程式能統計出輸入
3樓:匿名使用者
1、首先,在窗體上面新增一個文
本框。2、單擊文字框,在屬性視窗設定文字框的屬性,清空文字內容,將文字框的enabled屬性設定為false。
3、雙擊「提取資訊」命令按鈕,編寫程式的**,如下圖所示。提取資訊時,需要使用擷取字串相關的函式,如left,right,mid等。本題還需要使用instr函式查詢字元。
4、雙擊「清空」命令按鈕,編寫程式的**。
5、雙擊「退出」命令按鈕,編寫程式的**。
6、最後輸入字串時,就可以出輸入了。
4樓:黎洪璋
需要新建一個使用者窗體userform1,在窗體上建立text1、text2、text3和text4文字框,然後再建立一個命令按鈕,在命令按鈕裡輸入**: userform1.textbox2.
value = userform1.textbox1.value
具體怎麼判斷字母個數和字元個數可以從網上查查,我現在沒時間查了,就隨便寫一句吧。呼叫窗體的命令是userform1.show
5樓:
可以依次取出每個字元,將其轉化為ascii值,這樣判斷語句會簡單些
6樓:匿名使用者
俺是會的人,沒寫**,能說一下思路麼?
7樓:匿名使用者
private sub command1_click()text2.text = 0
text3.text = 0
text4.text = 0
for i = 1 to len(text1.text)if mid(text1.text, i, 1) like "[a-z]" or mid(text1.
text, i, 1) like "[a-z]" then
text3.text = val(text3.text) + 1elseif mid(text1.text, i, 1) like "[0-9]" then
text2.text = val(text2.text) + 1else
text4.text = val(text4.text) + 1end if
next
end sub
vb中怎麼編寫 單擊命令按鈕,則窗體顯示文字框內的內容?
8樓:
1、首先,雙擊窗體空白處進入**視窗。
2、然後我們在事件中找到click事件。
3、這個時候開始編寫**測試【print "我是click單擊屬性!"】。
4、然我們開始執行測試。
5、啟動後,我們在窗體空白處單擊。
6、這個時候我們將可以看到測試的效果。
9樓:
private sub command1_click()
form1.print text1.text
end sub
10樓:匿名使用者
option explicit
private sub command1_click()print text1.text
end sub
private sub form_load()text1 = "問題:vb中怎麼編寫 單擊命令按鈕,則窗體顯示文字框內的內容?"
end sub
vb程式設計題 在窗體花兩個命令按鈕,標題分別設定為「隱藏文字框」和「顯示文字框」,當單擊第一個命令按鈕時
11樓:匿名使用者
private sub command1_click()text1.visible = false '隱藏文字框end sub
private sub command2_click()text1.text = "vb程式設計" '設定文字框內容text1.visible = true '顯示文字框end sub
12樓:匿名使用者
建立標準exe 貼上下面**就可以了
private sub command1_click()text1.visible = true
end sub
private sub command2_click()text1.visible = falseend sub
private sub form_load()command1.caption = "顯示文字框"
command2.caption = "隱藏文字框"
end sub
vb程式設計:在窗體上有一個命令按鈕command1和一個標籤框label1,編寫程式使命令按鈕command1被單擊後
13樓:匿名使用者
不知道你是要改變控制元件高度還是字型大小。
注意:如果是改變字型大小的話,要設定label 的autosize 屬性為 true
private sub command1_click()' label1.height = label1.height * 4 '改變控制元件高度
label1.font.size = label1.font.size * 4 '改變字型大小
end sub
關於VB中MDI窗體的問題,關於VB中MDI窗體的一個問題
private sub menclose click picture1.print i do until i 0 exit click i i 1 要有迴圈結束條件 loop end sub 1 private sub menclose click for i forms.count 1 to 0 ...
在VB窗體屬性中,BorderStyle屬性有0 5,這些功能分別都是什麼
b窗體borderstyle屬性功能設定的屬性值如下 borderstyle屬性值0 none,沒有邊框,無邊界框架。borderstyle屬性值1 fixedsingle,設定視窗大小固定不變,並且框架為單線。borderstyle屬性值2 sizable,設定為視窗大小可變,並且將框架設定為標準...
VB透明窗體
private declare function setwindowlong lib user32 alias setwindowlonga byval hwnd as long,byval nindex as long,byval dwnewlong as long as long private...