vb程序设计的代码例题视频(vb程序设计代码大全)
VB的代码程序设计，懂的进。 题目求10个30—100间的随机正整数中的最大值，最小值，平均值
Private Sub Form_Load()
Dim a(9) As Integer
Dim i As Integer
Dim sum As Integer
Dim min As Integer
Dim max As Integer
Dim avg As Double
sum = 0
Randomize
a(0) = Int(Rnd * 71 + 30)
min = a(0)
max = a(0)
For i = 1 To 9
a(i) = Int(Rnd * 71 + 30)
Print a(i)
If min a(i) Then
min = a(i)
End If
If max a(i) Then
max = a(i)
End If
sum = sum + a(i)
Next i
avg = sum / 10
Print "最大数是" max
Print "最小数是" min
Print "平均数是" avg
End Sub
有谁有vb中的程序设计的各种例子详解 我现在在自学 有很多问题都搞不懂 在这里请教一下各位
用google搜索 《30天精通Visual Basic项目案例开发》，google才有下载链接，里面很多实例，还有相对应视频
vb程序设计实例
Private Sub Form_Activate()
'1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法：
Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288
Dim x As Double
x = Val(InputBox(""))
Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5)
Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2)
Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)
Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)
Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)
Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)
End Sub
Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double
ss = a + a * c * b
End Function
Private Sub Form_Load()
AutoRedraw = True
End Sub
Visual Basic 6.0 2008 2010程序设计视频 vb数据库编程案例教程
教程1：李天生老师VB教程
Visual
Basic
6.0从入门到精通
教程2：30天学通Visual
Basic项目案例开发
视频教程+源码
教程3：VB入门到高级语言开发
VB6.0
程序设计视频教程
教程4：Visual
Basic范例开发大全Visual
Basic案例光盘压缩包
教程5：用多媒体学Visual
Basic
2008
视频教程
VB
2008视频教程
教程地址：
vb程序设计题 求代码 随机产生20个0～100的正整数（包括0和100），存放在
'这题目，对于初学者是很有难度的，
'运行效果如上图，代码如下：
'有问题可以问我
Private?Sub?Command1_Click()
Dim?arr(1?To?20)?As?Integer
Dim?i,?a,?b?As?Integer
Dim?Ave?As?Double
Dim?sum?As?Integer
Dim?Mx,?Mn?As?Integer
Print?"随机数数组为："
Randomize
For?i?=?1?To?20?
?arr(i)?=?Int(Rnd?*?101)?
?sum?=?arr(i)?+?sum
?Print?arr(i);
?If?i?=?10?Then
?End?If
Next?i
Ave?=?sum?/?20
Mx?=?Max(arr)
Mn?=?Min(arr)
For?i?=?1?To?20
If?arr(i)?=?Mx?Then
a?=?i
End?If
If?arr(i)?=?Mn?Then
b?=?i
End?If
Next?i
Print:?Print
Print?"平均值为："??Ave
Print?"最大值为："??Mx??"?对应数组下标为："??a
Print?"最小值为："??Mn??"?对应数组下标为："??b
End?Sub
Private?Function?Max(List()?As?Integer)?As?Integer
????Dim?i?As?Integer
????Max?=?List(LBound(List))
????For?i?=?LBound(List)?+?1?To?UBound(List)
????????If?Max??List(i)?Then
????????????Max?=?List(i)
????????End?If
????Next
End?Function
Private?Function?Min(List()?As?Integer)?As?Integer
????Dim?i?As?Integer
????Min?=?List(LBound(List))
????For?i?=?LBound(List)?+?1?To?UBound(List)
????????If?Min??List(i)?Then
????????????Min?=?List(i)
????????End?If
????Next
End?Function
求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
=
then
t
=
t
+
a(i):
"偶数为";
a(i)
next
i
"偶数的和为";
t
for
i
=
1
to
10
if
a(i)
t
then
"小于偶数和的数";
a(i)
next
i
end
sub