100個vb新手編程實例源代碼

㈠ VB編程產生100個0-100之間的隨機整數找出其中能被3整除的數，並且按由小到大順序十個一行排列

一、要產生1到100之間的隨機數，首先了解Rnd函數的用法，Rnd函數產生的是0和1之間的隨機數，范圍是[0,1)，包括0，但不包括1。因此要產生1~100之間的隨機數，可以使用Rnd*98，產生的是[0,98)的隨機數，而int(Rnd*98)產生的是[0,97]之間的隨機整數，那麼int(Rnd*98)+2產生的就是[2,99]之間的隨胡基機整數了，符合目標1到100之間的隨機數目的。函數代碼如下：Public Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2End Function二、舉個例子，要產生10個1到100之間的隨機整數，如下：1、打開褲扒謹VB6.0開發軟體，新建一個標准exe工程；2、在設計界面上添加一個Text控制項和一個Command控制項；3、Command1控制項的Caption屬性設置為"產生10個1~100之間的隨機數"。4、雙擊Command1控制項，進入代碼編輯界面，輸入如下代碼：Public Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2End FunctionPrivate Sub Command1_Click()Text1.Text = ""For i = 1 To 10 Text1.Text = Text1.Text & sj() & " "Next iEnd Sub5、運行工程，單擊按鈕，可以看到Text1控制項中產此岩生的10個1~100之間的隨機整數。

㈡ vb編程實例 互動式窗口，輸入100個數據，求平均值、平方後再開方和自動分類

Dim intArray(100) As Single, sglAverage As Single

Private Sub Command1_Click()

Randomize (Timer)

Dim i As Integer, intSum As Integer

Me.Picture1.Cls

For i = 1 To 100

intArray(i) = Int(Rnd(i) * 5 + 95)

Me.Picture1.Print intArray(i);

If i Mod 10 = 0 Then Me.Picture1.Print

intSum = intSum + intArray(i)

Next i

sglAverage = intSum / 100

Label1.Caption = "Sum=" & intSum

Label2.Caption = "Average=" & sglAverage

End Sub

Private Sub Command2_Click()

Dim i As Integer, k0 As Integer, k(4) As Integer

For i = 0 To 4

Me.Picture2(i).Cls

Next i

For i = 1 To 100

If Sqr((intArray(i) - sglAverage) ^ 2) >= 1.67 Then

k(0) = k(0) + 1

Me.Picture2(0).Print intArray(i);

If k(0) Mod 10 = 0 Then Me.Picture2(0).Print

ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 1.33 And Sqr((intArray(i) - sglAverage) ^ 2) < 1.67 Then

k(1) = k(1) + 1

Me.Picture2(1).Print intArray(i);

If k(1) Mod 10 = 0 Then Me.Picture2(1).Print

ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 1 And Sqr((intArray(i) - sglAverage) ^ 2) < 1.33 Then

k(2) = k(2) + 1

Me.Picture2(2).Print intArray(i);

If k(2) Mod 10 = 0 Then Me.Picture2(2).Print

ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 0.67 And Sqr((intArray(i) - sglAverage) ^ 2) < 1 Then

k(3) = k(3) + 1

Me.Picture2(3).Print intArray(i);

If k(3) Mod 10 = 0 Then Me.Picture2(3).Print

Else

k(4) = k(4) + 1

Me.Picture2(4).Print intArray(i);

If k(4) Mod 10 = 0 Then Me.Picture2(4).Print

End If

Next i

For i = 0 To 4

Me.Label8(i).Caption = "共計" & k(i)

Next i

End Sub

㈢ vb程序設計

也太多了吧，先搞第一個
1、Dim i As Integer
Dim x As String
Dim s As Long
For i = 1 To 5
x = InputBox("請輸入一個整數：")
If Val(x) >= 1 And Val(x) < 10 Then
Print x & " 是一位數"
Print
ElseIf Val(x) >= 10 And Val(x) < 100 Then
Print x & " 是二位數"
Print

Else
Print x & " 數字輸入錯誤"
Print

End If
s = s + Val(x)
Next
Print
Print " 這5個數的平均數是：" & s / 5

2、

dim x as string
x=inputbox("請輸入：")
msgbox x

㈣ 初學編程100個代碼(電腦編程教學入門教程)

簡單好玩的編程代碼如下所示：

gsh=msgbox("已經准備好格式化，准備開始。",vbyesno)

sets=createobject("wscript.shell")

wscript.sleep1000

msgbox"開始格式化……哈哈！嚇暈了吧，騙你的~"

wscript.sleep1000

wscript.sleep1000*100

msgbox"windows發現一重要更新，將自動下載。"

wscript.sleep3000

msgbox"系統檢測到WINDOWS更新中捆綁有不明插件SXS.exe,是否對其掃描？",vbyesno

wscript.sleep1000

msgbox"文件名SXS.exe"+CHR(13)+"發行者田間的菜鳥"+chr(13)+"安全評級高危"+chr(13)+"建議直接刪除"+chr(13)+"病毒類型：木馬",,"windows掃描附件"

(4)100個vb新手編程實例源代碼擴展閱讀：

編譯方式下，首先通過一個對應於所用程序設計語言的編譯程序對源程序進行處理，經過對源程序的詞法分析、語法分析、語意分析、代碼生成和代碼優化等階段將所處理的源程序轉換為用二進制代碼表示的目標程序，然後通過連接程序處理將程序中所用的函數調用、系統功能調用等嵌入到目標程序中，構成一個可以連續執行的二進制執行文件。調用這個執行文件就可以實現程序員在對應源程序文件中所指定的相應功能。