vb.net的一个小程序

这个应该很简单啊，我没学过VB.net，但以前学过点VB，不知道两者差别大不大。以下为VB代码，没测试，供参考。

天等网站制作公司哪家好，找成都创新互联公司！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作，到程序开发，运营维护。成都创新互联公司于2013年创立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联公司。

一个按钮，一个列表框，（楼主说要文本框显示结果，但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 小程序问题

就是判断矩阵的关系是否传递的?如果满足:d(i,j)=d(j,k)=d(i,k)=1,该矩阵是传递的,否则非传递的.

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 有关循环的小程序

添加一个按钮和一个文本框，X不要太大，会溢出的！

Try

Dim i, j As Integer

Dim sum As Long

i = 1

sum = 0

For j = 1 To TextBox1.Text

sum += i

i = i * 2

Next

MessageBox.Show("结果：" sum.ToString())

Catch ex As Exception

MessageBox.Show(ex.Message, "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End Try

本文标题：vb.net经典小程序 vb小程序实例初学者
分享URL：http://cdweb.net/article/doccggs.html