十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
单说代码格式的话,没多大变化,只是比VB6书写起来更方便。
创新互联制作网站网页找三站合一网站制作公司,专注于网页设计,网站制作、成都网站制作,网站设计,企业网站搭建,网站开发,建网站业务,680元做网站,已为近1000家服务,创新互联网站建设将一如既往的为我们的客户提供最优质的网站建设、网络营销推广服务!
比如声明变量的同时可以初始化:Dim a As Integer=12
循环变量可以在循环中直接声明: For n As Integer=1 to 10 Step 2
Continue For和Continue Do/While 语句的引入
数组的初始化也更加方便: Dim num As Integer()={1,2,3}
增加了自运算符和移位运算符:i += 1
等等等等
然后就是比VB6更规范一点(你要说更死板一点也可以)。
比如说所有索引的下标强制从0开始(VB6里可以自己设置的)
调用方法时统一给参数列表加上括号(不像VB6里面存在加括号强制传值这种让新手晕头的特性)
等等等
关键字有一些增减
总之,在语法方面大体上和VB6相同,但又吸收了类C语言的一些方便的地方。
最主要的变化在于VB.NET是完全OOP的
另外一个比较实际的问题就是默认控件的使用和VB6相差很大,需要一定时间才能熟悉
Function ULCase(ByVal value As String) As String
Dim s As String = ""
For Each i As Char In value
s = IIf(Char.IsLower(i), Char.ToUpper(i), Char.ToLower(i))
Next
Return s
End Function
textbox1.text=ULCase(textbox1.text)
就行了.类似楼上,用的内置方法判断大小写
2.
能得到数据的方法 常用 InputBox ,TextBox
inputBox 用法
Public Function InputBox(ByVal Prompt As String, Optional ByVal Title As String = "", Optional ByVal DefaultResponse As String = "", Optional ByVal XPos As Integer = -1, Optional ByVal YPos As Integer = -1) As String
功能: 在对话框中显示提示,等待用户输入文本或单击按钮,然后返回包含文本框内容的字符串。
参数:
Prompt: 必选的 String 表达式,作为消息显示在对话框中。Prompt 的最大长度大约为 1024 个字符,具体取决于所用字符的宽度。如果 Prompt 包含多行内容,则可以在每行之间使用回车符 (Chr(13))、换行符 (Chr(10)) 或回车/换行符组合 (Chr(13) Chr(10)) 来分隔各行。
Title: 可选。显示在对话框标题栏中的 String 表达式。如果省略 Title,则标题栏中显示应用程序名称。
DefaultResponse: 可选的 String 表达式。如果未提供其他输入,则作为默认响应显示在文本框中。如果省略 DefaultResponse,则显示的文本框为空。
XPos: 可选。数值表达式,指定屏幕左边缘与对话框左边缘之间的距离(以缇为单位)。如果省略 XPos,则对话框水平居中。
YPos: 可选。数值表达式,指定屏幕顶部与对话框上边缘之间的距离(以缇为单位)。如果省略 YPos,则对话框垂直定位在屏幕向下大约三分之一处。
返回值:
在对话框中显示提示,等待用户输入文本或单击按钮,然后返回包含文本框内容的字符串。
代码:
Dim KC() As String = {"语文", "数学", "英语", "物理", "化学"}
Dim MyTable As New Hashtable
For Each i As String In KC
MyTable.Add(i, Val(InputBox("请输入""" i """ 的成绩:", "成绩输入", "0")))
Next
Dim sum As Single
For Each i As DictionaryEntry In MyTable
sum += i.Value
Next
Dim Pf As String = IIf(sum 450 OrElse _
(MyTable(KC(0)) 95 AndAlso MyTable(KC(1)) 95 AndAlso MyTable(KC(2)) 95 AndAlso MyTable(KC(3)) 80 AndAlso MyTable(KC(4)) 80) OrElse _
(MyTable(KC(0)) 85 AndAlso MyTable(KC(1)) 85 AndAlso MyTable(KC(2)) 85 AndAlso MyTable(KC(3)) 85 AndAlso MyTable(KC(4)) 85), "优秀", "可以")
MsgBox(Pf)
这个程序很简单,我以前做过算素数的,算随机十以内的用来教我一个小叔子的儿子,你看看VB基础就可以写的出了,如果碰到代码问题可以找人帮忙,但是如果你单独让人来代写那么不是很现实,好像知道貌似没有帮代做单独软件的吧
你这是vb.net的代码,vb中不允许那么写:
Dim
strdx()
As
String
=
{"0",
"0",
"0"}
'定义个数组,从后面的值能看的出最大下标是2,也就是strdx(0),strdx(1)和strdx(2),3个的默认值都为0
Dim
calcount1
As
String
=
"0"
'定义个字符串变量
Dim
calcount2
As
String
=
"0"
Dim
strvalue
As
Boolean
=
False
'定义strvalue为bool值,改类型变量只有true和false
2种值
If
strdx(0)
=
"0"
Then
TextBox1.Text
=
strdx(0)
"."
这是字符串连接符号,和"+"的区别是,他把左右2边的内容直接连接的,而"+"可能会编程运算符,例如
2
3
=
"23"
而
2
+
3
=
5
ElseIf
strvalue
=
False
Then
strdx(0)
=
strdx(0)
"0"
TextBox1.Text
=
strdx(0)
"."
strvalue
=
True
Else
strdx(0)
=
strdx(0)
"0"
TextBox1.Text
=
strdx(0)
Select
Case
calcount1
'
这里开始是分支语句
Case
"+"
TextBox1.Text
=
Str(Val(strdx(1))
+
Val(strdx(0)))
dim s1 as string
dim s2 as string
s1=textbox1.text
s2=StrReverse(s1)'翻转
if s1=s2 then
label1.text=
必须的
可选的
数字 那么这里可以是 1 2 3 ...
文档约定
本文档使用以下字体约定。
约定示例 描述
Sub, If, Case Else, Print, True, BackColor, Click, Debug, Long 首字母大写的单词表示语言特有的关键字。
setup 命令以粗体形式出现。
事件驱动 在文本中,楷体字表示专用术语,通常该术语在书中首次出现的时候使用楷体字。楷体有时也表示强调。
variable 在语法和文本中,斜体字表示应提供信息的所在处。
[expressionlist] 在语法说明中,方括号 ([]) 内部的项是可选的。
{While | Until} 在语法说明中,花括号 ({}) 和竖线 (|) 表示可在两个或者多个选项中选择一个。除非所有的选项又包含在方括号 ([]) 中,否则必须选择一个选项。
Sub HelloButton_Click()
Readout.Text = _
"Hello, world!"
End Sub 这种字体用于程序代码。
ENTER 大写字母表示键的名字和键的组合,例如 ENTER 和 CTRL+R。
ALT+F1 键名之间的加号 (+) 表示键组合。例如,ALT+F1 表示在按 ALT 同时按 F1 键。
DOWN ARROW 按照键上的箭头方向使用单个方向键。(LEFT、RIGHT、UP 或 DOWN)。“箭头键”是这些键的统称。
BACKSPACE, HOME 按照各自的名字使用其它定位键。
c:\Vb\Samples\Calldlls.vbp 大小写混合的路径和文件名。
本文档的程序设计风格
本文档的程序编写用到以下规则。详细信息请参阅《程序员指南》一书中的“编程基础”。
关键字用大写字母开头:
'Sub, If, ChDir, Print 和 True 都是关键字。
Print "Title Page"
用行标号代替行号。行标号的使用只限于错误处理例程:
ErrorHandler:
Power = conFailure
End Function
使用撇号 (') 引导注释:
'这是注释部分;在程序运行时,这两行
'将被忽略。
在子过程、函数过程和属性过程中的控制流块和语句需要缩进:
Private Sub cmdRemove_Click ()
Dim Ind As Integer
Ind = lstClient.ListIndex '获取索引。
'确定有选定的项。
If Ind = 0 Then
lstClient.RemoveItem Ind '将其从列表框中删除。
'显示编号。
lblDisplay.Caption = lstClient.ListCount
Else
Beep '如果没有项被选中,就发出鸣叫。
End If
End Sub
如果一句代码太长,无法在一行内写下(不包括注释),则可以在下一行继续,在行的末尾用续行字符表示一行尚未结束,续行字符是一个空格加一个下划字符 ( _):
Sub Form_MouseDown (Button As Integer, _
Shift As Integer, X As Single, Y As Single)
内部常数名是大小写混合的,它的前缀是两个字符,表示定义该常数的对象库。Visual Basic (VB) 和 Visual Basic for application (VBA) 对象库中的常数的前缀为 “vb”;数据访问对象 (DAO) 库中的常数的前缀为 “db”;Microsoft Excel 对象库中的常数的前缀为 “xl”。下面是几个例子:
vbTileHorizontal
dbAppendOnly
xlDialogBorder
在本书中,用户自定义的常数的前缀通常为 “con”,而且是大小写混合的。例如:
conYourOwnConstant
然而,在使用 Windows API 常数时,代码仍遵循 Visual Basic 的以前版本中使用的约定。例如:
EM_LINESCROLL