189 8069 5689
这个应该很简单啊，我没学过VB.net，但以前学过点VB，不知道两者差别大不大。以下为VB代码，没测试，供参考。
十年的崇左网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整崇左建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联从事“崇左网站设计”,“崇左网站推广”以来，每个客户项目都认真落实执行。
一个按钮，一个列表框，（楼主说要文本框显示结果，但VB中用文本框存储变化的文本很不方便，因此用列表框逐列显示）
代码全部在按钮过程中
z = 0: f = 0 ’正反统计的变量
For i = 1 To 10
Randomize ’初始化随机发生器
x = Int(Rnd(1) + 0.5) ‘得到0或者1的随机数
If x = 0 Then
List1.AddItem "正"
z = z + 1
Else
List1.AddItem "反"
f = f + 1
End If
Next i
结果会以文字形式逐行显示在列表框中，可利用z,f值输出正反次数。
private sub timer1_timer()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Int(Rnd() * 255)
b = Int(Rnd() * 255)
c = Int(Rnd() * 255)
lblTitle.ForeColor = RGB(a, b, c)
end sub
你要做一个考试系统？？这可不是小程序，不过如果是超精简的话，我倒可以写个思路给你。
在form添加一个label 和四个command1(组成一个控件组修改index属性，按顺序设置为ABCD)和一个command2(可要可不要，这个是作为跳过用的)
定义全局变量 questions() as string,questionid as integer，answers() as string
在form_load中，将问题和答案读入questions()和answers()中，然后将第一个问题显示在label中，设置questionid=1
之后在command1_click(index as integer)中用select语句根据questionid将答案和回答比较，然后显示下一题，同时更改questionid。。。大概就这样
command2_Click()就直接显示下一题和更改questionid
问题结束后就OK了，之后要加什么可以自己加上去~
lblresult是一个label控件，确定你的设计界面加入了一个label控件并将其命名为lblresult
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim oleDbConnection1 As OleDb.OleDbConnection
Dim oledbDataAdapter As OleDb.OleDbDataAdapter
Dim oledbData As DataSet = New DataSet
Dim strConnect As String = "Provider= OraOLEDB.Oracle;Data Source=888;User ID=888;Password=888;"
oleDbConnection1 = New System.Data.OleDb.OleDbConnection(strConnect)
Dim strSql As String
strSql = "select *" " from xx"
Dim oledbCommand As OleDb.OleDbCommand
oledbCommand.CommandText = strSql
oledbCommand.CommandType = CommandType.Text
oledbCommand.Connection = oleDbConnection1
oledbDataAdapter.SelectCommand = oledbCommand
oleDbConnection1.Open()
oledbDataAdapter.Fill(oledbData, "gy_bingrenxx")
oleDbConnection1.Close()
'在窗体上添加一个DataGridView控件,在这个位置加一句代码
DataGridView1.DataSource = oledbDataAdapter.Tables("gy_bingrenxx")
End Sub
您好，1.右击解决方案中的项目名称，选属性-输出类型改为:类库。 (由于默认为输入应用程序，所以这里要改一下输出类型)
2.按Ctrl+Shift+B
3.到项目下的bin目录下面的debug或release下面就可以找到刚生成的DLL。
应用:
右击引用-》"添加引用"-浏览-找到刚生成的DLL.点OK即可。
右击解决方案中的项目名称，选属性-输出类型改为:类库。 (由于默认为输入应用程序，所以这里要改一下输出类型)
这里要设置一下，否则它默认只输出应用程序可执行文件*.exe，而不输出*.dll类库文件。