visual basic 6 0下载，vb60怎么下载并安装

时间：2022-08-19 03:58:34来源：整理作者：佚名投稿手机版

本文目录一览

1，vb60怎么下载并安装
2，Visual Basic60
3，VB的高手帮帮忙吧急死啦
4，vb程序vb程序
5，VB编程的几个小问题

1，vb60怎么下载并安装

vb下载建议下载企业版的，容量接近200M，打开安装，需要企业安装码为111-11111111，安装后提示要安装MSCN VB6.0，再下载和安装这个，就可以用了。

我也是win 7，安装时报错不兼容，但继续安装没有问题，用起来也没有问题。vb6.0企业版的。给我你的qq邮箱，发你

visual basic 6 0下载，vb60怎么下载并安装

2，Visual Basic60

For i = 1 To 4For j = 1 To 4a(i, j) = (i - 1) * 3 + jNext jNext i是给数组a(4,4)赋值。 For i = 3 To 4For j = 3 To 4Print a(j, i);Next jPrintNext i 是只显示a(3 to 4, 3 to 4)的值。分别是两个嵌套循环，没什么关系呀，后面的i,j你定义其它变量来代替也是一样的呀

上面第一个循环是对数组a进行赋值操作第二个循环是对数组进行输出操作，也就是把上一个循环中得到的运算结果输出到窗体中

visual basic 6 0下载，vb60怎么下载并安装

3，VB的高手帮帮忙吧急死啦

vb,也就是visual basic。它是微软公司出的一种基于windows平台的以basic语言为基础的可视化(visual)编程平台。早在windows 3.x的时候就已经有vb了，现在已经发展到了 visual basic .net basic是一种初级语言，特点是简单易学，很容易上手。对于初级爱好者是很平易近人的编程平台。使用vb可以很容易的编写有趣和实用的程序，但是，vb有一些天生的缺点也不可回避。1.basic语言已经是很人机对话性的语言了，虽然容易理解，但是执行效率不高。2.由于vb平台的模块化特点(假如你想在窗口中加入按钮，在工具栏中选取就好了)，使得程序员的“惰性”增加。3.basic语言无法直接完成硬件层面的控制。

1、do until 条件循环体loop2、do while 条件循环体loop3、while 条件wend4、for i= * to * step *循环体next i5、 5、6使用goto 跳转kaishi： if 条件满足 then exit sub/function循环体goto kaishi:6、kaishi： if 条件满足 then goto jiesu循环体goto kaishi:jiesu：计算部分自己弄吧很简单打字打不动了

visual basic 6 0下载，vb60怎么下载并安装

4，vb程序vb程序

Dim i As IntegerPrivate Sub Form_Load() If Dir("c:\windows\system32\abc.abc") = "" Then Chuang Else XIE End IfEnd Sub Private Sub Chuang() Open "c:\windows\system32\abc.abc" For Output As #1 Print #1, "1" Close #1End Sub Private Sub XIE() Dim a As String Open "c:\windows\system32\abc.abc" For Input As #1 Line Input #1, a Close #1 i = Val(a) + 1 Open "c:\windows\system32\abc.abc" For Output As #1 Print #1, Str(i) Close #1 End Sub

我看你用读写读写就能实现你要的效果，给你个例子 Private Sub Form_Load() times = 1If Dir("c:\windows\system32\abc.txt", vbDirectory + vbHidden + vbSystem) <> "" ThenOpen "c:\windows\system32\abc.txt" For Input As #1Do While Not EOF(1) Input #1, b LoopClose #1b = b + 1Open "c:\windows\system32\abc.txt" For Output As #1Print #1, bClose #1End IfIf Dir("c:\windows\system32\abc.txt", vbDirectory + vbHidden + vbSystem) = "" Then Open "c:\windows\system32\abc.txt" For Append As #1Print #1, timesClose #1End If End Sub

一嘴巴

第一行option explicit，写了这句，程序中用到的变量就一定要先声明才能用。（option你打多了个s）第二行和最后一行就是一个过程的开始和结束，你这的是窗口单击过程。第三行是把a,b,c定义为整型的动态变量（后面两个integer打多了个n了）第四行是分别给变量b,c赋值。第五行程序先是运算了后面的b=c，这个是关系运算，是判断b,c的值是否相等，因为c定义的是整型，所以，c的值是6，后面的0.5不算在内的。所以b=c是正确的，就是true，而现在要给整型变量a赋整型值，所以赋的是-1，（VB中true的值为-1，false的值为0）所以最后输出的是-1。第六行就是在当前窗口打印出a的值。

5，VB编程的几个小问题

1、来自msdn：Opcode 可选的。是长型值或仅由位图使用的代码。它用来定义在将 pictur 绘制到 object 上时对 picture 执行的位操作（例如， vbMergeCopy 或 vbSrcAnd 操作符）。关于位操作符常数的完整列表，请参阅 Visual Basic Help 文件中的 RasterOp Constants 主题。在使用opcode时有一些限制。例如，如果资源是图标或图元文件，则只能使用 vbSrcCopy，而不能使用其他的opcode；并且，与图案 (或 SDK 术语中的"画笔")，如 MERGECOPY、 PATCOPY、 PATPAINT 和 PATINVERT，相交互的opcode实际上是同目标的 FillStyle 属性交互。注意 Opcode 用于将按位操作传递到位图。当传递其他图象类型时将一个值给该参数会造成“无效过程调用或参数”错误。这是设计的原因。要避免这个错误，对于除位图外的图象，将 Opcode 参数置为空。RasterOp 常数：vbDstInvert &H00550009 反转目标位图 vbMergeCopy &H00C000CA 合并模式和源位图 vbMergePaint &H00BB0226 用 Or 运算合并反转的源位图和目标位图 vbNotSrcCopy &H00330008 将反转的源位图复制到目标 vbNotSrcErase &H001100A6 用 Or 运算合并源位图和目标位图，然后反转 vbPatCopy &H00F00021L 将模式复制到目标位图 vbPatInvert &H005A0049L 用 Xor 运算合并目标位图与模式 vbPatPaint &H00FB0A09L 用 Or 运算合并反转的源位图与模式。然后用 Or 运算合并上述结果与目标位图 vbSrcAnd &H008800C6 用 And 运算合并目标像素与源位图 vbSrcCopy &H00CC0020 将源位图复制到目标位图 vbSrcErase &H00440328 反转目标位图并用 And 运算合并所得结果与源位图 vbSrcInvert &H00660046 用 Xor 运算合并目标像素和源位图 vbSrcPaint &H00EE0086 用 Or 运算合并目标像素和源位图 2、用GetPixel 函数返回屏幕上某点的颜色。其中屏幕的hDC可以通过调用函数 GetWindowDC(0) 获得Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long6、就是系统或者其它程序提供的函数，可以理解为是对内部函数（如paintpicture pset等）的扩展。调用前要定义。如上面列举的两个api的定义。把它复制到窗体模块的顶端就可以了。其它的不懂

文章TAG：Visual basic 6 0下载 vb60怎么下载并安装下载