从零开始学VB 献给想学习VB的朋友们 第一篇 开始

海院の水水

首先必须说明的是，如果您希望通过学习本文，学习vb成为高手，那您大可不必看下去了，因为只是不可能的，vb入门容易，深入很难，需要计算机原理的知识，需要汇编的功底，需要c的功底，需要对底层的了解……

本文献给渴望学习编程的朋友们，本文希望能通过对vb的学习，使您对什么是编程有一个初步的了解，使您迈出程序设计的第一步

学习编程有很多条路，您可以先学习微机原理，汇编，然后学习高级语言，这样可以对学习高级语言有不小的帮助，也可以先学习vb这样的比较容易上手的语言，但不论哪条路，都是充满艰辛的，如果您希望短期内成为高手，为了向别人炫耀而学习编程，那您是不会成功的。

好了，下面我们开始学习，第一步，打开vb（），弹出的新建工程，我们选择默认得“标准exe”，点打开，（对于vb的环境，我会在需要时介绍，但不会完全讲解，您可以没事的时候四处点一点，看一看，自己探索一下）

您会看到一个窗体，里面有个窗体，那就是我们的程序啦，左边是工具栏，按钮，文本框什么地就在那，向画图一样画在窗体上好了，我们的第一个程序只要一个按钮，一个文本框

在画好的按钮上双击，我们就打开了代码窗口，vb已经自动生成了处理按钮单击的事件的代码框架
我们输入一下代码（代码对于初学有难度，很容易晕，做好思想准备）

哦，忘了说了，代码的用途是：枚举10000以内自然数中的质数
Private Sub Command1_Click()

Dim Arr() As Double
Dim Zhishu As Boolean
Dim i As Double
Dim CurNum As Double
Dim j As Double
Dim ArrCount As Double
Dim OutArr As String

Zhishu = True
ReDim Arr(1 To 1)
Arr(1) = 2
ArrCount = 1
For i = 3 To 10000 Step 2
   CurNum = i
      For j = 1 To ArrCount
        If Arr(j) > Sqr(CurNum) Then Exit For
        If CurNum Mod Arr(j) = 0 Then
           Zhishu = False
           Exit For
        End If
      Next
   If Zhishu Then
      ArrCount = ArrCount + 1
      ReDim Preserve Arr(1 To ArrCount)
      Arr(ArrCount) = CurNum
      OutArr = OutArr + Str(CurNum) + vbCrLf
   Else
      Zhishu = True
   End If
Next

Text1.Text = OutArr

End Sub

代码什么意思？下面一点点讲解

Dim Arr() As Double
Dim Zhishu As Boolean
Dim i As Double
Dim CurNum As Double
Dim j As Double
Dim ArrCount As Double
Dim OutArr As String

(插入一句：您可能已经发现vb的代码窗口里的滚动条是不支持鼠标滚轮的，请下载附件里的东东放到系统目录（c:\windows\system32)，这是一个使代码窗口支持鼠标滚轮的add-in）

哦，那个，上面的几句都是Dim ....，dim语句是声明语句用来声明变量，变量在程序运行时是可以改变得，对变量的复制直接 变量名＝值或表达式，表达式就像(1+(5*6)*3-8)这样的东西，当然可能更复杂（几乎肯定比这个复杂）

声明这些变量我们是有用的（废话！），根据不同用途，变量被声明为不同的类型，As...就是告诉vb声明的变量的类型，Double是双精度值，String是字符串

其他类型：
long，长整形（顾名思义，保存整数啦）
Integer，整型
byte，字节
single，单精度
……

变量是什么？我解释不清，要解释清也不是三言两语的事，自己体会一下吧，保存 数值或字符串，参与运算，用做标记位等用途吧
Zhishu = True
Arr(1) = 2
ArrCount = 1
这句就是赋值语句，其中Zhishu变量类型为boolean（前面怎么没写？），这种类型只有两钟取值True和False，其实true就是非零，false就是零，当然那是后话
Arr（）是个变量数组,关于变量数组和下面的具体运算，请听下回分解（）

starshow0571

LS的斑竹好热情啊!,看来我是比不上你了!
[mop011]

starshow0571

兄弟啊!这几天我的电脑不大好!
还有我也没时间!
论坛的管理你帮下忙吧!

海院の水水

哈哈``都是同一战线上的兄弟```好说好说