vb程序设计代码

'添加一个TextBox 设置其慎搭MultiLine=True 示例代码如山老下：

Private Sub Form_Click()

Dim a(1 To 100) As Integer

Randomize Timer

Print "随逗孝升机产生的100个数据是："

For i = 1 To 100

a(i) = Int(Rnd * 90 + 10)

Print a(i)" "

If i Mod 10 = 0 Then Print

Next i

For i = 1 To 99

For j = i + 1 To 100

If a(i) >a(j) Then

c = a(i)

a(i) = a(j)

a(j) = c

End If

Next j

Next i

For i = 1 To 100

If a(i) >= 50 Then

Text1.Text = Text1.Text &a(i) &" "

b = b + 1

If b Mod 10 = 0 Then Text1.Text = Text1.Text &vbCrLf

End If

Next i

End Sub

先在程序中加一个Label,名字应该符合VB程序控件命名规范:

lbl<名称>

再加一个Timer控件,名字也要符合命名规范

在窗体代码对话框中打入

Private Sub Form_Load()

On Error Resume Next

Me.Font = "Arial"

Me.FontSize = 24

Me.FontBold = True

<Timer控件名>.Enabled = True

<Timer控件名>.Interval = 1000

End Sub

'下列函数只能二选其一

'是时间显示

Private Sub <Timer控件名>_Timer()

On Error Resume Next

<Label控件名>.Caption = Time

End Sub

'是日期与时间显示

Private Sub <Timer控件名>_Timer()

On Error Resume Next

<Label控件名>.Caption = Now

End Sub

★条件判断语句

条件判断控制最主要的概念在于条件表达式的功能。相关的流程控制语句，会依据所给定的测试

数据，对程序部分片段作选择性的执行 *** 作。

在VB中提供了If...Then与Select Case两种条件判断语句。

If...Then判断语句

If..Then判断语句属于一种单行假设判断语句，它会按照用户所给定的比较或逻辑表达式

进行判断。当判断结果为“True”也就是真时，则执行Then后的程序代码块，否则跳过该块的执行步骤。

使用语法的方法如下：

If 判断式 Then 执行语句

或

If 判断式 Then

执行语毕帆句1

执行语句2

End If

其实上述的两种语法并不相同的，主要差异在于第一种写法是使用在处理程序部分的源代码较短，

无需分段的时候：

If a >b Then Print "a >b"

而当处理程序部分需要分段时，则必须使用第二种写法将执行语句包括在"If...Then...End If"范围中：

If a >b Then

c = a + b

Print "a + b = " &c

End If

而If...Then...Else...End If语句则可以将不符合条件式的情况，交给Else后所接的程序代码来处理：

例如：

If a <b Then

c = a + b

Else

c = a - b

End If

Print c

在上面程序片段中，变量C的数值会由条件式”a<b“成立与否而有不同的输出结果。

至于ElseIf的语法也是和If搭配来使用，它主要是用来进行多重逻辑判断。

If...ElseIf...Else...End If使用语法的方法如下：

If 判断式1 Then //当判断式1成立时，执行以下语句

程序语句 甲

ElseIf 判断式2 Then //当判断式1不成立，但判断式2成立时执行以下语句

程序语句乙

ElseIf 判断式3 //当判断式1和2都不程序，但判断式3成立时执行以下语手郑雹句

程序语句 丙

Else //当上面所有判断式都不成立时，执行下面的语句

程序语句 丁

End If

★Select Case判断语句

Select Case流程控制语句可以根据判断式的返回值来执行不同程序代码片段。

Select Case语法如下：

Select Case 参数

Case 条件1 //当判断式满足条件1时就执行以下的语句

程序语句1

程序语句2

Case 条件2 //当判断式满足条件2时就执行以下的语句

程序语句1

程序语句2

Case Else //当判断式无满足任何条件时就执行Case Else标签后的语句

程序语句1

End Select

由于Select Case仅能传入一个参数，也就是说它无法执行“比较”与“判断”的 *** 作，并且Case

仅能是数值而不能是表达式。

以下这个是个错误程序丛悄的片段：

Select Case A >B //错误！！！仅能传送一个参数

或是

Select Case A

Case A <C //错误！！！Case只能接受数值

★循环语句

当程序需要执行重复性工作时，可以使用循环控制语句连续执行某段程序代码，直到满足特定条件为

止。

VB提供了Fot...Next、While...Wend与Do...Liio三种循环控制语法。

For...Next循环语句

For...Next属于先测试循环控制语句，属于基本的循环控制语法。它按照用户所赋予的初值、终值

与步长表达式来重复执行某一特定程序区段。在每次执行前，系统会先检查目前初值状态是否符合

终值条件，如果不符合终值条件的话则执行增量运算后，再执行循环语句：反之如符合终值条件，则

跳出循环。

For 循环语法如下：

For 初值 to 终值 Step 步长

程序语句

Next

While...Wend循环语句

While...Wend属于先测试循环语句，当执行条件参数成立时，程序会执行While循环内语句内容，直到

条件参数不成立时为止。

While...Wend循环语句如下：

While 执行条件

执行语句1

执行语句2

Wend

Do...Loop循环语句

Do...Loop循环控制的运用与For...Next以及While...Wend语句类似，但是在执行过程上有一点差异。

那就是Do...Loop循环控制不管条件式是否成立，必定会先执行一次循环内的程序代码。

Do...Loop循环语法如下：

Do

执行语句1

执行语句2

…

Loop 条件判断式

Do...Loop的条件判断式有“Do...Loop While”与“Do...Loop Until”两种写法，分别说明如下：

Do...loop While语法如下：

Do

i = i + 1

Loop While i <= 100

上面循环语句执行时，会走进行“i=i+1”的运算 *** 作，再判断While后所加的条件式。

Do...Loop Until语法如下：

Do

i = i + 1

Loop Until i = 100

上面循环语句执行时，同样会先执行“i=i+1”的运算，再判断While后所加的条件式。

★无条件跳转控制

VB中提供了一个无条件跳转语句“GoTO”命令，让用户搭配程序代码标识符，进行指定位置的跳转

*** 作。

声明语法如下所示：

标识符字符串： //将标识符字符串后加上冒号，例如firstBlock:

程序代码标识符建立完成后，用户即可在程序中的任意位置执行“GoTo”命令，即能跳到程序代码

的标识符位置，执行其后所包含的代码内容。

---