小妹急用 请求帮助 谢谢！【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：101,575贴子：
小妹急用 请求帮助 谢谢！收藏
这是我现在编的小程序，就是把excel中的数据读到MSFlexGrid1中，是从头开始读的，现在我想从excel中第一列不为0的数开始读，应该怎样改（第一列前几个为0） Private Sub Command1_Click()&&&
Dim XLSPATH As String&&&& CommonDialog1.Filter = "EXCEL文件|*.XLS"&&&& CommonDialog1.ShowOpen&&&& XLSPATH = CommonDialog1.FileName&&&& MSFlexGrid1.Clear&&&& Dim xlApp As Excel.Application&&&& Dim xlBook As Excel.Workbook&&&& Dim xlSheet As Excel.Worksheet&&&&&&&& Set xlApp = CreateObject("Excel.Application")&&&& Set xlBook = xlApp.Workbooks.Open(XLSPATH, False)&&&& Set xlSheet = xlBook.Worksheets(1)&&&&&&&& Dim xlRows As Integer&&&& Dim xlCols As Integer&&&&&&&& xlRows = xlSheet.UsedRange.Rows.Count&&&& xlCols = xlSheet.UsedRange.Columns.Count&&&& MSFlexGrid1.Rows = xlRows&&&& MSFlexGrid1.Cols = xlCols&&&&&&&& MSFlexGrid1.Row = 0&&&& MSFlexGrid1.Col = 0&&&& MSFlexGrid1.Text = "序号"&&&& MSFlexGrid1.ColWidth(0) = "400"&&&& For i = 1 To xlRows - 1&&&&&&&& MSFlexGrid1.Row = i&&&&&&&& MSFlexGrid1.Text = i&&&& Next&&&&&& Dim R As Integer&&&& Dim C As Integer&&&& For R = 1 To xlRows&&&&&&&& For C = 1 To xlCols - 2&&&&&&&&&&&& MSFlexGrid1.TextMatrix(R - 1, C) = xlSheet.Cells(R, C)&&&&&&&& Next&&&& Next&&&&&&&&&& For i = 1 To xlRows - 1&&&&&& MSFlexGrid1.TextMatrix(i, 2) = 0&&&& Next&&&&&&&&&&&&&& Label9.Caption = ""&&&&& For i = MSFlexGrid1.Rows - 1 To 1 Step -1&&&&&&&& MSFlexGrid1.Col = 1&&&&&&&& MSFlexGrid1.Row = i&&&&&&&& If Val(Left(MSFlexGrid1.Text, 1)) && 0 Then&&&&&&&&&&&& Label9.Caption = MSFlexGrid1.Row&&&&&&&& Exit For&&&&&&&& End If&&&& Next&&&&&&&&End Sub
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或不会过程调用，请求帮助。【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：101,575贴子：
不会过程调用，请求帮助。收藏
用过程求一维数组的最小值，不明白Call Procmin(b(),min)这语句中，b(3)数组可以用b()写在里面么？另下面是我写的，运行提示：类型不匹配，缺少数组或用户定义类型。感谢各位帮忙。Private Sub Command1_Click()Dim b(3) As IntegerFor I = 0 To 3
b(I) = Array(InputBox("", ""))
Next ICall Procmin(b(), min)Print minEnd SubPublic Function Procmin(a() As Long, min As Long) As Double
Dim b As Integer
Dim c As Integer
b = UBound(a)
c = LBound(a)
min = a(c)
For I = c To b
If min & a(I) Then
min = a(I)
End Function
通用软件不合适,定做软件太昂贵,自己用vb.net开发太难,何不试试FoxTable?
手机没法试验我就随便说说…不对的地方包涵首先我记得array函数输出的是一个可变型数组(记不清的v开头的单词)而你用短整形b数组的一个变量接纳它另外你的pro函数需要一个长整形数组好吧我真忘了array也许不是…
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或我没有计算机语言知识，只能在计算机上进行日常操作，即只会使用。但我发现编程可以主动地开发利用计算机资源，所以非常感兴趣，想学，试问我该从哪入手？首先我是不是应在电脑上装相应的软件？谢谢各位指点！
没有任何要求。1、你要学VB。2、机子中有好多地方可以用VB。3、作为学习而言，最好买个VB安装后练习练习。
其他答案（共1个回答）
Visual Basic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。在全国计算机等级考试中，只要求考生能熟悉VB集成开发环境、了解VB中对...
将源程序编译生成.exe文件后可以在计算机直接运行。
插入三个文本框（a1,a2,a3）用于输入三个数字，一个标签(a4)用于显示结果，一个按钮（用于触发事件），程序如下
Private Sub max_Clic...
Option Explicit
Dim Op1, Op2
' 预先输入操作数。
Dim DecimalF...
一个个问题回答，
1，即使卸载了也不能说是完全删除了，删除的定义是完全从电脑移除，卸载是软件按本身默认写定方向祛除自身，但很多临时文件等等都不算在内。
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区}