189 8069 5689
很简单，看代码：
专注于为中小企业提供成都网站建设、成都网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业贡山免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上千余家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
Dim objexcelfile As Excel.Application = New Excel.Application
objexcelfile.DisplayAlerts = False
Dim objworkbook As Excel.Workbook = objexcelfile.Workbooks.Open("D:\1.xlsx") 'Excel文件路径
Dim objimportsheet As Excel.Worksheet = objworkbook.Sheets(1) '读取第一个Sheet
Dim intRow As Integer = objimportsheet.UsedRange.Rows.Count '获取总行数
Dim prod As String = objimportsheet.Cells(j, i).value '读取单元格的值（i是列，j是行）
'释放Excel文件
objworkbook.Close()
objworkbook = Nothing
objexcelfile.Quit()
注意需要添加 Microsoft.Office.Interop 的引用。
首先你的保证在TEXT中输入的是数字。
下来用txt21=CInt(txt21.Text) 强制转化成int型就可以了。 如果输入问非数字型，强制转化将出错！
'判断文本框内容为数字。
if IsNumeric(txt21.text) then
txt21=CInt(txt21.Text)
end if
VB.NET中的变量在使用前要进行声明。即便不进行显式声明，VB也会进行隐式声明。
本题中应该这样使用：
Dim a1 As String = TextBox1.Text
System.Diagnostics.Process.Start("IExplore.exe", a1)
变量是存储值的名称。可使用变量来存储数字，例如建筑物的高度，或者存储单词，例如人的名字。简单地说，可使用变量表示程序所需的任何信息。
你可能会问：“既然我可以使用信息，为什么要用变量？” 正如其名称所表示的，变量可以随着程序的运行而改变其表示的值。例如，您可以写一个程序来跟踪桌子上罐里的软心豆粒糖的数目。因为糖是要被吃掉的，所以罐里软心豆粒糖的数目可能会随着时间的推移而改变。您可以使用一个可随时间变化的变量来表示软心豆粒糖的数目，而无需在每次想吃糖时重新编写程序。
采用对象数组的办法；
声明一个文本框对象组，然后再启动窗体过程中，完成一一对应：
Public Class Form1
Private MyTextBox(10) As TextBox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyTextBox(1) = TextBox1 : MyTextBox(2) = TextBox2 : MyTextBox(3) = TextBox3 : MyTextBox(4) = TextBox4 : MyTextBox(5) = TextBox5
MyTextBox(6) = TextBox6 : MyTextBox(7) = TextBox7 : MyTextBox(8) = TextBox8 : MyTextBox(9) = TextBox9 : MyTextBox(10) = TextBox10
End Sub
End Class
这样就可以用循环对MyTextBox(1) -- MyTextBox(10)，进行处理了，其结果就是对10个文本框控件的处理操作。
文本指的是什么? 如果是字符串,那么可以直接赋值,只要变量是String类型就可以.
如果是文本文件,可以用Open语句打开,然后用Input语句将内容读入变量.如:
Dim txt as String
Open "文件名" For Input As #1
Input #1, txt
Close #1
没有像C#那样的@符号，但可以加点分段符空格_:
Sub Main()
Dim s As String = "a" vbCrLf _
"b" vbCrLf _
"c" vbCrLf
Console.WriteLine(s)
Console.ReadLine()
End Sub