vb语言基本代码（vb简单程序代码）

本文目录

• vb简单程序代码
• vb加法计算代码
• vb:简易计算器（加减乘除）代码
• VB用的基本语句有哪些
• 简单的VB代码
• 用VB编写一个计算器程序的代码
• VB （Visual Basic） 代码解释 请解释一下每一句的意思和功能
• vb程序常用代码意思分别是
• vb代码求教，新学的

vb简单程序代码

我做的，你看看，自己修改修改吧，附件传不上，就贴代码吧，控件就几个

2个command，2个label，1个text,1个timer。直接放就行

Dim sj As Integer, jia As Integer, bjia As Integer, total As Integer
Private Sub Command1_Click()
Call chou
Timer1.Enabled = True
Command2.Top = Command1.Top
Command2.Left = Command1.Left
Command1.Visible = False
Command2.Visible = True
End Sub
Private Sub Command2_Click()
If Val(Text1) = jia + bjia Then
    total = total + 10
Else
    total = total - 10
End If
Label2.Caption = "总分：" + Str(total)
    Call chou
    Text1 = ""
If total 《 0 Then
    MsgBox "分数低于0，GameOver！", vbExclamation, "游戏"
    Timer1.Enabled = False
    Command1.Visible = True
    Command2.Visible = False
    total = 0
    Exit Sub
ElseIf total = 100 Then
    MsgBox "分数满100分，游戏结束！", vbExclamation, "游戏"
    Timer1.Enabled = False
    total = 0
    Exit Sub
End If
sj = 10
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Me.Caption = "小游戏"
Command1.Caption = "开始"
Command2.Caption = "确定"
Command2.Visible = False
Text1 = ""
Label2.Caption = "总分：？"
Label1.Caption = "？+？"
sj = 10
End Sub
Sub chou()
Randomize
jia = Int(Rnd(1) * 89 + 10)
bjia = Int(Rnd(1) * 89 + 10)
Label1.Caption = Str(jia) + "+" + CStr(bjia) + "= ?"
Text1.SetFocus
End Sub
Private Sub Timer1_Timer()
If sj = 0 Then
    total = total - 10
    sj = 10
    Call chou
End If
Me.Caption = "小游戏  " + Str(sj) + "秒"
sj = sj - 1
End Sub

vb加法计算代码

Private Sub Command1_Click()Dim a As Integer,b As

Integera=Val(Text1.Text)b=Val(Text2.Text)Text3.Text=a+bEnd Sub在这段VB程序中，“a=Val(Text1.Text)b=Val(Text2.Text)”是加法的代码。

代码如下：

Private Sub Command1_Click()

Label2.Caption = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = "": Text2.Text = "": Label2.Caption = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

扩展资料

Option Explicit

Private Sub Combo1_Change()

End Sub

Private Sub Command1_Click()

If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then

Select Case Combo1.Text

Case "+"

Text3.Text = CLng(Text1.Text) + CLng(Text2.Text)

Case "-"

Text3.Text = CLng(Text1.Text) - CLng(Text2.Text)

Case "×"

Text3.Text = CLng(Text1.Text) * CLng(Text2.Text)

Case "÷"

If CLng(Text2.Text) 《》 0 Then Text3.Text = CLng(Text1.Text) / CLng(Text2.Text) Else MsgBox "出数不能为0", vbOKOnly, "提示"

Case Else

MsgBox "请选择运算方式", vbOKOnly, "提示"

End Select

Else

MsgBox "请输入数字", vbOKOnly, "提示"

End If

End Sub

Private Sub Form_Load()

Combo1.AddItem "+"

Combo1.AddItem "-"

Combo1.AddItem "×"

Combo1.AddItem "÷"

End Sub

vb:简易计算器（加减乘除）代码

代码如下：

Dim t, t1 As Integer

Dim x, y As Double

Public Sub com()

x = Val(l1.Caption)

Select Case t1

Case Is = 1: y = y + x

Case Is = 2: y = y - x

Case Is = 3: y = y * x

Case Is = 4: y = y / x

End Select

t1 = 0

t = 0

l1.Caption = "0"

End Sub

Private Sub Form_Load()

x = 0

y = 0

t = 0

t1 = 1

End Sub

Private Sub c0_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "0"

Else

l1.Caption = l1.Caption + "0"

End If

End Sub

Private Sub C1_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "1"

