1樓：匿名使用者
private sub text1_click()n = inputbox("你要擴大幾倍？", , 2)text1.width = text1.
width * ntext1.height = text1.height * ntext1.
font.size = text1.font.
size * n
end sub
請參閱我部落格中專門為回答你這個問題寫的部落格：http://hi.
其中的n可以等於0.5喲！
2樓：匿名使用者
private sub command1_click()dim n as integer, font as long, h as long, w as long
n = 2
with text1
font = .font.size * nme.
font.size = font * nh = me.textheight(.
text)w = me.textwidth(.text).
font.size = font
.height = h / 2
.width = w / 2
end with
end sub
3樓：素錦初薰
話說。其實我不知道。嗯。記得給幫主人的賞分哦~你個傻子~
用vb編寫——從文字框(text1)輸入一個n,在文字框(text2)中輸出n！的值(要求tex2的內容不能修改)
4樓：谷歌最牛
在text1_change()函式裡寫語句：text2.text = ucase$(text1.text)
5樓：匿名使用者
text2=ucase(text1)
將text2的locked屬性設定為true可以使之不可編輯
或者使用label控制元件代替text2。因為label控制元件內容不能編輯。
6樓：李不白兮
private sub command1_click()''''定義變數
dim num1 as variant
dim sum1 as variant
num1 = val(text1.text)sum1 = 1
''''判斷
if num1 <= 0 then
msgbox "不允許輸入小於等於0的數值", vbokonly, "提示"
text1.setfocus
exit sub
end if
if num1 <> int(num1) thenmsgbox "請輸入整數", vbokonly, "提示"
text1.setfocus
exit sub
end if
'求值for i = 1 to num1
sum1 = sum1 * i
next i
text2.text = sum1
end sub
裡文字框怎麼透明，word裡文字框怎麼透明？
wps官方 以wps 2019版為例 開啟文件，選中已插入的文字框，滑鼠右鍵選擇 設定物件格式 2.在右側彈出框，選擇 形狀選項 填充與線條 透明度 3.根據需要調整透明度即可 你好！首先選中文字框 四周出現虛線 將滑鼠放在文字框邊緣 出現四個箭頭時 右鍵單擊文字框，選擇 設定文字框格式 在彈出的 ...
如何刪除文字框，word檔案裡的文字框怎麼刪除啊 圖
在文字框邊上選中後按backspace 選中文字框按delete 一維陣列中 然後對每個元素進行遍歷 如果出現相同,去掉 最後把整理後的陣列元素再全部顯示出來 寫好了,你看看 dim strnum dim arrnum dim strresult dim i,j strnum 05,21,01,09...
中文字框字太多應該怎麼讓文字框跨頁顯示
飛旋的迷你小屋 可以做多個文字框，連結起來。方法如下 單擊第一個文字框，然後在 文字框工具 下 格式 選項卡上的 文字 組中，單擊 建立連結 則滑鼠指標變為罐狀指標。用罐狀指標單擊第二個文字框，則在兩個文字框間建立了連結。如果還想連結第三個文字框，請單擊第二個文字框，然後在 文字框工具 下 格式 選...