Imports System
坚守“ 做人真诚 · 做事靠谱 · 口碑至上 · 高效敬业 ”的价值观，专业网站建设服务10余年为成都塑料袋小微创业公司专业提供成都定制网页设计营销网站建设商城网站建设手机网站建设小程序网站建设网站改版，从内容策划、视觉设计、底层架构、网页布局、功能开发迭代于一体的高端网站建设服务。
Module Program
Sub Main()
Dim n As Integer
n=6
Console.WriteLine("{0}!={1}",n,fact(n))
n=10
For i As Integer=1 To n
Console.Write("{0}{1}",fibo(i),IIF(n=i,vbCrLf,","))
Next
Console.Write("按任意键继续。。。 ")
Console.ReadKey(True)
End Sub
' 递归算阶乘
Function fact(n As Long) As Long
If 0=n OrElse 1=n Then Return 1
Return n*fact(n-1)
End Function
' 递归算斐波那契数列
Function fibo(n As Long) As Long
If 1=n OrElse 2=n Then Return 1
Return fibo(n-1)+fibo(n-2)
End Function
End Module
VB.net是面向对象设计，所有的代码都是储存在类里面的，所以你写代码，前面都是public class，公用类
首先在代码的开头引入命名空间：
Imports System.IO
给出三个读文本文件的例子。
'直接读取所有文本
Dim fileString As String = File.ReadAllText("1.txt")
'把所有行弄进一个数组
Dim fileLines() As String = File.ReadAllLines("1.txt")
'以流的方式一行一行读取
Using fs As FileStream = File.OpenRead("1.txt") '初始化文件流
Using sr As New StreamReader(fs) '初始化流读取器
Dim lineString As String = ""
While Not sr.EndOfStream '循环直到流结束
lineString = sr.ReadLine() '读一行
'这里lineString就是每行的文件内容了。
'你可以在这里对它进行处理。
End While
End Using
End Using
又碰你了……
好吧，这回代码改进了：
Code:
'我们需要几个基本控件：
'TextBox1 、TextBox2、TextBox3 、TextBox4分别为“原文”、“输入”、“准确率”、“用时”的显示文本框。
'Button1、Button2、Button3分别为“生成原文”、“开始输入”、“结束”三个功能性按钮。
'Timer1是计时器（Timer）组件。
'有几个为了不出错，需要把Enabled属性设为False的组件：TextBox1、TextBox2、Button3。
'下面是整体代码：（整个Form1.vb）
Public Class Form1
'声明几个需要的变量和随机器。
Dim i As Random = New Random '随即器
Dim TimeDate As Double = 0 '计时变量
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '生成原文按钮。
Dim k As Integer
Dim pText As String = ""
For si As Int16 = 1 To 30 '随即生成字符，添加到前面已声明的pText变量内。
k = i.Next(1, 26)
Select Case k '获取对应的字符。
Case 1
pText += "a"
Case 2
pText += "b"
Case 3
pText += "c"
Case 4
pText += "d"
Case 5
pText += "e"
Case 6
pText += "f"
Case 7
pText += "g"
Case 8
pText += "h"
Case 9
pText += "i"
Case 10
pText += "j"
Case 11
pText += "k"
Case 12
pText += "l"
Case 13
pText += "m"
Case 14
pText += "n"
Case 15
pText += "o"
Case 16
pText += "p"
Case 17
pText += "q"
Case 18
pText += "r"
Case 19
pText += "s"
Case 20
pText += "t"
Case 21
pText += "u"
Case 22
pText += "v"
Case 23
pText += "w"
Case 24
pText += "x"
Case 25
pText += "y"
Case 26
pText += "z"
End Select
Next
TextBox1.Text = pText
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
'处理文本内容。
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '开始输入按钮。
If TextBox1.Text = "" Then
MsgBox("还未生成原文！") '如果前面未生成原文时的警告。
Else
'如果原文已有，将执行这些动作（即开始输入和准备）
TextBox2.Enabled = True
TextBox2.Select()
Timer1.Enabled = True
Button3.Enabled = True
Button1.Enabled = False
Button2.Enabled = False
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '计时器如果开始时的动作。
TimeDate += 1 / 10
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click '结束按钮。
Timer1.Enabled = False
Dim t As Double = TimeDate
TimeDate = 0
TextBox3.Text = t "秒"
Dim x As String, y As String
Dim i As Integer, s As Integer
s = 0
For i = 1 To Len(TextBox1.Text)
x = Mid(TextBox1.Text, i, 1)
y = Mid(TextBox2.Text, i, 1)
If x y Then
s = s + 1
End If
Next '寻找有几个错误。
'下面为计算正确率，使用Integer类型来约值。
Dim xi As Double = 1 - (s / 30)
Dim xiInt As Integer = xi * 100
TextBox4.Text = xiInt "%"
Button3.Enabled = False
Button1.Enabled = True
Button2.Enabled = True
End Sub
End Class
'到此结束，可以开始测试了。
'可以改进改代码后控件样式，以更方便使用。
If CheckBox1.Checked And CheckBox2.Checked And Not CheckBox3.Checked _
And Not CheckBox3.Checked And Not CheckBox3.Checked Then
MsgBox("满足你的要求！")
Else
MsgBox("不满足你的要求！")
End If
重庆分公司
重庆分公司
