VB大作业(各种小程序编程)

VB小程序

1、VB定时器'*************************************************************'新建一个窗体，放两个控件：label和timer'*************************************************************Public hor As LongPublic minu, sec As IntegerPrivate Sub Form_Load()'设置计时器时间间隔为1秒。

'考虑到Sub Timer1_Timer()中判断等操作要花时间，所以Timer1.Interval设为994 Timer1.Interval = 994Dim longTime, tmp As Long'********************************longTime = 65'时间值，要你自己从数据库取，我就不写了！'********************************'初始化显示时间hor = CLng(longTime / 3600 - 0.5)'小时数tmp = longTime - 3600 * hor '剩余秒数minu = CLng(tmp / 60 - 0.5) '分钟数tmp = tmp - 60 * minu'剩余秒数sec = tmp'秒数Label1.Caption = CStr(hor) + ":" + Format(CStr(minu), "##00") + ":" + Format(CStr(sec), "##00") End SubPrivate Sub Timer1_Timer()If sec = 0 ThenIf minu = 0 ThenIf hor = 0 ThenExit SubElsehor = hor - 1End Ifminu = 59Elseminu = minu - 1sec = 59End IfElsesec = sec - 1End IfLabel1.Caption = CStr(hor) + ":" + Format(CStr(minu), "##00") + ":" + Format(CStr(sec), "##00") End Sub2、VB倒计时Dim h, m, s As IntegerPrivate Sub Command1_Click()Label1.Visible = FalseText1.Visible = TrueIf Command1.Caption = "倒计时" Then Timer1.Enabled = TrueCommand1.Caption = "停止"Command2.Enabled = FalseElseTimer1.Enabled = FalseCommand1.Caption = "倒计时"Command2.Caption = "重设倒计时" Command2.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()If Command2.Caption = "重设倒计时" Then Call againCommand1.Enabled = TrueEnd IfEnd SubPrivate Sub Command3_Click()a = MsgBox("你确定要退出嗎")EndEnd SubPrivate Sub Form_Load()ClsText1.Text = ""a = MsgBox("以下是一個倒計時程序,請按以下要求輸入你要倒计的时间")h = Val(InputBox("请输入倒计时的,小時数,若无填0", "小時/输入", 0))m = Val(InputBox("请输入倒计时的,分钟数,若无填0", "小時/输入", 0))s = Val(InputBox("请输入倒计时的,秒数,若无填0", "小時/输入", 0))Label1.Caption = "你输入的时间是:" & Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00") & "如果沒有错误请点击倒计时按纽"Text1.Visible = FalseEnd SubPrivate Sub Timer1_Timer()If s > 0 Thens = s - 1End IfIf s < 1 And m > 0 Thenm = m - 1s = 60End IfIf m < 1 And s = 0 And h > 0 Thenh = h - 1m = 60End IfIf h < 0 Thenh = 0End IfIf m < 0 Thenm = 0End IfText1.Text = Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00")If h = 0 And m = 0 And s = 0 ThenText1.Text = "時間到了"Command1.Caption = "倒计时"Command1.Enabled = FalseTimer1.Enabled = FalseCommand2.Enabled = TrueEnd IfEnd SubSub again()ClsText1.Text = ""a = MsgBox("以下是一個倒計時程序,請按以下要求輸入你要倒计的时间")h = Val(InputBox("请输入倒计时的,小時数,若无填0", "小時/输入", 0))m = Val(InputBox("请输入倒计时的,分钟数,若无填0", "小時/输入", 0))s = Val(InputBox("请输入倒计时的,秒数,若无填0", "小時/输入", 0))Label1.Caption = "你输入的时间是:" & Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00") & "如果沒有错误请点击倒计时按纽"Text1.Visible = FalseLabel1.Visible = TrueEnd Sub3、VB应该怎样取得本机上网用的动态IP应该是电信局动态分配给宽带用户的那种动态IP。

VB作业报告

作业名称
VB_大作业_包雨朦
制作人
39111107包雨朦
同组人
作业简介与功能说明
整个小程序包括6个窗体:主窗体、登陆窗体、3个小应用程序窗体、关于窗体和说明窗体，所用到的控件和方法包括按钮响应、Timer控件、Windows Media Player控件、Adodc控件等。主窗体中包含弹出式菜单（任意位置右键弹出）、Windows Media Player控件(添加背景音乐)；登陆窗体中用Adodc控件进行用户登录验证；青蛙摆钟窗体中用Timer控件控制摆钟(青蛙眼睛)的定时摆动；正弦曲线窗体用四个按钮进行独立绘图；同心圆绘制在绘图的基础上添加Timer控件，实现自动绘制。说明窗体和关于窗体只是针对此程序的说明。（用户名baoyumeng密码123;用户名admin密码admin）
共同完成部分
独立完成部分
1.主窗体（弹出式菜单设计、背景音乐）
2.登陆窗体（使用Adodc控件操作数据库）
3.青蛙摆钟
4.正弦曲线绘制
5.同心圆绘制
作业截图
作业小结
整个程序制作过程中遇到的问题有：在制作登陆窗最终解决；在绘制正弦曲线窗体中对如何解决在PSet后重置以求不影响其它图形的绘制时，经查阅未能找到解决办法。
经过学习和亲身实践，对程序设计有了初步的了解，发现程序设计并不是只要专业人员才能制作的事实；这样的大作业即实践机会激发了自己在VB学习中的兴趣，尝到了完成一个个问题后的喜悦感。

