求vb.net(vb2010)程序代碼 產生30個50以內的隨機正整數(shù)，將他們從大到小排序后輸出

vb2010寫的：

創(chuàng)新互聯(lián)是專業(yè)的赤壁網站建設公司，赤壁接單;提供成都網站制作、做網站、外貿營銷網站建設,網頁設計,網站設計,建網站,PHP網站建設等專業(yè)做網站服務;采用PHP框架,可快速的進行赤壁網站開發(fā)網頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網站,專業(yè)的做網站團隊,希望更多企業(yè)前來合作!

Private?Sub?Button7_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button7.Click

Dim?str?As?String?=?""

Dim?a(30)?As?Integer

Dim?temp?As?Integer

str?=?str??"生成的30個隨機數(shù)字是?"??vbCrLf

For?i?=?1?To?30

a(i)?=?Int(Rnd()?*?50?+?1)

str?=?str??a(i)??"?"

If?i?Mod?10?=?0?Then

str?=?str??vbCrLf

End?If

Next

str?=?str??vbCrLf

For?i?=?1?To?30

For?j?=?1?To?30?-?i

If?a(j)??a(j?+?1)?Then

temp?=?a(j?+?1)

a(j?+?1)?=?a(j)

a(j)?=?temp

End?If

Next?j

Next?i

str?=?str??"排序后的數(shù)字是?"??vbCrLf

For?i?=?1?To?30

str?=?str??a(i)??"?"

If?i?Mod?10?=?0?Then

str?=?str??vbCrLf

End?If

Next

TextBox6.Text?=?str

End?Sub

運行結果：

生成的30個隨機數(shù)字是

36 27 29 15 16 39 1 39 41 36

3 21 44 40 19 49 44 3 48 19

27 39 3 30 24 15 32 33 14 14

排序后的數(shù)字是

49 48 44 44 41 40 39 39 39 36

36 33 32 30 29 27 27 24 21 19

19 16 15 15 14 14 3 3 3 1

vb.net和vb2010的關系？

其實沒有所謂的VB2010，應該是VS2010，其中集成了VB、C#等一系列開發(fā)語言，也就是在VS中，你可以選擇其中一種語言來進行開發(fā)，這些語言都工作在.Net的框架中。所以，VS2010中包括了VB.Net。

VB2010.NET 將CheckBox1到CheckBox25所有未選中狀態(tài)的所對應的數(shù)值中選取6個進行從小到大排列，并輸出.

為插入的復選框控件CheckBox1添加下面的代碼。

Private Sub CheckBox1_Click()

If CheckBox1.Value Then '如果勾選復選框就執(zhí)行下一句

Sheets("Sheet1").Range("a1") = 0 'Sheet1工作的A1單元格為0

End If '如果取消勾選則不進行任何操作

End Sub

VB2010或VB.NET 怎么能將自身窗體的所有內容保存為圖片

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

System.Windows.Forms.SendKeys.Send("%{PRTSC}")

Delay(0.1)

Dim?bmp?As?Bitmap?=?CType(Clipboard.GetDataObject().GetData(DataFormats.Bitmap),?Bitmap)

bmp.Save("c:\test1.jpg",?System.Drawing.Imaging.ImageFormat.Jpeg)

End?Sub

Private?Sub?Delay(ByVal?tim?As?Single)

Dim?t?As?Single?=?Microsoft.VisualBasic.Timer?+?tim

While?t??Microsoft.VisualBasic.Timer

My.Application.DoEvents()

End?While

End?Sub

VB2010版中怎么用用OLE控件連接CAD軟件，顯示CAD圖形？會的給段代碼

