110个vb小程序源码实例（vb简单程序例子）

本文目录一览：

• 1、vb程序设计实例100
• 2、求:VB小程序实例(高中教学用)
• 3、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

Print

Next i

End Sub

待续，未完...

求:VB小程序实例(高中教学用)

我帮你做两个小题目吧，比较好的

1。是百钱买百鸡

一百无买公鸡5元一只，母鸡3元一只，小鸡一元3只.x代表公鸡，Y代表母鸡。z代表小鸡

PRIVATE SUB form1_click()l

dim x,y,z as long

for x = 1 to 20

for y = 1 to 33

z= 100-x-y

if 5*x+3*y+1/3z= 100 then

print x,y,z

end if

nexty

nextx

end sub

2.是画50个不同大小的圆，色彩也不同

private sub from1_click()

for i = 1 to 50

randomize

a= int(255*rnd+1)

b = int(255*rnd +1)

c= int(255*rnd+1)

form1.forecolor= rgb(a,b,c)

circle(3000,3000)i*100

next i

end sub

小弟真是献臭了。如果不足，请指教

vb小程序设计实例

使用access数据库，将所有题都事先输入在题库中，在软件运行过程中从题库中随即抽取题目，输出到窗体上！

比如试题表Question

可能会有的字段

字段 类型 备注

ID int 自增量

Content string 问题描述

Type byte 问题类型,1填空题，2选择题，3问答题

大概这些，可能根据出的问题不同有更详细字段

背景音乐你可以给窗体上放一个windows media player控件，设置为不可见，然后让这个控件放歌就可以了！