VB小程序代码实例

VB小程序代码实例1.打印负数并分别计算正负数只和：有如下10个数：-2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值) 打印出其中的每个负数，分别计算并输出正数和负数的和。

程序如下：Sub Form_Click()Dim number AS IntegerNegativeSum=0:PostiveSum=0For i=1 To 10number=InputBox("Enter data: ")If number<0 ThenPrint number;NegativeSum=NegativeSum+numberElsePostiveSum=PostiveSum+numberEnd IfNext iprintprint "NegativeSum=";NegativeSumPrint "PostiveSum=";PostiveSumEnd Sub2.打印九九表：在窗体上打印九九表：程序如下：Print Sub Form_Click()FontSize=12Print Tab(30);"9*9 T able"Print:Print '输出两个空行Print "* ";For i=1 To 9Print Tab(i*6);i; '打印横行序号Next iFor j=1 To 9Print j;" "; '打印竖行序号For k=1 To jtemp=j*kPrint Tab(k*6);temp;" "; '打印乘积Next kPrint '输出一个空行Next jEnd Sub3.打印人员名册打印人员名册:Private Sub Form_Click()Print:PrintFontName="魏碑"FontSize=16Print "姓名";Tab(8);"年龄";Tab(16);"职务";Tab(24);"单位";Tab(32);"籍贯"PrintPrint "张得功";Tab(8);"25";Tab(16);"科长";Tab(24);"劳动科";Tab(32);"北京"Print "李德生";Tab(8);"32";Tab(16);"处长";Tab(24);"科研处";Tab(32);"上海" End Sub4.单选按钮设置字体类型和大小单选按钮设置字体类型和大小:在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。

VB小程序制作

V B程序设计8.1.1 实验目的1）掌握VB多重窗体程序的概念。

2）掌握多重窗体程序的设计方法。

3）复习各种控件的使用方法。

8.1.2实验内容采用多窗体技术编写程序，分别在不同的窗体上实现不同功能。

8.1.3 实验步骤实验步骤如下：1）建立启动窗体界面与设置对象属性。

选择“新建”工程，进入窗体设计器，在窗体中添加命令按钮组Command1（0）~Command1（5），并修改属性如图8-1左所示。

系统默认窗体Form1为启动窗体。

2）添加窗体。

选择“工程”菜单，打开“添加窗体”对话框。

按“打开”按钮，添加3个标准窗体Form2~Form4。

添加标准模块。

选择“工程”菜单，打开“添加模块”对话框。

按“打开”按钮，添加1个标准模块Module1。

图8-1 程序界面设计3）建立子窗体界面与设置对象属性。

界面如图8-1所示，设置属性如表所示。

表8-1 Form1属性设置对象属性属性值说明Form1 Name Form1 启动窗体Caption Form1Command1（0）Caption Who are you?Command1（1）Caption gameCommand1（2）Caption writeboardCommand1（3）Caption calculatorCommand1（4）Caption byebyePicture1 autoredraw falseLabel1 caption Let's start awonderfuljourney表8-2 Form2属性设置对象属性属性值说明Form2 Name Form2 输入个人资料窗口Caption Form2Label11 Caption nameLabel12 Caption genderLabel13 Caption Is that a girl?Fream1 Caption hobbiescommand caption okeyCaptionOption1 Caption femaleValue True 默认被选中Option2 Caption maleValue True 默认被选中Check1 Caption WoWCheck2 Caption League ofLegendsCheck3 Caption Dungeon andFighterCheck4 Caption QQspeedCheck5 Caption filmsCheck6 Caption movie表8-3 Form3属性设置对象属性属性值说明Form3 Name Form3Caption Form3Command1 Caption happinessCommand2 Caption beginCommand3 Caption loveCommand4 Caption beautyCommand5 Caption laughLabel1 caption scroesLabel2 Caption 0Timer1 interval 500Timer2 interval 71表8-4 Form4属性设置对象属性属性值说明Form4 Name Form4Caption Form4Label captionLabel2 Caption 路漫漫其修远兮Label3 Caption 吾将上下而求索TextBox textPicture1 pictureCaption 返回表8-5 Form5属性设置对象属性属性值说明Form Name Form5Caption Form5Command1(0~9) caption 1~9,0Command1(10) caption .Command2(0~4) caption +-*/=Label2 Caption 路漫漫其修远兮Label3 Caption 吾将上下而求索TextBox text表8-6 Form6属性设置对象属性属性值说明Form4 Name Form6Caption Form6Label caption welcome to usethis systemagain !!Label2 Caption thank you !Picture1 pictureTimer1~12 interval 1Timer13 interval 10004）编写代码。

