VB6.0程序错在哪里

1For要和Next配对，你的这个循环不知道循环体是什么；

2strm3不知道值是多少，默认的情况下VB6会是0，这是你期望的么？

3不知道strm1的值是什么，程序里应该是个字符串变量，可是里面装的什么呢？

4所以真的不知道你的PRINT结果，更不知道能否判断strm4里是否含"True"

参照回答1，请补充完整的程序。

楼上的代码这么长，还简单？

无语

我给你写了一个，这个才是真正的简单实用，呵呵！

加个TIMER控件

把Interval

属性调成

1000

毫秒

也就是

1秒

在加两个

TEXT

text1text=3

text2text=00

在加个按钮

开始倒计时

就行了

程序代码如下:

Private

Sub

Form_Load()

Timer1Enabled

=

False

End

Sub

Private

Sub

Timer1_Timer()

If

(Text2Text

<=

0)

Then

Text2Text

=

59

Text1Text

=

Text1Text

-

1

Else

Text2Text

=

Text2Text

-

1

End

If

End

Sub

Private

Sub

Command1_Click()

Timer1Enabled

=

True

End

Sub

如果有什么地方不懂，欢迎联系我！

1）将程序所在工程加载与VB编程软件。

2）菜单文件-生成工程名EXE（见下图红色箭头指向菜单）。

3）点下面窗口的确定按钮，VB就会将程序没问题的工程编译成可执行的EXE文件。

VB60测试通过

'利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出。

'1．将随机产生的60个整数按每行10个数输出到窗体或文本框中。

'2．将排好序的偶数和奇数分别输出到两个文本框中。

Dim RndArray(6, 10) As Integer

Dim OddArray() As Integer

Dim EvenArray() As Integer

Dim i, j As Integer

Dim m, n As Integer

Private Sub Cmd_Exit_Click()

'销毁数组

Unload Me

End Sub

Private Sub Cmd_Start_Click()

'除数化

MeTxt(0)Text = ""

MeTxt(1)Text = ""

MeTxt(2)Text = ""

ReDim OddArray(60)

ReDim EvenArray(60)

For i = 0 To 5 Step 1

For j = 0 To 9 Step 1

RndArray(i, j) = RndNuN(100, 200)

Next j

Next i

For i = 0 To 5 Step 1

For j = 0 To 8 Step 1

MeTxt(0)Text = MeTxt(0)Text + Trim(Str(RndArray(i, j))) + ","

Next j

MeTxt(0)Text = MeTxt(0)Text + Trim(Str(RndArray(i, j))) + vbCrLf

Next i

m = 0

n = 0

For i = 0 To 5 Step 1

For j = 0 To 9 Step 1

If RndArray(i, j) Mod 2 Then

OddArray(m) = RndArray(i, j)

m = m + 1

Else

EvenArray(n) = RndArray(i, j)

n = n + 1

End If

Next j

Next i

ReDim Preserve OddArray(m)

ReDim Preserve EvenArray(n)

DwComp OddArray(), m

UpComp EvenArray(), n

m = m - 1

n = n - 1

For i = 0 To m Step 1

MeTxt(1) = MeTxt(1) + Trim(Str(OddArray(i))) + ","

Next i

For i = 0 To n Step 1

MeTxt(2) = MeTxt(2) + Trim(Str(EvenArray(i))) + ","

Next i

End Sub

Public Function RndNuN(ByVal Min As Integer, ByVal Max As Integer)

RndNuN = Min + (Max - Min) Rnd

End Function

Public Function UpComp(ByRef parray() As Integer, ByVal num As Integer)

Dim temp As Integer

num = num - 2

For i = 0 To num Step 1

For j = 0 To num Step 1

If parray(j) > parray(j + 1) Then

temp = parray(j)

parray(j) = parray(j + 1)

parray(j + 1) = temp

End If

Next j

Next i

End Function

Public Function DwComp(ByRef parray() As Integer, ByVal num As Integer)

Dim temp As Integer

num = num - 2

For i = 0 To num Step 1

For j = 0 To num Step 1

If parray(j) < parray(j + 1) Then

temp = parray(j)

parray(j) = parray(j + 1)

parray(j + 1) = temp

End If

Next j

Next i

End Function

