用vb程式設計,窗體中有命令按鈕。程式執行時,單擊「顯示」命令按鈕,在窗體上顯示1000以為個位數

2021-09-30 17:11:42 字數 3497 閱讀 2115

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...