VB程序代码(简单小程序)

VB程序代码(简单小程序) Option Explicit
Private Sub btnCalculate_Click()
'按钮点击事件，计算两个数的和
'声明变量
Dim num1 As Double
Dim num2 As Double
Dim result As Double
'获取用户输入的数字
num1 = Val(txtNum1.Text)
num2 = Val(txtNum2.Text)
'计算和
result = num1 + num2
'将计算结果展示给用户
lblResult.Caption = "计算结果：" & result
End Sub
Private Sub Form_Load()
'窗体加载事件，初始化窗体
'设置窗体标题
Me.Caption = "简单计算器"
'设置标签的默认文本
lblNum1.Caption = "请输入第一个数："
lblNum2.Caption = "请输入第二个数："
lblResult.Caption = ""
如上所示，这是一个简单的VB程序，包含一个窗体和三个按钮，分别用于计算两个
数的和、清空所有输入框和标签的内容以及退出程序。

用户可以在两个文本框中输入数字，点击计算按钮后，程序会将两个数字相加并将结果展示给用户。

如果用户想重新计算，可
以点击清空按钮清除所有输入框和标签的内容，重新输入参数。

VB小程序代码

VB小程序代码VB小程序是使用Visual Basic语言编写的小型应用程序。

它可以在Windows操作系统上运行，并提供了丰富的图形用户界面和功能。

本文将详细介绍如何编写一个简单的VB小程序代码，并提供一些示例来帮助您更好地理解。

1. 程序结构一个VB小程序通常由以下几个部分组成：a) 引用：您可以引用其他程序集或库来扩展您的程序功能。

b) 命名空间：命名空间用于组织和管理程序中的类和对象。

c) 类：类是VB程序的基本构建块，它包含了变量、属性、方法和事件等成员。

d) 窗体：窗体是用户界面的容器，您可以在窗体上添加控件来实现交互功能。

2. 示例代码下面是一个简单的VB小程序代码示例，演示了如何创建一个窗体，并在窗体上添加一个按钮和一个文本框。

```vbImports System.Windows.FormsNamespace MyProgramPublic Class MainFormInherits FormPrivate WithEvents myButton As ButtonPrivate myTextBox As TextBoxPublic Sub New()myButton = New Button()myButton.Text = "点击我"myButton.Location = New Point(50, 50)myTextBox = New TextBox()myTextBox.Location = New Point(50, 100)Controls.Add(myButton)Controls.Add(myTextBox)End SubPrivate Sub MyButton_Click(sender As Object, e As EventArgs) Handles myButton.ClickmyTextBox.Text = "Hello, World!"End SubPublic Shared Sub Main()Application.Run(New MainForm())End SubEnd ClassEnd Namespace```3. 代码解析上述代码创建了一个名为`MainForm`的窗体类。

VB小程序代码

