五金制品交流交易网

请vb大神帮我解答下!

发布时间:2018-04-16 09:46

Private Sub Command1_Click()

Dim str1 As String
str1 = Text1.Text
Dim lines() As String '各行数组
lines = Split(str1, vbCrLf) '将每行代码放到数组中,
Dim i As Long
Text1.Text = "" '清空内容
Dim k As Long
For i = 0 To UBound(lines)
If Len(Trim(lines(i))) > 0 Then
k = k + 1 '如果不是空行
Text1.Text = Text1.Text & CStr(i + 1) & ". " & lines(i) & vbCrLf
End If

Next
End Sub

回复:

1) 1223 35
2) 100200 310

回复:

下载企业版:VB6.0 http://soft.qhdedu.net/vb2009/Pvb60.rar http://soft.qhdedu.net/vb2009/sp6.rar 前者是VB6的地址 后者是补丁六的地址 整个安装文件,COPY到你的硬盘某个文件夹中,最好这个文件夹,不要长文件名,比如直接放到D:下某个目...

回复:

Dim c(10) As Single, v(10) As SinglePrivate Sub Command1_Click() Dim i As Integer, j As Integer Form1.AutoRedraw = True Cls Print "原始数据是:" Print "v"; Space(3); For i = 1 To 10 v(i) = Val(InputBox("请输入第 " & i & " 个 v ...

回复:

1、cdefg 2、( a(i,j)=0 ) (count=count+1) 3、这个题If( )then这一句不完整,如果这一句是: 一、If( )then( ),则多了一个括号,该题共三个括号,答案是: (j=1) (sum=0) (sum=sum+1) 二、If( )then sum=0,则该题共两个括号,答案是: (j=1...

回复:

Public i As Integer '定义全局变量i Private Sub Command1_Click() '按钮1点击事件 Timer1.Enabled = True '计时器Timer1的Enabled属性为真(即计时器生效) Command1.Visible = False '按钮1Visible属性为假,即按钮1设置为不可见 End Sub Priva...

回复:

1、下载 VB6.0简体企业版的光盘镜像文件和DAEMON Tools Lite光驱软件。安装好DAEMON Tools Lite,双击VB6.0的光盘镜像,就会在电脑盘自动生成一个驱动器,打开该驱动器。 2、在新生成的磁盘里面,找到stepup.exe文件,双击进入安装步骤。因为我...

回复:

shape(index).left=shape(index).left+100

回复:

Private Sub Command1_Click() Dim str1 As String str1 = Text1.Text Dim lines() As String '各行数组 lines = Split(str1, vbCrLf) '将每行代码放到数组中, Dim i As Long Text1.Text = "" '清空内容 Dim k As Long For i = 0 To UBound(lin...

上一篇:为什么我的队友都信佛 下一篇:梦见院子前种了一颗五彩的麦子

返回主页:五金制品

本文网址:http://www.is2k.com/view-378158-1.html
    信息删除