'利用随机函数产生100个10～99之间的随机整数，找出其中的素数，并将这些素数求和。

'1 将随机产生的100个整数存入数组，按每行10个数输出到窗体或文本框中。

'2 用Sub子过程或Function函数过程判断随机整数是否为素数。

'3 将素数按每行10个数在窗体或文本框中输出。

'4 将素数的个数以及求和结果出到窗体或文本框中。

Dim RndArray(10, 10) As Integer

Dim PrimArray() As Integer

Dim i, j As Integer

Dim m, n As Integer

Dim num As Integer

Dim sum As Integer

Private Sub Cmd_Click(Index As Integer)

If Index Then

Unload Me

Else

'初始化

MeTxt(0)Text = ""

MeTxt(1)Text = ""

MeTxt(2)Text = ""

MeTxt(3)Text = ""

For i = 0 To 9 Step 1

For j = 0 To 9 Step 1

RndArray(i, j) = RndNuN(10, 99)

Next j

Next i

For i = 0 To 9 Step 1

For j = 0 To 8 Step 1

MeTxt(0)Text = MeTxt(0)Text + Trim(Str(RndArray(i, j))) + ","

Next j

MeTxt(0)Text = MeTxt(0)Text + Trim(Str(RndArray(i, j))) + vbCrLf

Next i

m = 0

n = 0

num = 0

sum = 0

ReDim PrimArray(10, 10)

For i = 0 To 9 Step 1

For j = 0 To 9 Step 1

If IsPrime(RndArray(i, j)) Then

PrimArray(m, n) = RndArray(i, j)

MeTxt(1)Text = MeTxt(1)Text + Trim(Str(PrimArray(m, n))) + ","

sum = sum + PrimArray(m, n)

n = n + 1

If n > 9 Then

m = m + 1

n = 0

End If

num = num + 1

End If

Next j

Next i

MeTxt(2)Text = Trim(Str(num))

MeTxt(3)Text = Trim(Str(sum))

End If

End Sub

Public Function RndNuN(ByVal Min As Integer, ByVal Max As Integer)

RndNuN = Min + (Max - Min) Rnd

End Function

Public Function IsPrime(ByVal n As Integer) As Boolean

Dim a, b As Integer

IsPrime = False

If n Mod 2 Then

b = Sqr(n)

For a = 3 To b Step 2

If n Mod a = 0 Then

Exit Function

End If

Next a

IsPrime = True

End If

End Function

VB 就是 Visual Basic 的意思，是一种常用的编程开发工具。它的基础是编程语言Basic ，Visual Basic 简单点来说就是微软为了更好的让人们学习编程，应用上 Basic 开发语言的一套工具，简称就是 VB。VB 的面世使原本极其复杂困难的编程、软件开发的工作变得简单。最初的编程工作都是依靠全套的代码去进行的，工程量极大。Microsoft 就是看准了这个人们渴求快速发展软件开发行业的商机，利用自己的技术实力研发出 VB 这么一套完善的编程工具。VB 把过往的纯代码编程过度到可视化编程，将一些经常要使用到的功能以一个个的控件的形式出现，例如 Label（标签）、TextBox（文本框）等等的。他们在以前的编程工作中需要在使用时重复多次的输入同样的代码去实现这个功能，而这些代码去不是小工程，耗费了很大的人力物力和很多的时间。所以有了 VB 之后，编程的工作也就可以普及啦，可以免去了机械的重复的代码的输入，又可以一面编辑核心功能一面进行界面优化美化，一劳多得啊。[1]