Else

l1.Caption = l1.Caption + "1"

End If

End Sub

Private Sub c10_Click(Index As Integer)

If t = 0 Then

l1.Caption = l1.Caption + "."

t = 1

End If

End Sub

Private Sub C2_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "2"

Else

l1.Caption = l1.Caption + "2"

End If

End Sub

Private Sub C3_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "3"

Else

l1.Caption = l1.Caption + "3"

End If

End Sub

Private Sub C4_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "4"

Else

l1.Caption = l1.Caption + "4"

End If

End Sub

Private Sub C5_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "5"

Else

l1.Caption = l1.Caption + "5"

End If

End Sub

Private Sub C6_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "6"

Else

l1.Caption = l1.Caption + "6"

End If

End Sub

Private Sub C7_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "7"

Else

l1.Caption = l1.Caption + "7"

End If

End Sub

Private Sub C8_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "8"

Else

l1.Caption = l1.Caption + "8"

End If

End Sub

Private Sub C9_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "9"

Else

l1.Caption = l1.Caption + "9"

End If 

End Sub

Private Sub z1_Click(Index As Integer)

com

t1 = 1

End Sub

Private Sub z2_Click(Index As Integer)

com

t1 = 2

End Sub

Private Sub z3_Click(Index As Integer)

com

t1 = 3

End Sub

Private Sub z4_Click(Index As Integer)

com

t1 = 4

End Sub

Private Sub z5_Click(Index As Integer)

tmp = Mid(l1.Caption, Len(l1.Caption), 1)

If tmp = "." Then

t = 0

End If

If Len(l1.Caption) = 1 Then

l1.Caption = "0"

Else

l1.Caption = Left(l1.Caption, Len(l1.Caption) - 1)

End If

End Sub

Private Sub z6_Click(Index As Integer)

l1.Caption = "0"

Form_Load

End Sub

Private Sub z7_Click(Index As Integer)

If (l1.Caption 《》 "0") Then

l1.Caption = "-" + l1.Caption

End If

End Sub

Private Sub z8_Click(Index As Integer)

com

l1.Caption = Str(y)

End Sub

扩展资料

语言缺点

Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb .net 获得改进）。

不支持继承

VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。

无原生支持多线程

Visual Basic 对于多线程无原生支持，只能通过Windows API的调用实现，且极其的不稳定。因为在API创建的线程中，并没有自动初始化运行时库，导致部分的函数无法使用。一般的，在VB6等早期的VB开发环境下，使用API创建线程的目的是完成容易使程序假死的大量数据或者逻辑的计算。

异常处理不完善

Visual Basic 中内置异常处理，即使未写异常处理代码，一旦用户出错也会弹出一个明确写出出错原因对话框，接着程序终止。

Visual Basic 中可以使用 Err.Raise抛出异常。对系统及用户抛出的异常的处理常用两种模式：一是使用 On Error Resume Next 处理错误；另一种是使用 On Error Goto 将运行引入错误处理代码。但相对 C++ 等语言而言，这样的异常处理破坏了代码的结构。

VB用的基本语句有哪些

VB程序中的一行代码称为一条程序语句，简称为语句。语句是构成程序的基本单位，是执行具体操作的指令，每条语句以ENTER键结束。基本语句有：

1、 注释语句

注释不仅仅是对程序的解释，有时它对于程序的调试也非常有用，譬如说可以利用注释屏蔽一条语句以观察变化，发现问题和错误。注释语句是我们在编程里最经常用到的语句之一。

在VB里，注释语句有两种，一种是用“Rem”关键字，这跟DOS里的批处理文件的用法一样，还有一种是利用单引号“’”，例如：‘Dim a As String与Rem Dim a As String的作用是一致的。

2、长语句的分行

在比较早的版本中，因为没有象C等语言用“；”隔开语句与语句，VB的语句是必须写在一行里的，不过在VB之后的版本里可以用分行符“_”把一个长语句分成若干行来存放。

3、条件语句

VB的条件语句更符合英语的语法，如果Then后面所跟的语句只有一条，可以写成：

条件1

True/False

语句1

条件2

True/False

语句2

条件3

True/False

?

?

?

条件N

True/False

语句N

4、循环语句

