vb,如何查看网页内的表格的行数和列数

这个好像只能先提取表格的源代码，一般网页表格<table>表格内容</table>，

<tr>说明表的一个行，表有多少行就有多少个<tr>

<th>说明表的列数和相应栏目的名称，有多少个栏就有多少个<th>

Private Sub Command1_Click() '倒三角形

Dim S As String, i As Integer, n As Integer

S = ""

n = InputBox("输入要打印的行数：")

For i = n To 1 Step -1

Print Space(n - i) + String(2 i - 1, S)

Next i

End Sub

Private Sub Command2_Click()

Dim S As String, i As Integer, n As Integer

S = ""

n = InputBox("输入要打印的行数：")

For i = n To 1 Step -1

Print Space(n - i) + String(n, S)

Next i

End Sub

Private Sub Command3_Click() '正三角形

Dim S As String, i As Integer, n As Integer

S = ""

n = InputBox("输入要打印的行数：")

For i = 1 To n

Print Space(n - i) + String(2 i - 1, S)

Next i

End Sub

Private Sub Command4_Click() '双三角形

Dim S As String, i As Integer, n As Integer

S = ""

n = InputBox("输入要打印的行数：")

For i = n To 1 Step -1

Print Space(n - i) + String(2 i - 1, S) + Space(2) + String(2 (n - i + 1) - 1, S)

Next i

End Sub

31 VB编码规则

1 语言元素

VB的语言基础是BASIC语言，VB程序的语言元素主要由：

关键字（如： Dim、Print、Cls）

函数（如：Sin（）、Cos（）Sqr（））

表达式（如：Abs(-235)+4520/3 ）

语句（如：X=X+5 、 IF……ELSE……END IF）等组成。

2 VB代码书写规则

（1） 程序中不区分字母的大小写，Ab 与AB等效；

（2） 系统对用户程序代码进行自动转换：

1） 对于VB中的关键字，首字母被转换成大写，其余转换成小写

2） 若关键字由多个英文单词组成，则将每个单词的首字母转换成大写

3） 对于用户定义的变量、过程名，以第一次定义的为准，以后输入的自动转换成首次定义的形式

3 语句书写规则

（1）在同一行上可以书写多行语句，语句间用冒号(：)分隔

（2）单行语句可以分多行书写，在本行后加续行符：空格和下划线 _

（3） 一行允许多达255个字符

4 程序的注释方式

（1）整行注释一般以 Rem开头，也可以用撇号 '；

（2）用撇号 ' 引导的注释，既可以是整行的，也可以直接放在语句的后面，最方便；

（3）可以利用“我”工具栏的“设置注释块”、“解除注释块”来将设置多行注释。

5 保留行号和标号

VB源程序接受行号与标号，但不是必须的（早期的BASIC语言中必须用行号）。

标号是以字母开始以冒号结束的字符串，一般用在GOTO语句（现在很少用）中。

vb程序每行不对齐是因为格式有误导致的。以vb程序设计语言为工具，对特定的问题进行分析，并设计出解题的算法，根据得到的算法用vb语言编写出源程序的过程就是vb程序设计，编写计算机程序需要使用计算机编程语言。

vb程序对齐的方法

你拖动鼠标拉出一矩形虚框，选择一列文本框或者按住Ctrl键，按个选择数个控件，执行左对齐就使文本框们左边界保持在同一个垂直线上了，排版功能在选择多个控件时才有意义，你自己试试效果好了，有时候很有用的比如用文本框组成的类似表。

先用鼠标框选或按住Ctrl键然后用鼠标点选要排列的控件，然后在属性窗口里更改Left或Top属性的值，它们就统一对齐到你指定的值上去了，VB控件的左对齐和上对齐Sub，这两个通用过程左对齐和上对齐可以很方便的设置控件的位置和大小，节省了很多代码。

Private Sub Command1_Click(Index As Integer)

'单击名称为Command1的数组中的任意一个按钮时触发此段代码

    Select Case Index '检查单击的按钮的下标值

        Case 0 To 9 

'下标为0至9（包括0和9，即前10个按钮，因为控件数组的下标从0开始）

            If FirstNum Then 

'如果FirstNum的值是True（从下面的FirstNum = False可以推断出FirstNum是逻辑型（Boolean）变量）

                StrNum1 = Str(Index) 

'把下标值转换为字符串（Str）并赋值给StrNum1（应当为字符型）变量

                FirstNum = False '把FirstNum变量的值设定为False

            Else '否则

                StrNum1 = StrNum1 + Str(Index) 

'把下标值转换为字符串连接到StrNum1后面

            End If '结束If判断语句块

            Text1Text = StrNum1

'把名称为Text1的文本框的Text属性（即显示出来的内容）设定为StrNum1的值，也就是把StrNum1显示在名为Text1的文本框中

            <还有其他语句，等待插入>

    End Select '结束Select Case判断语句块

End Sub '结束过程

这个控件不能设置行列，他的行列与数据库中数据表行列相同，在表格的DATASOURCE属性中设置数据源，之后在控件中点击右键，选择检测结构，数据表的列数就出来了，至于行数，在程序运行时候，数据表中有多少行就会显示多少行。明白了吗？

Dim xlsApp As ExcelApplication

Dim xlsBook As ExcelWorkbook

Private Sub Command1_Click()

Dim I, J As Integer

Dim A(500, 2)

Set xlsApp = ExcelApplication

xlsAppVisible = False

'假设Excel文件在：D:\Book1xls

Set xlsBook = xlsAppWorkbooksOpen("D:\Book1xls")

For I = 1 To 500

For J = 1 To 2

A(I - 1, J - 1) = xlsappcells(I, J)

Next J

Next I

'以下是退出Excel

xlsBookClose (False)

xlsAppQuit

Set xlsApp = Nothing

'=================================

'Excel中的500×2的数据已读入到数组A()中，以下可以添加你要运算的代码。

'=================================

End Sub

以上就是关于vb,如何查看网页内的表格的行数和列数全部的内容，包括:vb,如何查看网页内的表格的行数和列数、VB的一个程序，帮忙编一下，谢谢、VB基础教程：第三章第一节VB编码规则等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！