13518219792
Dim BDS, JSS, I As Integer
创新互联专注于西华网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供西华营销型网站建设，西华网站制作、西华网页设计、西华网站官网定制、微信小程序开发服务，打造西华网络公司原创品牌,更为您提供西华网站排名全网营销落地服务。
Private Sub Command1_Click()
Dim kkl() As String '取出各行表达式的运算符的数值
ReDim kkl(UBound(BDS))
For I = 0 To UBound(BDS)
kkl(I) = Right(Left(BDS(I), 3), 1) '取出表达式的运算符
Select Case kkl(I)
Case "+"
JSS = Split(BDS(I), "+") '取出运算符二边的数据，存储在 JSS 数组中，下同
Text2.Text = Text2.Text Val(JSS(0)) + Val(JSS(1)) vbCrLf '在文本框2中显示计算结果。数据必须转换为数字数据！，下同
Case "-"
JSS = Split(BDS(I), "-")
Text2.Text = Text2.Text Val(JSS(0)) - Val(JSS(1)) vbCrLf
Case "*"
JSS = Split(BDS(I), "*")
Text2.Text = Text2.Text Val(JSS(0)) * Val(JSS(1)) vbCrLf
Case "/"
JSS = Split(BDS(I), "/")
Text2.Text = Text2.Text Val(JSS(0)) / Val(JSS(1)) vbCrLf
End Select
Next I
End Sub
Private Sub Form_Load()
Text1.Text = Text1.Text "33*33" vbCrLf
Text1.Text = Text1.Text "33+33" vbCrLf
Text1.Text = Text1.Text "33*33" vbCrLf
BDS = Split(Text1.Text, vbCrLf) '将数据存储到 BDS 数组中
End Sub
这个程序符合二位数与二位数的+、-、*、/ 的计算，比较简单。
DateAdd函数 返回
返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。
语法
DateAdd(interval, number, date)
DateAdd 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，是所要加上去的时间间隔。
number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。
DateDiff函数 返回
返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
语法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔
Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。
先乘除后加减，从右到左运算。
VB中运算符的计算优先级顺序如下:算术运算符和串联运算符求幂(^)一元标识和非(+、–)乘法和浮点除法(*、/)整数除法(\)取模(Mod)加法和减法(+、–)，字符串连接(+)字符串连接()算术移位()比较运算符。
扩展资料
vb.net 特性：
1、vb.net 完全集成到 Visual Studio 集成开发环境中，在这种集成开发环境与 VB 在若干方面有差异。主要体现在窗体的布局以及菜单等方面都有所不同。
2、vb.net 项目与 VB 不同。它使用基于文件夹的模型，所有项目均放置在项目文件夹层次结构中。
3、vb.net 中使用ado.net来访问数据库，ado.net是.netFramework的一部分。在 vb.net 中实现数据访问的方法主要有两种。
其一是在程序设计阶段，通过创建、配置数据适配器 DataAdapter 和生成数据集 DataSet；其二是在运行中，通过编程方式动态创建配置数据适配器和创建、生成数据集。
4、在 vb.net 中是使用asp.net技术来编写 Web 页面的。在asp.net中使用的也不是脚本语言，而是真正意义的编程语言。
凭借asp.net的 Web 应用程序、XML Web Services 等基于 Web 的功能，使得 vb.net 开发 Web 页面与开发 Windows 应用程序很相似，Web 页面代码也显得有条有理了。
5、vb.net 已经成为完全的面向对象的编程语言，并且新增更多语言特性。
Public Class Form1
Dim code As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
code -= 1
TextBox1.Font = New Font("宋体", code)
End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
code = 10
End Sub
End Class改变code就能改变字号了，你弄个加减按钮改变code值即可
先在form上建立三个textbox，分别为textbox1,textbox2,textbox3，再建立四个按钮，分别为cmdplus,cmdminus,cmdmultiple,cmddivide，代码如下：
Private Sub cmdplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplus.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a + b
End If
Private Sub cmdminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdminus.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a - b
End If
Private Sub cmdmultiple_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmultiple.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a * b
End If
Private Sub cmddivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddivide.Click
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a / b
End If
这个问题用vb.net比较简单.......
在text1里输入12
85
74
69
73
91
65
在text2里输入第一个数+第二个数
我这个方法的前提是：
text1里的每个数必需由空格分隔
text2里的文本要用+分隔
----------------------------------------------------------
dim
t1()
as
string
dim
t2()
as
string
dim
t1l,
i
as
integer
dim
temp
dim
r
as
integer,
rs
as
string
'用split函数分隔用户的输入
t1
=
split(text1.text,
"
")
t2
=
split(text2.text,
"+")
'获取数组t1中一共有几个元素
for
each
temp
in
t1
t1l
=
t1l
+
1
next
'直接开始相加
for
each
temp
in
t2
r
=
r
+
t1(i)
rs
=
rs
t1(i)
"+"
i
=
i
+
1
next
'显示结果
rs
=
left(rs,
len(rs)
-
1)
rs
=
rs
"="
r
text3.text
=
rs
----------------------------------------------------------
代码就是这样，缺点就是不是说在text2中输入第一个数+第二个数才可以加，输入a+b也可以加
