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程式設計單擊窗體求200到300之間既能被3整除又
愛笑的無聊之氣 dim i as integer for i 201 to 300 if i mod 3 0 and i mod 7 0 print cstr i sum sum i end if next print sum vb程式設計題 單擊窗體,在窗體上顯示1 200之間既能被5整除又能被7...
vb程式設計裡,如何實現點選窗體中文字框出現日曆控制元件,然後可以選擇相應的日期,填入文字框,日曆控制元件消失
這個解答完全符合你的要求 首先在預設form1窗體上畫一個文字框text1 再畫一個日曆控制元件monthview1,記得是monthview1控制元件,你自己排列好它們兩個的位置即可,一切都按預設 不用改屬性 然後複製以下 到form1的 視窗裡執行即可看到結果啦 如圖 private sub f...
用VB程式設計隨機抽取姓名,用vb編寫了這個隨機抽取人名的程式,要求一個文字框,一個按鈕
60個人的記錄,把隨機函式控制成小於等於60 private type student name as string 10 end type private sub command1 click 寫入資料dim stu as student open d student.txt for random...