vb.net代码通用部分 vb代码窗口中的通用段可以进行

VB.NET中，窗体通用部分，是指 Public Class Form1 ............ end class 的内部，还是前面部分

写在class 的里面，但是不在任何函数过程内部。在class前面一般只是声明空间的引用，例如：imports system.IO 语句；写在sub内部的变量只在sub内部有效，而写在class里面但是不在任何sub内部的变量在整个class里面都有效，即所谓变量的作用域。

创新互联主要从事做网站、网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务吴堡,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792

vb 怎样在通用部分声明一个变量?

VB的通用部分在窗体代码的最前部，如果用Option Explicit显式变量声明语句，则在该语句下声明一个变量。

方法：

1）视图-代码窗口。

2）编程窗口右侧工程中-窗体-右键-查看代码。

3）在出现窗口声明变量。

C++在.net上编写图形界面的类和C#或者VB.net在.net平台上是通用的？

当然不是通用的，vb和vc# 是语法不同而已，都是托管代码，但可以调用vC++ 的非托管代码而已。vc++ 能操作底层，其它2个你就当它是 把vc++ 封装到托管堆上了。

vb与vb.net语句通用吗？

不是的。vb6.0之前包括vb6.0都不能算是真正的面向对象语言，而vb.net是完全按照面向对象的技术设计的，所以在vb6.0里的许多方法在vb.net中都重写为了完全面向对象的方法了。但是在vb.net中会找到vb6.0语言的影子

在VB.NET学习资料中，经常见到，在通用声明段中代码，如:dim a() as string等等，

如果作为类中全局变量，就卸载class 和end class中，如果是局部变量就写在函数之中,如:

sub test()

dim a() as string

end sub

function test() as string

dim a as string

return a

end sub

vb.net 四则运算代码

Dim s1!, s2!, a$ '为小数点的叠加，s1,s2必须定义为单精度型

Dim flag As Boolean 'flag它是过程及的变量，在通用里必须声明

'在数字按钮控件单击数组单击事件中获取操作数（没有区分是哪一个操作数）

Private Sub Command1_Click(Index As Integer)

x = Text1.Text

If flag = True Or x = "0" Then '查看数字是否输入完毕或者是否清零了

Text1.Text = CStr(Index) 'CStr将数值转换字符

Else

Text1.Text = Text1.Text + CStr(Index) '"+"在这里这个是对字符串的操作的叠加，CStr(Index)是接的数据

End If

flag = False '时刻准备数字的输入

End Sub

'2.单击运算符，确定s1，并且要选定运算

Private Sub Command2_Click(Index As Integer)

flag = True

s1 = Val(Text1.Text)

Select Case Index

Case 0

a = "+"

Case 1

a = "-"

Case 2

a = "*"

Case 3

a = "/"

End Select

End Sub

'3."="的单击事件

Private Sub Command3_Click()

flag = True

s2 = Val(Text1.Text)

Select Case a

Case "+"

Text1.Text = s1 + s2

Case "-"

Text1.Text = s1 - s2

Case "*"

Text1.Text = s1 * s2

Case "/"

Text1.Text = s1 / s2 '分母不能为0

End Select

s1 = 0: s2 = 0: a = ""

End Sub

'4.清屏

Private Sub Command4_Click()

Text1.Text = "0"

s1 = 0

s2 = 0

a = ""

flag = False

End Sub

'5.删除最后输入的一个字符，换句话说，将本文框中的字符串取字符（从左往右取left(string,length)），将最后一个字符不取就先行

Private Sub Command5_Click()

If Text1.Text = "" Then

Else

Command5.Enabled = True

Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

'len求字符串的长度，left(text1.len(text1)-1减1是取字符串从左往右减去一个字符串

End If

End Sub

'小数点 1）显示出"."(注意前面输入过的整数必须显示) 2）小数后能继续接受数字的输入

Private Sub Command6_Click()

Text1 = Text1 "."

End Sub

'7加入正负号--单击“+、-”,产生一个"-"，而且处于一种等待数字输入的一种状态

Private Sub Command7_Click()

Dim temp As Double

temp = -Val(Text1.Text)

Text1.Text = temp

If d = " " Then s1 = temp Else s2 = temp

End Sub

Private Sub Command8_Click() '退出

End

End Sub

Private Sub Form_Load() '窗体初始化

Text1.Text = 0

Text1.Locked = True

End Sub