vb.net变量表,vb 列表

在VB.net中，如何使几个数组变量按照列表示出来，并输出到指定的EXCEL表格中！

先在: My Project 中引用 Microsoft Excel 11.0 Object Library（这个是Excel 2003，Excel 2007 是12.0）,之后在窗体代码中加入相关内容就行了。以下是一个窗体的简单实例

假设在C盘根文件夹中有：TEST.xls

Public Class 引用EXCEL窗体

Private A() As String = {"A", "B", "CC", "C", "D"}

Private B() As Integer = {1, 22, 34, 50, 16, 99, 14}

Private excelapp As New Microsoft.Office.Interop.Excel.Application

Private excelworkbook As Microsoft.Office.Interop.Excel.Workbook

Private Sub 引用EXCEL_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Index As Integer

excelworkbook = excelapp.Workbooks.Open("c:\test.xls")

excelapp.Application.Workbooks.Add(True)

excelapp.Cells(1, 1) = "数组:A"

For Index = 0 To UBound(A)

excelapp.Cells(Index + 2, 1) = A(Index)

Next

excelapp.Cells(1, 2) = "数组:B"

For Index = 0 To UBound(B)

excelapp.Cells(Index + 2, 2) = B(Index)

Next

excelapp.Visible = True

End Sub

End Class

运行结果：

数组:A 数组:B

A 1

B 22

CC 34

C 50

D 16

99

14

相关问答

Q1: VB.NET定义变量

Imports ESRI.ArcGIS.Geodatabase

加在文件的开头，这样就会把IFeature 自动识别为ESRI.ArcGIS.Geodatabase.IFeature了。

ESRI.ArcGIS.Geodatabase是一个命名空间，里面有一个叫IFeature的类，ESRI.ArcGIS.Geodatabase.IFeature就是指这个类。如果你只写IFeature的话，编译系统就会认为你要用当前命名空间里的IFeature类，但它找不到这个叫IFeature的类，所以就会报错。

Imports就有这个功能，只写一遍命名空间名称，以后不用写命名空间名称就可以直接使用里面的各种类、常量、变量等等。

Q2: 用vb.net读取指定单元格的值到变量

很简单，看代码：

        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 的引用。

Q3: vb.net中的变量如何使用？

VB.NET中的变量在使用前要进行声明。即便不进行显式声明，VB也会进行隐式声明。

本题中应该这样使用：

Dim a1 As String = TextBox1.Text

System.Diagnostics.Process.Start("IExplore.exe", a1)

变量是存储值的名称。可使用变量来存储数字，例如建筑物的高度，或者存储单词，例如人的名字。简单地说，可使用变量表示程序所需的任何信息。

你可能会问：“既然我可以使用信息，为什么要用变量？” 正如其名称所表示的，变量可以随着程序的运行而改变其表示的值。例如，您可以写一个程序来跟踪桌子上罐里的软心豆粒糖的数目。因为糖是要被吃掉的，所以罐里软心豆粒糖的数目可能会随着时间的推移而改变。您可以使用一个可随时间变化的变量来表示软心豆粒糖的数目，而无需在每次想吃糖时重新编写程序。