vb小程序设计实例

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

比如试题表Question

可能会有的字段

字段 类型 备注

ID int 自增量

Content string 问题描述

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

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

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

1: 列出你希望要的程序大纲(比如: 架构图--- 各个窗体的功能分配等等)

2: 就是拖控件, 添加控件事件处理程序

思路过程就这么简单, 做起来也很快连数字计算都不需要

如果你希望别人做好给你, 我觉得一是不现实,二是没有意义 毕竟自己做出来的才有成就感

你随便找本VB的书, 看看里面的按钮控件使用方法就可以解决

下面的代码是利用三边计算三角形面积

Private Sub Command1_Click()

a=val(text1text)

b=val(text2text)

c=val(text3text)

p=(a+b+c)/2

s=sqr(p(p-a)(p-b)(p-c))

if a+b>c and b+c>a and a+c>b then

text4text="三角形的面积是:" & s

else

text4text="不能构成三角形"

end if

end sub

下面是计算两数之和的代码

private sub command1_click()

a=val(text1text)

b=val(text2text)

text3text=a+b

end sub

用ADO法（要先引用）

连接：

Dim cn As ADODBConnection

Set cn=New ADODBConnection '上两句为声明创建ADO变量（下同）

cnopen "PROVIDER=MicrosoftJetOLEDB40;Data Source=X;" 'X为数据库路径(加文件名)

cnClose '关闭数据库

Set cn=Nothing ‘释放数据

读取：

Dim rs As ADODBRecordSet

Set rs=New ADODBRecordSet

rsOpen "select from X1", cn,X2,X3 'X1为表名，cn就是上面连接的cn（下同），X2为数据库游标类型，X3为数据库锁方式（读取方式）

Do While Not rsEOF

XXXXX '读取数据至程序的代码，自编

rsMoveNext ’移动到下一条记录

Loop

……

……

…… '关闭…，释放…

Set rs=Nothing

Set cn=Nothing

剩下的网上搜，大把

以上就是关于vb小程序设计实例全部的内容，包括:vb小程序设计实例、vb程序设计实例 编写一个VB程序，进行自我介绍、vb编程实例等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！