RELATEED CONSULTING
相关咨询
选择下列产品马上在线沟通
服务时间:8:30-17:00
你可能遇到了下面的问题
关闭右侧工具栏

新闻中心

这里有您想知道的互联网营销解决方案
vb.net小程序设计 VBNET程序设计

vb.net的一个小程序

这个应该很简单啊,我没学过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值输出正反次数。

vb.net制作一个在窗体上不断移动的闪烁文字小程序。

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

vb.net的小程序

你要做一个考试系统??这可不是小程序,不过如果是超精简的话,我倒可以写个思路给你。

在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了,之后要加什么可以自己加上去~

关于VB.NET实现求和小程序的疑问,大侠帮我解答下呗

lblresult是一个label控件,确定你的设计界面加入了一个label控件并将其命名为lblresult

VB.net做一个小程序 求教

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

VB.NET如何开发一款小软件,是专用门用DLL文件生成的?

您好,1.右击解决方案中的项目名称,选属性-输出类型改为:类库。 (由于默认为输入应用程序,所以这里要改一下输出类型)

2.按Ctrl+Shift+B

3.到项目下的bin目录下面的debug或release下面就可以找到刚生成的DLL。

应用:

右击引用-》"添加引用"-浏览-找到刚生成的DLL.点OK即可。

右击解决方案中的项目名称,选属性-输出类型改为:类库。 (由于默认为输入应用程序,所以这里要改一下输出类型)

这里要设置一下,否则它默认只输出应用程序可执行文件*.exe,而不输出*.dll类库文件。


网站题目:vb.net小程序设计 VBNET程序设计
文章起源:http://cqwzjz.cn/article/doodeoc.html