1樓：
在文字框的text屬性裡設為：中國。
不就ok了。
***剛測試過，沒問題的，你在form里加個command1，點選後，可以實現你說的效果，有問題，訊息問我。
private declare sub sleep lib "kernel32" (byval dwmilliseconds as long)
private sub command1_click()
sleep (1000) '暫停1秒。
("中國")sendkeys ("v")
end sub
2樓：匿名使用者
樓上的就可以了。或者你也可以在form_load
事件中寫"中國"
關於vb的問題
3樓：網海1書生
private sub command1_click()
if dir( =then
msgbox "要刪除的檔案未找到！",vbexclamation, "提示"
elseif msgbox("刪除檔案，此操作不可逆！確定嗎", vbquestion + vbyesno, "提示") vbyes then
kill msgbox "已刪除檔案！",vbinformation, "提示"
elsemsgbox "您已取消刪除檔案！",vbinformation, "提示"
end if
end sub
4樓：伯邃
（英文版）
如果安裝該補丁包後還是出錯的話，請手動註冊控制元件，註冊方法是：在開始選單「執行」中鍵入「regsvr32 並按回車。
然後在您的程式中載入「microsoft windows common control 元件項，ok，應該沒問題了。
打字不易，如滿意，望採納。
關於vb的小問題！ 10
5樓：匿名使用者
分析：if a >=1000 then
= a + a * if
if a >=800 then
b = a + a *
end if
if a < 800 then
b = a + a *
end if
你這個是三個獨立的if語句，程式從上到下執行的；
如果滿足 a >=1000，那也一定滿足 a >=800所以 b 最終還是會得到 (a + a * 解決的辦法有2個：
辦法一；改變它們的次序。
if a < 800 then
b = a + a *
end if
if a >=800 then
b = a + a *
end if
if a >=1000 then
= a + a * if
辦法二；用多分支結構。
if 條件1 then
語句組1elseif 條件2 then
語句組2else
語句組3end if
if a >=1000 then
= a + a * a >=800 then
b = a + a *
elseb = a + a *
end if
關於vb的問題。
6樓：匿名使用者
a變數和too變數均未定義，使用時其初值肯定相等，a=too值為真。
語句 if = true and = false and = false
可以縮寫為 if = true ，因為單選不會出現超過1個為真的情況。
祝學習愉快。
if a = 你愛我 then
改為：if a = 你愛我" then 還差不多，學程式要認真點啊，變數名和字串不要混在一起。
關於vb問題
7樓：匿名使用者
這個問題和變數的型別有關。
mod為取餘，x mod 10就是x除以10得到的餘數，如果x是string，會報錯，如果x是資料型或是variant型而內容是數字，那麼「x mod 10」得到的結果為資料型。
&為強制連線，除非&前後兩個表示式中有一個為null，否則結果為string，y&x mod 10就是把y作為一個string，與x mod 10的結果（自動轉化為string）連線在一起，型別為string
最後一步 y= 將=右邊表示式的值賦給y，如果y是數值型就自動將string型轉化成數值型（如果右邊的表示式的結果中含有非數值字元，執行時會報錯），如果y是string，那就直接賦值。
8樓：匿名使用者
第一步：x mod 10，就是 x 除以 10得到的 餘數。
第二步：y 與 這個餘數 進行按位與，就是y和這個餘數化成2進位制，然後每一位進行邏輯與。
第三步：把按位與得到的結果賦值給 y。
這裡有個運算子優先順序的問題，算術運算子 『mod』 >邏輯運算子 『&賦值運算子 『=
9樓：匿名使用者
&的意思是。
比如說a=1 b=2
a&b=12
再比如說a=59 b=327
b&a=32759
就是把兩個變數的字串連在一起。
mod 整除後餘數。
=是賦值的意思，不是數學中的等於號。
把y和（x整除10後的餘數）連在一起。
再賦給y
10樓：麴天澤雀弘
function
fun(num
asinteger)
asinteger
dimiasinteger
dimjiasintegerji=
3fori=
3tonumji
=ji*inext
fun=jiend
function
【注意：絕對不能是f(n)*n，不然遞迴是死迴圈的】
vb 關於 msgbox 的問題
11樓：網海1書生
這是對2和3進行與運算（即and運算），用二進位制表示就是：
00000011 and
即結果為10進位制的2。
與（and）運算的原則：相同的位都是1，結果為1，否則就是0；
或（or）運算的原則：相同的位只要有一個是1，結果為1，否則為0。
12樓：匿名使用者
顯示2，等同於 msgbox 2
2 and 3 函式處理就是等於2
問幾個關於vb的問題
13樓：001神奇工廠
第一個問題可以解決。
比如要窗體為8280*8295,則：
private sub form_resize()on error goto = 8280
xzp1984:
end sub
其他的就愛莫能助了~
14樓：帥哥
我會 但是比較麻煩 你qq多少我可以教你。
vb入門問題，關於vb的小問題
也不知道你是不是喜歡學習程式設計。如果不喜歡就應付考試就可以了。喜歡的話，一開始不知道看什麼就上圖書館找書看去吧，看得多了，你就慢慢知道學什麼了。慢慢來吧，做一些實用的小程式，為以後工作打基礎吧。關於vb的小問題 setmynum是一個變數。val表示把括號後面的數轉化為10進位制的數值形式。h是1...
關於VB的小問題，關於VB的一個小問題
程式很經典，text1.text 不是純數字經過 str val text1.text 轉換的結果就不會等於 text1.text。主要還是要了解 val str 函式的作用，val 是將字元 日期 強行轉換為數字，非數字部分則會被 pass 掉，str 則是將數字 日期 轉換成字元。你可以用isn...
VB問題關於迴圈的
我先隨意提交,如果我發不出 我就私信給你,覺得好就把我採納 private sub command1 click print 生成的10個隨機數為 static s 9 as integer,afor i 0 to 9 s i int rnd 99 1 if s i mod 3 0 then a a...