VB 是 Basic 语言软件开发者的首选编译器，是学习 Basic 语言编程必须要接触而且是经常接触的一款整合型技术编译器。编辑本段语言特性VB的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮）。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于 *** 作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供d出功能。VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。VB使用引用计数的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组建的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。VB使得大量的外界控件有了自己的生存空间。大量的第三方控件针对VB提供。VB也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。编辑本段术语在讨论 Visual Basic（不包含 NET）时，经常可以听到以下这些术语，因此掌握这些术语的基本理解对初学者十分有帮助。控件：简单的说，控件就是构成或者说建造 Visual Basic 应用程序的图形化工具，包括窗体、按钮、复选框、列表框、数据控件、表格控件和控件等等……事件：由用户或 *** 作系统引发的动作，例如击键、单击鼠标（Click）、双击鼠标（DblClick）、一段时间的限制，或从端口接收数据。方法：嵌入在对象定义中的程序代码，它定义对象怎样处理信息并响应某事件。例如，数据库对象有打开记录集并从一个记录移动到另一个记录的方法程序的基本元素，它含有定义其特征的属性，定义其任务和识别它可以响应的事件的方法。控件和窗体是Visual Basic中所有对象的示例。物件：一个控件、窗体等都可被看作一个物件。过程：为完成某些特定的任务而编写的代码段，过程通常用于响应特定的事件，也可以当作应用程序的用户自定义函数来使用。属性：属性是组成用户界面的各对象的性质的具体描述。例如上述“物件”中所提到的尺寸、位置、颜色、宽度、高度等等都称为控件的属性。属性决定物件的外观，有时也决定物件的行为。物件的属性绝大部分是VB中已经事先定义好的，但也有的属性是需要在应用过程中才去定义的。属性即可为物件提供数据，也能从物件取回信息。·窗体的常用属性现在，我列举出了一些窗体的常用属性，请你对它们先进行一下感性认识。

名称是窗体的标识名，代码中称它为Name。BackColor：设置窗体背景颜色。BorderStyle：设置窗体的边框风格。（见图一）要请注意的是，属性值为1 - Fixed Single 与 3 - Fixed Dialog 时，窗体外观相同，但功能却不同。当属性为1 - Fixed Single 时，MaxButton与MinButton这两个属性可以起作用。MaxButton为True时窗体上具有了最大化按钮。MinButton为True时最小化按钮也有效了。而当属性为3 - Fixed Dialog时，MaxButton与MinButton属性不起作用。此时MaxButton与MinButton为True，但最大化、最小化按钮均为出现。（图一）Caption：设置窗体标题栏上的文字。ControlBox：设置窗体标题栏上是否具有控制菜单栏及按钮。Enabled：决定运行时窗体是否响应用户事件。在程序运行时可以看到改变 Enabled属性的效果。此时Enabled已设为False，所以点击按钮不会有反应。Height：设置窗体的高度。Width：设置窗体的宽度。Left：设置程序运行时窗体的水平位置Top：设置程序运行时窗体的垂直位置Visible：设置程序运行时窗体是否可见。当Visible为False时，窗体是不可见的。将值改为为True。运行时窗体就是可见的了。WindowsState：设置程序运行中窗体的最小化、最大化和原形这三种状态。程序运行时的最小化状态。Icon：设置窗体标题栏上的图标。Picture：给窗体配上漂亮的位图。最后要说明的是：窗体的Name和Caption属性，虽然缺省值相同，都是Form1，但实际意义却不一样。Caption指的窗体标题栏上的文字，Name指这个窗体的对象名,千万不能混淆。

方法/步骤

1、下载Visual

Basic60中文版/英文版

各大软件网站有下！

打开VB60新建“标准EXE”

其他都不行的哦。。。。。。。。

2、下面介绍按钮功能（注意顺序）

1指针，拖动以及点击功能

2字体，输入字体

3TextBox，输入框

4按钮，新建按钮

5，插入

6计时器，计时以及倒计时工具

3、点击Form1进行 *** 作

并结合上步介绍的菜单功能制作软件

4、下面以倒计时软件为例：

1点击计时器工具，并在Form1上的适当位置拖动来制作计时器

2并更改属性，第二项改为False

第四项改为1000

3往Form1加入三个输入框

4点击输入框，加入代码：

MsgBox

"欢迎使用"If

h

=

0

And

m

=

0

And

s

=

0

Then

Timer1Enabled

=

FalseElse

Timer1Enabled

=

Not

(Timer1Enabled)End

IfIf

Timer1Enabled

=

True

Then

hLocked

=

True:

mLocked

=

True:

sLocked

=

TrueElse

hLocked

=

False:

mLocked

=

False:

sLocked

=

FalseEnd

IfEnd

Sub

以上就是关于VB6.0程序错在哪里全部的内容，包括:VB6.0程序错在哪里、怎么用VB6.0编一个倒计时程序、VB6.0把程序编写好了怎么转成exe等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！