1樓：匿名使用者
not isempty()
試下，最好說下報的什麼錯誤。
按我理解應該改成如下的：
private sub 計算1_click()if isnumeric(tbis1) and isnumeric(tbu1) and isnumeric(tbut1) then
tbid1 = tbis1 * exp(tbu1 / tbut1) -1)
elsemsgbox "請正確輸入！"
end if
關於vb模組的問題
2樓：黑科技
分類： 電腦/網路 >>程式設計 >>其他程式語言。
問題描述：在vb中什麼時候需要設定模組呢？模組到底是用來幹什麼的？
解析： vb模組也稱**模組：
visual basic 的**儲存在模組中。模組有三種型別：窗體、標準和類。
簡單的應用程式可以只有乙個窗體，應用程式的所有**都駐留在窗體模組中。而當應用程式龐大複雜時，就要另加窗體。最終可能會發現在幾個窗體中都有要執行的公共**。
因為不希望在兩個窗體中重複**，所以要建立乙個獨立模組，它包含實現公共**的過程。獨立模組應為標準模組。此後可以建立乙個包含共享過程的模組庫。
每個標準模組、類模組和窗體模組都可包含：
宣告。可將常數、型別、變數和動態鏈結庫 (dll) 過程的宣告放在窗體、類或標準模組的模組級。
過程。sub、function 或者 property 過程包含可以作為單元來執行的**片段。
窗體模組。窗體模組（擴充套件名為 .frm ）是大多數 visual basic 應用程式的基礎。
窗體模組可以包含處理事件的過程、通用過程以及變數、常數、型別和外部過程的窗體級宣告。如果要在文字器中觀察窗體模組，則還會看到窗體及其控制項的描述，包括它們的屬性設定值。寫入窗體模組的**是該窗體所屬的具體應用程式專用的；它也可以引用該應用程式內的其它窗體或物件。
標準模組。標準模組（擴充套件名為 .bas）是應用程式內其它模組訪問的過程和宣告的容器。
它們可以包含變數、常數、型別、外部過程和全域性過程的全域性（在整個應用程式範圍內有效的）宣告或模組級宣告。寫入標準模組的**不必綁在特定的應用程式上；如果不小心用名稱引用窗體和控制項，則在許多不同的應用程式中可以重用標準模組。
類模組。在 visual basic 中類模組（擴充套件名為 .cls）是物件導向程式設計的基礎。
可在類模組中編寫**建立新物件。這些新物件可以包含自定義的屬性和方法。實際上，窗體正是這樣一種類模組，在其上可安放控制項、可顯示窗體視窗。
關於vb的小問題
3樓：
setmynum是乙個變數。val表示把括號後面的數轉化為10進製的數值形式。
&h是16進製制數字的開頭。寫在" "裡面表示加上&h這兩個字元竄。如加號後面的數值=5的話，setmynum就等於val(&h5)這個意思。
+號後面的mid（sur,11+4*1,4）是取值的函式，sur表示從sur這個變數裡面取值，中間的表示從第幾項開值取值，（從第一項開始數，第乙個數為第1項，不是從0開始數）最後面的4為取幾個數，上面如果sur=12345678901234567890的話，而且i 等於1的話setmynum就等於取第15個數開始的後4個數字。就是5678，最後前面加上引號裡的字元，完整的就是，setmynum=val(&h5678)最後結果為 setmynum=22136.因為16進製制的&h5678轉化為10進製的val就是22136
4樓：匿名使用者
val函式將數字字元轉成對應的數值，字元前面加"&h"是將其作為十六進位制處理。mid(sur, 11 + 4 * i, 4)裡面是從sur第11 + 4 * i個字元處開始取四個字元出來。
關於vb程式設計的小問題
5樓：匿名使用者
這個問題你問的比較到位。
在vb裡面，子窗體和父窗體之間有乙個選單是否重疊的設定。你可以進行選擇當子窗體最大化是，子窗體的選單是否和父窗體的重疊。
焦點，就是當前的活動物件，也就是說，如果有3個文字框，當你把滑鼠點到第二個上時 ，你輸入的內容就會在第二個顯示，而其他兩個不會有反應，這個時候其實就是第二個是獲得了當前焦點。
不清楚可以繼續提問。
如果你選擇了子窗體選單覆蓋父窗體選單，那麼子窗體選單就會出現在父窗體選單的位置，如果你選擇了重疊，那就是重疊在父窗體選單的位置，總之，就是出現在父窗體選單的位置。
6樓：匿名使用者
1、子視窗的選單顯示位置，當然在子窗體的選單欄上了。在vb裡面的多視窗模式下，子視窗的選單可以放在父視窗的選單欄上。如果是右鍵選單，會在滑鼠右鍵點選的位置旁邊，具體是哪邊由系統自動控制，反正是盡量讓你的選單放在能看得見的地方。
2、焦點可以理解為讓滑鼠和鍵盤輸入的地方。如果乙個視窗獲得焦點，那麼你操作滑鼠和鍵盤，這個視窗的程式就可以直接接收到。如果乙個文字框獲得焦點，你輸入鍵盤，內容就會被這個文字框接收到。
7樓：
getfocus
焦點 就是你準備點選的地方或者指示的地方。
子窗體有自己的選單 選單的位置不會因為焦點而改變。
關於vbs程式設計的一些問題
8樓：網友
vbs是一種基於vb語言的指令碼程式設計方法，你也可以叫他是一種程式語言。所以如果你已經有很好的vb基礎的話是很容易學的，不過你學過c++也不錯因為計算機各種程式語言都是有相似之處的。學會vbscript指令碼你就可以製作一些高階或者低階的指令碼程式完成自動處理功能，比如說過去網上流行的「不說我愛你就關機」指令碼，這些都是很簡單和低階的。
而且學會vbscript你就基本可以編寫asp網頁（這可是目前應用相當流行的網頁哦），而且可以方便你更好的學習和認識vb語言（相信你如果在c++的基礎上學會了vb語言就更不錯了，呵呵）。
我前段時間學習過這種指令碼，很有意思，剛開始感覺很簡單後來感覺越學不懂的越多。至於這方面的書確實不太多，我看過一本很不錯的《vbscript程式設計師參考手冊》是一本紅皮書。還有一些我學習時用過的一些電子資料，你要的話我發給你。
9樓：**聖使
我學vbs也沒有看啥書啊，只是下了個"vbscript 語言參考 .chm"和"vbs指令碼程式設計簡明教程之一。doc",看了個大概。
編寫vbs用的是"vbsedit ",其實它也是乙個很好的教程。
這是vb的乙個問題？
10樓：巫馬英武
就像你在ktv選姑娘，乙個乙個進來，從1~5你看了5個，每看乙個，媽媽桑就喊一聲「next」，也就是迴圈了5次，但第6個姑娘還是得進來，為什麼進來呢，因為5執行以後，下面還有乙個next，就是媽媽桑最後又喊了一聲「下乙個」，懂了不？
11樓：岔路程式緣
這是執行順序的原因造成的，為敘述方便，先把語句編號：
for n=1 to 5①
next②print n③
執行順序是：
1、第一次執行①：首先建立迴圈：迴圈變數n，初值1，終值5，步長是預設的1。然後n賦值1，比較n=1≤5成立，執行下一句；
2、執行②：n加1變成2，返回①；
4、再執行②：n加1變成3，返回①；
6、執行②：n加1變成4，返回①；
7、第四次執行①：n=4≤5成立；
8、執行②：n+1變成5，返回①；
9、第五次執行①：n=5≤5成立；
10、執行②：n+1變成6，返回①；
11、第六次執行①：n=6≤5不成立，跳出迴圈，程式去執行next後面的那一句。
12、執行③，列印n的值，這時n的值是6，故列印出6。
程式執行時輸出6是正確的。
關於vb的問題
12樓：杜琳禕
str()的作用是將數字型變數或常量改變成字元型變數或常量，舉例如下：
對於常量：str(35)="35 ",str(" 以此類推。(注意字串" 35"的前面有乙個空格。
對於變數：則把變數的值變成字串，如：假定a ＝287，則str(a)="287 ",以此類推。（注意前面也有空格）
對於你說的str(abc)，因為abc不是數字，所以vb系統就把它當成變數abc，就去調abc的值，因從未對abc賦值，系統預設為0，所以就把那個0轉化成字串了，?str(abc) 就列印出字串" 0"（前面有乙個空格）。
綜上所述 str(""注意 前面有個空格。
13樓：匿名使用者
不懂嗎？ 我解釋一下。
len()是取位元組長度 "3212" 長度是4 所以 開頭是4然後str()是強制轉換 原本是浮點形的 轉換成了字元型之後是 4+字元型的 就是4 88.
8 然後用str強制轉換成了字元型 所以 b 4 出來是字元型的。
我的部落格：
14樓：網友
我認為應該是a 因為是字串連線呀 不是數值相加 怎麼回事b呢 不可能有空格的。
15樓：匿名使用者
str是將數字轉換為字串。
+用在兩個字串之間，它的作用相當於字串連線符 &樓上的你看看 msdn 對str的介紹就知道為什麼會有空格了當用str將一數字轉成字串時，總會在前頭保留一空位來表示正負。如果 數字 為正，返回的字串包含一前導空格暗示有一正號。
所以是b,不是a
如果沒有使用str進行轉換，那結果就是你說的。
16樓：匿名使用者
僅供參考～
private sub command1_click()
dim warning as string
dim sql as string
warning =
'輸入有效性判斷。
if textuser = then warning = warning & 使用者名稱 "
if textpassword = then warning = warning & 密碼 "
if warning <>then
msgbox warning & 不能為空值！",0 + 48 + 0, "警告"
textuser =
textpassword =
elsesql = select * from 使用者管理 where 使用者名稱 ='textuser & and 使用者密碼 ='textpassword &
'sql = select * from 使用者管理 where 使用者名稱 ="textuser & and 使用者密碼 = textpassword &
openrs (sql)
if not ( and then
grade = rst("使用者等級") 記錄使用者等級。
userid = rst("使用者名稱") 記錄使用者名稱。
call userlogin '填寫登陸記錄。
= true
unload me
elsemsgbox "該使用者不存在！",0 + 32 + 0, "登陸失敗"
textuser =
textpassword =
grade = 0
end if
closers
end if
end sub
問關於VB的問題，問乙個關於VB 的問題？
1全部定義陣列m,產生3個陣列元素m 0 m 1 m 2 dim m 2 通過迴圈，為陣列元素賦初值，m 1 0,m 2 0 for i 1 to 2 m i 0 next i 以下是二重迴圈，外迴圈i 可取值1，2 內迴圈j可取值1，2。執行時 當外迴圈i 1時，內迴圈變數j的取值走一圈，如下 i...
VB程式設計遇到的乙個問題，關於VB程式設計的小問題
二樓的是錯誤的，寫成 會出錯，直接寫成 就行了。至於怎樣用user變數作為過度變數，關鍵是要將user定義為函式形式而不是變數形式，具體做法如下 a.公共部分 option explicit public function user s as string as string user s end ...
關於VB的幾個問題
一 有兩個簡單的方法。假如我的登入按鈕是 cmdok1 把cmdok 的。default 屬性設為 true2 keypress事件。private sub text1 keypress keyascii as integer if keyascii 13 then call cmdok click...