循环结构是计算机语言里一种重要的结构，它的应用广泛，最简单的例子是累加器的作用，还可以用于穷举法，更直观的例子是把某件事重复指定的次数，这样就不用把要重复的语句输入多次，而通过循环结构完成，非常方便。

C语言里有一个“for”循环语句，VB里也有“For”关键字，作用也差不多，只是VB的“For”语句更容易理解。它的格式是：

For《循环变量》=《初赋值》To《终值》

Next《循环变量》

在默认情况下，Step被设为“1”，可以省略，Step也可以设为负值，例如：

Dim a=0

For I=1 To10

a=a+ I

Next I

5、While语句

While后面都跟逻辑条件判断，“Do While??Loop语句”和“While??Wend语句”作用相似，都是先判断While后面的条件是否为“真”，如果为“真”则执行里面的语句，如果为“假”，则退出循环，循环直至条件为“假”终止。

“Do??Loop While”与前两者的区别在于，它不管条件的真假，都会先执行“Do”后面的语句，也就是说，它至少执行语句一次。

6、Until语句，它是直至条件为真则终止循环，句式把While上述三个语句的While换成Until即可，但是因为容易记混，所以我建议只用While即可。Until《条件》可以相当于While Not《条件》。

For循环和Whlie循环应当根据适当的环境使用，它们有时也可替换。

简单的VB代码

本题最后一行是说文本文件的9行数据为：
3
4
6
8
1
2
5
9
3
根据程序代码执行的流程，对变量x,y,z跟踪如下；
首先：y = 0，x = CDbl(sr.ReadLine)
这里读取文件的第一行，保存到变量x，所以：x = 3
执行循环
Do While x 《 5
If x = 4 Then
sr.Close()
sr = IO.File.OpenText("data1.txt")
End If
z = x + y
x = CDbl(sr.ReadLine)
y = CDbl(sr.ReadLine)
Loop
因为x = 3，满足x 《 5，但是不满足x = 4，所以：
z = x + y ==》z=3
x = CDbl(sr.ReadLine) ==》x=4 ’读第2行
y = CDbl(sr.ReadLine) ==》y=6 ’读第3行
执行循环
Do While x 《 5
If x = 4 Then
sr.Close()
sr = IO.File.OpenText("data1.txt")
End If
z = x + y
x = CDbl(sr.ReadLine)
y = CDbl(sr.ReadLine)
Loop
因为x = 4，满足x 《 5，也满足x = 4，所以：
执行
sr.Close()
sr = IO.File.OpenText("data1.txt")
即：先关闭文件，再次打开文件；
执行，将重新从文件第1行开始读取
z = x + y ==》z=10
x = CDbl(sr.ReadLine) ==》x=3 ’读第1行
y = CDbl(sr.ReadLine) ==》y=4 ’读第2行
执行循环
Do While x 《 5
If x = 4 Then
sr.Close()
sr = IO.File.OpenText("data1.txt")
End If
z = x + y
x = CDbl(sr.ReadLine)
y = CDbl(sr.ReadLine)
Loop
因为x = 3，满足x 《 5，但是不满足x = 4，所以：
执行
z = x + y ==》z=7
x = CDbl(sr.ReadLine) ==》x=6 ’读第3行
y = CDbl(sr.ReadLine) ==》y=8 ’读第4行
执行循环
Do While x 《 5
If x = 4 Then
sr.Close()
sr = IO.File.OpenText("data1.txt")
End If
z = x + y
x = CDbl(sr.ReadLine)
y = CDbl(sr.ReadLine)
Loop
因为x = 6，不满足x 《 5，循环结束
所以最后z的内容是 7 ，所以文本框显示7

用VB编写一个计算器程序的代码

1、创建控件组的方法
首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。

这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。

2、各控件组其属性设置如下：

设置效果如下图所示：

二、编写代码

Dim s1 As Single， s2 As Single， ysf As String

‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符

Private Sub Command1_Click（Index As Integer）

Text1.Text = Text1.Text & Command1（Index）.Caption ’将command1的单击事件与文本框显示的内容连接

End Sub

Private Sub Command2_Click（）

Text1.Text = Text1.Text + “。”

If （InStr（Text1.Text， “。”） = 1） Then ‘第一位不能为小数

Text1.Text = “”

End If

If InStr（Text1.Text， “。”） 《 Len（Text1.Text） Then ’防止出现两个小数点

Text1.Text = Left

（Text1.Text， Len（Text1.Text） - 1）

