Ⅰ 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