Ⅰ VB編程入門

一個簡單的計算器：代碼

'定義變數

Dimoptiontag,a1,k

'數字0

PrivateSubcmd0_Click()

txt1=txt1&0

EndSub

'數字1

PrivateSubcmd1_Click()

txt1=txt1&1

EndSub

'數字2

PrivateSubcmd2_Click()

txt1=txt1&2

EndSub

'數字3

PrivateSubcmd3_Click()

txt1=txt1&3

EndSub

'數字4

PrivateSubcmd4_Click()

txt1=txt1&4

EndSub

'數字5

PrivateSubcmd5_Click()

txt1=txt1&5

EndSub

'數字6

PrivateSubcmd6_Click()

txt1=txt1&6

EndSub

'數字7

PrivateSubcmd7_Click()

txt1=txt1&7

EndSub

'數字8

PrivateSubcmd8_Click()

txt1=txt1&8

EndSub

'數字9

PrivateSubcmd9_Click()

txt1=txt1&9

EndSub

'+號

PrivateSubcmdadd_Click()

a1=txt1

txt1=""

optiontag=1

EndSub

'*號

PrivateSubcmdche_Click()

a1=txt1

txt1=""

optiontag=3

EndSub

'/號

PrivateSubcmdchu_Click()

a1=txt1

txt1=""

optiontag=4

EndSub

'清除

PrivateSubcmdclear_Click()

txt1=""

EndSub

'結果

PrivateSubcmdjie_Click()

'判斷文本框是否有數字輸入

Iftxt1=""Then

k=MsgBox("請輸入數據！",vbOKOnly,"信息提示")

EndIf

'計算部分

SelectCaseoptiontag

Case1

txt1.Text=Val(a1)+Val(txt1.Text)

Case2

txt1.Text=Val(a1)-Val(txt1.Text)

Case3

txt1.Text=Val(a1)*Val(txt1.Text)

Case4

'判斷分母不能為0

Iftxt1.Text="0"Then

k=MsgBox("分母不能為0！",vbOKOnly,"信息提示")

txt1.SetFocus

Else

txt1.Text=Val(a1)/Val(txt1.Text)

EndIf

EndSelect

EndSub

'-號

PrivateSubcmdsub_Click()

a1=txt1

txt1=""

optiontag=2

EndSub

窗體如下：

Ⅱ 我要學VB編程如何入門

先去網路文庫下一本vb基礎閱讀，若不喜歡電子書，書店有vb基礎的書賣。
基礎搞懂了，再一步步深入學習，忌好高騖遠，妄圖一蹴而就，最後搞得一知半解

Ⅲ VB編程，超簡單的。求編寫代碼

第一題：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("請輸入當前顧客購買雞蛋的重量（以公斤為單位）")
If x < 3 Then
Y = 7.6 * x
Else
Y = 7.6 * x * 0.8
End If
Print Format(Y, "0.00")
End Sub

第二題：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("請輸入顧客所乘的公里數")
If x / Fix(x) = 1 Then
x = x
Else
x = Fix(x) + 1
End If

If x > 15 Then
Y = 7 + 13 * 1.5 + (x - 15) * 2.1
ElseIf x > 2 Then
Y = 7 + (x - 2) * 1.5
Else
Y = 7
End If

Print Y
End Sub

Ⅳ 如何入門VB寫代碼！！高分

（三樓的，print Hello VB World!竟然不加雙引號，很大的語法錯誤！一樓提到的API函數，建議你暫時不要學，等VB代碼方面有了一定的基礎，再去學。）代碼的話，建議你找一些書來看看。一邊看，一邊理解一下每個函數（就是MsgBox，InputBox，Len，Mid，Left）等函數。一開始可能不習慣，那時候你可以查查每個函數的意思。理解每句話的意思。多看一些關於VB的例子。這樣，你就很容易寫出代碼了。

Ⅳ 初學編程VB 開始 如何入門呢

計算器雖然是個小程序，不過設計的時候用到的知識比較多，而且邏輯方面並不簡單，對於一個熟練的程序來說，也需要一點時間去調試、修改才做得出來。所以這個程序並不能說明你沒有進步。
很多程序員都知道，設計一個完美的計算器，就算他的功能和Windows自帶的計算器一樣簡單，也並不是那麼容易。
還有一些看似簡單的程序，例如人們熟悉的俄羅斯方塊，其程序設計難度都並不低。
雖然本人是專職VB程序員，不過從不認為"簡單的計算器"是個簡單的程序。VB本身是種易學難精的程序設計語言，而且每個程序員都並不能精通VB的全部方方面面的功能。
首先學習VB應該系統、全面的了解語句、過程、函數、對象、方法、事件等，一邊學習一邊研究別人的思路。而且學習VB要有重點，通訊、資料庫、圖形處理等，應該選擇性的突出重點學習。

Ⅵ vb簡單代碼問題（初學者）

推薦你看一下這個問題的講解，應該就明白了。
http://www.programfan.com/club/showtxt.asp?id=253222
在tab( )設置位置 在 當前游標位置 的前面的時候,會自動換一行再定位.

Ⅶ vb編程入門學習

《Visual Basic程序設計》譚浩強
哇谷動力 視頻教程 VB 慢慢學習·基礎要掌握好

Ⅷ VB編程入門