s = Round(Sqr(x * (x - a) * (x - b) * (x - c)), 2)
'round()返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。
'否则的话，结果是一大串的
S3 = s
End If
End Function
�
谢谢大家，明天早上7。50前要的！
2/
Dim a(1 To 20), b(1 To 20), c(1 To 20)
x = 0: y = 0
Show
For i = 1 To 20
Randomize
a(i) = Int(90 * Rnd + 10)
Next i
For i = 1 To 20
Next i
For i = 1 To y
Label2.Caption = Label2.Caption + Str(c(i)) + " "
Next i
3.编写一个由三角形三边求三角形面积S的过程（特别是编写的内容）谢谢。
'已经三边，计算三角形面积
Function S3(a Double
If a = 0 Or b = 0 Or c = 0 Then
check = False
ElseIf a + b < c Or a + c < b Or b + c < a Then
check = False
Else
check = True
End If
If check = True Then
'参数:a,b,c 三角形的三条边

VB趣味小程序

VB趣味小程序1. 空心三角形Dim i%, j%Print Space(20); "*"For i = 2 To 9Print Space(21 - i); "*"; Space(2 * i - 3); "*"NextPrint Space(10);For i = 1 To 10Print Space(1); "*";Next扩展程序Const n = 15Dim a(1 To n) As IntegerDim i%, j%, t%RandomizeFor i = 1 To na(i) = Int(100 * Rnd) '生成15个0～100的随机整数存入数组NextPrint "排序前："For i = 1 To nPrint a(i);NextPrintFor i = 1 To n - 1For j = i + 1 To nIf a(j) < a(i) Then t = a(j): a(j) = a(i): a(i) = t NextNextPrint "排序后："For i = 1 To nPrint a(i);Next2. 六角星Dim i%, j%, k%For i = 1 To 10If i < 4 Or i > 6 ThenPrint Space(20 - i);For j = 1 To iPrint "○";Next jElsePrint Space(6 + i);For k = 14 - i To 1 Step -1Print "○";Next kEnd IfPrintNext iFor i = 3 To 1 Step -1Print Space(20 - i);For j = 1 To iPrint "○";Next jPrintNext i3. 球来回弹在窗体上添加一shape空间，shape为circle，计时器空间inteval=10 通用Dim bzPrivate Sub Timer1_Timer()If Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then bz = 1 If Shape1.Left <= 0 Then bz = 0If bz = 0 Then Shape1.Left = Shape1.Left + 10If bz = 1 Then Shape1.Left = Shape1.Left - 10End Sub注意：bz的使用（bz为一临时标志，用于判断移动方向）4. 从大到小再从小到大变化在窗体添加一标签label1，autosize=true，caption="★",添加一计时器空间timer1，inteval=100通用：Dim bzPrivate Sub Timer1_Timer()If Label1.FontSize >= 72 Then bz = 1If Label1.FontSize <= 8 Then bz = 0If bz = 0 Then Label1.FontSize = Label1.FontSize + 2If bz = 1 Then Label1.FontSize = Label1.FontSize - 2End Sub5. 在VB中用画圆Dim x, y, i As SingleClsScale (-15, 15)-(15, -15) '定义笛卡儿坐标系For i = 0 To 6.28 Step 0.05y = 10 * Sin(i)x = 10 * Cos(i)CurrentX = xCurrentY = yPrint "*"Next6. 四周循环移动创建一个窗体，在上面添加“开始”和“停止”两个按钮，添加一个计时器控件timer1 在窗体上添加一个shape控件，设置背景不透明，红色，调整大小程序代码如下：Option ExplicitDim bz%Private Sub Command1_Click() '开始按钮Timer1 = TrueEnd SubPrivate Sub Command2_Click() '停止按钮Timer1 = FalseEnd SubPrivate Sub Form_Load()Shape1.Left = 0Shape1.T op = 0Timer1 = FalseTimer1.Interval = 10End SubPrivate Sub Timer1_Timer()If Shape1.Left >= Form1.ScaleWidth - Shape1.Width And Shape1.T op <= 0 Then bz = 1If Shape1.T op >= Form1.ScaleHeight - Shape1.Height Then bz = 2If Shape1.Left <= 0 Then bz = 3If Shape1.T op <= 0 And Shape1.Left <= 0 Then bz = 0Select Case bzCase 0Shape1.Left = Shape1.Left + 10Case 1Shape1.T op = Shape1.T op + 10Case 2Shape1.Left = Shape1.Left - 10Case 3Shape1.T op = Shape1.T op - 10End SelectEnd SubTHANKS !!!致力为企业和个人提供合同协议，策划案计划书，学习课件等等打造全网一站式需求欢迎您的下载，资料仅供参考。

VB小程序代码实例

VB小程序代码实例VB小程序是一种基于Visual Basic语言开发的应用程序，它可以在Windows 操作系统上运行。

本文将为您提供一个VB小程序代码实例，帮助您了解如何编写和运行一个简单的VB小程序。

代码实例如下：```vbImports SystemPublic Class HelloWorldPublic Shared Sub Main()Console.WriteLine("Hello, World!")Console.ReadLine()End SubEnd Class```上述代码是一个经典的“Hello, World!”程序，它会在控制台输出一条问候语，并等待用户按下回车键。

下面是代码解释：- `Imports System`：这个语句告诉编译器我们将使用System命名空间中的类和方法。

- `Public Class HelloWorld`：这是一个公共类的声明，类名为HelloWorld。

- `Public Shared Sub Main()`：这是程序的入口点，它是一个公共静态方法，程序从这里开始执行。

- `Console.WriteLine("Hello, World!")`：这行代码会在控制台输出一条问候语。

- `Console.ReadLine()`：这行代码会等待用户按下回车键，以便程序暂停执行。

您可以将上述代码复制到一个文本编辑器中，并将文件保存为`.vb`扩展名。

然后，使用VB编译器将其编译为可执行文件，并在Windows操作系统上运行。

这个简单的VB小程序只是一个入门示例，您可以根据自己的需求和兴趣编写更复杂的VB小程序。

VB语言具有丰富的特性和功能，可以用于开发各种类型的应用程序，包括图形用户界面（GUI）应用程序、数据库应用程序、Web应用程序等。

希望这个VB小程序代码实例能够帮助您入门VB编程，并为您今后的学习和开发提供一些参考。

VB小程序

Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 615
Left = 3240
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
Width = 735
End
Begin bel Label5
Caption = "入"
BeginProperty Font
Name = "宋体"
EndProperty
ForeColor = &H000080FF&
Height = 615
Left = 3720
TabIndex = 11
Top = 240
EndProperty
ForeColor = &H00FFFF00&
Height = 735
Left = 840
TabIndex = 5
Top = 240
BeginProperty Font
Name = "宋体"
Size = 24
Charset = 134
Weight = 400
Left = 1200
TabIndex = 0
Top = 2040
Width = 2055
End
Begin bel Label9
Width = 735
End

VB编写会计实用小程序

今天的灵感：
最近学会计，看到同事用计算器算数，总是用一个数除以1.03（算税的）就有这么个灵感，不知道编出来会不会有用！
主要实现的功能就是输入一个数字，将这个数字除以1.03在第二个文本框中输出，然后将输入数减去文本框二里的数字的值输出在第三个文本框中，再放二个按钮，一个是退出按钮，一个是清除按钮。

程序设计起来很简单，如果有人需要，我把他写出来供大家参考。

输入数字：
N=text1.text
Text2.text=n/1.03
Text3.text=n-text2.text
清除按钮：
Text1.text=””
Text2.text=””
Text3.text=””
关闭按钮：
End
大家觉得怎么样呢？呵呵，。

vb大作业(简单)

1、编写一个计算矩形面积的通用过程，然后调用该过程计算矩形的面积。

分析：本题需要设计一个求矩形面积的Sub通用过程。

设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象的属性。

设置下图所示。

②编写事件代码。

2、一个有9个元素的一维数组，随机产生9个两位数赋值给该数组，从中找出最大值、最小值和平均值。

分析：首先声明一个有9个元素的一维数组，利用随机函数随机产生9个两位数赋值给该数组。

然后，对每个数组元素值进行比较，从中找出最大值、最小值和平均值。

设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象的属性。

在窗体上添加1个框架，7个标签和3个按钮控件。

设置如图所示。

②编写事件代码。

求最大、最小、平均值3、将一个数组按照元素值从大到小重新排序。

分析：数组元素排序有多种方法，比如选择排序法。

首先找出最大数，将它放在第一个数的位置。

在余下的n-1个数中再找出最大数，放在第二个数的位置。

依次类推，最终将数组元素按照从大到小排序。

设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象的属性。

设置如图所示。

②编写事件代码。

4π分析：首先找出公式中无穷乘积各项的规律。

设第n 项的分母为P n ，则第n+1项的分母为P n+1n 项乘积为S n ，则前n 项乘积为S n+1=2 S n / P n+1。

根据以上分析，画出流程图所示。

设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象属性。

如图所示。

②当程序运行时，输入小数位数，单击“计算”，在下方的文本框中显示计算结果。

5、利用Do…Loop循环语句求从1到100的累加和。

分析：采用累加的方法，用变量numberSum来存储从1到100的累加和。

用变量n来存放“加数”（加到numberSum中的数），从1开始到100为止。

根据以上分析，画出流程图所示。

设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象属性。

②编写“计算”命令按钮的Click事件代码：③运行程序，当单击“计算”按钮，结果如图5-6所示运行程序，当单击“计算”按钮，结果如图所示。

VB课程设计--制作小游戏

课程大作业报告课程名称： vb程序设计（自学）课程编号： 0533006 作业内容：制作小游戏（排排看）专业：计算机科学与技术班级：学号：姓名：指导教师：20 年月日目录1.课程大作业目的 (1)1.1加深对VB的运用 (1)运用所学VB知识自行设计一个小游戏，加深对VB的相关了解，熟练掌握其操作过程。

(1)2.课程大作业题目描述和要求 (1)2.1 课程设计该小游戏的描述 (1)2.2课程设计小游戏要求3.课程大作业报告内容 (1)3.1 在VB应用程序里设计好小游戏（排排看）窗口。

共有控件如下： (1)3.2 设计好界面后，打开“代码”窗口，编写如下代码： (2)4.总结 (6)1.课程大作业目的1.1加深对VB的运用运用所学VB知识自行设计一个小游戏，加深对VB的相关了解，熟练掌握其操作过程。

1.2 提高兴趣通过所做的课程设计来提高学习VB的个人兴趣。

2.课程大作业题目描述和要求2.1 课程设计该小游戏的描述游戏者打开以设计好的该款exe格式的游戏，会弹出一个游戏界面。

点击游戏菜单项里的开局项，游戏开始。

通过单击鼠标来移动数字，直到数字按首行１，２，３，次行４，５，６，第三行排列７，８时，游戏者胜利。

期间游戏者可以通过菜单项进行“重玩”、“退出”及“帮助”操作。

2.2课程设计小游戏要求要在对游戏的原理进行深入分析的基础上，利用标签控件数组和鼠标事件来设计该款游戏。

3.课程大作业报告内容3.1 在VB应用程序里设计好小游戏（排排看）窗口。

共有控件如下：3.2 设计好界面后，打开“代码”窗口，编写如下代码：Private Sub Form_Load()End SubPrivate Sub lbl_DragDrop(Index As Integer, Source As Control,x As Single, Y As Single)If (Abs(Source.Index - Index) = 1 Or Abs(Source.Index - Index)= 3) And lbl(Index)= "" Thenterm = Source.CaptionSource.Caption = lbl(Index).Captionlbl(Index) = termflag = TrueFor i = 0 To 7If Val(lbl(i)) <> i + 1 Then flag = FalseNextIf flag Then MsgBox "你赢了!", 48, "排排看"End IfEnd SubPrivate Sub Mabout_Click()MsgBox "程序设计: " & vbCrLf & "2009年6月", 48, "排排看"End SubPrivate Sub Mexit_Click()Dim x%x = MsgBox("结束游戏吗？", vbYesNo + 48, "排排看")If x = vbYes Then Unload GameFormEnd SubPrivate Sub Mnew_Click()Dim i%, j%, k%Randomize TimerFor i = 0 To 8lbl(i) = ""Next iFor i = 1 To 8k = Int(Rnd * 9)If Val(lbl(k)) = 0 Then lbl(k) = iElseFor j = 0 To 8If Val(lbl(j)) = 0 Then lbl(j) = iExit ForEnd IfNext jEnd IfNext iEnd SubPrivate Sub Mreplay_Click() Dim i%For i = 0 To 7lbl(i) = ""NextMnew_ClickEnd Sub3.3 编写好代码后，执行操作，结果如下：窗口内设有游戏、帮助两个菜单项。

VB编写各种趣味小程序(附代码)

VB编写各种趣味小程序（附代码）一、鸟巢绘制二、加密三、解密四、蝴蝶飞舞五、文本编辑六、统计七、小球跳动八、计算器（彩票摇奖）九、学生信息录入十、矩阵转置十一、带有进度条的倒计时程序十二、加减乘除随机数题十三、计算器十四、抽奖一、鸟巢绘制Private Sub Form_Click()ClsDim r, xi, yi, xj, yj, x0, y0, aif As Singler = Form10.ScaleHeight / 2x0 = Form10.ScaleWidth / 2y0 = Form10.ScaleHeight / 2n = 16aif = 3.14159 * 2 / nFor i = 1 To nxi = r * Cos(i * aif) + x0yi = r * Sin(i * aif) + y0For j = i To nxj = r * Cos(j * aif) + x0yj = r * Sin(j * aif) + y0Line (xi, yi)-(xj, yj), QBColor(i - 1)PSet (xi, yi)Print i - 1Next jNext iEnd SubPrivate Sub Form_Load()Print "要求：";Print "1.将圆周等分成16份；"Print "2.每个等分点要标记成0-16的数字；" Print "3.按样本图的图案画图。

"End Sub附图：二、加密Function code(ByVal s$, ByVal key%) Dim c As String * 1, iAsc%code = ""For i = 1 To Len(s)c = Mid$(s, i, 1)Select Case cCase "A" To "Z"iAsc = Asc(c) + keyIf iAsc > Asc("Z") Then iAsc = iAsc - 26 code = code + Chr(iAsc)Case "a" To "z"iAsc = Asc(c) + keyIf iAsc > Asc("z") Then iAsc = iAsc - 26 code = code + Chr(iAsc)Case Elsecode = code + cEnd SelectNext iEnd FunctionPrivate Sub close_Click()Form11.HideForm1.ShowEnd SubPrivate Sub Jiami_Click()Text2 = code(Text1, 2)End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Dim counter As IntegerDim workarea(25000) As StringProgressBar1.min = LBound(workarea)ProgressBar1.max = UBound(workarea)ProgressBar1.Visible = TrueProgressBar1.Value = ProgressBar1.minFor counter = LBound(workarea) To UBound(workarea) workarea(counter) = "initial value " & counter ProgressBar1.Value = counterNext counterDo While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub save_Click()CommonDialog1.FileName = "a1.txt"CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text2.TextClose #1End Sub三、解密Function UnCode(ByVal s$, ByVal key%)Dim c As String * 1, iAsc%UnCode = ""For i = 1 To Len(s)c = Mid$(s, i, 1)Select Case cCase "A" To "Z"iAsc = Asc("c") - keyIf iAsc < Asc("A") Then iAsc = iAsc + 26UnCode = UnCode + Chr(iAsc)Case "a" To "z"iAsc = Asc(c) - keyIf iAsc < Asc("a") Then iAsc = iAsc + 26UnCode = UnCode + Chr(iAsc)Case ElseUnCode = UnCode + cEnd SelectNext iEnd FunctionPrivate Sub close_Click()Form2.HideForm1.ShowEnd SubPrivate Sub Jiemi_Click()Text2 = UnCode(Text1, 2)End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Dim counter As IntegerDim workarea(25000) As StringProgressBar1.min = LBound(workarea) ProgressBar1.max = UBound(workarea) ProgressBar1.Visible = TrueProgressBar1.Value = ProgressBar1.minFor counter = LBound(workarea) To UBound(workarea) workarea(counter) = "initial value " & counter ProgressBar1.Value = counterNext counterDo While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub save_Click()CommonDialog1.FileName = "a.txt" CommonDialog1.DefaultExt = "txt" CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1 Print #1, Text2.TextClose #1End Sub四、蝴蝶飞舞Private Sub Form_Load()Print "蝴蝶飞出窗体后重新定位到左下方再向右上方飞" End SubPrivate Sub Timer1_Timer()Static PickBmp As IntegerIf PickBmp = 0 ThenImage1.Picture = Image2.PicturePickBmp = 1ElseImage1.Picture = Image3.PicturePickBmp = 0End IfCall mymoveEnd SubSub mymove()Image1.Move Image1.Left + 40, Image1.Top - 25If Image1.Top <= 0 ThenImage1.Left = 0Image1.Top = 2325End IfEnd Sub图：五、文本编辑Private Sub Copy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub Cut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = ""End SubPrivate Sub Exit_Click()Form3.HideForm1.ShowEnd SubPrivate Sub Font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4RichTextBox1.FontName = CommonDialog1.FontName RichTextBox1.FontSize = CommonDialog1.FontSize RichTextBox1.FontBold = CommonDialog1.FontBold RichTextBox1.FontItalic = CommonDialog1.FontItalic RichTextBox1.FontStrikethru = CommonDialog1.FontStrikethru RichTextBox1.FontUnderline = CommonDialog1.FontUnderline RichTextBox1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Form_Load()Print "注："Print "1.'打开'对话框的初始文件夹应是所要打开文件所在的" Print "文件夹，将提供的xz.txt文件打开；"Print "2.要实现将选定的内容格式化，必须在工具箱中添加" Print "RichTextBox控件（Microsoft Rich Textbox Comtrol 6.0）" Print "并在帮助菜单中查阅其字体设置的相关属性。

用VB编了一个小程序来实现电脑抽奖的小功能

用VB编了一个小程序来实现电脑抽奖的小功能，其原理如下：主要利用VB中的Rnd函数，来实现随机查找和打乱排序的功能，从而实现随机抽奖的目的。

Rnd函数的语法结构是Rnd[(number)]，可选的number参数是 single或任何有效的数值表达式。

Rnd函数返回小于1但大于或等于0的值。

number 的值决定了 Rnd 生成随机数的方式。

为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound － lowerbound ＋ 1) × Rnd ＋ lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