End If

End Sub

Private Sub

Command3_Click（）

s2 = Val（Text1.Text） ‘开始加减乘除运算

Select Case ysf Case “+”

Text1.Text = s1 + s2

Case “-”

Text1.Text = s1 - s2

Case “*”

Text1.Text = s1 * s2

Case “/”

If s2 = 0 Then

MsgBox “分母不能为零！”

Text1.Text = “”

Else

Text1.Text = s1 / s2 End If End Select

Text1 = IIf（Left（Text1.Text， 1） = “。”， 0 & Text1.Text， Text1.Text） ‘

这个很关键，如果没有这个的话，得出小于1的小数前面没有0

End Sub

Private Sub Command4_Click（）

If Text1.Text = “” Then ’文本为空就结束

Exit Sub

End If

Text1.Text = Left（Text1.Text， Len（Text1.Text） - 1） ‘文本退一格

End Sub

Private Sub Command5_Click（）

Text1.Text = “” ’清除当前框内文本

End Sub

Private Sub Command6_Click（Index As Integer）

s1 = Val（Text1.Text） ‘将s1隐藏起来 ysf = Command6（Index）.Caption

Text1.Text = “”

End Sub

Private Sub Command7_Click（）

If Left（Text1.Text， 1） 《》 “-” Then ’判断作为负数

Text1.Text = “-” & Text1.Text

Else

Text1.Text = Right（Text1.Text， Len（Text1.Text） - 1）

End If

End Sub

Private Sub Command8_Click（）

Text1.Text = Text1.Text * Text1.Text ‘平方

End Sub

拓展资料

Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。

参考链Visual Basic——百度百科接

VB （Visual Basic） 代码解释 请解释一下每一句的意思和功能

Sub Main
Dim infile As String 定义输入文件变量为：infile 字符型
Dim outfile As String 定义输出文件变量为：outfile 字符型
Dim inline As String 定义在线文件变量为：inline 字符型
Dim surface_x As Double, surface_y As Double, surface_z As Double
定义外形坐标：surface_x ，surface_y surface_z 双精度型
Dim linein_error As Boolean, fval_ok As Boolean 定义逻辑变量： _error, _ok
Dim vxre As Double, vyre As Double, vzre As Double, vxim As Double, vyim As Double, vzimAs Double 定义双精度实部、虚部变量：vxre，vyre，vzre; vxim, vyim, vzim
Dim CST_points(MAX_NP) As coordinates
Dim count As Long 定义长整形变量： count，用于计数
Dim WhereAmI As String 定义条件表达式变量：WhereAmI 字符型
下面建立用户对话框：
Begin Dialog UserDialog 600,112,"Extract FieldData at Points specified in a File",.DialogFunc ’ %GRID:10,7,1,1
Text20,21,90,14,"Input File",.Text1 提示“输入文件名”的文本：Text1
Text20,49,90,14,"Output File",.Text2 提示“输出文件名”的文本：Text2
TextBox100,21,390,21,.Infile 输入输入文件名的文本框：记入infile
TextBox100,49,390,21,.Outfile 输入输出文件名的文本框：记入outfile PushButton500,21,90,21,"Browse",.Browseinputfile 浏览按钮
OKButton410,84,90,21 确认按钮
CancelButton500,84,90,21 中止按钮
EndDialog

vb程序常用代码意思分别是

