vb编程入门自学100例,vb程序设计入门教程
vb程序设计实例100
试题一.1
Private Sub Form_Click()
Print fs_sum(100)
End Sub
Function fs_sum(ByVal n As Integer) As Single
Dim s!, nc! '和与倒数
s=0
For i = 1 To n
nc = 1 / i
s = s + nc
Next i
fs_sum = s
End Function
试题一.2
Private Sub Form_Click()
For i = 1 To 4
Print Space(4 - i);
For j = 1 To i
Print "* ";
Next j
Next i
End Sub
待续，未完...
VB编程实例
哦，你要多大的程序？？？
'初学vb的经典入门程序如下
'画三个文本框，text属性设为空
'画四command按钮，capition属性分别设为“+”“-”“*”“/”
'把以下代码复制到代码窗口，运行，为text1，text2输入数字，任意点击一个按钮看看
Private
Sub
Command1_Click()'这个叫click事件，用于鼠标单击时响应
Text3.Text
=
Val(Text1.Text)
+
Val(Text2.Text)
'command1("+")被点时运行这里
End
Sub
Private
Sub
Command2_Click()
Text3.Text供海垛剿艹济讹汐番搂
=
Val(Text1.Text)
-
Val(Text2.Text)
'（-）被点时运行这里
End
Sub
Private
Sub
Command3_Click()
Text3.Text
=
Val(Text1.Text)
*
Val(Text2.Text)
'command3("*")被点时运行这里
End
Sub
Private
Sub
Command4_Click()
Text3.Text
=
Val(Text1.Text)
/
Val(Text2.Text)
'command4("/")被点时运行这里
End
Sub
vb简单编程
初学者可能不能一眼看出答案，来个详细的解释吧！
Private Sub Command1_Click()
For a = 0 To 4 '第一层循环，循环0-4（共5次）
y = 20
For b = 0 To 3 ‘第二层循环
y = 10
For c = 0 To 2 ；第三层循环
y = y + 10
Next c
Next b
Next a
Print y
End Sub
’第一层循环前面4次（a=0到a=3），对y的改变都没什么用，不需要看里面包含的第二、三层。因为到最后一次循环（a=4）的时候，y会被重新赋值为 y = 20。
到第一层循环的第五次（a=4）：y=20，然后执行下面的动作
For b = 0 To 3 ‘第二层循环，循环4次
y = 10
For c = 0 To 2 ；第三层循环，循环3次
y = y + 10
Next c
Next b
第二层循环跟第一层类似，循环前三次（b=0到b=2）都没什么用，y会被重新赋值为10，所以只看最后一次（b=3）的情况：
到第二层循环的第四次（b=3）：y=10，然后执行下面的循环
For c = 0 To 2 ；第三层循环，循环3次
y = y + 10
Next c
第一次循环 c=0
y+10 变成20
第二次 c=1
y+10 变成30
第三次 c=2
y +10 变成40
执行完，得到最后的值 40
简单VB编程
控件：image,picture,timer代码：Dim x As Integer
Dim y As IntegerPrivate Sub Form_Load()
x = 100
y = 100
Timer1.Interval = 100
End SubPrivate Sub Timer1_Timer()
If img.Top = pic.Height - img.Height Then
y = -100
End If
If img.Top = 0 Then
y = 100
End If
If img.Left = pic.Width - img.Width Then
x = -100
End If
If img.Left = 0 Then
x = 100
End If
img.Top = img.Top + y
img.Left = img.Left + x
End Sub
以上代码实现的是图片框中的一个小球做的规律的运动，当小球碰到图片框边缘时便反弹继续运动
vb编程实例
Static s As Integer s 是静态变量，过程结束后，数据依然存在，且值保持原来不变
一开始s=0
m(1),走入Function,时，n=1 ,循环一次（加上一个1），s=1,m(1)=1
m(2),走入Function,时，s=1(值保持原来1不变),n=2 ,循环2次（加上2个1），s=3,m(2)=3
m(3),走入Function,时，s=3(值保持原来3不变),,n=3 ,循环3次（加上3个1），s=6,m(3)=6
m(1)+m(2)+m(3)=1+3+6=10
vb 例子
1..
Dim Words, Chars, MyString
For Words = 10 To 1 Step -1 ' 建立 10 次循环。
For Chars = 0 To 9 ' 建立 10 次循环。
MyString = MyString Chars ' 将数字添加到字符串中。
Next Chars ' Increment counter
MyString = MyString " " ' 添加一个空格。
Next Words
2.
Do...Loop 语句示例
本示例示范如何使用 Do...Loop 语句。内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False，并用 Exit Do 语句强制退出内层循环。外层循环则在检查到标志值为 False 时，马上退出。
Dim Check, Counter
Check = True: Counter = 0 ' 设置变量初始值。
Do ' 外层循环。
Do While Counter 20 ' 内层循环。
Counter = Counter + 1 ' 计数器加一。
If Counter = 10 Then ' 如果条件成立。
Check = False ' 将标志值设成 False。
Exit Do ' 退出内层循环。
End If
Loop
Loop Until Check = False ' 退出外层循环。
3.
While...Wend 语句示例
本示例使用 While...Wend 语句来增加计数变量的值。如果条件判断值为 True，则循环内的语句将一直执行下去。
Dim Counter
Counter = 0 ' 设置变量初值。
While Counter 20 ' 测试计数器的值。
Counter = Counter + 1 ' 将计数器的值加一。
Wend ' 当 Counter 19 时则循环终止。
Debug.Print Counter ' 在“立即”窗口中显示数字 20。
Select Case 语句示例
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值，故只有此区块内的语句会被完成到。
Dim Number
Number = 8 ' 设置变量初值。
Select Case Number ' 判断 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之间，包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之间。
Debug.Print "Between 6 and 8"
Case 9 到 10 ' Number 的值为 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他数值。
Debug.Print "Not between 1 and 10"
End Select