vb2010(vb.net）貌似已經沒有OLE控件

下面的代碼是用PictureBox控件顯示CAD的DWG文件

Private?Structure?BITMAPFILEHEADER

Dim?bfType?As?Short

Dim?bfSize?As?Integer

Dim?bfReserved1?As?Short

Dim?bfReserved2?As?Short

Dim?bfOffBits?As?Integer

End?Structure

Public?Function?GetDwgImage(ByVal?FileName?As?String)?As?Image

If?Not?File.Exists(FileName)?Then?Exit?Function

Dim?DwgF?As?FileStream????'文件流

Dim?PosSentinel?As?Integer??'文件描述塊的位置

Dim?br?As?BinaryReader??'讀取二進制文件

Dim?TypePreview?As?Integer?'縮略圖格式

Dim?PosBMP?As?Integer?'縮略圖位置

Dim?LenBMP?As?Integer?'縮略圖大小

Dim?biBitCount?As?Short?'縮略圖比特深度

Dim?biH?As?BITMAPFILEHEADER?'BMP文件頭，DWG文件中不包含位圖文件頭，要自行加上去

Dim?BMPInfo()?As?Byte??'包含在DWG文件中的BMP文件體

Dim?BMPF?As?New?MemoryStream??'保存位圖的內存文件流

Dim?bmpr?As?New?BinaryWriter(BMPF)?'寫二進制文件類

Dim?myImg?As?Image

Try

DwgF?=?New?FileStream(FileName,?FileMode.Open,?FileAccess.Read)????'文件流

br?=?New?BinaryReader(DwgF)

DwgF.Seek(13,?SeekOrigin.Begin)?'從第十三字節(jié)開始讀取

PosSentinel?=?br.ReadInt32?'第13到17字節(jié)指示縮略圖描述塊的位置

DwgF.Seek(PosSentinel?+?30,?SeekOrigin.Begin)?'將指針移到縮略圖描述塊的第31字節(jié)

TypePreview?=?br.ReadByte?'第31字節(jié)為縮略圖格式信息，2?為BMP格式，3為WMF格式

Select?Case?TypePreview

Case?1

Case?2,?3

PosBMP?=?br.ReadInt32?'DWG文件保存的位圖所在位置

LenBMP?=?br.ReadInt32?'位圖的大小

DwgF.Seek(PosBMP?+?14,?SeekOrigin.Begin)?'移動指針到位圖塊

biBitCount?=?br.ReadInt16?'讀取比特深度

DwgF.Seek(PosBMP,?SeekOrigin.Begin)?'從位圖塊開始處讀取全部位圖內容備用

BMPInfo?=?br.ReadBytes(LenBMP)??'不包含文件頭的位圖信息

br.Close()

DwgF.Close()

With?biH??'建立位圖文件頭

.bfType?=?H4D42

If?biBitCount??9?Then?.bfSize?=?54?+?4?*?(2?^?biBitCount)?+?LenBMP?Else?.bfSize?=?54?+?LenBMP

.bfReserved1?=?0?'保留字節(jié)

.bfReserved2?=?0?'保留字節(jié)

.bfOffBits?=?14?+?H28?+?1024?'圖像數(shù)據偏移

End?With

'以下開始寫入位圖文件頭

bmpr.Write(biH.bfType)?'文件類型

bmpr.Write(biH.bfSize)?'文件大小

bmpr.Write(biH.bfReserved1)?'0

bmpr.Write(biH.bfReserved2)?'0

bmpr.Write(biH.bfOffBits)?'圖像數(shù)據偏移

bmpr.Write(BMPInfo)?'寫入位圖

BMPF.Seek(0,?SeekOrigin.Begin)?'指針移到文件開始處

myImg?=?Image.FromStream(BMPF)?'創(chuàng)建位圖文件對象

Return?myImg

bmpr.Close()

BMPF.Close()

End?Select

Catch?ex?As?Exception

Return?Nothing

End?Try

End?Function

想找一段vb2010可用的，將窗口隱藏到系統(tǒng)托盤的代碼

VB.net中已經有專門的控件做系統(tǒng)托盤了，比vb簡單多了，下面的代碼是最小化時隱藏到系統(tǒng)托盤，在單擊托盤圖標時復原的代碼：

Public Class Form1

Dim OldState As FormWindowState

Private WithEvents NotifyIcon1 As New NotifyIcon

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

If Me.WindowState = FormWindowState.Minimized Then

NotifyIcon1.Icon = Me.Icon

Me.ShowInTaskbar = False

NotifyIcon1.Visible = True

Else

OldState = Me.WindowState

End If

End Sub

Private Sub NotifyIcon1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.Click

Me.WindowState = OldState

Me.ShowInTaskbar = True

NotifyIcon1.Visible = False

End Sub

End Class