vb趣味編程100例

Ⅰ VB編程水仙花數

VB實現水仙花數的程序代碼如下：

Private Sub Command_Click()

For num = 100 To 999

a = num Mod 10

b = num 10 Mod 10

c = num 100

If a^3 + b^3 + c^3 = num Then Print num

Next num

End Sub

實現具體步驟如下：

1、啟動VB程序，新建一個標准exe工程

(1)vb趣味編程100例擴展閱讀：

C語言實現水仙沖改花數的代碼：

#include<stdio.h>

#include<stdlib.h>

voidmain()

{

inti,j,k,n;

printf("'waterflower'numberis:");

for(n=100;n<1000;n++)

i=n/100;/*分解出散塵判百位*/

j=n/10%10;/*分解出十位*/

k=n%10;/*分解出個位*/

if(n==i*i*i+j*j*j+k*k*k)

{

printf("%-5d",n);

}

}

printf(" ");

}

參考資料：網路-水仙花數

Ⅱ VB編程題：編寫一個產生1 至100之間的隨機整數的Function 過程

一、要產生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之間的隨機數目的。函數代碼如下：

PublicFunctionsj()AsInteger
Randomize
sj=Int(Rnd*98)+2
EndFunction

二、舉個例子，要產生10個1到100之間的隨機整數，如下：
1、打開VB6.0開發軟體，新建一個標准exe工程；
2、在設計界面上添加一個Text控制項和一個Command控制項；

Ⅲ 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編程實例

下面的代碼是利用三邊計算三角形面積
Private Sub Command1_Click()
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
p=(a+b+c)/2
s=sqr(p*(p-a)*(p-b)*(p-c))
if a+b>c and b+c>a and a+c>b then
text4.text="三角形的面積是:" & s
else
text4.text="不能構成三角形"
end if
end sub

下面是計算兩數之和的代碼
private sub command1_click()
a=val(text1.text)
b=val(text2.text)
text3.text=a+b
end sub

Ⅳ 用VB編程求1到100（包括100）自然數中能被3和7同時整除的個數

Private Sub Form_click()
Me.AutoRedraw = True
Me.Cls
k = 0
For i = 1 To 100
If i Mod 3 = 0 And i Mod 7 = 0 Then k = k + 1
Next i
Print "1-100之間既能被3整除又能返鬥鬥被7整除漏磨的數有" & k & "銷慧個"
End Sub

Ⅵ vb編程例題

PrivateSubCommand1_Click()
Dima(10)AsInteger,xAsInteger
Randomize
Fori=1To10
a(i)=Int(Rnd()*51)
Printa(i);
Nexti
Print
x=InputBox("請輸入一個數：")
Fori=1To10
Ifa(i)=xThenExitFor
Nexti
Ifi<11Then
Print"a(";i;")=";x
Else
Print"未找到";x
EndIf
EndSub

Ⅶ 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 例子

1..

Dim Words, Chars, MyString
For Words = 10 To 1 Step -1 ' 建立 10 次循環。
For Chars = 0 To 9 ' 建立 10 次循環。
MyString = MyString & Chars ' 將數字添加到字元串中。
Next Chars ' Increment counter
MyString = MyString & " " ' 添加一個空格。
Next Words

2.
Do...Loop 語句示例
本示例示範如何使用 Do...Loop 語句。內層的 Do...Loop 語句循環到第 10 次時將標志值設置為 False，並用 Exit Do 語句強制退出內層循環。外層循環則在檢查到標志值為 False 時，馬上退出。

Dim Check, Counter
Check = True: Counter = 0 ' 設置變數初始值。
Do ' 外層循環。
Do While Counter < 20 ' 內層循環。
Counter = Counter + 1 ' 計數器加一。
If Counter = 10 Then ' 如果條件成立。
Check = False ' 將標志值設成 False。
Exit Do ' 退出內層循環。
End If
Loop
Loop Until Check = False ' 退出外層循環。

3.
While...Wend 語句示例
本示例使用 While...Wend 語句來增加計數變數的值。如果條件判斷值為 True，則循環內的語句將一直執行下去。

Dim Counter
Counter = 0 ' 設置變數初值。
While Counter < 20 ' 測試計數器的值。
Counter = Counter + 1 ' 將計數器的值加一。
Wend ' 當 Counter > 19 時則循環終止。
Debug.Print Counter ' 在「立即」窗口中顯示數字 20。

Select Case 語句示例
本示例使用 Select Case 語句來判斷變數的值。示例中第二個 Case 子句包含了變數值，故只有此區塊內的語句會被完成到。

Dim Number
Number = 8 ' 設置變數初值。
Select Case Number ' 判斷 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之間，包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一個 Case 子句是本示例中唯一判斷值為 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之間。
Debug.Print "Between 6 and 8"
Case 9 到 10 ' Number 的值為 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他數值。
Debug.Print "Not between 1 and 10"
End Select

Ⅸ vb猜數字游戲編程 要求：讓電腦猜一個0-100的數字（由玩家想好） 直到猜對為止 要用

Dim state As Integer '狀態 0表示沒開始 1表示已開始
Dim min As Integer '最小值
Dim max As Integer '最大值
Dim now As Integer '中值
Dim c As Integer '猜的次數
Private Sub Command1_Click() '開始
state = 1
Guess
End Sub
Private Sub Command2_Click() '小搭嘩了
If state = 0 Then MsgBox "還沒開始呢！": Exit Sub
min = now
Guess
End Sub
Private Sub Command3_Click() '大了
If state = 0 Then MsgBox "還知豎行沒開始呢！": Exit Sub
max = now
Guess
End Sub
Private Sub Command4_Click() '正確
If state = 0 Then MsgBox "還纖旁沒開始呢！": Exit Sub
state = 0
MsgBox "哇哇，我太厲害了，才猜" & c & "次就猜中了！"
End Sub
Private Sub Form_Load()
state = 0
min = 0
max = 100
c = 0
End Sub
Function GetMid() As Integer '取得中值
GetMid = (max - min) / 2 + min
End Function
Sub Guess() '電腦猜測
now = GetMid
c = c + 1
MsgBox "我猜是" & now & "！"
End Sub

Ⅹ VB編程例題，100-200之間不能被3整除的數

Private Sub Command1_Click() '點擊含洞開始譽宴按鈕
Dim i As Integer
For i = 100 To 200
If i Mod 3 <> 0 Then
List1.AddItem i
End If
Next i
End Sub

Private Sub Command2_Click() '點擊清談虛枯除按鈕
List1.Clear
End Sub

Private Sub Form_Load()
Command1.Caption = "開始"
Command2.Caption = "清除"
End Sub