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新手编程实例源代码扩展阅读：

编译方式下，首先通过一个对应于所用程序设计语言的编译程序对源程序进行处理，经过对源程序的词法分析、语法分析、语意分析、代码生成和代码优化等阶段将所处理的源程序转换为用二进制代码表示的目标程序，然后通过连接程序处理将程序中所用的函数调用、系统功能调用等嵌入到目标程序中，构成一个可以连续执行的二进制执行文件。调用这个执行文件就可以实现程序员在对应源程序文件中所指定的相应功能。