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