★条件判断语句
条件判断控制最主要的概念在于条件表达式的功能。相关的流程控制语句，会依据所给定的测试
数据，对程序部分片段作选择性的执行操作。
在VB中提供了If...Then与Select Case两种条件判断语句。
If...Then判断语句
If..Then判断语句属于一种单行假设判断语句，它会按照用户所给定的比较或逻辑表达式
进行判断。当判断结果为“True”也就是真时，则执行Then后的程序代码块，否则跳过该块的执行步骤。
使用语法的方法如下：
If 判断式 Then 执行语句
或
If 判断式 Then
执行语句1
执行语句2
End If
其实上述的两种语法并不相同的，主要差异在于第一种写法是使用在处理程序部分的源代码较短，
无需分段的时候：
If a 》 b Then Print "a 》 b"
而当处理程序部分需要分段时，则必须使用第二种写法将执行语句包括在"If...Then...End If"范围中：
If a 》 b Then
c = a + b
Print "a + b = " & c
End If
而If...Then...Else...End If语句则可以将不符合条件式的情况，交给Else后所接的程序代码来处理：
例如：
If a 《 b Then
c = a + b
Else
c = a - b
End If
Print c
在上面程序片段中，变量C的数值会由条件式”a《b“成立与否而有不同的输出结果。
至于ElseIf的语法也是和If搭配来使用，它主要是用来进行多重逻辑判断。
If...ElseIf...Else...End If使用语法的方法如下：
If 判断式1 Then //当判断式1成立时，执行以下语句
程序语句 甲
ElseIf 判断式2 Then //当判断式1不成立，但判断式2成立时执行以下语句
程序语句乙
ElseIf 判断式3 //当判断式1和2都不程序，但判断式3成立时执行以下语句
程序语句 丙
Else //当上面所有判断式都不成立时，执行下面的语句
程序语句 丁
End If
★Select Case判断语句
Select Case流程控制语句可以根据判断式的返回值来执行不同程序代码片段。
Select Case语法如下：
Select Case 参数
Case 条件1 //当判断式满足条件1时就执行以下的语句
程序语句1
程序语句2
Case 条件2 //当判断式满足条件2时就执行以下的语句
程序语句1
程序语句2
Case Else //当判断式无满足任何条件时就执行Case Else标签后的语句
程序语句1
End Select
由于Select Case仅能传入一个参数，也就是说它无法执行“比较”与“判断”的操作，并且Case
仅能是数值而不能是表达式。
以下这个是个错误程序的片段：
Select Case A 》 B //错误！！！仅能传送一个参数
或是
Select Case A
Case A 《 C //错误！！！Case只能接受数值
★循环语句
当程序需要执行重复性工作时，可以使用循环控制语句连续执行某段程序代码，直到满足特定条件为
止。
VB提供了Fot...Next、While...Wend与Do...Liio三种循环控制语法。
For...Next循环语句
For...Next属于先测试循环控制语句，属于基本的循环控制语法。它按照用户所赋予的初值、终值
与步长表达式来重复执行某一特定程序区段。在每次执行前，系统会先检查目前初值状态是否符合
终值条件，如果不符合终值条件的话则执行增量运算后，再执行循环语句：反之如符合终值条件，则
跳出循环。
For 循环语法如下：
For 初值 to 终值 Step 步长
程序语句
Next
While...Wend循环语句
While...Wend属于先测试循环语句，当执行条件参数成立时，程序会执行While循环内语句内容，直到
条件参数不成立时为止。
While...Wend循环语句如下：
While 执行条件
执行语句1
执行语句2
Wend
Do...Loop循环语句
Do...Loop循环控制的运用与For...Next以及While...Wend语句类似，但是在执行过程上有一点差异。
那就是Do...Loop循环控制不管条件式是否成立，必定会先执行一次循环内的程序代码。
Do...Loop循环语法如下：
Do
执行语句1;
执行语句2;
…
Loop 条件判断式
Do...Loop的条件判断式有“Do...Loop While”与“Do...Loop Until”两种写法，分别说明如下：
Do...loop While语法如下：
Do
i = i + 1
Loop While i 《= 100
上面循环语句执行时，会走进行“i=i+1”的运算操作，再判断While后所加的条件式。
Do...Loop Until语法如下：
Do
i = i + 1
Loop Until i = 100
上面循环语句执行时，同样会先执行“i=i+1”的运算，再判断While后所加的条件式。
★无条件跳转控制
VB中提供了一个无条件跳转语句“GoTO”命令，让用户搭配程序代码标识符，进行指定位置的跳转
操作。
声明语法如下所示：
标识符字符串： //将标识符字符串后加上冒号，例如firstBlock:
程序代码标识符建立完成后，用户即可在程序中的任意位置执行“GoTo”命令，即能跳到程序代码
的标识符位置，执行其后所包含的代码内容。

vb代码求教，新学的

Private Sub command1_click()
Dim I As Integer, N As Integer, SUM As Long

For I = 100 To 999
If Val(Mid(CStr(I), 1, 1)) 》 Val(Mid(CStr(I), 2, 1)) And Val(Mid(CStr(I), 2, 1)) 》 Val(Mid(CStr(I), 3, 1)) Then
N = N + 1
SUM = SUM + I
End If
Next I
Print "个数："; N
Print "和："; SUM
End Sub