我也剛學了幾天VB，感覺很好用，你去試試這個網站吧，初學者很容易看懂。http://www.bccn.net/Article/kfyy/vb/

Ⅸ 求VB編程常用代碼大全

1.數值型函數：
abs(num): 返回絕對值
sgn(num): num>0 1; num=0 0; num<0 -1;判斷數值正負
hex(num): 返回十六進制值 直接表示：&Hxx 最大8位
oct(num): 返回八進制值 直接表示：&Oxx 最大8位
sqr(num): 返回平方根 num>0
int(num): 取整 int(99.8)=99; int(-99.2)=100
fix(num): 取整 fix(99.8)=99; fix(-99.2)=99
round(num,n): 四捨五入取小數位 round(3.14159,3)=3.142 中點數值四捨五入為近偶取整 round(3.25,1)=3.2
log(num): 取以e為底的對數 num>0
exp(n): 取e的n次冪 通常用 num^n
sin(num): 三角函數，以弧度為值計算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num)

2.字元串函數：
len(str)：計算字元串長度 中文字元長度也計為一！
mid(str,起始字元,[讀取長度])：截取字元串中間子字元串
left(str,nlen)：從左邊起截取nlen長度子字元串
right(str,nlen)：從右邊起截取nlen長度子字元串
Lcase(str)：字元串轉成小寫
Ucase(str)：字元串轉成大寫
trim(str)：去除字元串兩端空格
Ltrim(str)：去除字元串左側空格
Rtrim(str)：去除字元串右側空格
replace(str,查找字元串,替代字元串,[起始字元,替代次數,比較方法])：替換字元串

註：默認值：起始字元 1；替代次數 不限；比較方法 區分大小寫（0）

InStr([起始字元,]str,查找字元串[,比較方法])：檢測是否包含子字元串 可選參數需同時選 返回起始位置
InStrRev(str,查找字元串[,起始字元][,比較方法])：反向檢測是否包含子字元串 返回起始位置
space(n)：構造n個空格的字元串
string(n,str)：構造由n個str第一個字元組成的字元串
StrReverse(str)：反轉字元串
split(str,分割字元串[,次數][,比較方法])：以分割字元串為分割標志將字元串轉為字元數組 可選參數需同時選

3.數據類型轉換函數：
Cint(str)：轉換正數 True -1；False 0；日期 距離1899/12/31天數；時間 上午段 0；下午段 1；
Cstr(str)：日期 輸出格式 yyyy/mm/dd；時間 輸出格式 Am/Pm hh:mm:ss
Clng(str)：與Cin()類似
Cbool(num)：num不為零 True；反之 False
Cdate(str)：轉換日期格式 0：#Am 12:00:00#；正數 距離1899/12/31天數的日期；浮點數 日期＋小數時間
Cbyte(num)：num<255 轉換為位元組
Csng(str)：轉換為單精度數值
Cdbl(str)：轉換為雙精度數值
Ccur(str)：轉換為現金格式

4.時間函數：
date：取系統當前日期
time：取系統當前時間
now：取系統當前時間及日期值 Datetime類型
timer：取當前時間距離零點秒值，計時器，可計算時間差
DateAdd(間隔單位,間隔值,日期)：推算相鄰日期
DateDiff(間隔單位,日期一,日期二)：計算時間差 日期二-日期一
Datepart(間隔單位,日期)：計算日期的間隔單位值
Dateserial(date)：輸出日期值（按序列計算）
Timeserial(time)：輸出時間值（按序列計算）
Datevalue(datetime)：取出字元串中日期值
Timevalue(datetime)：取出字元串中時間值
weekday(date)：計算星期幾
MonthName(date)：輸出月分名
year(datetime)：截取年份
month(datetime)：截取月份
day(datetime)：截取日
hour(datetime)：截取小時
minute(datetime)：截取分鍾
second(datetime)：截取秒

5.其它函數：
Array(unit,..)：動態生成數組
Asc(str)：輸出字元串第一個字元的ASCII碼
Chr(asc)：轉換ASCII為字元 Enter：Chr(13)&Chr(10)
Filter(數組名稱,關鍵字元串,[,包含][,比較方法])：

將字元串數組中含有關鍵字元串的元素存成新的數組（默認） [包含]為false則取不包含的元素

oin(ArrayName)：將數組中元素連成字元串
Ubound(ArrayName[,維數])：取得數組相應維數的上界
Lbound(ArrayName[,維數])：取得數組相應維數的下界 一般為0
Randmize n：啟動隨機數種子
Rnd(n)：取得隨機數，n>0或為空，取序列下一隨機值，n<0，隨機值相同，n=0，生產與上一隨機值相同的數

取介於A和B之間的隨機正數C，公式：C=Int((B-A+1)*Rnd+A) 條件（B>A）

子程序和自定義函數
Sub StrSubName Function StrFunName(arg[1],..)
子程序體 函數體
Exit Sub 中途跳出 Exit Function 中途跳出

End Sub StrFunName＝value 返回值

End Function

[call] StrSubName 引用子程序 Var=StrFunName(arg[1],..) 引用函數

Ⅹ 學VB編程入門

網路視頻搜：
VB蝸牛
編程粉筆

或來我的播客
http://you.video.sina.com.cn/m/1757918523

推薦個網站：
www.51xue8xue8.com