vb编程例题
❶ 求一个简单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编程题
首先，如果你选择的文本不是空字符串(有单词)，那么进行for循环，c
=
Mid(Text1.SelText,
i,
1)这个函数是取得你所选择文本的从第i个算起的第1个字符，就是第i个字符，配合下面if语句结构，If
c
<>
"
"
Then
t
=
t
+
c
else......，如果这个第i字符不是空字符串，那么字符串累积，如果第i字符是空字符串，则累积结束。直观表现就是选出你一段话中的一个单词，然后和the进行比对（因为英文单词和单词之间是空字符串相隔的）。
打个比方如果你选的一段话为qwe
the
twety，变量i在for循环中从1到13（字符串长度：11个字母加上2个空格间隔）i=1时c=Mid(qwe
the
twety,
i,
1)=q，t此时为空字符串，执行t
=
t
+
c后t=q，i=2时c=Mid(qwe
the
twety,
i,
1)=w，执行t
=
t
+
c后t=qw，i=3时c=Mid(qwe
the
twety,
i,
1)=e，执行t
=
t
+
c后t=qwe，i=4时c=Mid(qwe
the
twety,
i,
1)=
(空字符串)，进入if分支语句，LCase$(t)
=qwe（如果此时c为空字符串，LCase$(c)=（空字符串），），不是the，不执行m=m+1，m=0
进行比较，不是the，m无变化，i=5、6、7、8，此时LCase$(t)
=the（i=8时c仍为空字符串），执行m=m+1。
综上所述，如果用
LCase$(c)="the"运行，c此时为空字符串，LCase$(c)为空字符串，LCase$(c)="the"这个条件达不到，不能执行m=m+1，所以m一直是0
望采纳
❸ 高中vb编程例题详解
Private Sub Command1_Click()
Dim a As Double, b As Double
a = InputBox("a的值")
b = InputBox("b的值")
c = InputBox("c的值")
Print "x1="; (-b + (b ^ 2 - 4 * a * c) ^ 0.4) / 2 / a, "x2="; (-b - (b ^ 2 - 4 * a * c) ^ 0.4) / 2 / a
End Sub
❹ vb编程例题
PrivateSubCommand1_Click()
Dima(10)AsInteger,xAsInteger
Randomize
Fori=1To10
a(i)=Int(Rnd()*51)
Printa(i);
Nexti
Print
x=InputBox("请输入一个数：")
Fori=1To10
Ifa(i)=xThenExitFor
Nexti
Ifi<11Then
Print"a(";i;")=";x
Else
Print"未找到";x
EndIf
EndSub
❺ 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
Print
Next i
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编程题目
Private Sub Command1_Click()
If Len(Text1) >= 2 Then
Text1 = Left(Text1, 2)
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
End Sub
Private Sub Form_Load()
Label1.Caption = "新字符串"
Command1.Caption = "左边2个字符"
Command2.Caption = "清空"
Text1 = ""
'这里不知道 三号是多大时，可以手动设置文本框字体大小为三号，然后显示下字体大小，就知道三号字体等于15.75
Print Text1.FontSize
Text1.FontSize = 15.75
Text1.ForeColor = vbRed
Text1 = "aBcDeF"
End Sub
❽ VB编程例题，100-200之间不能被3整除的数
Private Sub Command1_Click() '点击开始按钮
Dim i As Integer
For i = 100 To 200
If i Mod 3 <> 0 Then
List1.AddItem i
End If
Next i
End Sub
Private Sub Command2_Click() '点击清除按钮
List1.Clear
End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "清除"
End Sub
❾ VB编程题目
Private Sub Command1_Click()
Label1.Caption = "多预习，问题在心中"
End Sub
Private Sub Command2_Click()
Label1.Caption = "认真听，知识记脑里"
End Sub
Private Sub Command3_Click()
Label1.Caption = "多练习，实践出真知"
End Sub
Private Sub Form_Load()
Label1.FontSize = 20
Label1.Caption = "欢迎学习Visual Basic"
Command1.Caption = "上课前"
Command2.Caption = "上课时"
Command3.Caption = "上课后"
End Sub
❿ vb程序设计例题
修改好了测试成功，但是，基本上，偶数和会大于所有的数
Private
Sub
Command1_Click()
Dim
a(10)
As
Double
Dim
t
As
Double
Randomize
For
i
=
1
To
10
a(i)
=
Int(Rnd
*
100
+
2)
'设十个数，给十个数随机赋值
If
a(i)
Mod
2
=
0
Then
t
=
t
+
a(i):
Print
"偶数为";
a(i)
Next
i
Print
"偶数的和为";
t
For
i
=
1
To
10
If
a(i)
<
t
Then
Print
"小于偶数和的数";
a(i)
Next
i
End
Sub