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