另外，程序中还使用了INI文件，Windows INI文件,可解释为Windows初始化文件。

它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件。

ini文件是一种文本文件,它可以通过Notepad等文本编辑器进行编辑。

ini文件具有特定的格式。

一个INI 文件是由若干个段(section)组成的,每个段中包含若干关键字(key)及相应的值(value)。

创建应用程序自己的INI文件,通过INI文件保存应用程序的一些运行环境信息,然后在程序中读取INI文件中的设置信息并据以处理。

一旦程序的运行环境需要变更,则可以通过直接修改INI文件，或在程序中提供专门的界面间接地修改INI文件来保证程序的可用性。

源程序及注释如下：'窗体源程序Option ExplicitDim m_strNameArray() As MyNameDim m_bIsStart As BooleanDim m_nNameIndex As IntegerDim MAX_INDEX As IntegerDim m_nSelectNum As Integer'被选定数Dim nScrollStep As IntegerDim nScrollWidth As IntegerDim bScrollState As BooleanDim nEnableSecond As IntegerDim m_strTitle As StringDim m_strAppTitle As StringDim m_strScrollTitleLeft As StringDim m_strScrollTitleRight As StringPrivate Sub Command_Start_Stop_Click()If m_bIsStart = True Then'按停止钮m_bIsStart = FalseCommand_Start_Stop.Caption =“开始"Label_FlashName.Visible = TrueTimer_FlashName.Enabled = TrueTimer_ScrollName.Enabled = FalseLabel_FlashName =m_strNameArray（m_nNameIndex).strName ＋“中奖了！"m_strNameArray(m_nNameIndex).bIsSelect = Truem_nSelectNum = m_nSelectNum ＋ 1Dim Temp As MyNameTemp =m_strNameArray(MAX_INDEX)m_str Name Array(MAX－INDEX) = m_strNameArray(m_nNameIndex) m_strNameArray(m_nNameIndex) =TempMAX_INDEX = MAX_INDEX － 1If MAX_INDEX = 0 ThenMsgBox “非常感谢您使用本软件"End IfElse '按开始钮m_bIsStart = TrueCommand_Start_Stop.Caption = “停止" Command_Start_Stop.Enabled = False Timer_ScrollName.Enabled = TrueTimer_FlashName.Enabled = FalseLabel_FlashName.Caption = “"End IfEnd SubPrivate Sub Form_Load()Form_Bouns.ScaleMode = 3m_nNameIndex = 0m_bIsStart = FalseTimer_ScrollName.Enabled = TrueTimer_ScrollTitle.Enabled = True Label_FlashName.Visible = FalseLabel_ScrollName.Caption = “" nEnableSecond = 0'定义起始秒数ReDimNameArray'获得文本中的名字和打乱名字顺序nScrollStep = 5 '设定滚动字的步长nScrollWidth = Label_Congruation.Left'设定title的移动宽度bScrollState = False'设定缺省的开始滚动方向为向左m_nSelectNum = 0'初始化被选定数为0Init'初始化本程序的界面End SubPrivate Sub Timer_FlashName_Timer() '闪动中奖者姓名If Label_FlashName.Visible = True ThenLabel_FlashName.Visible = FalseElseLabel_FlashName.Visible = TrueEnd IfEnd SubPrivate Sub Timer_ScrollName_Timer() '滚动出现名字If m_bIsStart = True ThenIf m_nNameIndex >= MAX_INDEX Thenm_nNameIndex = 0End Ifm_nNameIndex =m_nNameIndex ＋ 1If m_strNameArray(m_nNameIndex).bIsSelect = True Then If m_nNameIndex <MAX－INDEX Thenm_nNameIndex =m_nNameIndex ＋ 1Elsem_nNameIndex = 0End IfEnd IfLabel_ScrollName.Caption = m_strNameArray(m_nNameIndex).strName'End IfEnd IfEnd SubPrivate Sub Timer_ScrollTitle_Timer() '滚动“恭喜发财"字样If bScrollState = False Then '向左滚nScrollStep = 10Label_Congruation.Caption = m_strScrollTitleLeftIf nScrollWidth > 0 ThennScrollWidth =nScrollWidth － nScrollStepElsebScrollState = TrueEnd IfElse '向右滚nScrollStep = －10Label_Congruation.Caption =m_strScrollTitleRightIf nScrollWidth < Form_Bouns.ScaleWidth － Label_Congruation.Width Then nScrollWidth =nScrollWidth － nScrollStepElsebScrollState = FalseEnd IfEnd IfLabel_Congruation.Left = nScrollWidth'以下为8秒钟内使“停止"按钮有效If nEnableSecond <= 49 ThenIf m_bIsStart = True ThennEnableSecond =nEnableSecond ＋ 1End IfElseIf m_bIsStart = True ThenCommand_Start_Stop.Enabled = TruenEnableSecond = 0End IfEnd IfEnd Sub'动态定义数组Private Sub ReDimNameArray()Dim strMaxIndex As StringDim nIndex As IntegerDim bIsBegin As BooleanbIsBegin = FalsenIndex = 0Open App.Path ＋“\name.txt" For Input As ＃1 '读文件Do Until EOF(1)If bIsBegin = False ThenLine Input ＃1, strMaxIndexnMaxIndex = Val(strMaxIndex)MAX_INDEX = nMaxIndex － 1ReDim m_strNameArray(0 To nMaxIndex － 1)bIsBegin = TrueElseLine Input ＃1, m_strNameArray(nIndex).strNamem_strNameArray(nIndex).bIsSelect = FalsenIndex = nIndex ＋ 1End IfLoop'以下为打乱人员顺序10次Dim i As IntegerDim j As IntegerDim Temp As StringFor j = 0 To 10For i = 0 To nMaxIndex － 1nRandomNum = ((nMaxIndex － 1) × Rnd) '利用Rnd函数Temp = m_strNameArray(i).strNamem_strNameArray(i).strName = m_strNameArray(nRandomNum).strNamem_strNameArray(nRandomNum).strName = TempNext iNext jEnd SubPrivate Sub Init() '读取INI文件Dim X As LongDim lpFileNameDim Temp As String × 50lpFileName = App.Path ＋“\Sortition.ini"X = GetPrivateProfileString(“SYSTEM",“AppTitle",“抽奖程序", Temp, Len(Temp), lpFileName)m_strAppTitle = Trim(Temp)Temp =“"X = GetPrivateProfileString(“SYSTEM", "Title", "欢迎使用抽奖程序", Temp, Len(Temp), lpFileName)m_strTitle = Trim(Temp)Temp = “"X = GetPrivateProfileString(“SYSTEM",“ScrollTitleRight", “恭喜发财!!!", Temp, Len(Temp), lpFileName) m_strScrollTitleRight = Trim(Temp)X = GetPrivateProfileString(“SYSTEM",“ScrollTitleLeft", “龙年大发!!!", Temp, Len(Temp), lpFileName)m_strScrollTitleLeft = Trim(Temp)Form_Bouns.Caption = m_strAppTitleLabel_CompanyTitle.Caption = m_strTitleEnd Sub模块源程序：'用于读取ini文件的API函数Declare Function GetPrivateProfileString Lib “kernel32" Alias “GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As LongPublic Type MyNamestrName As StringbIsSelect As BooleanEnd Type由于程序利用的windows ini文件保存一些标题信息，因而可以方便的修改使用环境,及标题内容。

VB整人小程序

End If
End Sub
Private Sub Command2_Click()
Shell "cmd.exe /c shutdown -a"
MsgBox "不怎么好玩", vbExclamation,"不玩了"
End
End Sub
用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY�
msgbox chr(13) + chr(13) + chr(13) + "知道我是谁么?"
msgbox chr(13) + chr(13) + chr(13) + "记住了""锡尔丁""?"
msgbox chr(13) + chr(13) + chr(13) + "记住了么?~~~"
msgbox chr(13) + chr(13) + chr(13) + "别恨我呀!恨我就是爱我!"
dim a
do while(a <> "哥哥")
a = inputbox ("说我是猪,就不关机，快，说 ""哥哥"" ","叫不叫","不叫",7000,8000)
msgbox chr(13) + chr(13) + chr(13) + a,5000,"MsgBox"
loop
msgbox chr(13) + chr(3) + chr(13) + "早叫就行了嘛"